KUMPULAN TUGAS : Latihan_05

Deskripsi penyelesaian

Form Latihan_05_36110034 terdapat tiga object yaitu Label, Textbox, dan Button:

Object Label

Terdapat tiga label : (name ; date of birth ; bintang )

Object Text Box

Terdapat tiga textbox dan semuanya berstatus input. Status input digunakan untuk memasukkan nilai .

Status input (nama saya ; tanggal kelahiran ; bulan kelahiran ; tahun kelahiran ; hari kehiran ).

Object datetimepicker.

terdapat satu datetimepicker (date of birth) yang befungsi memperlihatkan hari, tanggal , bulan serta tahun sama halnya dengan kalender.

Object Button

Terdapat dua object button (analizing dan close). Tombol analizing digunakan untuk menampilkan data tentang bintang dan penjelasan sesuai dengan tanggal kelahiran yang di input . sedangkan tombol close untuk mengkosongkan data pada textbox.

Script Unique

Buttom "analizing"

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

BIN_36110034.Text = "CAPRICORN"

teks_36110034.Text = "GAK KENAPA-KENAPA"

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

BIN_36110034.Text = "AQUARIUS"

teks_36110034.Text = "SUKA MINUM AIR"

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

BIN_36110034.Text = "PISCES"

teks_36110034.Text = "SUKA MARAH-MARAH"

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

BIN_36110034.Text = "ARIES"

teks_36110034.Text = "DOYAN NYANYI"

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

BIN_36110034.Text = "TAURUS"

teks_36110034.Text = "MAU DI URUS"

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

BIN_36110034.Text = "GEMINI"

teks_36110034.Text = "MAUNYA LEBIH"

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

BIN_36110034.Text = "CANCER"

teks_36110034.Text = "ADA AJAH"

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

BIN_36110034.Text = "LEO"

teks_36110034.Text = "SUKA MERAUM"

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

BIN_36110034.Text = "VIRGO"

teks_36110034.Text = "SEHAT-SEHAT SAJA"

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

BIN_36110034.Text = "LIBRA"

teks_36110034.Text = "KURANG KERJAAN"

ElseIf DT_36110034.Value.Day >= 23 And DT_36110034.Value.Month = 10 Or DT_36110034.Value.Day <= 21 And DT_36110034.Value.Month = 11 Then

BIN_36110034.Text = "SCORPIO"

teks_36110034.Text = "KURANG MAKAN"

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

BIN_36110034.Text = "SAGITARIUS"

teks_36110034.Text = "CANTIK DEH"

Even

ANAL_36110034_Clik

Property

Property TextBox ==> ReadOnly=True

Prosedur penyelesaian

1. buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

2. membuat form dengan menggunakan Label, Textbox, dan Button yang ada dalam "Toolbox”.

3. ganti nama textbox dan button menggunakan "Properties Window".

4. Klik 2x pada kotak design untuk membuka lembar vb
Masukkan rumus berikut untuk menyelesaikan latihan_05_36110034.

Public Class latihan_05_36110034

Private Sub ANAL_36110034_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANAL_36110034.Click