Membuat Ramalan Jodoh Sederhana di VB 6

Hai Sobat Blogger Ketemu Lagi dengan saya Kali ini Saya Akan Share Lagi Tutorial VB 6 Yaitu Membuat Ramalan Jodoh Sederhana di VB 6 Anda Boleh Percaya atau tidak itu terserah anda..Oke jangan Basa Basi Kita Langsung Kemateri Simak Baik Baik Penjelasannya :

Yang Pertama Kita siapkan Terlebih dahulu :
3 Buah Textbox Dan 1 Command Button
Dan Ini screnShot Nya :

Dan Ini Source Code Nya :

Private Sub Command1_Click()

Call JILL

End Sub

Sub JILL()

Kamu = Len(Text1.Text)

Pasanganmu = Len(Text2.Text)

Hasilnya = Val(Kamu) + Val(Pasanganmu) * 2

Hasilnya = Hasilnya Mod 9

Select Case Hasilnya

Case "1"

n = "Kamu Jodoh Hidup Kalian Akan Bahagia"

Case "2"

n = "Kamu Adalah Orang Yang Beruntung Bisa MEndapatkanNya"

Case "3"

n = "Tuhan Megabulkan Doa Dengan Membuat Dia Mencintaimu"

Case "4"

n = "Semua Yang Kalu Lakukan Dengannya Adalah Sebuah Anugerah"

Case "5"

n = "Sekiranya Ada yang Lain Kenapa Nggak Dicoba Dulu"

Case "6"

n = "Kamu Dan PasanganMu adalah DuaKomet Besar Yang Saling Berotasi Menjelajahi Luasnya Galaksi"

Case "7"

n = "Kamu Adalah Orang Yang Berkualitas Kenapa MEsti Dengannya"

Case "8"

n = "Kamu Dan Dirinya Adalah Sepasang Zebra Dipadang Rumput"

Case "0"

n = "Pikirin Aja Ndiri Deh"

End Select

Text3.Text = n

End Sub

 Kemudian Jalankan Dengan Menekan Tombol F5
Liat Hasilnya :
Semoga Bermanfaat Ea .... :)