Forum Games Indonesia l Android
™️ Welcome Hacker Newbie Community ™️™️

[-]Yang Belum Punya User DI HnC Harap Register.
[-]Yang Sudah Ada Di HarapKan Log In Terlebih Dahulu.
[-]DaftarKan User Anda Di ™️Special_V.I.P™️(Terdapat Aplikasi Lebih Banyak).

~Thankz For ALL Hacker Newbie Community~
---------------------------------------------------------



 
Vip ForumIndeksPendaftaranLogin
UNTUK MEMBER HnC YANG JARANG ONLINE,KAMI MOHON MAAF APABILA USER ANDA KAMI " DELETE "KARENA KAMI INGIN MEMBERIKAN YANG TERBAIK KEPADA FORUM HnC, KAMI UCAPKAN TERIMA KASIH
Login
Username:
Password:
Login otomatis: 
:: Lupa password?
Latest topics
» Dispenser Cwd-1150 Cosmos
Yesterday at 1:33 pm by indah permata

» Marina Cooler 6 Liter Lion Star
Mon Dec 11, 2017 8:59 am by indah permata

» Coffee maker Plunger 350 Ml Akebonno
Fri Dec 08, 2017 10:21 am by indah permata

» Plunger 350 Ml Akebonno
Mon Dec 04, 2017 8:51 am by indah permata

» Cetakan Puding Ag-06 Eagle
Sat Dec 02, 2017 9:30 am by indah permata

» Botol Acrylic S 1802a Mb-14
Thu Nov 30, 2017 10:04 am by indah permata

» Blender Plastic Bl-101 Pl Miyako
Wed Nov 29, 2017 9:00 am by indah permata

» Aksesoris Pepper Mill 8" Mp-39
Tue Nov 28, 2017 9:52 am by indah permata

» Wiper Glass Br-10 Lion Star
Mon Nov 27, 2017 9:04 am by indah permata

Top posters
indah permata (392)
 
ADMIN (262)
 
nurfatimah (244)
 
juliono (171)
 
Cheater-sejati (147)
 
751_COMMUNITY (129)
 
TRICKâ„¢ (104)
 
AdeListiawan (103)
 
[HnC]Rio™ (99)
 
ID BANNED (87)
 

Share | 
 

 Cara Membuat Aplikasi pencari Shio

Topik sebelumnya Topik selanjutnya Go down 
PengirimMessage
Ghery
™-MemBeR-™
™-MemBeR-™
avatar

Jumlah posting : 24
Cendol : 54
Reputation : 1
Join date : 10.07.11

PostSubyek: Cara Membuat Aplikasi pencari Shio   Mon Jul 18, 2011 3:55 pm

Oke Coz Apdet lagi saya kali ni hehehe

Aplikasi ini digunakan untuk mencari shio dari tanggal yang dimasukkan. Rancangan formnya
sebagai berikut:
[You must be registered and logged in to see this link.]

Setting masing-masing objeknya:
Label1 Caption: Tanggal Lahir
Label2 Caption: Shio
Label3 Caption: Elemen
Label4 Name: lblShio
Label5 Name: lblElemen
TextBox Name: txtTanggal
CommandButton1 Caption: Mulai
Name: cmdMulai
CommandButton2 Caption: Exit
Name: cmdExit

