ZODIAK SEDERHANA VB

Semangat pagi……………..

Asyiknya belajar visual basic       

Setelah seharian kutak katik akhirnya bisa juga bikin Zodiak sederhana dengan Visual Basic

Itu juga dapat dari para blogger yang baik hati

Langsung aja sediakan alatnya pastinya vb 6.0  dan scrip code

Pertama buat form dengan 4label ,1combobox,3textbox dan 1comandbutton

Kira-kira gambarnya kaya gini

Terus tinggal masukin aja coding berikut scripnya :

Private Sub Form_Load()

    dtpLahir.Value = Now

    Call dtpLahir_Change

End Sub

Private Sub dtpLahir_Change()

    Dim a As String, b As String

    Dim c As String

    Dim d As String

   

    Dim tgl As Integer, bln As Integer, thn As Integer

    tgl = Format(dtpLahir.Value, "dd")

    bln = Format(dtpLahir.Value, "MM")

    thn = Format(dtpLahir.Value, "yyyy")

   

    'hari

    Select Case Weekday(dtpLahir.Value)

        Case 1: a = "Minggu"

        Case 2: a = "Senin"

        Case 3: a = "Selasa"

        Case 4: a = "Rabu"

        Case 5: a = "Kamis"

        Case 6: a = "Jum'at"

        Case 7: a = "Sabtu"

    End Select

   

    Select Case DateDiff("d", CDate("1/1/1900"), dtpLahir.Value) Mod 5

        Case 0: b = "Pahing"

        Case 1: b = "Pon"

        Case 2: b = "Wage"

        Case 3: b = "Kliwon"

        Case 4: b = "Legi"

    End Select

   

    'bintang

    Select Case bln

        Case 1: c = IIf(tgl <= 19, "Capricorn", "Aquarius")

        Case 2: c = IIf(tgl <= 19, "Aquarius", "Pisces")

        Case 3: c = IIf(tgl <= 20, "Pisces", "Aries")

        Case 4: c = IIf(tgl <= 20, "Aries", "Taurus")

        Case 5: c = IIf(tgl <= 21, "Taurus", "Gemini")

        Case 6: c = IIf(tgl <= 21, "Gemini", "Cancer")

        Case 7: c = IIf(tgl <= 21, "Cancer", "Leo")

        Case 8: c = IIf(tgl <= 21, "Leo", "Virgo")

        Case 9: c = IIf(tgl <= 22, "Virgo", "Libra")

        Case 10: c = IIf(tgl <= 23, "Libra", "Scorpio")

        Case 11: c = IIf(tgl <= 22, "Scorpio", "Sagitarius")

        Case 12: c = IIf(tgl <= 22, "Sagitarius", "Capricorn")

    End Select

   

    'shio

    Select Case thn - ((Int(thn / 12) * 12))

        Case 0: d = "Kera"

        Case 1: d = "Ayam"

        Case 2: d = "Anjing"

        Case 3: d = "Babi"

        Case 4: d = "Tikus"

        Case 5: d = "Lembu"

        Case 6: d = "Macan"

        Case 7: d = "Kelinci"

        Case 8: d = "Naga"

        Case 9: d = "Ular"

        Case 10: d = "Kuda"

        Case 11: d = "Domba"

    End Select

   

    txtHari.Text = a & " " & b

    txtBintang.Text = c

    txtShio.Text = d

End Sub

Kalau sudah dimasukan scripnya langsung aja dirun

Kira-kira jadi kaya gini

Selamat belajar

Indahnya berbagi……………..