Deskripsi Penyelesaian Latihan_04_36110041

Deskripsi Penyelesaian

Latihan_04_36110041

A.     Form Latihan_04 terdapat tiga object yaitu Label, Textbox, dan Button:

Ø  Object Label

Terdapat Enam label (yang bertuliskan tidak nama saya; tanggal lahir; tanggal kelahiran; bulan kelahiran; tahun kelahiran; dan hari kelahiran) 

Ø  Object Text Box

Terdapat tiga textbox (lima status input; tiga status read only). Status input digunakan untuk memasukkan nilai; nama saya. Status Read Only  digunakan untuk menampilkan hasil perhitungan tanggal kelahiran; bulan kelahiran; tahun kelahiran; dan hari kelahiran. 

Ø  Object Button

Terdapat satu object button (Analisa). Tombol Analisai digunakan untuk menampilkan hasil perhitungan tanggal kelahiran; bulan kelahiran; tahun kelahiran; dan hari kelahiran. 

Ø  Object Date TimePicker

Terdapat satu Object Date TimePicker yaitu digunakan untuk menampilkan tanggal lahir

B.     Script Unique 

Buttom "Analisa"

Private Sub B1_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1_36110041.Click

        If Date_36110041.Value.DayOfWeek Then

            T2_36110041.Text = Date_36110041.Value.Date

            T3_36110041.Text = Date_36110041.Value.Month

            T4_36110041.Text = Date_36110041.Value.Year

            T5_36110041.Text = WeekdayName(Weekday(Date_36110041.Value.Date, 1), False, FirstDayOfWeek.Sunday)
       

C.     Even

B1_36110041_Click

D.     Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.      Buka Project yang telah dibuat sebelumnya klik Add New Item è Add Windows Form

 

2.      Kemudian beri nama dan klik Add

 

3.      buat form seperti di bawah ini dengan menggunakan toolbox yang saya tunjukkan pada postingan sebelumnya.

4.      Berikut ini adalah rumus untuk menjalankan form di atas

Analisa

Public Class latihan_04_36110041

    Private Sub B1_36110041_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles B1_36110041.Click

        If Date_36110041.Value.DayOfWeek Then

            T2_36110041.Text = Date_36110041.Value.Date

            T3_36110041.Text = Date_36110041.Value.Month

            T4_36110041.Text = Date_36110041.Value.Year

            T5_36110041.Text = WeekdayName(Weekday(Date_36110041.Value.Date, 1), False, FirstDayOfWeek.Sunday)

        End If

    End Sub

End Class