Stap 2: De code
Waar het zegt gebruiker kunt u uw naam zetten.
Instellen van Sapi = Wscript.CreateObject ("SAPI. SpVoice")
Dim str
Als hour(time) < 12 dan
SAPI.speak "Goedemorgen gebruiker"
anders
Als hour(time) > 12 dan
Als hour(time) > 16 dan
SAPI.speak 'goede avond gebruiker'
anders
SAPI.speak "goede middag gebruiker"
eind als
eind als
eind als
SAPI.speak "de huidige tijd is"
Als hour(time) > 12 dan
SAPI.speak uur (tijd) -12
anders
Als hour(time) = 0 then
SAPI.speak "12"
anders
SAPI.speak hour(time)
eind als
eind als
Als minute(time) < 10 vervolgens
SAPI.speak "o"
Als minute(time) < 1 dan
SAPI.speak "klok"
anders
SAPI.speak minute(time)
eind als
anders
SAPI.speak minute(time)
eind als
Als hour(time) > 12 dan
SAPI.speak "P.M."
anders
Als hour(time) = 0 then
Als minute(time) = 0 then
SAPI.speak "Midnight"
anders
SAPI.speak "Uur"
eind als
anders
Als hour(time) = 12 then
Als minute(time) = 0 then
SAPI.speak "Middag"
anders
SAPI.speak "P.M."
eind als
anders
SAPI.speak "Uur"
eind als
eind als
eind als