latihan_5_36110052

Latihan_05_36110048

A.    Object-object dalam Latihan_5_36110052 :

1.      Object Label

Terdapat tiga label (yang bertuliskan nama, date of birth, 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 tanggal kelahiran, bulan kelahiran, tahun kelahiran, dan 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_36110052.Value.Day >= 22 And DATE_36110052.Value.Month = 12 Or        DATE_36110052.Value.Day <= 19 And DATE_36110052.Value.Month = 1 Then

     BINTANG_36110052.Text = "CAPRICORN"

     HASIL_36110052.Text = "TIDAK KENAPA-KENAPA"

    

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

     BINTANG_36110052.Text = "AQUARIUS"

     HASIL_36110052.Text = "SUKA MINUM AIR"

    

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

      BINTANG_36110052.Text = "PISCES"

      HASIL_36110052.Text = "SUKA MARAH"

       

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

     BINTANG_36110052.Text = "ARIES"

  HASIL_36110052.Text = "DOYAN NYANYI"

Untuk button Close:

    NAMA_36110052.Text = ""

    BINTANG_36110052.Text = ""

 HASIL_36110052.Text = ""

C.     Even

ANALISA_36110052_Click

CLOSE_36110052_Click

D.    Property

Property TextBox ==> ReadOnly=True

Property TextBox ==> TextBox Tasks=MultiLine

Langkah-langkah latihan_5_36110052

1.       Buat new windows form dengan cara ketik project àadd windows form  pada project yang telah dibuat dan berikan nama form yang diinginkan

Contoh: latihan_5_36110052

2.       Design form dengan menggunakan tools pada toolbox

3.       Buat text pada form dengan menggunakan label, al:

a.       “Nama”

b.      “Date of birth”

c.       “Bintang”

4. Buat tiga textbox (satu status input; duat status read only). Ketiga textbox tersebut saya namakan:

Nama_36110052

Bintang_36110052

Hasil_36110052         

5. Buat dua object button (Analisa dan Close)

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

7.Setelah selesai form, masuk ke lembar Vb dan masukkan scipt

8.Uji  program dengan mengklik “Start Debbuging” dan save program dengan mengklik “Save”.

9.Selesai