Deskripsi_Latihan_05_36110054

Cara Membuat Progam/Apliaksi Latihan 05

Dengan Software Microsoft Visual Basic 2008

Langkah 1:
Buka Aplikasi Visual Basic 2008/Visual Studio 2008

Langkah 2:

-          File| New Project | Windows From Application,

-          Dan Nama Project Tersebut.

-          Lihat Gambar Berikut :

  Langkah 3 :

 Rancanglah From Seperti Gambar Berikut Berikut :

Komponen Dan Properti Untuk Form Sebagai Berikut :

Komponen	Properties
Form	Text : Latihan_05_36110054
Label	Text : Name
Label	Text : Date of birth
Label	Text : Bintang
Button	Text : Analizing
Textbox	-
Textbox	- (Status: Readonly True)
Label	- (Status: Readonly True)
Datetimepicker	-

  Langkah  4 :

Masukkan Rumus untuk menjalankan form di atas .

Berikut ini Rumus untuk menjalankan form :

Public NotInheritable Class Latihan_05_36110054

    Private Sub analizing_36110054_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles analizing_36110054.Click
        If DateTimePicker1_36110054.Value.Day >= 22 And DateTimePicker1_36110054.Value.Month = 12 Or DateTimePicker1_36110054.Value.Day <= 19 And DateTimePicker1_36110054.Value.Month = 1 Then
            Bintang_36110054.Text = "Capricon"
            Ramalan_36110054.Text = "tdk kenapa"
        ElseIf DateTimePicker1_36110054.Value.Day >= 20 And DateTimePicker1_36110054.Value.Month = 1 Or DateTimePicker1_36110054.Value.Day <= 18 And DateTimePicker1_36110054.Value.Month = 2 Then
            Bintang_36110054.Text = "Aquarius"
            Ramalan_36110054.Text = "Suka Minum Air"
        ElseIf DateTimePicker1_36110054.Value.Day >= 19 And DateTimePicker1_36110054.Value.Month = 2 Or DateTimePicker1_36110054.Value.Day <= 20 And DateTimePicker1_36110054.Value.Month = 3 Then
            Bintang_36110054.Text = "Pisces"
            Ramalan_36110054.Text = "Suka Marah"
        ElseIf DateTimePicker1_36110054.Value.Day >= 21 And DateTimePicker1_36110054.Value.Month = 3 Or DateTimePicker1_36110054.Value.Day <= 20 And DateTimePicker1_36110054.Value.Month = 4 Then
            Bintang_36110054.Text = "Aries"
            Ramalan_36110054.Text = "Doyang Nyanyi"
        ElseIf DateTimePicker1_36110054.Value.Day >= 21 And DateTimePicker1_36110054.Value.Month = 4 Or DateTimePicker1_36110054.Value.Day <= 20 And DateTimePicker1_36110054.Value.Month = 5 Then
            Bintang_36110054.Text = "taurus"
            Ramalan_36110054.Text = "Tak mau di urus"
        ElseIf DateTimePicker1_36110054.Value.Day >= 20 And DateTimePicker1_36110054.Value.Month = 5 Or DateTimePicker1_36110054.Value.Day <= 20 And DateTimePicker1_36110054.Value.Month = 6 Then
            Bintang_36110054.Text = "Gemini"
            Ramalan_36110054.Text = "Maunya lebih"
        ElseIf DateTimePicker1_36110054.Value.Day >= 21 And DateTimePicker1_36110054.Value.Month = 6 Or DateTimePicker1_36110054.Value.Day <= 22 And DateTimePicker1_36110054.Value.Month = 7 Then
            Bintang_36110054.Text = "Cancer"
            Ramalan_36110054.Text = "Ada kurang makan"
        ElseIf DateTimePicker1_36110054.Value.Day >= 23 And DateTimePicker1_36110054.Value.Month = 7 Or DateTimePicker1_36110054.Value.Day <= 22 And DateTimePicker1_36110054.Value.Month = 8 Then
            Bintang_36110054.Text = "Leo"
            Ramalan_36110054.Text = "Suka meraung"
        ElseIf DateTimePicker1_36110054.Value.Day >= 23 And DateTimePicker1_36110054.Value.Month = 8 Or DateTimePicker1_36110054.Value.Day <= 23 And DateTimePicker1_36110054.Value.Month = 9 Then
            Bintang_36110054.Text = "Virgo"
            Ramalan_36110054.Text = "Sehat-sehat saja"
        ElseIf DateTimePicker1_36110054.Value.Day >= 24 And DateTimePicker1_36110054.Value.Month = 9 Or DateTimePicker1_36110054.Value.Day <= 23 And DateTimePicker1_36110054.Value.Month = 10 Then
            Bintang_36110054.Text = "Libra"
            Ramalan_36110054.Text = "Kurang Kerjaan"
        ElseIf DateTimePicker1_36110054.Value.Day >= 24 And DateTimePicker1_36110054.Value.Day = 10 Or DateTimePicker1_36110054.Value.Day <= 21 And DateTimePicker1_36110054.Value.Month = 11 Then
            Bintang_36110054.Text = "Scorpio"
            Ramalan_36110054.Text = "Kurang Makan"
        Else
            Bintang_36110054.Text = "Sagitarius"
            Ramalan_36110054.Text = "Cantik deh"
        End If

    End Sub


    Private Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        End

    End Sub
End Class