V-32

lama jg gag posting di blog ini,maklum sekarang gw mulai disibukan dengan kegiatan kuliah
ok langsung aja ya sobat blogger pada kesempatan kali ini gw akan share sedikit ilmu gw buat
kalian semua yaitu cara membuat prediksi angka langsung aja ya kita mulai langkahnya.


pertama buka notepad,kemudian masukan tulisan di bawah ini :
atau download


' Judul dan nama = Tebak Angka Misterius (TAM)
' Desain dan program = hacker91
' Produksi = 16 maret 2011 by alfiant_haddy

sub t00()

MsgBox ("Pilih sebuah angka (jangkauan 0 s/d 63)" + Chr(13) + Chr(13) + _
"Camkan, ingatlah, catatlah.." + Chr(13) + Chr(13) + _
"Lalu tekan OK!"), _
vbInformation, "Tebak Angka Misterius"

BilMis=0

if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"01, 03, 05, 07, 09, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31," + Chr(13) + _
"33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+1

if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"02, 03, 06, 07, 10, 11, 14, 15, 18, 19, 22, 23, 26, 27, 30, 31," + Chr(13) + _
"34, 35, 38, 39, 42, 43, 46, 47, 50, 51, 54, 55, 58, 59, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+2

if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"04, 05, 06, 07, 12, 13, 14, 15, 20, 21, 22, 23, 28, 29, 30, 31," + Chr(13) + _
"36, 37, 38, 39, 44, 45, 46, 47, 52, 53, 54, 55, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+4

if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"08, 09, 10, 11, 12, 13, 14, 15, 24, 25, 26, 27, 28, 29, 30, 31," + Chr(13) + _
"40, 41, 42, 43, 44, 45, 46, 47, 56, 57, 58, 59, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+8

if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31," + Chr(13) + _
"48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+16

if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47," + Chr(13) + _
"48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+32

MsgBox ("Angka pilihan anda adalah.. "& Chr(13) & Chr(13) & BilMis & Chr(13) & Chr(13) & _
"haha,.. ketebak niye,... "), _
vbQuestion, "Tebak Angka Misterius"

MsgBox ("Terima kasih anda sudah mencoba menggunakan program ini " + Chr(13) + Chr(13) + _
"Kritik dan saran konstruktif " + Chr(13) + Chr(13) + _
"Hacker91 by : alfiant"), _
vbInformation, "Tebak Angka Misterius"


' Hack adalah sebuah ilmu yg patut di pelajari
' Karena dapat mengembangkan potensi diri anda untuk berkreasi
' (hacker91)

end sub

' Program Utama ada di sini!!
call t00
' aQ sukses nulis di VBScript