Kamis, 13 September 2012
di
17.11
|
Form Latihan_04_36110037
terdapat empat object yaitu Label, textbox, button, dan DateTime Picker.
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 dua ubject button
(“Analisa” dan “hapus”). Button "Analisa" digunakan untuk menampilkan hasil analisa Date Time Picker. Sedangkan button "Hapus"
digunakan untuk mengosongkan isi semua textbox.
Object DateTimePicker
Object DateTimePicker
Terdapat Date Time Picker yang digunakan untuk menampilkan date.
Script Unique
Menganalisa DateTimePicker yang hasilnya akan
ditampilkan pada textbox tertentu.
DateTimePicker.Value.DayOfWeek = 1 Then
Textbox1.Text = "SENIN"
TGL_36110037.Text = TL_36110037.Value.Day
BLN_36110037.Text = TL_36110037.Value.Month
THN_36110037.Text = TL_36110037.Value.Year
Mengosongkan nilai Textbox
Textbox1.Text = "SENIN"
TGL_36110037.Text = TL_36110037.Value.Day
BLN_36110037.Text = TL_36110037.Value.Month
THN_36110037.Text = TL_36110037.Value.Year
Mengosongkan nilai Textbox
Textbox1.Text
= “ ”
Dst.
Event
Buttonclick
Property
Default
Prosedur Penyelesaian
1. buka project yang telah dibuat.
2. buka Solution explorer.
3. setelah itu klik kanan nama project, pilih add dan klik new item.
4. setelah add new item terbuka, pilih windows form, windoes form, kemudian ketik nama form, dan add.
5. buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.
7. setelah itu, masuk ke lembar "vb" dengan cara mengklik 2x form dan kemudian ketikkan formula berikut.
Public Class Latihan_04_36110037
Private Sub Latihan_04_36110037_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Analisa_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Analisa_36110037.Click
If TL_36110037.Value.DayOfWeek = 1 Then
HARI_36110037.Text = "SENIN"
ElseIf TL_36110037.Value.DayOfWeek = 2 Then
HARI_36110037.Text = "SELASA"
ElseIf TL_36110037.Value.DayOfWeek = 3 Then
HARI_36110037.Text = "RABU"
ElseIf TL_36110037.Value.DayOfWeek = 4 Then
HARI_36110037.Text = "KAMIS"
ElseIf TL_36110037.Value.DayOfWeek = 5 Then
HARI_36110037.Text = "JUMAT"
ElseIf TL_36110037.Value.DayOfWeek = 6 Then
HARI_36110037.Text = "SABTU"
Else : HARI_36110037.Text = "MINNGU"
End If
TGL_36110037.Text = TL_36110037.Value.Day
BLN_36110037.Text = TL_36110037.Value.Month
THN_36110037.Text = TL_36110037.Value.Year
End Sub
Private Sub Hapus_36110037_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Hapus_36110037.Click
NS_36110037.Text = ""
TL_36110037.Text = ""
TGL_36110037.Text = ""
BLN_36110037.Text = ""
THN_36110037.Text = ""
HARI_36110037.Text = ""
End Sub
End Class
8. Uji program dengan mengklik "Start Debugging".
9. Save program dengan mengklik icon "save".
10. Selesai.
Diposting oleh
Unknown
0 komentar:
Posting Komentar