Procedure-procedure yang digunakan oleh form ini:
Private Sub cmdExit_Click()
End
End Sub
Private Sub cmdMulai_Click()
txtTanggal.Text = ""
lblShio.Caption = ""
lblElemen.Caption = ""
txtTanggal.SetFocus
End Sub
Private Sub txtTanggal_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Dim tgl
tgl = DateValue(txtTanggal.Text)
Select Case tgl
'Shio Babi
Case DateValue("27/1/1947") To DateValue("9/2/1948")
lblShio.Caption = "Babi"
lblElemen.Caption = "Api"
Case DateValue("8/2/1959") To DateValue("27/1/1960")
lblShio.Caption = "Babi"
lblElemen.Caption = "Tanah"
Case DateValue("27/1/1971") To DateValue("14/2/1972")
lblShio.Caption = "Babi"
lblElemen.Caption = "Logam"
Case DateValue("13/2/1983") To DateValue("1/2/1984")
lblShio.Caption = "Babi"
lblElemen.Caption = "Air"
Case DateValue("31/1/1995") To DateValue("18/2/1996")
lblShio.Caption = "Babi"
lblElemen.Caption = "Kayu"
'Shio Tikus
Case DateValue("10/2/1948") To DateValue("28/1/1949")
lblShio.Caption = "Tikus"
lblElemen.Caption = "Tanah"
Case DateValue("28/2/1960") To DateValue("14/2/1961")
lblShio.Caption = "Tikus"
lblElemen.Caption = "Logam"
Case DateValue("15/2/1972") To DateValue("2/2/1973")
lblShio.Caption = "Tikus"
lblElemen.Caption = "Air"
Case DateValue("2/2/1984") To DateValue("19/2/1985")
lblShio.Caption = "Tikus"
lblElemen.Caption = "Kayu"
'Shio Kerbau
Case DateValue("29/1/1949") To DateValue("16/2/1950")
lblShio.Caption = "Kerbau"
lblElemen.Caption = "Tanah"
Case DateValue("15/2/1961") To DateValue("4/2/1962")
lblShio.Caption = "Kerbau"
lblElemen.Caption = "Logam"
Case DateValue("3/2/1973") To DateValue("22/1/1974")
lblShio.Caption = "Kerbau"
lblElemen.Caption = "Air"
Case DateValue("20/2/1985") To DateValue("8/2/1986")
lblShio.Caption = "Kerbau"
lblElemen.Caption = "Kayu"
'Shio Macan
Case DateValue("17/2/1950") To DateValue("5/2/1951")
lblShio.Caption = "Macan"
lblElemen.Caption = "Logam"
Case DateValue("5/2/1962") To DateValue("24/1/1963")
lblShio.Caption = "Macan"
lblElemen.Caption = "Air"
Case DateValue("23/1/1974") To DateValue("10/2/1975")
lblShio.Caption = "Macan"
lblElemen.Caption = "Kayu"
Case DateValue("9/2/1986") To DateValue("28/1/1987")
lblShio.Caption = "Macan"
lblElemen.Caption = "Api"
'Shio Kelinci
Case DateValue("6/2/1951") To DateValue("26/2/1952")
lblShio.Caption = "Kelinci"
lblElemen.Caption = "Logam"
Case DateValue("25/1/1963") To DateValue("12/2/1964")
lblShio.Caption = "Kelinci"
lblElemen.Caption = "Air"
Case DateValue("11/2/1975") To DateValue("30/1/1976")
lblShio.Caption = "Kelinci"
lblElemen.Caption = "Kayu"
Case DateValue("29/1/1987") To DateValue("16/2/1988")
lblShio.Caption = "Kelinci"
lblElemen.Caption = "Api"
'Shio Naga
Case DateValue("27/1/1952") To DateValue("13/2/1953")
lblShio.Caption = "Naga"
lblElemen.Caption = "Air"
Case DateValue("13/2/1964") To DateValue("1/2/1965")
lblShio.Caption = "Naga"
lblElemen.Caption = "Kayu"
Case DateValue("31/1/1976") To DateValue("17/2/1977")
lblShio.Caption = "Naga"
lblElemen.Caption = "Api"
Case DateValue("17/2/1988") To DateValue("5/2/1989")
lblShio.Caption = "Naga"
lblElemen.Caption = "Tanah"
'Shio Ular
Case DateValue("14/2/1953") To DateValue("2/2/1954")
lblShio.Caption = "Ular"
lblElemen.Caption = "Air"
Case DateValue("2/2/1965") To DateValue("20/1/1966")
lblShio.Caption = "Ular"
lblElemen.Caption = "Kayu"
Case DateValue("18/2/1977") To DateValue("6/2/1978")
lblShio.Caption = "Ular"
lblElemen.Caption = "Api"
Case DateValue("6/2/1989") To DateValue("16/1/1990")
lblShio.Caption = "Ular"
lblElemen.Caption = "Tanah"
'Shio Kuda
Case DateValue("3/2/1954") To DateValue("23/1/1955")
lblShio.Caption = "Kuda"
lblElemen.Caption = "Kayu"
Case DateValue("21/1/1966") To DateValue("8/2/1967")
lblShio.Caption = "Kuda"
lblElemen.Caption = "Api"
Case DateValue("7/2/1978") To DateValue("27/1/1979")
lblShio.Caption = "Kuda"
lblElemen.Caption = "Tanah"
Case DateValue("17/1/1990") To DateValue("4/2/1991")
lblShio.Caption = "Kuda"
lblElemen.Caption = "Logam"
'Shio Kambing
Case DateValue("24/1/1955") To DateValue("11/2/1956")
lblShio.Caption = "Kambing"
lblElemen.Caption = "Kayu"
Case DateValue("9/2/1967") To DateValue("29/1/1968")
lblShio.Caption = "Kambing"
lblElemen.Caption = "Api"
Case DateValue("28/1/1979") To DateValue("15/2/1980")
lblShio.Caption = "Kambing"
lblElemen.Caption = "Tanah"
Case DateValue("5/2/1991") To DateValue("3/2/1992")
lblShio.Caption = "Kambing"
lblElemen.Caption = "Logam"
'Shio Monyet
Case DateValue("12/2/1956") To DateValue("30/1/1957")
lblShio.Caption = "Monyet"
lblElemen.Caption = "Api"
Case DateValue("30/1/1968") To DateValue("16/2/1969")
lblShio.Caption = "Monyet"
lblElemen.Caption = "Tanah"
Case DateValue("16/2/1980") To DateValue("4/2/1981")
lblShio.Caption = "Monyet"
lblElemen.Caption = "Logam"
Case DateValue("4/2/1992") To DateValue("22/1/1993")
lblShio.Caption = "Monyet"
lblElemen.Caption = "Air"
'Shio ayam
Case DateValue("31/1/1957") To DateValue("17/2/1958")
lblShio.Caption = "Ayam"
lblElemen.Caption = "Api"
Case DateValue("17/2/1969") To DateValue("24/1/1970")
lblShio.Caption = "Ayam"
lblElemen.Caption = "Tanah"
Case DateValue("5/2/1981") To DateValue("24/1/1982")
lblShio.Caption = "Ayam"
lblElemen.Caption = "Logam"
Case DateValue("23/1/1993") To DateValue("9/2/1994")
lblShio.Caption = "Ayam"
lblElemen.Caption = "Air"
'Shio an**g
Case DateValue("18/2/1958") To DateValue("7/2/1959")
lblShio.Caption = "an**g"
lblElemen.Caption = "Tanah"
Case DateValue("6/2/1970") To DateValue("26/1/1971")
lblShio.Caption = "an**g"
lblElemen.Caption = "Logam"
Case DateValue("25/1/1982") To DateValue("12/2/1983")
lblShio.Caption = "an**g"
lblElemen.Caption = "Air"
Case DateValue("10/2/1994") To DateValue("30/1/1995")
lblShio.Caption = "an**g"
lblElemen.Caption = "Kayu"
End Select
End If
End Sub

Mudah Bukan Dengan Begitu Anda Sudah Dapat Menikmati nya Kalau
Kamu Mau Langsung Jadi Bisa [You must be registered and logged in to see this link.]
Kembali Ke Atas Go down
 

Cara Membuat Aplikasi pencari Shio

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 

 Similar topics

-
» (bagaimana) cara membuat peringatan di chatbox?
» Arsip: Cara Membuat Jumlah Posting,Birthday,Join Date,Webs Seperti Ini
» [Tutorial] Cara membuat forum forumotion
» Cara membuat pendataan&list list barang menjadi seperti di sini?
» Solved: Bagaimana cara membuat icon Verified member disamping Nama gmna?
Halaman 1 dari 1

Permissions in this forum:Anda tidak dapat menjawab topik
Forum Games Indonesia l Android :: Hacker Newbie | Internet and Software Stuff :: Program code basic :: Visual Basic-
Free forum | Internet | Useful tricks and tips, infos | © phpBB | Free forum support | Kontak | Report an abuse | Have a free blog with Sosblogs