Latihan_05_36110056

Deskripsi Latihan_05 :

Form Latihan 05 terdapat empat object yaitu Label, Textbox, Button, dan Date Time Picker:

Object Label

Terdapat tiga label (yang bertuliskan Name, Date Of Birth, dan Bintang)

Object Text Box

Terdapat tiga textbox (dua status input; satu status multiline true). Status input digunakan untuk memasukkan text Nama, Bintang dan Hasil Ramalan.

Object Button

Terdapat dua object button (Analizing dan Close). Tombol Analizing digunakan untuk menampilkan hasil analisa DateTimePicker.. Sedangkan Tombol close digunakan untuk mengosongkan nilai pada semua TextBox.

Object Datetimepicker

Terdapat satu datetimepicker yang digunakan untuk memasukkan date/tanggal.

Script Unique 

·         Button Analizing
If DTP_36110056.Value.Day >= 22 And DTP_36110056.Value.Month = 12 Or DTP_36110056.Value.Day <= 19 And DTP_36110056.Value.Month = 1 Then

            bintang_36110056.Text = "Capricorn"

            ramalan_36110056.Text = "Tidak kenapa-kenapa"

·         Button Close
                bintang_36110056.Text = ""

        ramalan_36110056.Text = ""

         

Even

Button Click 

Property

Property TextBox  Multiline=True

Form Latihan 05

Langkah-langkah penyelesaian :

·         Buka project yang dibuat sebelumnya

·         Pilih Add new item

·         Setelah terbuka jendela Add new item, pilih windows form  serta anda dapat mengganti nama form, dan setelah itu pilih add

·         Buat form sesuai soal di atas menggunakan label, textbox, button dan datetimepicker

·         Untuk taxbox yang dilingkari merah property TaxBox Multiline diubah menjadi true

·         Setelah form selesai, ubah nama textbox dan button menggunakan properties window

·         Selanjutnya mengerjakan formula atau script untuk menyelesaikan latihan 05 :

Public Class Latihan_05_36110056

    Private Sub Button1_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1_36110056.Click

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

            bintang_36110056.Text = "Capricorn"

            ramalan_36110056.Text = "Tidak kenapa-kenapa"

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

            bintang_36110056.Text = "Aquarius"

            ramalan_36110056.Text = "Suka minum air"

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

            bintang_36110056.Text = "Pisces"

            ramalan_36110056.Text = "Suka marah-marah"

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

            bintang_36110056.Text = "Aries"

            ramalan_36110056.Text = "Doyan Nyanyi"

        ElseIf DTP_36110056.Value.Day >= 21 And DTP_36110056.Value.Month = 4 Or DTP_36110056.Value.Day <= 20 And DTP_36110056.Value.Month = 5 Then

            bintang_36110056.Text = "Taurus"

            ramalan_36110056.Text = "Tak mau diurus"

        ElseIf DTP_36110056.Value.Day >= 21 And DTP_36110056.Value.Month = 5 Or DTP_36110056.Value.Day <= 20 And DTP_36110056.Value.Month = 6 Then

            bintang_36110056.Text = "Gemini"

            ramalan_36110056.Text = "Maunya Lebih"

        ElseIf DTP_36110056.Value.Day >= 21 And DTP_36110056.Value.Month = 6 Or DTP_36110056.Value.Day <= 22 And DTP_36110056.Value.Month = 7 Then

            bintang_36110056.Text = "Cancer"

            ramalan_36110056.Text = "Ada ajjahh"

        ElseIf DTP_36110056.Value.Day >= 23 And DTP_36110056.Value.Month = 7 Or DTP_36110056.Value.Day <= 22 And DTP_36110056.Value.Month = 8 Then

            bintang_36110056.Text = "Leo"

            ramalan_36110056Text = "Suka merum"

        ElseIf DTP_36110056.Value.Day >= 23 And DTP_36110056.Value.Month = 8 Or DTP_36110056.Value.Day <= 23 And DTP_36110056.Value.Month = 9 Then

            bintang_36110056.Text = "Virgo"

            ramalan_36110056.Text = "Sehat-sehat saja"

        ElseIf DTP_36110056.Value.Day >= 24 And DTP_36110056.Value.Month = 9 Or DTP_36110056.Value.Day <= 23 And DTP_36110056.Value.Month = 10 Then

            bintang_36110056.Text = "Libra"

            ramalan_36110056.Text = "Kurang kerjaan"

        ElseIf DTP_36110056.Value.Day >= 24 And DTP_36110056.Value.Month = 10 Or DTP_36110056.Value.Day <= 21 And DTP_36110056.Value.Month = 11 Then

            bintang_36110056.Text = "Scorpio"

            ramalan_36110056.Text = "Kurang makan"

        ElseIf DTP_36110056.Value.Day >= 22 And DTP_36110056.Value.Month = 11 Or DTP_36110056.Value.Day <= 21 And DTP_36110056.Value.Month = 12 Then

            bintang_36110056.Text = "Sagitarius"

            ramalan_36110056.Text = "Cantik dehh"

        End If

    End Sub

    Private Sub Button2_36110056_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2_36110056.Click

        bintang_36110056.Text = ""

        ramalan_36110056.Text = ""

        nama_36110056.Text = ""

        DTP_36110056.Text = ""

    End Sub

End Class

·         Setelah itu untuk mengujinya dapat memilih start debugging atau dapat menekan F5