Deskripsi Latihan_04_36110048

A.    Object-object dalam Latihan_04_36110048 :

1.                         Object Label

Terdapat enam label (yang bertuliskan nama saya, tanggal lahir, tanggal kelahiran, bulan kelahiran, tahun kelahiran, hari kelahiran).

2.                         Object Textbox

Terdapat lima textbox (satu status input; empat 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.

3.                         Object Button

Terdapat satu object button (Analisa). Button Analisa digunakan untuk menampilkan hasil analisa di object TextBox ReadOnly.

4.                         Object DateTimePicker

Terdapat satu objek datetimepicker. Digunakan untuk menentukan tanggal yang akan ditampilkan pada TextBox ReadOnly.

B.     Script Unique

Untuk button Analisa:

If DTP1_36110048.Value.DayOfWeek Then

HRI_36110048.Text = WeekdayName(Weekday(DTP1_36110048.Value.Date, 1), False, FirstDayOfWeek.Sunday)

Else : HRI_36110048.Text = "Minggu"

End If

TGL_36110048.Text = DTP1_36110048.Value.Day

BLN_36110048.Text = DTP1_36110048.Value.Month

 THN_36110048.Text = DTP1_36110048.Value.Year

C.     Even

ANALISA_36110048_Click

D.    Property

Property TextBox ==> ReadOnly=True