Deskripsi Penyelesaian Latihan_05_36110041

Deskripsi Penyelesaian

Latihan_05_36110041

A.     Form Latihan_05 terdapat tiga object yaitu Label, Textbox, dan Button:

Ø  Object Label

Terdapat tiga label (yang bertuliskan nama; date of birth; bintang) 

Ø  Object Text Box

Terdapat tiga textbox (satu status input; dua status read only). Status input digunakan untuk memasukkan nilai; nama. Status Read Only  digunakan untuk menampilkan hasil perhitungan bintang dan hasil analizing)

Ø  Object Button

Terdapat dua object button (Analizing dan Close). Tombol Analizing digunakan untuk menampilkan hasil perhitungan bintang dan hasil Analizing.

Ø  Object Date TimePicker

Terdapat satu Object Date TimePicker yaitu digunakan untuk menampilkan tanggal lahir

B.     Script Unique 

Buttom "Analizing"

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

        If LAHIR_36110041.Value.Day >= 22 And LAHIR_36110041.Value.Month = 12 Or LAHIR_36110041.Value.Day <= 19 And LAHIR_36110041.Value.Month = 1 Then

            BINTANG_36110041.Text = "CAPRICORN"

            TEXT3_36110041.Text = "GAG KENAPA-KENAPA" 

 Buttom "Close"

Private Sub KLOSE_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLOSE_36110041.Click

        NAMA_36110041.Text = ""

        BINTANG_36110041.Text = ""

    

C.     Even

Button1_Click

KLOSE_36110041_Click

D.     Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.      Buka Project yang telah dibuat sebelumnya klik Add New Item       Add Windows Form

2.      Kemudian beri nama dan klik Add

3.      buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

4.      Berikut ini adalah rumus untuk menjalankan form di atas

Public Class LATIHAN_05_36110041

analizing

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

        If LAHIR_36110041.Value.Day >= 22 And LAHIR_36110041.Value.Month = 12 Or LAHIR_36110041.Value.Day <= 19 And LAHIR_36110041.Value.Month = 1 Then

            BINTANG_36110041.Text = "CAPRICORN"

            TEXT3_36110041.Text = "GAG KENAPA-KENAPA"

        ElseIf LAHIR_36110041.Value.Day >= 20 And LAHIR_36110041.Value.Month = 1 Or LAHIR_36110041.Value.Day <= 18 And LAHIR_36110041.Value.Month = 2 Then

            BINTANG_36110041.Text = "AQUARIUS"

            TEXT3_36110041.Text = "SUKA MINUM AIR"

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

            BINTANG_36110041.Text = "PISCES"

            TEXT3_36110041.Text = "SUKA MARAH-MARAH"

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

            BINTANG_36110041.Text = "ARIES"

            TEXT3_36110041.Text = "DOYANG NYANYI"

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

            BINTANG_36110041.Text = "TAURUS"

            TEXT3_36110041.Text = "TAK MAU DIURUS"

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

            BINTANG_36110041.Text = "GEMINI"

            TEXT3_36110041.Text = "MAUNYA LEBIH"

        ElseIf LAHIR_36110041.Value.Day >= 21 And LAHIR_36110041.Value.Month = 6 Or LAHIR_36110041.Value.Day <= 22 And LAHIR_36110041.Value.Month = 7 Then

            BINTANG_36110041.Text = "CANCER"

            TEXT3_36110041.Text = "ADA AJA"

        ElseIf LAHIR_36110041.Value.Day >= 23 And LAHIR_36110041.Value.Month = 7 Or LAHIR_36110041.Value.Day <= 22 And LAHIR_36110041.Value.Month = 8 Then

            BINTANG_36110041.Text = "LEO"

            TEXT3_36110041.Text = "SUKA MERAUNG"

        ElseIf LAHIR_36110041.Value.Day >= 23 And LAHIR_36110041.Value.Month = 8 Or LAHIR_36110041.Value.Day <= 23 And LAHIR_36110041.Value.Month = 9 Then

            BINTANG_36110041.Text = "VIRGO"

            TEXT3_36110041.Text = "SEHAT-SEHAT AJA"

        ElseIf LAHIR_36110041.Value.Day >= 24 And LAHIR_36110041.Value.Month = 9 Or LAHIR_36110041.Value.Day <= 23 And LAHIR_36110041.Value.Month = 10 Then

            BINTANG_36110041.Text = "LIBRA"

            TEXT3_36110041.Text = "KURANG KERJAAN"

        ElseIf LAHIR_36110041.Value.Day >= 24 And LAHIR_36110041.Value.Month = 10 Or LAHIR_36110041.Value.Day <= 21 And LAHIR_36110041.Value.Month = 11 Then

            BINTANG_36110041.Text = "SCORPIO"

            TEXT3_36110041.Text = "KURANG MAKAN"

        ElseIf LAHIR_36110041.Value.Day >= 22 And LAHIR_36110041.Value.Month = 11 Or LAHIR_36110041.Value.Day <= 21 And LAHIR_36110041.Value.Month = 12 Then

            BINTANG_36110041.Text = "SAGITARIUS"

            TEXT3_36110041.Text = "CANTIK DEH"

        End If

    End Sub 

klose

    Private Sub KLOSE_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KLOSE_36110041.Click

        NAMA_36110041.Text = ""

        BINTANG_36110041.Text = ""

        TEXT3_36110041.Text = ""

    End Sub

End Class