LATIHAN_04_36110042

Deskripsi Latihan_04_36110042

A.   Object-object dalam Latihan_04_36110042 :

1. Object Label

Terdapat enam label yang bertuliskan:

1.   Nama Saya

2.   Tanggal Lahir

3.   Tanggal Kelahiran

4.   Bulan Kelahiran

5.   Tahun Kelahiran

6.   Hari Kelahiran

2. Object Textbox

Terdapat lima textbox (satu status input; empat status Readonly). Status input digunakan untuk memasukkan Nama Saya. Status Read Only digunakan untuk menampilkan hasil analisa:

1. Tanggal Kelahiran,

2. Bulan Kelahiran

3. Tahun Kelahiran

4. Hari Kelahiran.

3. Object Button

Terdapat satu object button (Analisa). Button Analisa digunakan untuk menampilkan hasil analisa di object TextBox ReadOnly.

  

4. Object DateTimePicker

Terdapat satu objek datetimepicker. Digunakan untuk menentukan tanggal yang akan ditampilkan pada TextBox ReadOnly.

B. Script Unique

Untuk button Analisa:

If DateTimePicker_36110042.Value.DayOfWeek Then

HARI_36110042.Text = WeekdayName(Weekday(DateTimePicker_36110042.Value.Date), False, FirstDayOfWeek.Sunday)

      Else : HARI_36110042.Text = "Minggu"

            TANGGAL_36110042.Text = DateTimePicker_36110042.Value.Date

            BULAN_36110042.Text = DateTimePicker_36110042.Value.Month

            TAHUN_36110042.Text = DateTimePicker_36110042.Value.Year

End If

C. Even

          ANALISA_36110042_Click

D. Property

Property TextBox è ReadOnly = True

Langkah-langkah mengerjakan LATIHAN 04

1. Klik icon "Add new Item"
2. Pada kotak dialog Add new Item akan muncul seperti gambar di bawah ini, beri nama Latihan_04_36110042

3. kemudian Klik Add
4. Buat desain form seperti gambar di bawah ini

          5. Berikut ini rumus untuk menjalankan form diatas:

Public Class Latihan_04_36110042

    Private Sub ANALISA_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANALISA_36110042.Click

        If DateTimePicker_36110042.Value.DayOfWeek Then

            HARI_36110042.Text = WeekdayName(Weekday(DateTimePicker_36110042.Value.Date), False, FirstDayOfWeek.Sunday)

        Else : HARI_36110042.Text = "Minggu"

            TANGGAL_36110042.Text = DateTimePicker_36110042.Value.Date

            BULAN_36110042.Text = DateTimePicker_36110042.Value.Month

            TAHUN_36110042.Text = DateTimePicker_36110042.Value.Year

        End If

    End Sub

End Class

6. Untuk memulai menjalankan aplikasi yang telah dikerjakan, klik ikon Start Debugging.