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

  • Cara Membuat Artikel Blog Di Urutan No1 Search Engine
    Ini dia sob cara membuat artikel kita no 1 di Googe.! Pertama tama mungkin cara dibawah ini dilakukan tidak akan langsung no 1 butuh waktu d...
  • Link Exchange ( Tukar Link )
    Assalamu'alaikum Wr. Wb Keuntungan Bertukar Link : Mempererat tali persaudaraan antar sesama blogger Mendapatkan Backlink Memperbanyak V...
  • IDS Twitter 3 Oktober 2013
    IDs Twitter Terbaru  2013  -  IDS Twitter 3 Oktober 2013   - Kali ini saya akan share  IDS twitter terbaru  ,terbaik, terhot sepanjang masa!...
  • 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...
  • Hack Tool Dragon city Ver.11.8
    hallo sob! gimana kabarnya?dah lama nih ane gak ngepost ! kali ini ane akan bagi-bagiin nih cheat, cheat super top di seluruh Indonesia, dij...
  • Cheat Dragon City Food and Gold 10 September 2013
    Kali ini saya akan mengeshare  Cheat Dragon City Food dan Gold 10 September 2013 .Cheat ini update'an dari hacktools drgaon city yang sa...
  • Cara Mendaftarkan Blog Ke Search Engine Google, Bing, dan Yahoo
    Sebelumnya anda telah membaca artikel saya tentang "IDS twitter" maupun tentang " Cara Membuat Blog Menjadi terkenal ".N...
  • IDS Twitter 2 Oktober 2013
    IDs Twitter Terbaru  2013  -  IDS Twitter 2 Oktober 2013   - Kali ini saya akan share  IDS twitter terbaru  ,terbaik, terhot sepanjang masa!...
  • Cheat My Ninja Terbaru Fitur Lengkap
    Cheat My Ninja Gold | Tokens | Coin | Vigor | Energy - Kali ini saya akan share cheat My ninja terbaru update 2013. Cheatnya bukan berupa b...
  • IDS Twitter 4 Oktober 2013
    IDs Twitter Terbaru  2013  -  IDS Twitter 4 Oktober 2013   - Kali ini saya akan share  IDS twitter terbaru  ,terbaik, terhot sepanjang masa!...

Ask Me

Template by Bloteng

Powered by Blogger

Your Link 1 | Your Link 2 | Your Link 3

Copyright ASM DESAIN 09 2014