ASM DESAIN 09

  • Beranda
  • Habar Banua
  • Daftar Isi
  • Kontak
  • Kamus Banjar
  • Tukar Link
  • Live ISL!!
Home » Software » Source Code » Visual Basic » Cara Membuat Aplikasi Pencari Shio

Cara Membuat Aplikasi Pencari Shio

Cara Membuat Aplikasi Pencari Shio Dengan VB 6 - Kali Ini saya akan mengeshare cara membuat aplikasi pencari shio dengan vb 6.Apakah anda tertarik ?cara pembuatannya mari saya beritahu cara pembuatannya...


 Aplikasi ini digunakan untuk mencari shio dari tanggal yang dimasukkan. Rancangan formnya sebagai berikut :



[Image: cari%2Bshio.png]


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: ExitName: cmdExit
Berikut SOURCE  CODE  MEMBUAT APLIKAS PENCARI SHIO nya :


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 Download Di Sini
Unknown
Add Comment
Software, Source Code, Visual Basic
Monday, September 2, 2013

Share to

Facebook Google+ Twitter Digg

Newer Older Home

Entri Populer

  • VIP Tools Cheat 8 Ball Pool 2013
    Pertama-tama sih ane ragu2 dikit lah menggunkan cheat ini! tapi setelah di coba! WoW"It's Amazing"Hehehe gak usah lebay kali n...
  • Dork Untuk Carding
    Kali ini saya akan share dork terbaru 2013 untuk carding atau bisa disebut juga dork sql injection  yang baru saya dapatkan dari fpnya ...
  • Cara Membuat Akun Email dari Google atau Gmail
    Cara Membuat Email Gmail  -Di era globalisasi saat ini hampir semua hal dapat dilakukan secara instant, sudah tidak ada lagi jarak di belaha...
  • Tutorial Mengganti Pangkat dan Membuat Clan di Pb Offline
    Kali ini saya akan share cara Mengganti pangkat dan membuat clan di pb offline. Sebenarnya cara ini cukup mudah tinggal anda itu apakah suka...
  • Hack Tools Food Dragon City 2013
    Cheat / Hack Food Dragon City Kali ini saya akan share hack tools dragon city. Fiturenya yang paling top  dan hot adalah cheat food . Mari s...
  • Cheat Cafeland Exp Dan Cash
    Cheat Cafeland -  kali ini saya akan share cheat cafeland XP dan Cash yang terbaru dan pastinya work untuk hari ini sampai hari kemudian. Be...
  • Cara Membuat Blog Menjadi Terkenal
    Website / Blog kini menjadi kebutuhan penting, khsususnya untuk bisnis online. Membuat website kini semakin mudah dengan berbagai aplikasi a...
  • Cheat BaseBall Heroes (Update 5 Mei 2013)
    Yah!Ane akan lama nih sob gak share cheat buat game online (terutama cheat fb lah), kali ini Ane akan share cheat game baseball heroes, tau ...
  • Cheat Diamond Dash Level Up
    Cheat D iamond Dash Level, XP, Gold, Skill   - Kali ini saya akan share nih bug game Diamond Dash yang saya dapat dari Forum Cheat Game. Che...
  • Kombinasi Naga di Dragon City
    Kali ini saya akan berbagi sedikit Tips Dan Trick dalam mendapatkan Naga di game yang cukup populer di dunia maya ini yaitu Dragon City Gaus...

Ask Me

Template by Bloteng

Powered by Blogger

Your Link 1 | Your Link 2 | Your Link 3

Copyright ASM DESAIN 09 2014