cara membuat Zodiak melalui vb.2010

Membuat Zodiak dengan VB 2010

Oke gan, pertama buka terlebih dahulu visual basic 2010 ,terserah agan mau yang ultimate atau express.

ita buat dulu form design seperti gambar berikut ini :

 

Properti Form dan label:

Kontrol	Properti	Nilai
Form	File Name	Zodiak
	Text	Zodiak
	BackColor	Silver
Label 1	Text	Tanggal Lahir
Label 2	Text	Hari Lahir
Label 3	Text	Keberuntungan
Label 4	Text	Sifat
Label 5	Text	Zodiak
Textbox	Name	Txttgl
	Text	-
Label 6	Text	-
	AutoSize	True
	BorderStyle	Fixed3D
	Name	Lblhari
Label 7	Text	-
	AutoSize	True
	BorderStyle	Fixed3D
	Name	Lblk
Label 8	Text	-
	AutoSize	True
	BorderStyle	Fixed3D
	Name	Lbls
Label 9	Text	-
	AutoSize	True
	BorderStyle	Fixed3D
	Name	Lblz
Button 1	Text	Tampil
Button 2	Text	Hapus
Button 3	Text	Keluar

Setelah propertis semua sudah diisi selanjutnya klik 2 kali pada form kemudian copy kode berikut ini :

Public Class Zodiak

    Dim lahir, tgl, bln

    Private Sub Zodiak_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If IsDate(txttgl.Text) = False Then

            MsgBox("Tanggal yang anda input salah")

            txttgl.Focus()

            Exit Sub

        End If

        lahir = DateValue(txttgl.Text)

        lblhari.Text = Format(lahir, "dddd")

        tgl = DateAndTime.Day(lahir)

        bln = DateAndTime.Month(lahir)

        If tgl >= 20 And bln = 1 Or tgl <= 18 And bln = 2 Then

            lblz.Text = "Aquarius"

            lblk.Text = "sangat baik"

            lbls.Text = "terlalu egois"

        End If

        If tgl >= 19 And bln = 2 Or tgl <= 20 And bln = 3 Then

            lblz.Text = "Pisces"

            lblk.Text = "Baik"

            lbls.Text = "Pendiam"

        End If

        If tgl >= 21 And bln = 3 Or tgl <= 20 And bln = 4 Then

            lblz.Text = "Aies"

            lblk.Text = "Buruk"

            lbls.Text = "Terlalu banyak bicara"

        End If

        If tgl >= 21 And bln = 4 Or tgl <= 20 And bln = 5 Then

            lblz.Text = "Taurus"

            lblk.Text = "Krisi keuangan"

            lbls.Text = "Pemaaf"

        End If

        If tgl >= 21 And bln = 5 Or tgl <= 20 And bln = 6 Then

            lblz.Text = "Gemini"

            lblk.Text = "Seperti Biasa"

            lbls.Text = "Pemarah"

        End If

        If tgl >= 21 And bln = 6 Or tgl <= 20 And bln = 7 Then

            lblz.Text = "Cancer"

            lblk.Text = "selalu beruntung"

            lbls.Text = "Ramah"

        End If

        If tgl >= 21 And bln = 7 Or tgl <= 21 And bln = 8 Then

            lblz.Text = "Leo"

            lblk.Text = "Lumayan baik"

            lbls.Text = "Suka ketawa"

        End If

        If tgl >= 22 And bln = 8 Or tgl <= 21 And bln = 9 Then

            lblz.Text = "Virgo"

            lblk.Text = "Sangan Buruk"

            lbls.Text = "Suka galau"

        End If

        If tgl >= 22 And bln = 9 Or tgl <= 22 And bln = 10 Then

            lblz.Text = "Libra"

            lblk.Text = "sangan baik"

            lbls.Text = "egois"

        End If

        If tgl >= 23 And bln = 10 Or tgl <= 22 And bln = 11 Then

            lblz.Text = "Scorpio"

            lblk.Text = "Tidak pernah Beruntung"

            lbls.Text = "Banyak bicara"

        End If

        If tgl >= 23 And bln = 11 Or tgl <= 20 And bln = 12 Then

            lblz.Text = "Sagitarius"

            lblk.Text = "baik"

            lbls.Text = "Pemaaf"

        End If

        If tgl >= 21 And bln = 12 Or tgl <= 19 And bln = 1 Then

            lblz.Text = "Capricorn"

            lblk.Text = "sedikit beruntung"

            lbls.Text = "pendendam"

        End If

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        txttgl.Text = ""

        lblhari.Text = ""

        lblk.Text = ""

        lbls.Text = ""

        lblz.Text = ""

        txttgl.Focus()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Close()

    End Sub

End Class

Lalu jalankan program dengan menekan F5 atau klik debug lalu start debugging.

                                                                                                 posting by muh tamsir