Latihan_05_46110001

   A.    Object-object yang terdapat pada Latihan_05_46110001:

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, sedangkan status readonly digunakan untuk menampilkan Tanggal Kelahiran, Bulan Kelahiran, Tahun Kelahiran, dan Hari Kelahiran.dari kolom  tanggal lahir yang telah diisi pada datetimepicker

3)        Object Button

Pada form ini Terdapat dua object button yaitu Analizing dan Close. Button Analizing digunakan untuk menampilkan hasil analisa di object TextBox ReadOnly. Sedangkan button Close digunakan untuk mengosongkan kembali semua TextBox yang telah terisi.

4)        Object DateTimePicker

Pada form latihan ini Terdapat satu objek datetimepicker. Digunakan untuk menentukan tanggal yang akan ditampilkan sehingga muncul bintang yang sesuai dengan tanggal yang telah diisi pada pada datetimepicker /TextBox ReadOnly.

    B.     Script Unique

Untuk button Analizing:

Private Sub Analisa_46110001_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Analisa_46110001.Click

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

            bintang_46110001.Text = "CAPRICORN"

            ramalan_46110001.Text = "Peruntungan : yakini intuisi yang timbul dari hati anda yang sangat didalam. Dengan kata lain feeling akan memegang fungsi didalam keberhasilan anda di hari ini. Usaha serta karir : banyak celah yang dapat dimanfaakan, karenanya pandai-pandai mengambil hati atasan. Kesehatan : keadaan badan serta pikiran anda terlihat bagus serta tidak butuh di kuatirkan. Pertahankan keadaan yang bagus ini dengan senantiasa lakukan olahraga teratur tiap-tiap pagi. Finansial : pemasukan nyatanya tidak sebesar layaknya yang anda pikirkan karenanya jauhi pemborosan. Percintaan : bertuturkatalah yang halus serta tanpa nada yang kasar lantaran akan dapat kurangi ketegangan yang kerapkali nampak apabila ada perbedaan pendapat."

        ElseIf

      

Untuk button Close:

Nama_46110001.Text = ""

        bintang_46110001.Text = ""

        ramalan_46110001.Text = ""

   C.     Even

Analisa_46110001.Click

close_46110001_Click

   D.    Property

Property TextBox ==> ReadOnly

Property TextBox ==> TextBox Tasks=MultiLine

   E.  Langkah-langkah menjalankan program 

                      1. Masukkan/isi data pada kolom texbox yang berada disampig label " Nama Saya".

     2. Langkah selanjutnya adalah Klik atau pilih tanggal sesuai tanggal kelahiran anda  

 

            3. untuk melihat hasil analisa, klik button Annalizing. maka akan muncul Bintang dan isi pada texbox readonly ukuran besar seperti berikut ini

 

        4.  untuk menutup jendela form,/ mengosongkan isi texbox maka tekan close disudut kanan