Latihan_04_36110034

Deskripsi penyelesaian

Form Latihan_04_36110034  terdapat tiga object yaitu Label, Textbox, dan Button:

Object Label

Terdapat enam  label : (nama saya ; tanggal lahir ; tanggal kelahiran ; bulan kelahiran ; tahun kelahiran ; hari kelahiran ).

Object Datetimepicker .

Terdapat satu datetimepicker (tanggal lahir ) yang berfungsi menunjukan tanggal, bulan, dan tahun.

Object Text Box

Terdapat lim textbox dan seuanya berstatus input. Status input digunakan untuk memasukkan nilai .

Status input (nama saya ;  tanggal kelahiran ; bulan kelahiran ; tahun kelahiran ; hari kehiran ).

Object Button

Terdapat satu object button (analisa). Tombol kosongkan lagi digunakan untuk menampilkan hasil dari (tanggal kelahiran ; bulan kelahiran ; tahun kelahiran ; hari kehiran ).

Script Unique 

Buttom "analisa"

        If TGL_36110034.Value.DayOfWeek Then

            HR_36110034.Text = WeekdayName(Weekday(TGL_36110034.Value.Date, 1), False, FirstDayOfWeek.Sunday)

        Else : HR_36110034.Text = "MINGGU"

        End If

        TK_36110034.Text = TGL_36110034.Value.Day

        BLN_36110034.Text = TGL_36110034.Value.Month

        HR_36110034.Text = TGL_36110034.Value.Year

Even

analisa_36110034_Clik

Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

 

2.   membuat form dengan menggunakan Label, Textbox, Button, dan datetimerpicker yang ada dalam "Toolbox”.

 

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

 

4.   Klik 2x pada kotak design untuk membuka lembar vb
 Masukkan rumus berikut untuk menyelesaikan latihan_04_36110034.

Public Class latihan_04_36110034

    Private Sub ANL_36110034_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ANL_36110034.Click

        If TGL_36110034.Value.DayOfWeek Then

            HR_36110034.Text = WeekdayName(Weekday(TGL_36110034.Value.Date, 1), False, FirstDayOfWeek.Sunday)

        Else : HR_36110034.Text = "MINGGU"

        End If

        TK_36110034.Text = TGL_36110034.Value.Day

        BLN_36110034.Text = TGL_36110034.Value.Month

        HR_36110034.Text = TGL_36110034.Value.Year

    End Sub

End Class

5.    Jalankan program dengan “start debugging”.

6.    Selesai