Beberapa hari lalu ketika sedang jalan kesebuah toko buku yang cukup ternama, terpajang sebaris judul " Rahasia Sulap". Tanpa pikir panjang langsung kubukan dan kubaca isinya.
Didalamnya ada penjelasan mengenai cara mengetahui tanggal lahir seseorang dengan menggunakan persamaan matematika. Jadi buat lw yang pengen ngasih sirprise buat someone tapi g tw tanggal lahirnya bisa ngitung dh pake tebak-tebakan sedikit.
Setelah selesai dibaca langsung aja coba bikin script untuk membuat ramalan tersebut.
Setibanya dirumah langsun nyalakan komputer dan bikin script di notepad. Pada kesempatan ini dicoba bikin aplikasinya peke VBS. VBScript cukup mudah digunakan karena tidak perlu melalui proses compile dengan compiler script meski banyak kekurangannya juga.
Setelah itu langsung aja ketik-ketik codenya....
Berikut hasilnya, karena masih baru belajar juga mungkin hasilnya kurang optimal dan kurang effisien.
--------------------------------------------------MULAI---------------------------------------------------
- msgbox "Menebak Tanggal Lahir Anda",0,"made by S - http://ace-corp.blogspot.com"
- on error resume next
- dim h, t,b,x
- msgbox "IKUTI INSTRUKSI BERIKUT",0,"made by S - http://ace-corp.blogspot.com"
- msgbox "Bayangkan tanggal lahir anda.....!!"&vbnewline&"ingat dalam otak, karena akan saya baca",0,"made by S - http://ace-corp.blogspot.com"
- msgbox "Sekarang Bulan lahir anda tapi bayangkan dalam angka. Contoh: "&vbnewline&"Bila januari maka 1, februari 2 dst",0,"made by S - http://ace-corp.blogspot.com"
- msgbox "kalikan tanggal lahir anda dengan 5(lima)",0,"made by S - http://ace-corp.blogspot.com"
- msgbox "kemudian tambah dengan 17",0,"made by S - http://ace-corp.blogspot.com"
- msgbox "Kalikan hasilnya dengan 20 (Dua Puluh)",0,"made by S - http://ace-corp.blogspot.com"
- msgbox "kurangi dengan 19(sembilan belas)",0,"made by S - http://ace-corp.blogspot.com"
- msgbox "Tambah dengan bulan lahir anda"&vbnewline&"Tolong diingat bulan dalam angka....!!!",0,"made by S - http://ace-corp.blogspot.com"
- h=inputbox ("Sebutkan Jumlah Hitungan anda")
- h=h-321
- t=h/100
- t= round (t)
- x=t*100
- b=h-x
- if t<0>31 and b<0>13 then
- msgbox "Anda yakin lahir tanggal tersebut"&vbnewline&"coba lagi",0,"made by S - http://ace-corp.blogspot.com"
- else
- msgbox "selesai"&vbnewline & "Hasilnya adalah:"&vbnewline &vbnewline &"Anda Lahir tanggal: "&t& " "&bulan(b),0,"made by S - http://ace-corp.blogspot.com"
- end if
- function bulan(data)
- select case data
- case 1
- bulan ="januari"
- case 2
- bulan ="Februari"
- case 3
- bulan ="Maret"
- case 4
- bulan ="April"
- case 5
- bulan ="Mei"
- case 6
- bulan ="juni"
- case 7
- bulan ="juli"
- case 8
- bulan ="Agustus"
- case 9
- bulan ="September"
- case 10
- bulan ="Oktober"
- case 11
- bulan ="Nopember"
- case 12
- bulan ="Desember"
- end select
- end function
Setelah itu simpan file dalam format extensi .vbs
Caranya
klik "File->Save As"
pilih tipenya "All File"
trus namanya "ramalan.vbs"
Anda Bisa Download File Jadinya Disini
Penjelasan:
- Baris 1 ................................ Perkenalan Diri
- Baris 2 ................................ Jebakan Error
- Baris 3 ................................ Deklarasi semua variabel yang akan dipakai
- Baris 4-11 ................................ Instruksi perhitungan
- Baris 12 ................................ Input Hasil hitungan
- Baris 13 ................................ mengurangi hasil dengan angka ajaib
- Baris 14 ................................. Membagi hasil dengan seratus
- Baris 15 ................................. Membulatkan hasil perhitungan dengan 0(nol) desimal dibelakang koma. Format umumnya --- round(angka, nominal belakan koma)
- Baris 16 ................................. Mengalikan hasilnya dengan 100
- Baris 17 ................................. Mengurangi hasil pertama (Baris 12) dengan hasil baris 16
- Baris 18 ................................. Memilih kasus hasil terakhir perhitungan
- Baris 19-21 ............................... Hasil Akhir Perhitungan Tanggal Lahir Dalam bentuk Pesan
- Baris 22 ................................. Mengakhiri pilihan kasus
- Baris 23-50 .............................. Fungsi Memilih bulan kelahiran.
Demikian Segelincir ilmu yang dipelajari untuk khalayak umum
klo ada masalah dan untuk perbaikan kirim aja comentnya..
Semua untuk memperbaiki agar lebih effisiena
Betul
Okeh dh
Sampai dilain kesempatan.... Selengkapnya....
