latihan_05_36110040

Langkah-langkah mengerjakan latihan 05

1.       Klik start kemudian pilih microsoft visual studio 2008

2.       Klik file kemudian new project kemudian tempatkan pada lokasi yang di inginkan lalu muncullah form1

3.       Kemudian klik toolbox yg berada di bagian kiri kemudian pilih commont control

4.       Kemudian pilih objek label untuk mengisi kalimat yang ada di bawah ini

a)      Name

b)      Date of birth

c)       Bintang

5.       Kemudian pilih object button untuk mengisi kalimat di bawah ini

a)      Analising

6.       Kemudian buat object textbox sebanyak 5 dan object textbox tetapi property ReadOnly

7.       Setelah menjalankan perintah di atas maka jadilah seperti kolom di bawah ini

8.       Kemudian beri nama pada object text yg telah di buat tadi sesuai yg dinginkan dan mudah di ingat

9.       Kemudian klik 2 kali ”analising” hingga muncul perintah berikutnya kemudian masukkan rumus ini

Public Class latihan_05_36110040

    Private Sub ANALISA36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ANALISA36110040.Click

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

            b_36110040.Text = "capricon"

            A36110040.Text = "nggak kenapa-kenapa"

        End If

        If Date36110040.Value.Day >= 20 And Date36110040.Value.Month = 1 Or Date36110040.Value.Day <= 18 And Date36110040.Value.Month = 2 Then

            b_36110040.Text = "aquarius"

            A36110040.Text = "suka minum air"

        End If

        If Date36110040.Value.Day >= 19 And Date36110040.Value.Month = 2 Or Date36110040.Value.Day <= 20 And Date36110040.Value.Month = 3 Then

            b_36110040.Text = "pisces"

            A36110040.Text = "suka marah-marah"

        End If

        If Date36110040.Value.Day >= 21 And Date36110040.Value.Month = 3 Or Date36110040.Value.Day <= 20 And Date36110040.Value.Month = 4 Then

            b_36110040.Text = "aries"

            A36110040.Text = "doyan nyanyi"

        End If

        If Date36110040.Value.Day >= 20 And Date36110040.Value.Month = 4 Or Date36110040.Value.Day <= 20 And Date36110040.Value.Month = 5 Then

            b_36110040.Text = "taurus"

            A36110040.Text = "tak mau di urus"

        End If

        If Date36110040.Value.Day >= 21 And Date36110040.Value.Month = 5 Or Date36110040.Value.Day <= 20 And Date36110040.Value.Month = 6 Then

            b_36110040.Text = "gemini"

            A36110040.Text = "maunya lebih"

        End If

        If Date36110040.Value.Day >= 21 And Date36110040.Value.Month = 6 Or Date36110040.Value.Day <= 22 And Date36110040.Value.Month = 7 Then

            b_36110040.Text = "cancer"

            A36110040.Text = "ada-ada aja"

        End If

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

            b_36110040.Text = "leo"

            A36110040.Text = "suka meraum"

        End If

        If Date36110040.Value.Day >= 23 And Date36110040.Value.Month = 8 Or Date36110040.Value.Day <= 23 And Date36110040.Value.Month = 9 Then

            b_36110040.Text = "virgo"

            A36110040.Text = "sehat-sehat aja"

        End If

        If Date36110040.Value.Day >= 24 And Date36110040.Value.Month = 9 Or Date36110040.Value.Day <= 23 And Date36110040.Value.Month = 10 Then

            b_36110040.Text = "libra"

            A36110040.Text = "kurang kerjasama"

        End If

        If Date36110040.Value.Day >= 24 And Date36110040.Value.Month = 10 Or Date36110040.Value.Day <= 21 And Date36110040.Value.Month = 11 Then

            b_36110040.Text = "scorpio"

            A36110040.Text = "kurang makan"

        End If

        If Date36110040.Value.Day >= 22 And Date36110040.Value.Month = 11 Or Date36110040.Value.Day <= 21 And Date36110040.Value.Month = 12 Then

            b_36110040.Text = "sagitarius"

            A36110040.Text = "cantik deh"

        End If

    End Sub

End Class

10.Setelah itu klik 2 kali “kosongkan lagi” seperti yang dilakukan tadi sebelumnya da masukkan rumus
    Private Sub c36110040_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles c36110040.Click

        N36110040.Text = ""

        Date36110040.Text = ""

        b_36110040.Text = ""

        A36110040.Text = ""

    End Sub

     11.Kemudian simpan dan klik start debugging
      12. Kemudian masukkan data dan jalankan