Rabu, 30 Mei 2012
visual basic
kali ini pram akan memberitahukan bagai mana cara Membuat aplikasi ramalan jodoh dengan visual basic
Dalam kesempatan kali ini aku kepikiran mau bikin tutorial buat bikin aplikasi ramalan jodoh berdasarkan primbon jawa,
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.
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar