Form Latihan_04_36110040 Terdapat
empat object yaitu label, textbox, dan button:
Object Label
Terdapat Enam label (nama saya,
tanggal lahir, tanggal kelahiran, bulan kelahiran, tahun kelahiran, hari
kelahiran)
Object Text Box
Terdapat 5 textbox .1 Status input
digunakan untuk memasukkan nilai (nama saya)
Object Datetimepicker
Terdapat object datetimepicker
Object Button
Terdapat satu object button
(Analisa). Tombol analisa digunakan untuk meganalisa datetimepicker
Script Unique
Membaca nilai TextBox Lain dan
Menempatkan nilai pada TextBox tertentu
Private Sub analisa36110040_Click(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
analisa36110040.Click
If tl36110040.Value.DayOfWeek Then
hk36110040.Text =
WeekdayName(Weekday(tl36110040.Value.Date), False, FirstDayOfWeek.Sunday)
Else : hk36110040.Text =
"minggu"
tk36110040.Text =
tl36110040.Value.Date
bk36110040.Text =
tl36110040.Value.Month
tak36110040.Text =
tl36110040.Value.Year
End If
End Sub
End Class
Even
ButtonClick
Property
Property TextBox
==> ReadOnly=True
Tidak ada komentar:
Posting Komentar