Deskripsi dan Prosedur Latihan_05_36110039

     Deskripsi Form Latihan_05_36110039

Terdapat empat object yaitu label, textbox, button, dan DateTimePicker:

1.    Object Label
Terdapat tiga label (yang bertuliskan name; date of birth; bintang)

2.    Object TextBox
Terdapat tiga TextBox (satu status input, dua status ReadOnly). Status input digunakan untuk memasukkan nama saya. Status ReadOnly digunakan untuk menampilkan hasil analisa DateTimepicker.

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 object DateTimePicker yang digunakan untuk menentukan tanggal yang akan ditampilkan bintang penjelasannya pada TextBox ReadOnly.


     Script Unique
Menganalisa DateTimePicker yang hasilnya akan ditampilkan pada TextBox tertentu.
If DTP_36110039.Value.Day >= 22 And DTP_36110039.Value.Month = 12 Or DTP_36110039.Value.Day <= 19 And DTP_36110039.Value.Month = 1 Then
            Bintang_36110039.Text = "Capricorn"
            Catt_36110039.Text = "Tidak kenapa-kenapa"
        ElseIf DTP_36110039.Value.Day >= 20 And DTP_36110039.Value.Month = 1 Or DTP_36110039.Value.Day <= 18 And DTP_36110039.Value.Month = 2 Then
            Bintang_36110039.Text = "Aquarius"
            Catt_36110039.Text = "Suka minum air"

Mengosongkan nilai Textbox
nama_36110039.Text = ""

     Even
Analize_36110039_Click
close_36110039_Click

     Property
Property TextBox ==> ReadOnly=True
Property TextBox ==> TextBox Tasks=MultiLine

Prosedur menjalankan Latihan_05_36110039:

1.    Klik icon Add New Item.
      
2.    Pada kolom Categories dan Templates klik Windows Forms, isi kolom name dengan Latihan_05_36110039.vb,  kemudian pilih add.
      

3.    Kemudian pilih object Label dan buat sebanyak 3. Pada properti text masing-masing label, isilah kalimat berikut: name, date of birth, dan bintang.


4.    Kemudian pilih object Button dan buat sebanyak 2. Isi properti text masing-masing menjadi Analizing dan close, lalu properti name menjadi nama yang anda inginkan dan nomor stambuk pada akhir nama tersebut.


5.    Kemudian pilih object Textbox dan buat sebanyak 3 (satu berstatus input, satu berstatus Readonly True, dan satu Multiline diatur menjadi True, ReadOnly diatur menjadi True) dan (Name) diisi sesuai nama yang anda inginkan dan nomor stambuk anda pada akhir nama tersebut.

6.    Kemudian pilih object DateTimePicker. Letakkan sejajar dengan label Date of Birth.

7.    Setelah perintah diatas dilakukan maka jadilah seperti kolom dibawah ini:
       
8.    Klik 2x Analizing sehingga muncul perintah berikutnya dan masukkan rumus, contohnya seperti ini:
Private Sub Analize_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Analize_36110039.Click
        If DTP_36110039.Value.Day >= 22 And DTP_36110039.Value.Month = 12 Or DTP_36110039.Value.Day <= 19 And DTP_36110039.Value.Month = 1 Then
            Bintang_36110039.Text = "Capricorn"
            Catt_36110039.Text = "Tidak kenapa-kenapa"
        ElseIf DTP_36110039.Value.Day >= 20 And DTP_36110039.Value.Month = 1 Or DTP_36110039.Value.Day <= 18 And DTP_36110039.Value.Month = 2 Then
            Bintang_36110039.Text = "Aquarius"
            Catt_36110039.Text = "Suka minum air"
        ElseIf DTP_36110039.Value.Day >= 19 And DTP_36110039.Value.Month = 2 Or DTP_36110039.Value.Day <= 20 And DTP_36110039.Value.Month = 3 Then
            Bintang_36110039.Text = "pisces"
            Catt_36110039.Text = "Suka marah"
        ElseIf DTP_36110039.Value.Day >= 21 And DTP_36110039.Value.Month = 3 Or DTP_36110039.Value.Day <= 20 And DTP_36110039.Value.Month = 4 Then
            Bintang_36110039.Text = "Aries"
            Catt_36110039.Text = "Doyan Nyanyi"
        ElseIf DTP_36110039.Value.Day >= 21 And DTP_36110039.Value.Month = 4 Or DTP_36110039.Value.Day <= 20 And DTP_36110039.Value.Month = 5 Then
            Bintang_36110039.Text = "Taurus"
            Catt_36110039.Text = "Tak mau diurus"
        ElseIf DTP_36110039.Value.Day >= 21 And DTP_36110039.Value.Month = 5 Or DTP_36110039.Value.Day <= 20 And DTP_36110039.Value.Month = 6 Then
            Bintang_36110039.Text = "Gemini"
            Catt_36110039.Text = "Maunya lebih"
        ElseIf DTP_36110039.Value.Day >= 21 And DTP_36110039.Value.Month = 6 Or DTP_36110039.Value.Day <= 22 And DTP_36110039.Value.Month = 7 Then
            Bintang_36110039.Text = "Cancer"
            Catt_36110039.Text = "Ada aja"
        ElseIf DTP_36110039.Value.Day >= 23 And DTP_36110039.Value.Month = 7 Or DTP_36110039.Value.Day <= 22 And DTP_36110039.Value.Month = 8 Then
            Bintang_36110039.Text = "Leo"
            Catt_36110039.Text = "Suka meraung"
        ElseIf DTP_36110039.Value.Day >= 23 And DTP_36110039.Value.Month = 8 Or DTP_36110039.Value.Day <= 23 And DTP_36110039.Value.Month = 9 Then
            Bintang_36110039.Text = "Virgo"
            Catt_36110039.Text = "Sehat-sehat saja"
        ElseIf DTP_36110039.Value.Day >= 24 And DTP_36110039.Value.Month = 9 Or DTP_36110039.Value.Day <= 23 And DTP_36110039.Value.Month = 10 Then
            Bintang_36110039.Text = "Libra"
            Catt_36110039.Text = "Kurang kerjaan"
        ElseIf DTP_36110039.Value.Day >= 24 And DTP_36110039.Value.Month = 10 Or DTP_36110039.Value.Day <= 21 And DTP_36110039.Value.Month = 11 Then
            Bintang_36110039.Text = "Scorpio"
            Catt_36110039.Text = "Kurang kerjaan"
        ElseIf DTP_36110039.Value.Day >= 22 And DTP_36110039.Value.Month = 11 Or DTP_36110039.Value.Day <= 21 And DTP_36110039.Value.Month = 12 Then
            Bintang_36110039.Text = "Sagitarius"
            Catt_36110039.Text = "Cantik deh"

        End If
    End Sub

9.    Klik 2x Close sehingga muncul perintah berikutnya dan masukkan rumus, contohnya seperti ini:
Private Sub close_36110039_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close_36110039.Click
        nama_36110039.Text = ""
        Bintang_36110039.Text = ""
        Catt_36110039.Text = ""
 End Sub


10.    Klik menu Project pilih Kumpulan_Latihan_05_36110039. Pada Startup Form pilih Latihan_05_36110039 lalu close.




11.    Untuk melihat apakah program yang anda telah buat sudah benar atau belum tepat maka klik icon Start Debugging dan isi kolom yang perlu diisi dan klik tombol Analisa untuk mengetahui fungsi dan hasilnya.