Latihan_05_36110029

v Deskripsi Latihan_05_36110029

Object Label

Terdapat tiga label yang bertuliskan Name, Date of birth, Bintang.

Object TextBox

Terdapat tiga textbox (berstatus input) yaitu Name, Bintang, dan Kertas.

Object Button

Terdapat dua object button (Analizing dan close). Button Analizing digunakan untuk menampilkan hasil analisa Date Time Picker. Sedangkan Button Close digunakan untuk mengosongkan  dan keluar dari program.

Object Date TimePicker

Terdapat Date Time Picker yang digunakan untuk menampilkan date.

Script Unique

Menganalisa DateTimePicker yang hasilnya akan ditampilkan pada textbox tertentu.

If DTB_36110029.Value.Day >= 22 And DTB_36110029.Value.Month = 12 Or DTB_36110029.Value.Day <= 18 And DTB_36110029.Value.Month = 1 Then

            BT_36110029.Text = " CAPRICORN "

            HH_36110029.Text = "gak kenapa2"

Button2_36110029.Click

 NM_36110029.Text = ""

Event

Buttonclick

Property
Default

v   Prosedur  Latihan_05_36110029

1.      Buka project yang telah dibuat.

2.      pilih Add New Item pada Microsoft Visual Studio 2005/ 2008

3.      Setelah add new item terbuka, pilih windows form, lalu ketik nama form dan add.

4.      Kemudian buat form seperti di bawah ini:

5.      Setelah format untuk Latihan_05_36110029  sudah dibuat maka selanjutnya kita membuat listing program pada jendela code:

Public Class Latihan_05_36110029

    Private Sub Button1_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_36110029.Click

        If DTB_36110029.Value.Day >= 22 And DTB_36110029.Value.Month = 12 Or DTB_36110029.Value.Day <= 18 And DTB_36110029.Value.Month = 1 Then

            BT_36110029.Text = " CAPRICORN "

            HH_36110029.Text = "gak kenapa2"

        ElseIf DTB_36110029.Value.Day >= 19 And DTB_36110029.Value.Month = 1 Or DTB_36110029.Value.Day <= 18 And DTB_36110029.Value.Month = 2 Then

            BT_36110029.Text = " AQUARIUS "

            HH_36110029.Text = "suka minum air"

        ElseIf DTB_36110029.Value.Day >= 19 And DTB_36110029.Value.Month = 2 Or DTB_36110029.Value.Day <= 20 And DTB_36110029.Value.Month = 3 Then

            BT_36110029.Text = " PISCES "

            HH_36110029.Text = "suka marah-marah"

        ElseIf DTB_36110029.Value.Day >= 21 And DTB_36110029.Value.Month = 3 Or DTB_36110029.Value.Day <= 20 And DTB_36110029.Value.Month = 4 Then

            BT_36110029.Text = " ARIES "

            HH_36110029.Text = "doyan nyanyi "

        ElseIf DTB_36110029.Value.Day >= 21 And DTB_36110029.Value.Month = 4 Or DTB_36110029.Value.Day <= 20 And DTB_36110029.Value.Month = 5 Then

            BT_36110029.Text = " TAURUS "

            HH_36110029.Text = "tak mau diurus "

        ElseIf DTB_36110029.Value.Day >= 21 And DTB_36110029.Value.Month = 5 Or DTB_36110029.Value.Day <= 20 And DTB_36110029.Value.Month = 6 Then

            BT_36110029.Text = " GEMINI "

            HH_36110029.Text = "maunya lebih"

        ElseIf DTB_36110029.Value.Day >= 21 And DTB_36110029.Value.Month = 6 Or DTB_36110029.Value.Day <= 20 And DTB_36110029.Value.Month = 7 Then

            BT_36110029.Text = " CANCER "

            HH_36110029.Text = "ada ajach"

        ElseIf DTB_36110029.Value.Day >= 21 And DTB_36110029.Value.Month = 7 Or DTB_36110029.Value.Day <= 20 And DTB_36110029.Value.Month = 8 Then

            BT_36110029.Text = " LEO "

            HH_36110029.Text = "suka meraum"

        ElseIf DTB_36110029.Value.Day >= 21 And DTB_36110029.Value.Month = 8 Or DTB_36110029.Value.Day <= 20 And DTB_36110029.Value.Month = 9 Then

            BT_36110029.Text = " VIRGO "

            HH_36110029.Text = "sehat-sehat ajach"

        ElseIf DTB_36110029.Value.Day >= 21 And DTB_36110029.Value.Month = 9 Or DTB_36110029.Value.Day <= 20 And DTB_36110029.Value.Month = 10 Then

            BT_36110029.Text = " LIBRA "

            HH_36110029.Text = "kurang kerjaan"

        ElseIf DTB_36110029.Value.Day >= 21 And DTB_36110029.Value.Month = 10 Or DTB_36110029.Value.Day <= 20 And DTB_36110029.Value.Month = 11 Then

            BT_36110029.Text = " SCORPIO  "

            HH_36110029.Text = "kurang makan "

        Else

            BT_36110029.Text = " SAGITARIUS  "

            HH_36110029.Text = "cantik dech"

        End If

    End Sub

    Private Sub Button2_36110029_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2_36110029.Click

        NM_36110029.Text = ""

        DTB_36110029.Text = ""

        BT_36110029.Text = ""

        HH_36110029.Text = ""

    End Sub

End Class

6.      Tekan F5 pada keyboard untuk menjalankan form, kemudian ketik angka  pada kolom dan perhatikan hasilnya.