LATIHAN 04

Deskripsi latihan_04_36110043

Pada latihan ini Terdapat empat object yaitu Label, Textbox, Button, dan DateTimePicker:
1.    Object Label
Terdapat enam label (yang bertuliskan nama saya, tanggal lahir, tanggal kelahiran, bulan kelahiran, tahun kelahiran dan hari kelahiran)

2.    Object TextBox
Terdapat lima textbox (status input), yaitu :nama saya, tanggal kelahiran, bulan kelahiran, tahun kelahiran, hari kelahiran.
3.    Object Button
Terdapat satu object button. Tombol Analisa digunakan untuk menampilkan hasil analisa DateTimepicker.

Rumus Analisa :

• tanggal kelahiran merupakan hasil analisa  DateTimepicker yaitu hanya nilai tanggalnya
• bulan kelahiran merupakan hasil analisa  DateTimepicker yaitu hanya nilai bulannya
• tahun kelahiran merupakan hasil analisa  DateTimepicker yaitu hanya nilai tahunnya
• hari kelahiran merupakan hasil analisa DateTimepicker yaitu hanya nilai harinya yang di conver menjadi nama hari

4.    Object DateTimePicker
Terdapat satu object DateTimePicker yang digunakan untuk menampilkan date.

     Script Unique
Menganalisa DateTimePicker yang hasilnya akan ditampilkan pada TextBox tertentu.

 Fungsi yang digunakan: dayofweek

   If tgl36110043.Value.DayOfWeek Then

            tanggal36110043.Text = tgl36110043.Value.Date

            bln36110043.Text = tgl36110043.Value.Month

            thn36110043.Text = tgl36110043.Value.Year

            hari36110043.Text = WeekdayName(Weekday(tgl36110043.Value.Date), False, FirstDayOfWeek.Sunday)

     Even
ANALISA_36110043_Click

     Property
Property Textbox => ReadOnly =  True

lamgkah-langkah  latihan_04_36110043  

1. Click icon "Add new Item" 

  

    2.   Pada kolom Categories dan Templates pilih Windows Form, isi kolom name dengan
          Latihan_04_36110043.vb kemudian klik add.

    3.   Akan muncul tampilan awal Design Form

    4.   Dibawah ini adalah Form yang akan kita buat

5.   Gunakan Object Label, TextBox, Button dan DateTimepicker

6.   Beri nama setiap Object kecuali Label

Nama Object TextBox :

Nama saya = NAMA36110043

Tanggal Kelahiran = TANGGAL36110043

Bulan kelahiran = BLN36110043

Tahun kelahiran = THN36110043

Hari kelahran = HARI36110043

Nama Object Button : analisa = ANALISA36110043

Nama Object DateTimepicker : Tanggal lahir=TGL36110043

7.  Setelah selesai design Fomnya selanjutnya Buat SRIPNTYA

8.  SRIPTNYA  adalah

Public Class LATIHAN_04_36110043

    Private Sub analisa_Click(ByVal sender As System.Object, ByVal eAs System.EventArgs) Handles analisa.Click

        If tgl36110043.Value.DayOfWeek Then

            tanggal36110043.Text = tgl36110043.Value.Date

            bln36110043.Text = tgl36110043.Value.Month

           thn36110043.Text = tgl36110043.Value.Year

            hari36110043.Text = WeekdayName(Weekday(tgl36110043.Value.Date), False, FirstDayOfWeek.Sunday)

        Else

            hari36110043.Text = "minggu"

        End If

     End Sub

    Private Sub LATIHAN_04_36110043_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    End Class

Terakhir save dan untuk memulai klik debug..