Kamis, 13 September 2012
Latihan_04_36110029
v
Deskripsi Latihan_04_36110029
Object
Label
Terdapat enam label yang bertuliskan Nama Saya, Tanggal
Lahir, Tanggal Kelahiran, Bulan Kelahiran, Tahun Kelahiran, dan Hari Kelahiran.
Object
TextBox
Terdapat Lima textbox (berstatus input) yaitu Nama Saya,
Tanggal Kelahiran, Bulan Kelahiran, Tahun Kelahiran, dan Hari Kelahiran.
Object
Button
Terdapat satu object button (Analisa). Button Analisa
digunakan untuk menampilkan hasil analisa Date Time Picker.
Object
Date TimePicker
Terdapat
Date Time Picker yang digunakan untuk menampilkan date
Script
Unique
Menganalisa
DateTimePicker yang hasilnya akan ditampilkan pada textbox tertentu.
If
TGL_36110029.Value.DayOfWeek Then
HK_36110029.Text =
WeekdayName(Weekday(TGL_36110029.Value.Date, 1), False,
FirstDayOfWeek.Sunday)
Else :
HK_36110029.Text = "minggu"
End If
TK_36110029.Text =
TGL_36110029.Value.Day
BL_36110029.Text =
TGL_36110029.Value.Month
TH_36110029.Text = TGL_36110029.Value.Year
Event
Buttonclick
Property
Default
v
Prosedur Latihan_04_36110029
1. Buka project yang telah dibuat.
2.
pilih
Add New Item pada Microsoft Visual Studio 2005/ 2008
3.
Setelah
add new item terbuka, pilih windows form, lalu ketik nama form dan add.
4. Kemudian buat form seperti di bawah ini:
5.
Setelah
format untuk Latihan_04_36110029 sudah
dibuat maka selanjutnya kita membuat listing program pada jendela code:
Public Class Latihan_04_36110029
Private Sub Button1_36110029_Click(ByVal
sender As System.Object, ByVal e As
System.EventArgs) Handles Button1_36110029.Click
If
TGL_36110029.Value.DayOfWeek Then
HK_36110029.Text =
WeekdayName(Weekday(TGL_36110029.Value.Date, 1), False,
FirstDayOfWeek.Sunday)
Else :
HK_36110029.Text = "minggu"
End If
TK_36110029.Text = TGL_36110029.Value.Day
BL_36110029.Text =
TGL_36110029.Value.Month
TH_36110029.Text =
TGL_36110029.Value.Year
End Sub
End Class
6.
Tekan
F5 pada keyboard untuk menjalankan form, kemudian ketik angka pada kolom dan perhatikan hasilnya.
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar