Latihan_05_46110002

Form Latihan 05 Terdapat empat object yaitu label, textbox, datetimepicker dan button

Object Label

Terdapat tiga label (yang bertuliskan Nama Saya, Tanggal Lahir, dan Bintang)

Object Text Box

Terdapat Tiga textbox (1 status input; 2 status read only). Status input digunakan untuk memasukkan data.  

Status Read Only digunakan untuk menampilkan hasil dari fungsi yang telah di kerja.

Object Datetimepicker

Object datetimepicker ada 1, untuk mengubah tanggal yang terdapat pada date time picker kita hanya perlu mengklik dan memilih tanggalnya.

Object Button

Terdapat dua object button (Analizing dan Close). Tombol Analisa digunakan untuk menampilkan hasil fungsi di object TextBox ReadOnly. Rumus perhitungannya adalah:

1. Pada Textbox readonly yang sejajar dengan kolom bintang, akan terisi zodiak sesuai dengan tanggal yang dimasukkan di datetime picker
2. Pada Textbox readonly yang Besar, akan berisi penjelasan  mengenai zodiak sesuai dengan  tanggal yang dimasukkan di datetime picker

Tombol close, digunakan untuk menutup layar atau menghapus tampilan form yang ada

Langkah untuk menjalankan form ini :

1. Input data yang berada disamping kata " Nama Saya".
2. Klik dan pilih tanggal lahir anda/sesuai dengan keinginan
3. Untuk melihat hasil analisa, klik button Analizing
4. Semua penjelasan tentang karakter anda akan muncul pada kolom read only besar.
5. Untuk menutup jendela form/menghapus, tekan close. Maka jendela akan kosong.

Script Unique

Membaca nilai TextBox Lain dan Menempatkan nilai pada TextBox tertentu

1.      DATE46110002.Value.Day > 20 And DATE46110002.Value.Month = 12 Or DATE46110002.Value.Day < 20 And DATE46110002.Value.Month = 1 Then

      BN46110002.Text = "CAPRICORN"

      URAIAN46110002.Text = ",,,script ini digunakan sebagai syarat. contohnya script diatas, syaratnya ialah apabila tanggal 21 keatas dan berada pada bulan ke 12 dan tanggal 19 kebawah pada bulan 1 maka bintangnya adala “------“ dan uraian dari bintangnya adalah “-------“

Even :

ButtonClick

Property

Property TextBox ==> ReadOnly=True

Property TextBox ==> Multiline=True