Latihan_04_36110044 Aplikasi Komputer 4

Form Latihan_04 terdapat empat object yaitu Label, Textbox, Button, dan Date Time Picker:

Object Label

Terdapat enam  object Label (yang bertuliskan nama saya, tanggal lahir, tanggal kelahiran, bulan kelahiran, tahun kelahiran, dan hari kelahiran)

Object Textbox

Terdapat lima textbox (semuanya status input). Status input digunakan untuk memasukkan nilai nama saya, tanggal kelahiran, bulan kelahiran, tahun kelahiran, dan hari kelahiran)

Object Button

Terdapat sat u object button yaitu” Analisa”.  Button  ”Analisa”  digunakan untuk menampilkan hasil analisa dari Date Time Picker  (tanggal kelahiran, bulan kelahiran, tahun kelahiran, dan hari kelahiran)

Object Date Time Picker

Digunakan untuk memasukkan Date

Script Unique

Button “Analisa”

If dtp_36110044.Value.DayOfWeek Then

            tk_36110044.Text = dtp_36110044.Value.Day

            bk_36110044.Text = dtp_36110044.Value.Month

            thk_36110044.Text = dtp_36110044.Value.Year

            hk_36110044.Text = WeekdayName(Weekday(dtp_36110044.Value.Date, 1), False, FirstDayOfWeek.Sunday)

        End If

Even

analisa_36110044_Click

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 Date Time Picker 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_36110044

    Private Sub analisa_36110044_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles analisa_36110044.Click

        If dtp_36110044.Value.DayOfWeek Then

            tk_36110044.Text = dtp_36110044.Value.Day

            bk_36110044.Text = dtp_36110044.Value.Month

            thk_36110044.Text = dtp_36110044.Value.Year

            hk_36110044.Text = WeekdayName(Weekday(dtp_36110044.Value.Date, 1), False, FirstDayOfWeek.Sunday)

        End If

    End Sub

    Private Sub Latihan_04_36110044_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

7. Jalankan program dengan menggunakan  “start debugging”