Latihan_04_46110043

Form Description

Pada Latihan_04 ini kita dapat menemukan 4 OBJECT yang digunakan, yaitu (lihat gambar dibawah) :

object LABEL--> Pada gambar diatas dapat kita lihat bahwa terdapat 6 buah laber yang masing-masing bertuliskan Nama saya, Tanggal Lahir, Bulan Kelahiran, Tahun Kelahiran dan Hari Kelahiran.

object BUTTON--> Pada gambar diatas kita dapat menemukan satu object BUTTON yang bertuliskan ANALISA. Object button ini berfungsi untuk menampilkan data yang terdapat dalam object TEXTBOX ReadOnly. Formula/rumus yang digunakan pada button tersebut yaitu :

*  Tanggal Kelahiran dianalisa melalui fungsi Value.Day

 * Bulan Kelahiran dianalisa melalui fungsi Value.Month

 * Tahun Kelahiran dianalisa melalui fungsi Value.Year

*  Hari Kelahiran dianalisa melalui fungsi Value.DayOfWeek

Object TEXTBOX--> Pada gambar diatas dapat kita lihat terdapat 5 buah TEXTBOX. 1 buah textbox  statusinput) yang digunakan untuk menampilkan NAMA SAYA. Sedangkan ke 4 lainnya (ReadOnly) digunakan untuk menampilkan Bulan, tanggal, tahun dan hari lahir dari hasil analisa.

object DATETIMEPICKER --> Pada gambar diatas terdapat 1 buat date time picker yang digunakan untuk menginput tanggal, bulan serta tahun yang ingin dianalisa.

Langkah-langkah penyelesaian :

1. Input data dan nama yang ingin dianalisa pada textbox (status input) 

2. Input tanggal lahir yang ingin dianalisa pada object DateTimePicker (sesuaikan tanggal, bulan dan tahunnya)

3. Klik Object Button yang bertuliskan Analisa maka hasil analisa tanggal, bulan, tahun dan hari lahir akan muncul pada textbox (ReadOnly)

Script Unique

* Tanggal46110043.Text = lahir46110043.Value.Day

(untuk menampilkan hasil analisa Tanggal Kelahiran dari DateTimePicker.

* Bulan46110043.Text = lahir46110043.Value.Month

(untuk menampilkan hasil analisa Bulan Kelahiran dari DateTimePicker.

* Tahun46110043.Text = lahir46110043.Value.Year

(untuk menampilkan hasil analisa Tahun Kelahiran dari DateTimePicker.

* Hari46110043.Text = lahir46110043.Value.DayOfWeek

        If lahir46110043.Value.DayOfWeek = 0 Then

            Hari46110043.Text = "MINGGU"

(untuk menampilkan hasil analisa Hari Kelahiran dari DateTimePicker.

Even

ButtonClick

Property

Property TextBox --> ReadOnly=True

.