Latihan_04_36110038

Deskripsi Latihan_04_36110038

Form Latihan_04 terdapat empat object yaitu Label, Textbox, Button, dan datetimepicker:

Object Label

Terdapat enam label (yang bertuliskan Nama Saya; Tanggal Lahir; Tanggal Kelahiran; Bulan Kelahiran; Tahun Kelahiran)

Object Text Box

Terdapat lima textbox dengan status input. Dua textbox digunakan untuk memasukkan nilai/text Nama Saya. Empat textbox lainnya digunakan untuk menampilkan hasil analisa dari datetimepicker. 

Object Button

Terdapat satu object button (Analisa). Tombol Analisa digunakan untuk menjalankan rumus dari object datetimepicker.

Object Datetimepicker

Terdapat satu datetimepicker yang digunakan untuk memasukkan date/tanggal.

Script Unique 

·         Button "Analisa" (button1_36110038)
If dtp_36110038.Value.DayOfWeek Then

            text2_36110038.Text = dtp_36110038.Value.Day

            text3_36110038.Text = dtp_36110038.Value.Month

            text4_36110038.Text = dtp_36110038.Value.Year

            text5_36110038.Text = WeekdayName(Weekday(dtp_36110038.Value.Date, 1), False, FirstDayOfWeek.Monday)

End If

Even

Button1_36110038.Click

Property

Default

Prosedur penyelesaian

1.klik star lalu pilih Microsoft Visual Studio 2008

2. pilih file => new => project

3. isi name dan location pada kolom yang disiapkan lalu OK

4. buat form dengan menggunakan Label, Textbox, Button, dan datetimepicker yang ada dalam "Toolbox

 

5. ganti nama textbox dan button menggunakan "Properties Window"

6. Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_04

Public Class Latihan_04_36110038

    Private Sub Button1_36110038_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_36110038.Click

        If dtp_36110038.Value.DayOfWeek Then

            text2_36110038.Text = dtp_36110038.Value.Day

            text3_36110038.Text = dtp_36110038.Value.Month

            text4_36110038.Text = dtp_36110038.Value.Year

            text5_36110038.Text = WeekdayName(Weekday(dtp_36110038.Value.Date, 1), False, FirstDayOfWeek.Monday)

        End If

    End Sub

End Class

7. Tekan F5 pada keyboard untuk menjalankan form.