Subscribe:

Labels

tkj

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.

0 komentar:

Posting Komentar