Latihan_05_46110043

Form Description

Pada Latihan_05 ini kita dapat menemukan 5 OBJECT yang digunakan, yaitu (lihat gambar dibawah) :

object LABEL--> Pada gambar diatas dapat kita lihat bahwa terdapat 3 buah label yang masing-masing bertuliskan Name, Date Of Birth, dan Zodiac.

object BUTTON--> Pada gambar diatas kita dapat menemukan 2 object Analizing yang bertuliskan Close. Object button Analizing berfungsi untuk menampilkan data yang terdapat dalam object Textbox (ReadOnly) sedangkan button CLOSE berfungsi untuk menutup Form Latihan_05

Object TEXTBOX--> Pada gambar diatas dapat kita lihat terdapat 3 buah TextBox. 2 buah textbox  statusinput) yang digunakan untuk menampilkan Name dan Zodiac. Sedangkan 1 lainnya yang merupakan Textbox (ReadOnly) digunakan untuk menampilkan data hasil analisa dari DateTimePicker pada Date Of Birth.

object DATETIMEPICKER --> Pada gambar diatas terdapat 1 buat date time picker yang digunakan untuk menginput tanggal, bulan serta tahun lahir yang ingin di analizing.

Langkah-langkah penyelesaian :

1. Buatlah form baru dengan menggunakan nama Latihan_05_xxx

2. Tambahkan object label, Textbox, Button, serta DateTimePicker yang tersedia pada ToolBox seperti gambar diatas

3. Ubahlah nama (design) setiap textbox kemudian textbox  yang berada dibawah label Zodiac dirubah menjadi ReadOnly (True) dan Multiline (True) pada Properties

4. Input data nama pada Textbox (status input)

5. Input tanggal lahir pada DateTimePicker (sesuaikan)

6.Klik 2x pada button Analizing maka akan muncul jendela kosong lalu masukkan script berikut :

Public Class Latihan_05_46110043

   

    Private Sub analisa46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles analisa46110043.Click

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

            bintang46110043.Text = "Capricorn"

            isi46110043.Text = "cerewet"

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

            bintang46110043.Text = "Aquarius"

            isi46110043.Text = "suka berenang di air asin"

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

            bintang46110043.Text = "Pisces"

            isi46110043.Text = "gampang naik darah"

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

            bintang46110043.Text = "Aries"

            isi46110043.Text = "pecinta alam"

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

            bintang46110043.Text = "Taurus"

            isi46110043.Text = "gampang jatuh cinta"

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

            bintang46110043.Text = "Gemini"

            isi46110043.Text = "rakus"

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

            bintang46110043.Text = "Cancer"

            isi46110043.Text = "suka main kembang api"

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

            bintang46110043.Text = "Leo"

            isi46110043.Text = "suka bernyanyi,seniman"

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

            bintang46110043.Text = "Virgo"

            isi46110043.Text = "sok seksi"

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

            bintang46110043.Text = "Libra"

            isi46110043.Text = "pengacau"

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

            bintang46110043.Text = "scorpio"

            isi46110043.Text = "sehat selalu"

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

            bintang46110043.Text = "Sagitarius"

            isi46110043.Text = "pembuat onar"

        End If

    End Sub

 7. lalu start debugging

 8. kemudian klik 2x pada tombol close dan insert script berikut pada jendela kosong

 Private Sub selesai46110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles selesai46110043.Click

        Close()

    End Sub

End Class

maka form tersebut akan tertutup kita mengklik tombol ClOSE

SCRIPT UNIQUE

*  If lahir46110043.Value.Day >= 23 And lahir46110043.Value.Month = 7 Or lahir46110043.Value.Day <= 22 And lahir46110043.Value.Month = 8 Then

            bintang46110043.Text = "Leo"

            isi46110043.Text = "suka bernyanyi,seniman"

Fungsi if tersebut digunakan untuk menganalisa bintang anda berdasarkan range tanggal kelahiran yang diinput.

*  Close() -- menutup tampilan form.

Even

ButtonClick

Property

Property TextBox --> ReadOnly=True

Property TextBox --> Multiline=True