Trik Hebat Visual Basic 6.0
Membuat Apliaksi Ramalan Jodoh Dengan Visual Basic
Dalam kesempatan kali ini gw sempet kepikiran mau bikin tutorial buat bikin aplikasi ramalan zodoh berdasarkan perimbon jawa, tapi ada baikknya kita bikin dulu aplikasi ramalan zodoh berdasarkan nama ya sperti ramalan kecocokan antara anda dan pasangan anda, dari pada anda pusing mikirin apakah anda cocok apa ngk ya silahkan aja ganti scriptnya, lol.
Ini akan sedikit memahai funsi LEN, MOD, Dan Juga SELECT CASE yang ada di Visual Basic.
Ok sekarang kita mulai membuatnya
-siapkan 4 text
-siapkan 1 button
Lalu Tuliskan Script Berikut Pada Form :
Private Sub Command1_Click()Call JILLEnd Sub
Sub JILL()
KAMU = Len(Text1.Text)PASANGANMU = Len(Text2.Text)
HASILNYA = Val(KAMU) + Val(PASANGANMU) * 2HASILNYA2 = HASILNYA Mod 9
Select Case HASILNYA2Case "1"N = "KAMU JODOH DAN HIDUP KALIAN AKAN BAHAGIA"Case "2"N = "KAMU ADALAH ORANG YANG BERUNTUNG BISA MENDAPATKANYA"Case "3"N = "TUHAN MENGABULKAN DOA MU DENGAN MEMBUAT DIA MENCINTAIMU"Case "4"N = "SEMUA YANG KAU LAKUKAN DENGANYA ADALAH SEBUAH ANUGRAH"Case "5"N = " SEKIRANYA ADA YANG LAIN KENAPA NGAK DI COBA DULU"Case "6"N = "KAMU DAN PASANGANMU ADALAH DUA KOMET BESAR YANG SALING BEROTASI MENJELAJAHI LUASNNYA GALAKSI"Case "7"N = "KAMU ADALAH ORANG YANG BERKUALIATAS KENAPA MESTI DENGANNYA"Case "8"N = "KAMU DAN DIRINYA ADALAH SEPASAH ZEBRA DI PADANG RUMPUT"Case "0"N = "PIKIRIN AJA NDRI DEH"End SelectText4.Text = NEnd SubJadi sedikit banyak kalaian bisa memahami fungsi oprator yang ada di visual basic Ya prinsipnya cuma menghitung panjang nama anda dan pasangan anda terus di mod 9, ya kalo misalnya lu suka ma seseorang tinggal coba aja terus rubah scriptnya, beres kan.
Demikian Artikel Tentang
Membuat Apliaksi Ramalan Jodoh Dengan Visual Basic |
Trik Hebat Visual Basic 6.0 Semoga Bermanfaat
Baca Juga Artikel Lainnya
Aplikasi Pencari No Operator Seluler Dengan Visual Basic
