Latihan_05_36110031

Tahap Penyelesaian Latihan_05_36110031

1.      Buka Project yang telah dibuat, lalu buka solution Explorer

2.      Setelah itu klik kanan nama project, pilih add dan klik “new item”

 

3.      Click Add New Item terbuka, pilih Windows Form, lalu isi Name dengan Nama Latihan_05 dan add. seperti pada gambar dibawah:

 

4.      Buat Form Latihan_05 dibawah ini:

 

5.      Berikut ini Rumus untuk menjalankan Form diatas:

Public Class Latihan_05_36110031

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANALIZING_36110031.Click

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

       BINTANG_36110031.Text = "CAPRICORN"

           RAMALAN_36110031.Text = " GA KENAPA-KENAPA"

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

        BINTANG_36110031.Text = "AQUARIUS"

            RAMALAN_36110031.Text = " SUKA MINUM AIR"

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

            BINTANG_36110031.Text = "PISCES"

            RAMALAN_36110031.Text = " SUKA MARAH-MARAH"

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

            BINTANG_36110031.Text = "ARIES"

            RAMALAN_36110031.Text = "DOYAN NYANYI"

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

            BINTANG_36110031.Text = "TAURUS"

            RAMALAN_36110031.Text = "GA MAU DIURUS"

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

            BINTANG_36110031.Text = "GEMINI"

            RAMALAN_36110031.Text = "MAUNYA LEBIH"

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

            BINTANG_36110031.Text = "CANCER"

            RAMALAN_36110031.Text = "ADA AJA"

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

            BINTANG_36110031.Text = " LEO"

            RAMALAN_36110031.Text = "SUKA MERAUNG"

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

            BINTANG_36110031.Text = "VIRGO"

            RAMALAN_36110031.Text = "SEHAT-SEHAT SAJA"

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

            BINTANG_36110031.Text = "LIBRA"

            RAMALAN_36110031.Text = "KURANG KERJAAN"

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

            BINTANG_36110031.Text = "SCORPIO"

            RAMALAN_36110031.Text = "KURANG MAKAN"

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

            BINTANG_36110031.Text = " SAGITARIUS"

            RAMALAN_36110031.Text = "CANTIK DEHH"

        End If

    End Sub

    Private Sub CLOSE_36110031_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CLOSE_36110031.Click

        NAMA_36110031.Text = ""

        DTP_36110031.Text = ""

        BINTANG_36110031.Text = ""

        RAMALAN_36110031.Text = ""

    End Sub

End Class

6.      Setelah itu jalankan Programnya dengan menekan “start debugging”

 

7.      Kemudian simpan file tersebut dengan menekan icon “save”

 

8.      Selesai.

Deskripsi Latihan_05_36110031

A. Form Latihan_05 Terdapat Empat Object yaitu label, textbox, button dan datetimepiker.

-    Object Label

Terdapat Tiga label (yang bertuliskan Name, Date of birth, Bintang)

-    Object TextBox

Terdapat Tiga TextBox (satu status input dan dua status read only). Status input digunakan untuk memasukkan Nama saya, Sedangkan status ReadOnly digunakan untuk menampilkan hasil Analisa Tanggal kelahiran, Bulan kelahiran dan Tahun kelahiran.

-    Object Button

Terdapat Dua Object Button yaitu Analizing dan Close. Analizing digunakan untuk menampilkan hasil analisa dari Object TextBox ReadOnly. Sedangkan Close digunakan untuk mengosongkan kembali data atau nilai-nilai yang pada object TextBox.

-    Object DateTimePiker

Terdapat Satu object DateTimePiker digunakan untuk menentukan tanggal yang nantinya akan ditampilkan bintang penjelasannya pada TextBox ReadOnly.

B.  Script Unique

Untuk Button Analizing:

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

BINTANG_36110031.Text = "CAPRICORN"

   RAMALAN_36110031.Text = " GA KENAPA-KENAPA"

Untuk Botton Close:

NAMA_36110031.Text = ""

C.  Even

ANALIZING_36110031_Click

CLOSE_36110031_Click

D. Property

Property TextBox ==> ReadOnly = True

Property TextBox ==> TextBox Task = Multiline