Nur Rahmah: LATIHAN_05

Deskripsi Latihan_05_36110042

A. Object-object dalam Latihan_05_36110042 :

1. Object Label

Terdapat tiga label yang bertuliskan:

a. Nama

b. Date of birth

c. Bintang

2. Object Textbox

Terdapat tiga textbox (satu status input; duat status read only). Status input digunakan untuk memasukkan nama saya. Status Read Only digunakan untuk menampilkan hasil analisa:

a. Tanggal Kelahiran

b. Bulan Kelahiran

c. Tahun Kelahiran

d. Hari Kelahiran.

3. Object Button

Terdapat dua object button (Analizing dan Close). Button Analisa digunakan untuk menampilkan hasil analisa di object TextBox ReadOnly. Sedangkan button Close digunakan untuk mengosongkan kembali semua TextBox.

4. Object DateTimePicker

Terdapat satu objek datetimepicker. Digunakan untuk menentukan tanggal yang akan ditampilkan bintang penjelasannya pada TextBox ReadOnly.

B. Script Unique

Untuk button Analizing:

If DATE_36110042.Value.Day >= 22 And DATE_36110042.Value.Month = 12 Or DATE_36110042.Value.Day <= 19 And DATE_36110042.Value.Month = 1 Then

BINTANG_36110042.Text = "Capricorn"

URAIAN_36110042.Text = " Gak Kenapa - kenapa"

ElseIf DATE_36110042.Value.Day >= 20 And DATE_36110042.Value.Month = 1 Or DATE_36110042.Value.Day <= 18 And DATE_36110042.Value.Month = 2 Then

BINTANG_36110042.Text = "Aquarium"

URAIAN_36110042.Text = " Suka Minum Air"

ElseIf DATE_36110042.Value.Day >= 19 And DATE_36110042.Value.Month = 2 Or DATE_36110042.Value.Day <= 20 And DATE_36110042.Value.Month = 3 Then

BINTANG_36110042.Text = "Pisces"

URAIAN_36110042.Text = " Suka Marah-marah"

ElseIf DATE_36110042.Value.Day >= 21 And DATE_36110042.Value.Month = 3 Or DATE_36110042.Value.Day <= 20 And DATE_36110042.Value.Month = 4 Then

BINTANG_36110042.Text = "Aries"

URAIAN_36110042.Text = "Doyan Nyanyi"

ElseIf DATE_36110042.Value.Day >= 21 And DATE_36110042.Value.Month = 4 Or DATE_36110042.Value.Day <= 20 And DATE_36110042.Value.Month = 5 Then

BINTANG_36110042.Text = "Taurus"

URAIAN_36110042.Text = "Tak Mau Diurus"

ElseIf DATE_36110042.Value.Day >= 21 And DATE_36110042.Value.Month = 5 Or DATE_36110042.Value.Day <= 20 And DATE_36110042.Value.Month = 6 Then

BINTANG_36110042.Text = "Gemini"

URAIAN_36110042.Text = "Maunya lebih"

ElseIf DATE_36110042.Value.Day >= 21 And DATE_36110042.Value.Month = 6 Or DATE_36110042.Value.Day <= 22 And DATE_36110042.Value.Month = 7 Then

BINTANG_36110042.Text = "Cancer"

URAIAN_36110042.Text = "Ada Aja"

ElseIf DATE_36110042.Value.Day >= 23 And DATE_36110042.Value.Month = 7 Or DATE_36110042.Value.Day <= 22 And DATE_36110042.Value.Month = 8 Then

BINTANG_36110042.Text = "Leo"

URAIAN_36110042.Text = "Suka Ngeraung"

ElseIf DATE_36110042.Value.Day >= 23 And DATE_36110042.Value.Month = 8 Or DATE_36110042.Value.Day <= 23 And DATE_36110042.Value.Month = 9 Then

BINTANG_36110042.Text = "Virgo"

URAIAN_36110042.Text = "Sehat-sehat saja"

ElseIf DATE_36110042.Value.Day >= 24 And DATE_36110042.Value.Month = 9 Or DATE_36110042.Value.Day <= 23 And DATE_36110042.Value.Month = 10 Then

BINTANG_36110042.Text = "Libra"

URAIAN_36110042.Text = "Kurang Kerjaan"

ElseIf DATE_36110042.Value.Day >= 22 And DATE_36110042.Value.Month = 10 Or DATE_36110042.Value.Day <= 21 And DATE_36110042.Value.Month = 11 Then

BINTANG_36110042.Text = "Scorpio"

URAIAN_36110042.Text = "Kurang Makan"

ElseIf DATE_36110042.Value.Day >= 22 And DATE_36110042.Value.Month = 11 Or DATE_36110042.Value.Day <= 21 And DATE_36110042.Value.Month = 12 Then

BINTANG_36110042.Text = "Sagitarius"

URAIAN_36110042.Text = "Cantik deh"

End If

Untuk button Close:

Nama_36110042.Text = ""

DATE_36110042.Text = ""

BINTANG_36110042.Text = ""

URAIAN_36110042.Text = ""

C. Even

ANALIZING_36110042_Click

CLOSE_36110042_Click

D. Property

Property TextBox è ReadOnly = True

Property TextBox è TextBox Tasks = MultiLine

Langkah-langkah mengerjakan LATIHAN 05

1. Klik icon Add New Item pada project yang aktif.

2. Lalu, pada kotak dialog Add New Item pilih Windows Form dan beri nama Latihan_05_36110042 seperti gambar di bawah ini.

3. Klik Add, maka pada Solution Explorer akan muncul Latihan_05_36110042.

4. Lalu buat form seperi pada gambar di bawah ini

1. Berikut ini rumus untuk menjalankan form di atas

Public Class Latihan_05_36110042

Private Sub CLOSE_36110042_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CLOSE_36110042.Click