Gör din dator hälsar dig när du använda den (2 / 5 steg)
Steg 2: Koden
Där det står användaren kan du sätta ditt namn.
Ställa in Sapi = Wscript.CreateObject ("SAPI. SpVoice")
Dim str
om hour(time) < 12 sedan
SAPI.Speak "Godmorgon användare"
annat
om hour(time) > 12 sedan
om hour(time) > 16 sedan
SAPI.Speak "god kväll användare"
annat
SAPI.Speak "god eftermiddag användare"
slut om
slut om
slut om
SAPI.Speak "aktuell tid är"
om hour(time) > 12 sedan
SAPI.Speak timme (tid) -12
annat
om hour(time) = 0 då
SAPI.Speak "12"
annat
SAPI.Speak hour(time)
slut om
slut om
om minute(time) < 10 sedan
SAPI.Speak "o"
om minute(time) < 1 sedan
SAPI.Speak "klocka"
annat
SAPI.Speak minute(time)
slut om
annat
SAPI.Speak minute(time)
slut om
om hour(time) > 12 sedan
SAPI.Speak "P.M."
annat
om hour(time) = 0 då
om minute(time) = 0 då
SAPI.Speak "Midnatt"
annat
SAPI.Speak "Klockan"
slut om
annat
om hour(time) = 12 då
om minute(time) = 0 då
SAPI.Speak "Middagen"
annat
SAPI.Speak "P.M."
slut om
annat
SAPI.Speak "Klockan"
slut om
slut om
slut om