Tips Membuat Aplikasi Ramalan

Banyak aplikasi2 ramalan yang di tawarkan di internet, pada kali ini penulis akan membuat aplikasi ramalam menggunakan Notepad dengan extention vbs… Pada Msg Box Anda bisa ganti sesuka hati anda, Langsung aja deh… Copy Paste Aja Script di bawah ini

dim Firman
masuk()
sub masuk()
set Firman = wscript.CreateObject(“wscript.shell”)
keterangan = “Masukan Angka Favourite anda…???:” & vbcrlf &_
“[0].Zero [3].Three [6].Six” & vbcrlf &_
“[1].One [4].Four [7].Seven” & vbcrlf &_
“[2].Two [5].Five [8].Eight [9].Nine ” & vbcrlf & vbcrlf &_
“[Firman_1989@yahoo.co.id]“
tanya = inputbox(keterangan,”Ramalan”,0)

if tanya=0 then
msgbox “Anda termasuk orang yang pintar”,vbInformation,”Ramalan”
else
if tanya=1 then
msgbox “Anda suka makan”, vbinformation, “Ramalan”
else
if tanya=2 then
msgbox “Kamu Boros Ya”,vbInformation,”Ramalan”
else
if tanya=3 then
msgbox “Menurut ramalan, anda salah satu keturunan Raja”, vbInformation,”Ramalan”
else
if tanya=4 then
msgbox “Ok”, vbinformation, “Ramalan”
else
if tanya= 5 then
msgbox “Sip”, vbinformation, “Ramalan”
else
if tanya= 6 then
msgbox “Kronjo, vbinformation, “Ramalan”
else
if tanya= 7 then
msgbox “Oke”, vbinformation, “Ramalan”
else
if tanya= 8 then
msgbox “Kamu Ok”, vbinformation, “Ramalan”
else
if tanya= 9 then
msgbox “Anda belum beruntung”, vbinformation, “Ramalan”
else
msgbox “Masukkan angka 0 s/d 9!”,vbInformation,”Ramalan”
masuk()
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end sub