Latihan_04_46110009

Latihan 4

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

 ==>Object Label

Terdapat Enam label (yang bertuliskan tidak nama saya; tanggal lahir; tanggal kelahiran; bulan kelahiran; tahun kelahiran; dan hari kelahiran) 

==>Object Text Box

   Terdapat tiga textbox (lima status input; tiga status read only). Status input digunakan untuk memasukkan nilai; nama saya. Status Read Only  digunakan untuk menampilkan hasil perhitungan tanggal kelahiran; bulan kelahiran; tahun kelahiran; dan hari kelahiran. 

==>Object Button

   Terdapat satu object button (Analisa). Tombol Analisai digunakan untuk menampilkan hasil perhitungan tanggal kelahiran; bulan kelahiran; tahun kelahiran; dan hari kelahiran.

==> Object Date TimePicker

Terdapat satu Object Date TimePicker yaitu digunakan untuk menampilkan tanggal lahir

B.     Script Unique 

Buttom "Analisa"

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TGL46110009.Text = DATE46110009.Value.Day
        BLN46110009.Text = DATE46110009.Value.Month
        THN46110009.Text = DATE46110009.Value.Year
        HR46110009.Text = DATE46110009.Value.DayOfWeek
        If DATE46110009.Value.DayOfWeek = 0 Then
            HR46110009.Text = "MINGGU"
        ElseIf DATE46110009.Value.DayOfWeek = 1 Then
            HR46110009.Text = "SENIN"
        ElseIf DATE46110009.Value.DayOfWeek = 2 Then
            HR46110009.Text = "SELASA"
        ElseIf DATE46110009.Value.DayOfWeek = 3 Then
            HR46110009.Text = "RABU"
        ElseIf DATE46110009.Value.DayOfWeek = 4 Then
            HR46110009.Text = "KAMIS"
        ElseIf DATE46110009.Value.DayOfWeek = 5 Then
            HR46110009.Text = "JUMAT"
        ElseIf DATE46110009.Value.DayOfWeek = 6 Then
            HR46110009.Text = "SABTU"
        End If

       End Sub

       End class

C.     Even

Analisa46110009_Click

D.     Property

Property TextBox ==> ReadOnly=True