Fakta-Unik

CARA MEMBUAT APLIKASI RAMALAN JODOHSEDERHANA MENGGUNAKAN VISUAL BASIC 6,0 BERSAMA  RAHMAD (20)

Hai Sobat Blogger Ketemu Lagi dengan saya Kali ini Saya Akan Share Lagi 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 

Share this

Unknown