[VBScript] Membuat Kuis Sederhana

 Disini ada beberapa script sederhana yang saya tulis, mungkin berguna buat kalian. disini saya membuat kuis sederhana dengan menggunakan VBScript. Caranya Copy - Paste script dibawah ke NOTEPAD, kemudian Save AS dengan format .vbs. !!

dim m,h,

dim qa

m=MsgBox("WELCOME TO MY QUIZ",0+0+48,"Warning")

h=InputBox("Siapa Namamu. . ?")

m=MsgBox("Hai "+h)

qa=InputBox("Siapa Penemu Bohlam. .?")

if qa="T Alfa Edison" then

m=MsgBox("Benar")

else

m=MsgBox("Salah")

end if

qa=InputBox("Ada Berapa Provinsi Di jawa. .?")

if qa="6" then

m=MsgBox("Benar")

else

m=MsgBox("Salah")

end if

qa=InputBox("Ada Berapa Benua di Dunia. .?")

if qa="5" then

m=MsgBox("Benar")

else

m=MsgBox("Salah")

end if

qa=InputBox("Siapa Penemu Dinamo. .?")

if qa="Michael Faraday" then

m=MsgBox("Benar")

else

m=MsgBox("Salah")

end if

qa=InputBox("Apa nama makanan pada KRUSTY KRAB")

if qa="Krabby Patty" then

m=MsgBox("Benar")

else

m=MsgBox("Salah")

end if

m=MsgBox("Heheh.. Iseng iseng Brad")

Wscript.quit

Diatas terdapat variable - variable yang akan saya jelaskan :
"m" = adalah variable untuk messagebox benar salahnya
"qa"= adalah variable untuk pertanyaan beserta jawaban
"h" = adalah variable untuk nama peserta


demikian postingan ini kurang lebih minta maaf ya. mari kita sama - sama belajar.
karena manusia belajar dari kesalahan.


sumber : admin