Kamis, 13 September 2012

deskripsi latihan_05_36110040


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