· Deskripsi Form
Latihan 04
·
Form Latihan_04_36110030 terdapat tiga object
yaitu label, textbox, dan button:
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 (status input). Status input digunakan untuk memasukkan nama saya;
tanggal kelahiran; bulan kelahiran; tahun kelahiran; hari kelahiran.
3.
Object Button
Terdapat
satu object button (Analisa). Tombol Analisa digunakan untuk menampilkan hasil analisa
DateTimepicker.
4.
Object DateTimePicker
Terdapat satu object DateTimePicker yang digunakan
untuk menampilkan date.
·
Script Unique
Menganalisa DateTimePicker yang hasilnya akan
ditampilkan pada TextBox tertentu.
Public Class
latihan_04_36110030
Private Sub analisa_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles analisa.Click
If
tl36110030.Value.DayOfWeek = 1 Then
hari36110030.Text = " senin "
ElseIf
tl36110030.Value.DayOfWeek = 2 Then
hari36110030.Text = "selasa
"
ElseIf
tl36110030.Value.DayOfWeek = 3 Then
hari36110030.Text = " rabu"
ElseIf
tl36110030.Value.DayOfWeek = 4 Then
hari36110030.Text = "kamis"
ElseIf
tl36110030.Value.DayOfWeek = 5 Then
hari36110030.Text = "jum'at"
ElseIf
tl36110030.Value.DayOfWeek = 6 Then
hari36110030.Text = "sabtu then"
Else :
hari36110030.Text = " minggu "
End If
tgl36110030.Text = tl36110030.Value.Day
bulan36110030.Text =
tl36110030.Value.Month
tahun36110030.Text =
tl36110030.Value.Year
End Sub
·
End ClassEven
ANALISA_Click
·
Property
Property Textbox => ReadOnly
= True
PROSEDUR PENYE;ESAIAN LATIHAN 4
A. buka project yang telah dibuat.
B buka Solution explorer.
C. setelah itu klik kanan nama project, pilih add dan klik new item.
B buka Solution explorer.
C. setelah itu klik kanan nama project, pilih add dan klik new item.
D. Setelah add new item terbuka kemudian pilih windows form di windows form ketik nama form dan add
E.Lalu buatlah form seperti ini
orange = datetimepicker
hitam = label
merah = text box
F.kemudian mengganti nama text box seperti :
nama saya : nama36110030
time ; tls36110030
tanggal kelahiran : tgl36110030
bulan kelahiran : bulan36110030
tahun kelahiran : tahun36110030
hAri kelahiran : hari36110030
G kemudian masukan rumus
Public Class latihan_04_36110030
Private Sub analisa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles analisa.Click
If tl36110030.Value.DayOfWeek = 1 Then
hari36110030.Text = " senin "
ElseIf tl36110030.Value.DayOfWeek = 2 Then
hari36110030.Text = "selasa "
ElseIf tl36110030.Value.DayOfWeek = 3 Then
hari36110030.Text = " rabu"
ElseIf tl36110030.Value.DayOfWeek = 4 Then
hari36110030.Text = "kamis"
ElseIf tl36110030.Value.DayOfWeek = 5 Then
hari36110030.Text = "jum'at"
ElseIf tl36110030.Value.DayOfWeek = 6 Then
hari36110030.Text = "sabtu then"
Else : hari36110030.Text = " minggu "
End If
tgl36110030.Text = tl36110030.Value.Day
bulan36110030.Text = tl36110030.Value.Month
tahun36110030.Text = tl36110030.Value.Year
End Sub
End Class
Private Sub analisa_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles analisa.Click
If tl36110030.Value.DayOfWeek = 1 Then
hari36110030.Text = " senin "
ElseIf tl36110030.Value.DayOfWeek = 2 Then
hari36110030.Text = "selasa "
ElseIf tl36110030.Value.DayOfWeek = 3 Then
hari36110030.Text = " rabu"
ElseIf tl36110030.Value.DayOfWeek = 4 Then
hari36110030.Text = "kamis"
ElseIf tl36110030.Value.DayOfWeek = 5 Then
hari36110030.Text = "jum'at"
ElseIf tl36110030.Value.DayOfWeek = 6 Then
hari36110030.Text = "sabtu then"
Else : hari36110030.Text = " minggu "
End If
tgl36110030.Text = tl36110030.Value.Day
bulan36110030.Text = tl36110030.Value.Month
tahun36110030.Text = tl36110030.Value.Year
End Sub
End Class
H. uji program kemudian .
.
0 komentar:
Posting Komentar