LATIHAN 05

Deskripsi latihan_05_36110043

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

Object Label

Terdapat tiga  object Label (yang bertuliskan name, date of birth,dan bintang)

Object Text Box

Terdapat tiga textbox (satu status input dan dua status ReadOnly). Status input digunakan untuk memasukkan name. Status ReadOnly untuk menampilkan hasil analisa dari Date Time Picker

Object Button

Terdapat dua object button “Analizing” dan ” Close”. Button Analizing digunakan untuk menampilkan hasil analisa di object TextBox ReadOnly ". Sedangkan button Close digunakan untuk mengosongkan kembali semua TextBox.. Rumus Analizing : 

• bintang merupakan hasil analisa DateTimePicker yang dikategorikan berdasarkan tanggal dan bulan tertentu.

Object DateTimePicker

Digunakan untuk penggunaan Date

Script Unique

Button “Analizing” untuk Menganalisa DateTimePicker yang hasilnya akan ditampilkan pada textbox tertentu

 If ultah36110043.Value.Day = 20 And ultah36110043.Value.Month = 1 Or ultah36110043.Value.Day <= 19 And ultah36110043.Value.Month = 2 Then
            bintang36110043.Text = "aquarius"
            ramalan36110043.Text = "suka minum air"

       

Button “Close” untuk mengosongkan

        nama36110043.Text = ""
        bintang36110043.Text = ""
        ramalan36110043.Text = ""

Even

Buttonclick

Property

Default

Langkah-langkah  latihan_05_36110043  

• Untuk memulai VB dengan Project Baru lihat cara pada latihan 1

• Dan untuk memulai VB dengan Project yang telah dibuat sebelumnya ikuti langkah di bawah ini 

1. Click icon "Add new Item" 

  

    2.   Pada kolom Categories dan Templates pilih Windows Form, isi kolom name dengan
          Latihan_05_36110043.vb kemudian klik add.

    3.   Akan muncul tampilan awal Design Form

    4.   Dibawah ini adalah Form yang akan kita buat

    5.  Gunakan Object Label, TextBox, Button dan DateTimepicker
    6.  Beri nama setiap Object kecuali Label

Nama Object TextBox :

Name = Nama36110043

Bintang = Bintang36110043 dan Ramalan36110043

Nama Object Button :

 analizing = analizing36110043

 close = close36110043                                 

Nama Object DateTimepicker : Date Of Birth = Ultah36110043

 

7.  Setelah selesai design Fomnya selanjutnya Buat SRIPNTYA

8.  SRIPTNYA  adalah

Public Class latihan_05_36110043

    Private Sub analizing36110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles analizing36110043.Click
        If ultah36110043.Value.Day = 20 And ultah36110043.Value.Month = 1 Or ultah36110043.Value.Day <= 19 And ultah36110043.Value.Month = 2 Then
            bintang36110043.Text = "aquarius"
            ramalan36110043.Text = "suka minum air"
        ElseIf ultah36110043.Value.Day = 19 And ultah36110043.Value.Month = 2 Or ultah36110043.Value.Day <= 20 And ultah36110043.Value.Month = 3 Then
            bintang36110043.Text = "pisces"
            ramalan36110043.Text = "suka marah-marah"
        ElseIf ultah36110043.Value.Day = 21 And ultah36110043.Value.Month = 3 Or ultah36110043.Value.Day <= 20 And ultah36110043.Value.Month = 4 Then
            bintang36110043.Text = "aries"
            ramalan36110043.Text = "doyan nyanyi"
        ElseIf ultah36110043.Value.Day = 21 And ultah36110043.Value.Month = 4 Or ultah36110043.Value.Day <= 20 And ultah36110043.Value.Month = 5 Then
            bintang36110043.Text = "taurus"
            ramalan36110043.Text = "tak mau diurus"
        ElseIf ultah36110043.Value.Day = 21 And ultah36110043.Value.Month = 5 Or ultah36110043.Value.Day <= 20 And ultah36110043.Value.Month = 6 Then
            bintang36110043.Text = "gemini"
            ramalan36110043.Text = "maunya lebih"
        ElseIf ultah36110043.Value.Day = 21 And ultah36110043.Value.Month = 6 Or ultah36110043.Value.Day <= 22 And ultah36110043.Value.Month = 7 Then
            bintang36110043.Text = "canser"
            ramalan36110043.Text = "ada aja"
        ElseIf ultah36110043.Value.Day = 23 And ultah36110043.Value.Month = 7 Or ultah36110043.Value.Day <= 22 And ultah36110043.Value.Month = 8 Then
            bintang36110043.Text = "leo"
            ramalan36110043.Text = "suka meraum"
        ElseIf ultah36110043.Value.Day = 23 And ultah36110043.Value.Month = 8 Or ultah36110043.Value.Day <= 23 And ultah36110043.Value.Month = 9 Then
            bintang36110043.Text = "virgo"
            ramalan36110043.Text = "sehat-sehat aja"
        ElseIf ultah36110043.Value.Day = 24 And ultah36110043.Value.Month = 9 Or ultah36110043.Value.Day <= 23 And ultah36110043.Value.Month = 10 Then
            bintang36110043.Text = "libra"
            ramalan36110043.Text = "kurang kerjaan"



        End If
    End Sub


    Private Sub close36110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close36110043.Click
        nama36110043.Text = ""
        bintang36110043.Text = ""
        ramalan36110043.Text = ""
    End Sub
End Class

Untuk menjalankan aplikasi dari form di atas maka, klik icon Start Debugging.