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 :
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
Home
Settings
Account
Messages 