Latihan_05_46110037

Deskripsi Form Latihan 05

Pada latihan 05 terdapat empat objek yaitu Label, Textbox, Button dan DateTimePicker

Object Label

Ada  tiga Object Label yaitu Name; Date Of Birth dan Bintang

Object TextBox

Terdapat satu Textbox yang berstatus input yaitu  Name dan dua textbox berstatus ReadOnly yaitu Bintang dan Penjelasan bintang tersebut

Object Button

Hanya Terdapat dua button yaitu Tombol Analizing dan Tombol Close

Object DateTimePicker

Object DateTimePicker  adalah Date Of Birth

Script Unique

*Menganalisi DateTimepicker

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

            ZODIAK46110037.Text = "Capricorn"

            PENJELASAN46110037.Text = "gag kenapa-kenapa"

Maksud dari script ini adalah jangka waktu antara tanggal 22 bulan Desember sampai dengan tanggal 19 bulan januari adalah berzodiak Capricorn dan penjelasan dari bintang tersebut adalah “gag kenapa-kenapa”

* Untuk menutup Form yang sedang dijalankan

   Close ()

Even

ButtonClick

Property 

Property TextBox =>ReadOnly= True; Multiline=True

Langkah-Langkah Penyelesaian

• Buka project yang telan dibuat.
• Buat form baru, caranya click Project pada Toolbar pilih Add Windows Form kemudian ketik nama form yang diinginkan lalu click Add
• Buat desain form seperti gambar di atas dengan menggunakan Label, Textbox. Button dan DateTimePicker.
• Ganti nama Button, Textbox dan DateTimePicker di properties-Name
• Ganti status Textbox menjadi ReadOnly di properties lalu pilih ReadOnly True
• Click dua kali tombol Analizing, akan muncul jendela tempat mengetik script. kemudian ketiklah scriptnya:

        If LAHIR46110037.Value.Day >= 22 And LAHIR46110037.Value.Month = 12 Or LAHIR46110037.Value.Day <= 19 And LAHIR46110037.Value.Month = 1 Then
            ZODIAK46110037.Text = "Capricorn"
            PENJELASAN46110037.Text = "gag kenapa-kenapa"
        ElseIf LAHIR46110037.Value.Day >= 20 And LAHIR46110037.Value.Month = 1 Or LAHIR46110037.Value.Day <= 18 And LAHIR46110037.Value.Month = 2 Then
            ZODIAK46110037.Text = "Aquarius"
            PENJELASAN46110037.Text = "suka minum air"
        ElseIf LAHIR46110037.Value.Day >= 19 And LAHIR46110037.Value.Month = 2 Or LAHIR46110037.Value.Day <= 20 And LAHIR46110037.Value.Month = 3 Then
            ZODIAK46110037.Text = "Pisces"
            PENJELASAN46110037.Text = "suka marah2"
        ElseIf LAHIR46110037.Value.Day >= 21 And LAHIR46110037.Value.Month = 3 Or LAHIR46110037.Value.Day <= 20 And LAHIR46110037.Value.Month = 4 Then
            ZODIAK46110037.Text = "Aries"
            PENJELASAN46110037.Text = "doyan nyanyi"
        ElseIf LAHIR46110037.Value.Day >= 21 And LAHIR46110037.Value.Month = 4 Or LAHIR46110037.Value.Day <= 20 And LAHIR46110037.Value.Month = 5 Then
            ZODIAK46110037.Text = "Taurus"
            PENJELASAN46110037.Text = "Seorang Zodiak taurus selalu mengetahui apa yang diinginkan dari hidup ini, dan orang yang berzodiak ini bekerja keras untuk mencapainya. Kadang-kadang orang akan merasa heran melihat zodiak taurus yang terus maju tanpa memperdulikan hambatan apa pun juga yang terbentang di hadapannya. Orang yang berzodiak ini tampak pendiam dan mengucapkan kata-kata dengan suara lemah. Kebanyakan orang Zodiak taurus tampak lamban dan hati-hati. Namun satu kali orang yang berzodiak ini marah, maka sulit bagi orang untuk menahannya."
        ElseIf LAHIR46110037.Value.Day >= 21 And LAHIR46110037.Value.Month = 5 Or LAHIR46110037.Value.Day <= 20 And LAHIR46110037.Value.Month = 6 Then
            ZODIAK46110037.Text = "Gemini"
            PENJELASAN46110037.Text = "Maunya Lebih"
        ElseIf LAHIR46110037.Value.Day >= 21 And LAHIR46110037.Value.Month = 6 Or LAHIR46110037.Value.Day <= 22 And LAHIR46110037.Value.Month = 7 Then
            ZODIAK46110037.Text = "Cancer"
            PENJELASAN46110037.Text = "addda' ajaa, mau tau aja :p"
        ElseIf LAHIR46110037.Value.Day >= 23 And LAHIR46110037.Value.Month = 7 Or LAHIR46110037.Value.Day <= 22 And LAHIR46110037.Value.Month = 8 Then
            ZODIAK46110037.Text = "Leo"
            PENJELASAN46110037.Text = "Suka Meraung, dan sejenis merek keripik kentang asli :D"
        ElseIf LAHIR46110037.Value.Day >= 23 And LAHIR46110037.Value.Month = 8 Or LAHIR46110037.Value.Day <= 23 And LAHIR46110037.Value.Month = 9 Then
            ZODIAK46110037.Text = "Virgo"
            PENJELASAN46110037.Text = "Sehat-sehat aja"
        ElseIf LAHIR46110037.Value.Day >= 24 And LAHIR46110037.Value.Month = 9 Or LAHIR46110037.Value.Day <= 23 And LAHIR46110037.Value.Month = 10 Then
            ZODIAK46110037.Text = "Libra"
            PENJELASAN46110037.Text = "Kurang Kerjaan"
        ElseIf LAHIR46110037.Value.Day >= 24 And LAHIR46110037.Value.Month = 10 Or LAHIR46110037.Value.Day <= 21 And LAHIR46110037.Value.Month = 11 Then
            ZODIAK46110037.Text = "scorpio"
            PENJELASAN46110037.Text = "Kurang makan"
        ElseIf LAHIR46110037.Value.Day >= 22 And LAHIR46110037.Value.Month = 11 Or LAHIR46110037.Value.Day <= 21 And LAHIR46110037.Value.Month = 12 Then
            ZODIAK46110037.Text = "Sagitarius"
            PENJELASAN46110037.Text = "sangat serius hahah"
       
        End If

• Setelah melakukan langkah di atas, kembali ke form Design, kemudian click dua kali tombol Close. maka tempat mengetik script akan muncul kemudian ketik:

         Close ( )  ; Script ini adalah perintah untuk menutup form yang sedang dijalankan

• setelah itu click start debugging untuk menjalankan form.