
Program ini dibuat untuk mengetahui apa zodiak dari tanggal kelahiran kita, berikut source code nya.
Source Code :
Private Sub cmd_proses_Click()
Dim bulan As Integer
Dim tanggal As Integer
Dim panggil As String
tanggal = Format(DTPicker_lahir.Value, "dd")
bulan = Format(DTPicker_lahir.Value, "MM")
If txt_nama.Text = "" Then
MsgBox "Isi Dahulu Nama Anda", vbInformation, "Informasi"
txt_nama.SetFocus
Exit Sub
End If
If cmb_jkelamin.Text = "" Or cmb_jkelamin.Text = "Pilih..!!" Then
MsgBox "Pilih Dahulu Jenis Kelamin Anda", vbInformation, "Informasi"
cmb_jkelamin.SetFocus
Exit Sub
End If
If cmb_jkelamin.Text = "Laki-Laki" Then
panggil = "Tuan"
Else
panggil = "Nona"
End If
If bulan = 1 Then
lbl_zodiak.Caption = IIf(tanggal <= 19, panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Capricorn", panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Aquarius")
ElseIf bulan = 2 Then
lbl_zodiak.Caption = IIf(tanggal <= 19, panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Aquarius", panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Pisces")
ElseIf bulan = 3 Then
lbl_zodiak.Caption = IIf(tanggal <= 20, panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Pisces", panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Aries")
ElseIf bulan = 4 Then
lbl_zodiak.Caption = IIf(tanggal <= 20, panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Aries", panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Taurus")
ElseIf bulan = 5 Then
lbl_zodiak.Caption = IIf(tanggal <= 21, panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Taurus", panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Gemini")
ElseIf bulan = 6 Then
lbl_zodiak.Caption = IIf(tanggal <= 21, panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Gemini", panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Cancer")
ElseIf bulan = 7 Then
lbl_zodiak.Caption = IIf(tanggal <= 21, panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Cancer", panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Leo")
ElseIf bulan = 8 Then
lbl_zodiak.Caption = IIf(tanggal <= 21, panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Leo", panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Virgo")
ElseIf bulan = 9 Then
lbl_zodiak.Caption = IIf(tanggal <= 22, panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Virgo", panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Libra")
ElseIf bulan = 10 Then
lbl_zodiak.Caption = IIf(tanggal <= 23, panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Libra", panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Scorpio")
ElseIf bulan = 11 Then
lbl_zodiak.Caption = IIf(tanggal <= 22, panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Scorpio", panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Sagitarius")
Else
lbl_zodiak.Caption = IIf(tanggal <= 22, panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Sagitarius", panggil & " " & txt_nama.Text & " , Zodiak Anda Adalah Capricorn")
End If
End Sub
Private Sub Form_Load()
txt_nama.Text = ""
cmb_jkelamin.Text = "Pilih..!!"
With cmb_jkelamin
.AddItem "Laki-Laki"
.AddItem "Perempuan"
End With
DTPicker_lahir.Value = Date
lbl_zodiak.Caption = ""
End Sub
Download disini source code..!!
1 komentar:
tambah terus kresainya gan, reqwst ulasan tentang DataBase VB6.0 ya,,,
Posting Komentar