membuat ramalan jodoh

Dalam kesempatan kali ini pram kepikiran mau bikin tutorial buat bikin aplikasi ramalan jodoh berdasarkan primbon jawa dengan mengunakan microsoft visual basic,

Ini akan sedikit memahami fungsi LEN, MOD, Dan juga SALECT CASE yang ada divisual basic. Ok sekarang kita mulai membuatnya   

-siapakan 4 text

Siapkan 1 button

Lalu tuliskan script berikut pada form

Private sub command click()

Call jill

End sub

Sub jill

Kamu:len(text2.text)

Hasinya = val(kamu)+val(pasanganmu)*2

Hasilnya2= hasinya mod 9

Salect case hasinya2

Case “1”

N = “kamu jodoh dan hidup kalian akan bahagia ”

Case “2”

N = “ kamu adalah orang yang beruntung mendapatkannya”

Case “3”

N = “tuhan mengabulkan doamu dengan membuat dia mencintaimu”

Case “4”

N = “semua yang kau lakukan dengannya adalah anugrah”

Case “5”

N = “sekiranya ada yang lain kenapa tidak dicoba dulu”

Case “6”

N =  “kamu dan pasanganmu adalah dua komed besar yang saling berotasi menjelajahi luasnya galaksi”

Case “7”

N = “kamu adalah orang yang berkualitas kenapa mesti denganya”

Case “8”

N = “kamu dan dirinya adalah sepasang  jebra dipadang rumput”

Case “0”

N = “pikirin aja ndri dech”

End salect

Text4.text=N

End sub

Jadi sedikitbanyak kelainan bisa memahami fungsi oprator yang ada di visual basic ya prinsipnya Cuma menghitung panjang nama anda terus di mod 9,ya kalo misalnya suka ma seseorang tiggal coba aja terus dirubah seiptnya,beres kan. 


semoga artikel ini bermanfaat pramudiah.blogspot.com