Sabtu, 15 September 2012

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
 





Tidak ada komentar:

Posting Komentar