Latihan_04_46110037

Deskripsi Form Latihan 04
Pada latihan 04 terdapat empat objek yaitu Label, Textbox, Button dan DateTimePicker

Object Label 

Ada enam Object Label yaitu Nama Saya; Tanggal Lahir; Tanggal Kelahiran; Bulan Kelahiran; Tahun Kelahiran; dan Hari Kelahiran.
Object TextBox
Terdapat satu Textbox yang berstatus input yaitu  Nama Saya, sedangkan empat textbox yaitu  Tanggal Kelahiran; Bulan Kelahiran; Tahun Kelahiran; dan Hari Kelahiran adalah textbox yang berstatus ReadOnly

Object Button

Hanya Terdapat Tombol Analisa yang ketika di Clik akan muncul analisa dari  Tanggal Lahir

Object  DateTimePicker

Object DateTimePicker  adalah Tanggal Lahir

Script Unique

TGLKELL46110037.Text = LAHIR46110037.Value.Day

Script ini digunakan untuk menganalisa Tanggal yang di input dalam DateTimePicker 

untuk menganalisa bulan, tahun dan nama hari caranya sama hanya bagian belakang script yang berbeda (Month untuk menganalisa Bulan, Year Untuk Mangalisa Tahun, dayOfWeek untuk menganalisa nama hari)

Fungsi Dayofweek

If LAHIR46110037.Value.DayOfWeek = 0 Then

            HARIKEL46110037.Text = "MINGGU"

Else If LAHIR46110037.Value.DayOfWeek = 1 Then

            HARIKEL46110037.Text = "SENIN"

Dan seterusnya sampai hari Sabtu. Script ini digunakan untuk menganalisa nama hari dari data yang diinput dalam DateTimePicker 

Even

ButtonClick
Property
Property TextBox=> ReadOnly = True

Langkah-langkah menyelesaikan Form

• Buka project yang telan dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan Label, Textbox. Button dan DateTimePicker.
• Ganti nama Button, Textbox dan DateTimePicker di properties-Name
• Ganti status Textbox menjadi ReadOnly di properties lalu pilih ReadOnly True
• Yang Diinginkan Form ini adalah ketika tombol analisa di Click maka analisis terhadap tanggal lahir akan muncul, oleh karena itu, script di ketik pada Button Analisa. caranya Click dua kali maka akan muncul tempat mengetik script. ketiklah rumusnya seperti: 

      TGLKELL46110037.Text = LAHIR46110037.Value.Day
             BULANKEL46110037.Text = LAHIR46110037.Value.Month
             TAHUNKEL46110037.Text = LAHIR46110037.Value.Year
             HARIKEL46110037.Text = LAHIR46110037.Value.DayOfWeek
             If LAHIR46110037.Value.DayOfWeek = 0 Then
                         HARIKEL46110037.Text = "MINGGU"
             ElseIf LAHIR46110037.Value.DayOfWeek = 1 Then
                        HARIKEL46110037.Text = "SENIN"
             ElseIf LAHIR46110037.Value.DayOfWeek = 2 Then
                        HARIKEL46110037.Text = "SELASA"
             ElseIf LAHIR46110037.Value.DayOfWeek = 3 Then
                       HARIKEL46110037.Text = "RABU"
             ElseIf LAHIR46110037.Value.DayOfWeek = 4 Then
                      HARIKEL46110037.Text = "KAMIS"
             ElseIf LAHIR46110037.Value.DayOfWeek = 5 Then
                      HARIKEL46110037.Text = "JUMAT"
             ElseIf LAHIR46110037.Value.DayOfWeek = 6 Then
                     HARIKEL46110037.Text = "SABTU"
             End If

• setelah itu click start debugging untuk menjalankan form. Jika dalam mengetik rumus terdapat garis geriting di bawah text yang diketik itu artinya ada masalah sehingga tidak bisa menjalankan form.