Latihan_05_46110009

Gambar Latihan 05

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"

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 Analizing46110009.Click
        If DATE46110009.Value.Day >= 22 And DATE46110009.Value.Month = 12 Or DATE46110009.Value.Day <= 19 And DATE46110009.Value.Month = 1 Then
            STAR46110009.Text = "Capricorn"
            VOL46110009.Text = "genit"
        ElseIf DATE46110009.Value.Day >= 20 And DATE46110009.Value.Month = 1 Or DATE46110009.Value.Day <= 18 And DATE46110009.Value.Month = 2 Then
            STAR46110009.Text = "Aquarius"
            VOL46110009.Text = "alergi debu"
        ElseIf DATE46110009.Value.Day >= 19 And DATE46110009.Value.Month = 2 Or DATE46110009.Value.Day <= 20 And DATE46110009.Value.Month = 3 Then
            STAR46110009.Text = "Pisces"
            VOL46110009.Text = "gampang keringatan"
        ElseIf DATE46110009.Value.Day >= 21 And DATE46110009.Value.Month = 3 Or DATE46110009.Value.Day <= 20 And DATE46110009.Value.Month = 4 Then
            STAR46110009.Text = "Aries"
            VOL46110009.Text = "senang bergurau"
        ElseIf DATE46110009.Value.Day >= 21 And DATE46110009.Value.Month = 4 Or DATE46110009.Value.Day <= 20 And DATE46110009.Value.Month = 5 Then
            STAR46110009.Text = "Taurus"
            VOL46110009.Text = "Playboy"
        ElseIf DATE46110009.Value.Day >= 21 And DATE46110009.Value.Month = 5 Or DATE46110009.Value.Day <= 20 And DATE46110009.Value.Month = 6 Then
            STAR46110009.Text = "Gemini"
            VOL46110009.Text = "gampang tersinggung"
        ElseIf DATE46110009.Value.Day >= 21 And DATE46110009.Value.Month = 6 Or DATE46110009.Value.Day <= 22 And DATE46110009.Value.Month = 7 Then
            STAR46110009.Text = "Cancer"
            VOL46110009.Text = "suka main boneka"
        ElseIf DATE46110009.Value.Day >= 23 And DATE46110009.Value.Month = 7 Or DATE46110009.Value.Day <= 22 And DATE46110009.Value.Month = 8 Then
            STAR46110009.Text = "Leo"
            VOL46110009.Text = "suka bernyanyi,seniman"
        ElseIf DATE46110009.Value.Day >= 23 And DATE46110009.Value.Month = 8 Or DATE46110009.Value.Day <= 23 And DATE46110009.Value.Month = 9 Then
            STAR46110009.Text = "Virgo"
            VOL46110009.Text = "tukang ngorok"
        ElseIf DATE46110009.Value.Day >= 24 And DATE46110009.Value.Month = 9 Or DATE46110009.Value.Day <= 23 And DATE46110009.Value.Month = 10 Then
            STAR46110009.Text = "Libra"
            VOL46110009.Text = "malas mandi"
        ElseIf DATE46110009.Value.Day >= 24 And DATE46110009.Value.Month = 10 Or DATE46110009.Value.Day <= 21 And DATE46110009.Value.Month = 11 Then
            STAR46110009.Text = "scorpio"
            VOL46110009.Text = "senang bermain robot-robotan"
        ElseIf DATE46110009.Value.Day >= 22 And DATE46110009.Value.Month = 11 Or DATE46110009.Value.Day <= 21 And DATE46110009.Value.Month = 12 Then
            STAR46110009.Text = "Sagitarius"
            VOL46110009.Text = "pemalu"
        End If
    End Sub
End Class   

C.     Even

Button1_Click

D.     Property

Property TextBox ==> ReadOnly=True

 

    

C.     Even

Button1_Click

 

D.     Property

Property TextBox ==> ReadOnly=True