Latihan 04_36110055

PROSEDUR LATIHAN 4 :

Ø  Lanjutan

Ø  Pilih “Add New Item” pada tool

Ø  Lalu pilih “Windows Form” dan ganti nama yang di ingin kan kemudian pilih “Add”

Ø  Muncullah form1.vb (Form1 bisa diganti)

Ø  Mulai bekerja dengan menggunakan tool pada toolbox

Ø  Buat text pada form dengan menggunakan label, al:

a.    “Nama Saya”

b.    “Tanggal Lahir”

c.    “Tanggal Kelahiran”

d.    “Bulan Kelahiran”

e.    “Tahun Kelahiran”

f.     “Hari Kelahiran”

Ø  Buat kolom sesuai dengan design pada latihan 4 dengan textbox, kolom sebanyak

a.    Kolom 1 diberi nama “Nama_36001155”

b.    Kolom 2 diberi nama “TK_36001155”

c.    Kolom 3 diberi nama “BK_36001155”

d.    Kolom 4 diberi nama “Takel_36001155”

e.    Kolom 5 diberi nama “HK_36001155”

Ø  Buat tombol Analisa dengan menggunakan button pada textbox

Ø  Buat kolom tanggal dengan menggunakan datetimepicker.

Ø  Tampilannya seperti di bawah ini :

 

Ø  Setelah selesai, maka kita masuk pada rumus yaitu :

Public Class Latihan_04_36001155

    Private Sub Analisa_36001155_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Analisa_36001155.Click

        If Tgl_36001155.Value.DayOfWeek Then '

            TK_36001155.Text = Tgl_36001155.Value.Day

            BK_36001155.Text = Tgl_36001155.Value.Month

            TaKel_36001155.Text = Tgl_36001155.Value.Year

            HK_36001155.Text = WeekdayName(Weekday(Tgl_36001155.Value.Date, 1), False, FirstDayOfWeek.Sunday)

        End If

    End Sub

End Class