Program Zodiak Visual Basic

Zodiak (dari kata Yunani Zoodiacos Cyclos yang artinya Lingkaran Hewan) adalah sebuah sabuk khayal di langit dengan lebar 18° yang berpusat pada lingkaran ekliptika, tetapi istilah ini dapat pula merujuk pada rasi-rasi bintang yang dilewati oleh sabuk tersebut, yang sekarang berjumlah 13. Dipercaya awal mula konsep ini berasal dari peradaban Lembah Sungai Eufrat kemungkinan hanya dengan 6 rasi: Capricornus, Pisces, Taurus, Cancer, Virgo, dan Scorpio, yang kemudian dipecah menjadi 12 karena penampakan tahunan 12 kali Bulan purnama pada bagian-bagian berurutan dari sabuk tersebut. Sumber : (http://id.wikipedia.org/wiki/Zodiak)


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..!!