Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt

More documents

Recommendations

Info

APPENDIKS A KILDEKODE MORSK 24 Dette appendikset inneholder kildekoden i MORSK. Appendikset er bygget opp på følgende måte. Først presenteres de ulike skjemaene som brukes i modellen i hvert sitt underavsnitt. Det er kun skjemaer som har kildekode som blir presentert. Til sist presenteres modulen som inneholder kildekoden for blant annet import av KOSTMOD-avdelinger. Lyseblå skrift indikerer kommentarer i koden. A.1 Skjemaet frmInstillinger A.1.1 Hensikt Som nevnt i brukerveiledningen kan brukeren i modellen velge mellom tre ulike innstillinger av forholdet mellom operativ struktur og støttestruktur. Hensikten med dette skjemaet er å gi brukeren denne muligheten. Under vises skjemaet slik det ser ut i Excel. Figur A.1 Skjemaet frmInnstillinger i MORSK A.1.2 Kildekode A.1.2.1 Prosedyren cmbAvbryt_Click () 'Lukker skjemaet frmInnstillinger uten å lagre endringer Unload Me 'Setter variabelen strInnlogget til "" slik at innloggingsskjemaet kommer opp neste gang brukeren går inn i "admin delen"
strInnlogget = "" A.1.2.2 Prosedyren cmdOK_Click() 'Lagrer endringene som brukeren har valgt 25 'Slår av Skjermoppdateringen. Dette gjøres for at koden skal gå raskere, og fordi brukeren ikke har behov for å se hvor dataene lagres Application.ScreenUpdating = False 'Aktiverer arket Grunnlag-Støtte. Det er i dette arket sammenhengen mellom støttestruktur og 'operativ struktur skal lagres Sheets("Grunnlag-Støtte").Activate 'Sjekker hvilken sammenheng som er valgt, og lagrer den i cellen O2 If optFast.Value = True Then 'Støttestrukturene settes til 100% fast Range("O2").Value = "F" Unload Me ElseIf optVariabel.Value = True Then 'Støttestrukturene settes til 100% variabel Range("O2").Value = "V" Unload Me ElseIf optNormal.Value = True Then 'Støttestrukturen settes til opprinnelige verdier Range("O2").Value = "N" Unload Me Else 'Dersom brukeren ikke har valgt et alternativ gis en feilmelding til brukeren MsgBox "Du må velge et alternativ for sammenhengen mellom støttestruktur og operativ struktur før du trykker på OK", vbCritical, "MORSK - Støttstruktur" End If 'Setter variabelen strInnlogget til "" slik at innloggingsskjemaet kommer opp neste gang brukeren går inn i "admin delen" strInnlogget = "" 'Aktiverer regnearket Forsvaret slik at brukeren ikke blir sendt til et annet ark etter at koden er ferdig Sheets("Forsvaret").Activate 'Slår på skjermoppdateringen Application.ScreenUpdating = True A.1.2.3 Prosedyren UserForm_Activate() 'Sjekker hvilken verdi som gjelder og markerer den rette valgboksen 'Slår av skjermoppdateringen, slik at koden kjøres fortere Application.ScreenUpdating = False 'Setter variabelen strInnlogget til OK, slik at innloggingsskjemaet ikke skal komme opp strInnlogget = "OK"
Page 1: FFI RAPPORT MORSK (Modell for Raske
Page 5: FORSVARETS FORSKNINGSINSTITUTT (FFI
Page 8 and 9: A.5.2.1 Prosedyren cmdAvbryt_Click(
Page 11 and 12: MORSK (Modell for Raske Strukturkos
Page 13 and 14: 2 BRUKERVEILEDNING 11 MORSK baserer
Page 15 and 16: de aktuelle årene. Denne mulighete
Page 17 and 18: 15 I dette skjemaet kan brukeren ve
Page 19 and 20: 17 navnet til den korresponderende
Page 21 and 22: Morsk navn KOSTMOD navn Divisjonsfa
Page 23 and 24: 21 byggeklossene. Hvor stor endring
Page 25: kan bruke mer av tiden analysere re
Page 29 and 30: Sheets("Forsvaret").Activate A.2.2.
Page 31 and 32: 29 brukeren MsgBox "Du må oppgi et
Page 33 and 34: intKolonneteller = 4 ElseIf cmbGren
Page 35 and 36: Figur A.5 Skjemaet frmSlett i MORSK
Page 37 and 38: A.6.2.2 Prosedyren cmdOK_Click() 35
Page 39 and 40: txtGrunnPD.Text, txtMarginalPD.Text
Page 41 and 42: A.7.2 Kildekode A.7.2.1 Prosedyren
Page 43 and 44: Unload Me 'Finner siste operative a
Page 45 and 46: Figur A.8 Skjemaet frmBeskrivelse i
Page 47 and 48: A.9.2 Innledende deklareringer 45 '
Page 49 and 50: 'Aktivere arbeidsboken som innehold
Page 51 and 52: 49 If strGren = "Sjø" Then strKort
Page 53 and 54: 51 'Henter inn EBA-driften for det
Page 55 and 56: 53 intMaks = 0 DKVPers = Sheets("Mo
Page 57 and 58: intRadTeller2 = 4 'Finner frem til
Page 59 and 60: 57 Cells(intRadTeller2 + 3, 3).Valu
Page 61 and 62: 59 With Cells(intRadTeller2, 2).Val
Page 63 and 64: A.9.8 Prosedyren Importer_Basisstru
Page 65 and 66: Select Case Cells(dumpRekke, 4).Val
Page 67 and 68: A.9.12.2 Kildekode 65 Sub Open_NyAv
Page 69 and 70: strFunnet1 = "" strFunnet2 = "" Do
Page 71 and 72: 69 avdelingsnavnet skal stå. Avdel
Page 73 and 74: 71 If UCase(Cells(intAvdOppsettTell
Page 75 and 76: Range("Y" & intTeller & ":Z" & intT
Page 77 and 78:
'Lager Advarselsfunksjon i d-kolonn
Page 79 and 80:
77 Sheets("Avdelingsoppsett").Activ
Page 81 and 82:
strGlobalAvbryt = "JA" Exit Sub End
Page 83 and 84:
81 Windows(Mid(strFilnavn, InStrRev
Page 85 and 86:
83 OperativStrukturRad = 5 Do Until
Page 87 and 88:
85 Cells(rekke, 1).Value = StotteAv
Page 89 and 90:
'Initsierer variabler strAvdeling =
Page 91 and 92:
intTeller = intTeller + 1 Loop 'Bes
Page 93 and 94:
91 If Cells(rekke, 1).Value = Stott
Page 95 and 96:
de skjulte arkene i modellen, vises
Page 97:
Litteratur (1) STEDER Frank B (2001
show all

Norsk rapport - FFI rapporter - Forsvarets forskningsinstitutt

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?