Systematische Buzz woorden Generator.vbs (4 / 6 stap)

Stap 4: De Code

2) Kopieer de code hieronder de apostrof en sterretjes lijn plak deze in Kladblok.

' *********************************************

Dim aankondiging
Dim bericht
Dim Message1
Dim Message2
Dim Message3

' Error Handling
On Error Resume Next

Notice = "Boughton systematische Buzz Phrase"
Message = "Kies een nummer met 3 cijfers van 000 tot 999?"

Vraag = InputBox(message,Notice)
' Controleren op Null of leeg inputbox vervolgens annuleert
Als IsEmpty(Question) dan
WScript.quit()

ELSEIF Len(Question) = 0 THEN
WScript.quit()

Eind als

message1 = Left(Question,1) ' 1ste nummer
Message2 = Mid(Question,2,1) ' 2e nummer
Message4 = Right(Question,1) ' 3de nummer

' Kolom 1
Als Message1 = 0 then Message = "Geïntegreerd"
Als Message1 = 1 dan Message = "Totaal"
Als Message1 = 2 dan Message = "Gesystematiseerd"
Als Message1 = 3 dan Message = "Parallelle"
Als Message1 = 4 dan Message = "Functionele"
Als Message1 = 5 dan Message = "Responsive"
Als Message1 = 6 dan Message = "Optimale"
Als Message1 = 7 dan Message = "Gesynchroniseerd"
Als Message1 = 8 dan Message = "Compatibel"
Als Message1 = 9 dan Message = "Evenwichtige"

' Kolom 2
Als Message2 = 0 then Message3 = "Beheer"
Als Message2 = 1 then Message3 = "Organisatie"
Als Message2 = 2 dan Message3 = "Gecontroleerd"
Als Message2 = 3 dan Message3 = "Wederkerig"
Als Message2 = 4 dan Message3 = "Digital"
Als Message2 = 5 dan Message3 = "Logistiek"
Als Message2 = 6 dan Message3 = "Overgangsperiode"
Als Message2 = 7 dan Message3 = "Incremental"
Als Message2 = 8 dan Message3 = "Derde generatie"
Als Message2 = 9 dan Message3 = "Beleid"

' Kolom 3
Als Message4 = 0 then Message5 = "Opties"
Als Message4 = 1 then Message5 = "Flexibiliteit"
Als Message4 = 2 dan Message5 = "Vermogen"
Als Message4 = 3 dan Message5 = "Mobiliteit"
Als Message4 = 4 dan Message5 = 'Programmeren'
Als Message4 = 5 dan Message5 = "Concept"
Als Message4 = 6 dan Message5 = "Tijd-fase"
Als Message4 = 7 dan Message5 = "Projectie"
Als Message4 = 8 dan Message5 = "Hardware"
Als Message4 = 9 dan Message5 = "Onvoorziene omstandigheden"

' Error message handling
IF Err.Number <> 0 dan
MsgBox "u iets verkeerd ingevoerd.  &Opnieuw.  ", vbOKOnly + 16," Ooopps... "
WScript.quit()
END IF

' Eindresultaten
MsgBox bericht & "" & Message3 & "" & Message5, vbInformation, kennisgeving