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 JILL
End Sub

Sub JILL()

KAMU = Len(Text1.Text)
PASANGANMU = Len(Text2.Text)

HASILNYA = Val(KAMU) + Val(PASANGANMU) * 2
HASILNYA2 = HASILNYA Mod 9

Select Case HASILNYA2
Case "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 Select
Text4.Text = N
End Sub

Jadi 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.