Form Latihan_05_36110040 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; duat status
read only). Status input digunakan untuk memasukkan nama saya. Status Read Only
digunakan untuk menampilkan hasil analisa tanggal kelahiran, bulan kelahiran,
tahun kelahiran, dan hari kelahiran.
Object Button
Terdapat dua object button (Analizing dan Close).
Button Analisa digunakan untuk menampilkan hasil analisa di object TextBox
ReadOnly. Sedangkan button Close digunakan untuk mengosongkan kembali semua
TextBox.
.Script
Unique
Public Class latihan_05_36110040
Private Sub ANALISA36110040_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles ANALISA36110040.Click
If
Date36110040.Value.Day >= 22 And
Date36110040.Value.Month = 12 Or
Date36110040.Value.Day <= 19 And
Date36110040.Value.Month = 1 Then
b_36110040.Text = "capricon"
A36110040.Text = "nggak kenapa-kenapa"
End If
If
Date36110040.Value.Day >= 20 And
Date36110040.Value.Month = 1 Or
Date36110040.Value.Day <= 18 And
Date36110040.Value.Month = 2 Then
b_36110040.Text = "aquarius"
A36110040.Text = "suka minum air"
End If
If
Date36110040.Value.Day >= 19 And
Date36110040.Value.Month = 2 Or
Date36110040.Value.Day <= 20 And
Date36110040.Value.Month = 3 Then
b_36110040.Text = "pisces"
A36110040.Text = "suka marah-marah"
End If
If
Date36110040.Value.Day >= 21 And
Date36110040.Value.Month = 3 Or
Date36110040.Value.Day <= 20 And
Date36110040.Value.Month = 4 Then
b_36110040.Text = "aries"
A36110040.Text = "doyan nyanyi"
End If
If
Date36110040.Value.Day >= 20 And
Date36110040.Value.Month = 4 Or
Date36110040.Value.Day <= 20 And
Date36110040.Value.Month = 5 Then
b_36110040.Text = "taurus"
A36110040.Text = "tak mau di urus"
End If
If Date36110040.Value.Day >= 21 And Date36110040.Value.Month = 5 Or Date36110040.Value.Day <= 20 And Date36110040.Value.Month = 6 Then
b_36110040.Text = "gemini"
A36110040.Text = "maunya lebih"
End If
If
Date36110040.Value.Day >= 21 And
Date36110040.Value.Month = 6 Or
Date36110040.Value.Day <= 22 And
Date36110040.Value.Month = 7 Then
b_36110040.Text = "cancer"
A36110040.Text = "ada-ada aja"
End If
If
Date36110040.Value.Day >= 23 And
Date36110040.Value.Month = 7 Or
Date36110040.Value.Day <= 22 And
Date36110040.Value.Month = 8 Then
b_36110040.Text = "leo"
A36110040.Text = "suka meraum"
End If
If
Date36110040.Value.Day >= 23 And
Date36110040.Value.Month = 8 Or
Date36110040.Value.Day <= 23 And
Date36110040.Value.Month = 9 Then
b_36110040.Text = "virgo"
A36110040.Text = "sehat-sehat aja"
End If
If
Date36110040.Value.Day >= 24 And
Date36110040.Value.Month = 9 Or
Date36110040.Value.Day <= 23 And
Date36110040.Value.Month = 10 Then
b_36110040.Text = "libra"
A36110040.Text = "kurang kerjasama"
End If
If
Date36110040.Value.Day >= 24 And
Date36110040.Value.Month = 10 Or
Date36110040.Value.Day <= 21 And
Date36110040.Value.Month = 11 Then
b_36110040.Text = "scorpio"
A36110040.Text = "kurang makan"
End If
If
Date36110040.Value.Day >= 22 And
Date36110040.Value.Month = 11 Or
Date36110040.Value.Day <= 21 And
Date36110040.Value.Month = 12 Then
b_36110040.Text = "sagitarius"
A36110040.Text = "cantik deh"
End If
End Sub
Private Sub c36110040_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles c36110040.Click
N36110040.Text = ""
Date36110040.Text = ""
b_36110040.Text = ""
A36110040.Text = ""
End Sub
End Class
Even
ButtonClick
Property
Property TextBox
==> ReadOnly=True
Tidak ada komentar:
Posting Komentar