Analisis Program “Explore Your Imagination Colorshape”

Analisis Program “Explore Your Imagination Colorshape”

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ComboBox2.Text = "Pilih Warna"

        With ComboBox2

            .Items.Add("Merah")

            .Items.Add("Kuning")

            .Items.Add("Hijau")

            .Items.Add("Jingga")

            .Items.Add("Biru")

            .Items.Add("Emas")

            .Items.Add("Silver")

            .Items.Add("Ungu")

        End With

        ComboBox1.Text = "Pilih Bentuk"

        With ComboBox1

            .Items.Add("Persegi")

            .Items.Add("Persegi Panjang")

            .Items.Add("Lingkaran")

            .Items.Add("Oval")

        End With

    End Sub

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

        Form2.Show()

        If ComboBox1.Text = ("Pilih Bentuk") Then MsgBox("Bentuk Belum di Isi")

        If ComboBox2.Text = ("Pilih Warna") Then MsgBox("Warna Belum di Isi")

        If ComboBox1.Text = ("") Then MsgBox("Bentuk Belum di Isi")

        If ComboBox2.Text = ("") Then MsgBox("Warna Belum di Isi")

    End Sub

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

        Me.Close()

    End Sub

End Class

Public Class Form2

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

        Me.Close()

        Form1.Show()

    End Sub

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.RectangleShape1.Hide()

        Me.RectangleShape2.Hide()

        Me.OvalShape1.Hide()

        Me.OvalShape2.Hide()

        If Form1.ComboBox1.Text = ("Lingkaran") Then Me.OvalShape2.Show()

        If Form1.ComboBox1.Text = ("Oval") Then Me.OvalShape1.Show()

        If Form1.ComboBox1.Text = ("Persegi") Then Me.RectangleShape2.Show()

        If Form1.ComboBox1.Text = ("Persegi Panjang") Then Me.RectangleShape1.Show()

        If Form1.ComboBox2.Text = ("Merah") Then Me.OvalShape2.FillColor = Color.Red

        If Form1.ComboBox2.Text = ("Biru") Then Me.OvalShape2.FillColor = Color.Blue

        If Form1.ComboBox2.Text = ("Kuning") Then Me.OvalShape2.FillColor = Color.Yellow

        If Form1.ComboBox2.Text = ("Hijau") Then Me.OvalShape2.FillColor = Color.Green

        If Form1.ComboBox2.Text = ("Silver") Then Me.OvalShape2.FillColor = Color.Silver

        If Form1.ComboBox2.Text = ("Emas") Then Me.OvalShape2.FillColor = Color.Gold

        If Form1.ComboBox2.Text = ("Jingga") Then Me.OvalShape2.FillColor = Color.OrangeRed

        If Form1.ComboBox2.Text = ("Ungu") Then Me.OvalShape2.FillColor = Color.Purple

        If Form1.ComboBox2.Text = ("Merah") Then Me.RectangleShape1.FillColor = Color.Red

        If Form1.ComboBox2.Text = ("Biru") Then Me.RectangleShape1.FillColor = Color.Blue

        If Form1.ComboBox2.Text = ("Kuning") Then Me.RectangleShape1.FillColor = Color.Yellow

        If Form1.ComboBox2.Text = ("Hijau") Then Me.RectangleShape1.FillColor = Color.Green

        If Form1.ComboBox2.Text = ("Silver") Then Me.RectangleShape1.FillColor = Color.Silver

        If Form1.ComboBox2.Text = ("Emas") Then Me.RectangleShape1.FillColor = Color.Gold

        If Form1.ComboBox2.Text = ("Jingga") Then Me.RectangleShape1.FillColor = Color.OrangeRed

        If Form1.ComboBox2.Text = ("Ungu") Then Me.RectangleShape1.FillColor = Color.Purple

        If Form1.ComboBox2.Text = ("Merah") Then Me.OvalShape1.FillColor = Color.Red

        If Form1.ComboBox2.Text = ("Biru") Then Me.OvalShape1.FillColor = Color.Blue

        If Form1.ComboBox2.Text = ("Kuning") Then Me.OvalShape1.FillColor = Color.Yellow

        If Form1.ComboBox2.Text = ("Hijau") Then Me.OvalShape1.FillColor = Color.Green

        If Form1.ComboBox2.Text = ("Silver") Then Me.OvalShape1.FillColor = Color.Silver

        If Form1.ComboBox2.Text = ("Emas") Then Me.OvalShape1.FillColor = Color.Gold

        If Form1.ComboBox2.Text = ("Jingga") Then Me.OvalShape1.FillColor = Color.OrangeRed

        If Form1.ComboBox2.Text = ("Ungu") Then Me.OvalShape1.FillColor = Color.Purple

        If Form1.ComboBox2.Text = ("Merah") Then Me.RectangleShape2.FillColor = Color.Red

        If Form1.ComboBox2.Text = ("Biru") Then Me.RectangleShape2.FillColor = Color.Blue

        If Form1.ComboBox2.Text = ("Kuning") Then Me.RectangleShape2.FillColor = Color.Yellow

        If Form1.ComboBox2.Text = ("Hijau") Then Me.RectangleShape2.FillColor = Color.Green

        If Form1.ComboBox2.Text = ("Silver") Then Me.RectangleShape2.FillColor = Color.Silver

        If Form1.ComboBox2.Text = ("Emas") Then Me.RectangleShape2.FillColor = Color.Gold

        If Form1.ComboBox2.Text = ("Jingga") Then Me.RectangleShape2.FillColor = Color.OrangeRed

        If Form1.ComboBox2.Text = ("Ungu") Then Me.RectangleShape2.FillColor = Color.Purple

        Dim warna As String

        warna = Form1.ComboBox2.Text

        If Form1.ComboBox1.Text = ("Lingkaran") Then Label1.Text = "Lingkaran " & warna

        If Form1.ComboBox1.Text = ("Oval") Then Label1.Text = "Oval " & warna

        If Form1.ComboBox1.Text = ("Persegi") Then Label1.Text = "Persegi " & warna

        If Form1.ComboBox1.Text = ("Persegi Panjang") Then Label1.Text = "Persegi Panjang " & warna

    End Sub

End Class

Keterangan

Baris 1 mengubah teks pada combobox2 menjadi “Pilih Warna”

Baris 2 menambahkan item “merah” pada combobox2

Baris 3 menambahkan item “kuning” pada combobox2

Baris 4 menambahkan item “hijau” pada combobox2

Baris 5 menambahkan item “jingga” pada combobox2

Baris 6 menambahkan item “biru” pada combobox2

Baris 7 menambahkan item “emas” pada combobox2

Baris 8 menambahkan item “silver” pada combobox2

Baris 9 menambahkan item “ungu” pada combobox2

Baris 10 mengubah teks pada combobox1 menjadi “Pilih bentuk”

Baris 11 menambahkan item “Persegi” pada combobox1

Baris 12 menambahkan item “Persegi Panjang” pada combobox1

Baris 13 menambahkan item “Lingkaran” pada combobox1

Baris 14 menambahkan item “Oval” pada combobox1

Baris 15 Saat Button1 di klik Form2 muncul

Baris 16 jika teks pada ComboBox1 adalah "Pilih Bentuk" lalu muncul MsgBox "Bentuk Belum di Isi"

Baris 17 jika teks pada ComboBox2 adalah "Pilih Warna" lalu muncul MsgBox "Warna Belum di Isi"

Baris 18 jika teks pada ComboBox1 adalah "" lalu muncul MsgBox "Bentuk Belum di Isi"

Baris 19 jika teks pada ComboBox2 adalah "" lalu muncul MsgBox "Warna Belum di Isi"

Baris 20 Saat Button2 di klik Form1 sembunyi

Form2

Baris 1 Saat Button1 di klik Form2 tutup, Form1 Muncul

Baris 2 Rectangleshape1 pada Form2 sembunyi

Baris 3 Rectangleshape2 pada Form2 sembunyi

Baris 4 Ovalshape1 pada Form2 sembunyi

Baris 5 Ovalshape2 pada Form2 sembunyi

Baris 6 jika teks pada ComboBox1 pada Form1 adalah "Lingkaran" lalu OvalShape2 pada Form2 muncul

Baris 7 jika teks pada ComboBox1 pada Form1 adalah "Oval" lalu OvalShape1 pada Form2 muncul

Baris 8 jika teks pada ComboBox1 pada Form1 adalah "Persegi" lalu RectangleShape2 pada Form2 muncul

Baris 9 jika teks pada ComboBox1 pada Form1 adalah "Persegi Panjang" lalu RectangleShape1 pada Form2 muncul   

Baris 10 jika teks pada Combobox2 pada Form1 adalah “Merah” lalu warna pada Ovalshape2 Form2 adalah Color.Red

Baris 11 jika teks pada Combobox2 pada Form1 adalah “Biru” lalu warna pada Ovalshape2 Form2 adalah Color.Blue

Baris 12 jika teks pada Combobox2 pada Form1 adalah “Kuning” lalu warna pada Ovalshape2 Form2 adalah Color.Yellow

Baris 13 jika teks pada Combobox2 pada Form1 adalah “Hijau” lalu warna pada Ovalshape2 Form2 adalah Color.Green

Baris 14 jika teks pada Combobox2 pada Form1 adalah “Silver” lalu warna pada Ovalshape2 Form2 adalah Color.Silver

Baris 15 jika teks pada Combobox2 pada Form1 adalah “Emas” lalu warna pada Ovalshape2 Form2 adalah Color.Gold

Baris 16 jika teks pada Combobox2 pada Form1 adalah “Jingga” lalu warna pada Ovalshape2 Form2 adalah Color.OrangeRed

Baris 17 jika teks pada Combobox2 pada Form1 adalah “Ungu” lalu warna pada Ovalshape2 Form2 adalah Color.Purple

Baris 18 jika teks pada Combobox2 pada Form1 adalah “Merah” lalu warna pada RectangleShape1 Form2 adalah Color.Red

Baris 19 jika teks pada Combobox2 pada Form1 adalah “Biru” lalu warna pada RectangleShape1 Form2 adalah Color.Blue

Baris 20 jika teks pada Combobox2 pada Form1 adalah “Kuning” lalu warna pada RectangleShape1 Form2 adalah Color.Yellow

Baris 21 jika teks pada Combobox2 pada Form1 adalah “Hijau” lalu warna pada RectangleShape1 Form2 adalah Color.Green

Baris 22 jika teks pada Combobox2 pada Form1 adalah “Silver” lalu warna pada RectangleShape1 Form2 adalah Color.Silver

Baris 23 jika teks pada Combobox2 pada Form1 adalah “Emas” lalu warna pada RectangleShape1 Form2 adalah Color.Gold

Baris 24 jika teks pada Combobox2 pada Form1 adalah “Jingga” lalu warna pada RectangleShape1 Form2 adalah Color.OrangeRed

Baris 25 jika teks pada Combobox2 pada Form1 adalah “Ungu” lalu warna pada RectangleShape1 Form2 adalah Color.Purple

Baris 26 jika teks pada Combobox2 pada Form1 adalah “Merah” lalu warna pada Ovalshape1 Form2 adalah Color.Red

Baris 27 jika teks pada Combobox2 pada Form1 adalah “Biru” lalu warna pada Ovalshape1 Form2 adalah Color.Blue

Baris 28 jika teks pada Combobox2 pada Form1 adalah “Kuning” lalu warna pada Ovalshape1 Form2 adalah Color.Yellow

Baris 29 jika teks pada Combobox2 pada Form1 adalah “Hijau” lalu warna pada Ovalshape1 Form2 adalah Color.Green

Baris 30 jika teks pada Combobox2 pada Form1 adalah “Silver” lalu warna pada Ovalshape1 Form2 adalah Color.Silver

Baris 31 jika teks pada Combobox2 pada Form1 adalah “Emas” lalu warna pada Ovalshape1 Form2 adalah Color.Gold

Baris 32 jika teks pada Combobox2 pada Form1 adalah “Jingga” lalu warna pada Ovalshape1 Form2 adalah Color.OrangeRed

Baris 33 jika teks pada Combobox2 pada Form1 adalah “Ungu” lalu warna pada Ovalshape1 Form2 adalah Color.Purple

Baris 34 jika teks pada Combobox2 pada Form1 adalah “Merah” lalu warna pada RectangleShape2 Form2 adalah Color.Red

Baris 35 jika teks pada Combobox2 pada Form1 adalah “Biru” lalu warna pada RectangleShape2 Form2 adalah Color.Blue

Baris 36 jika teks pada Combobox2 pada Form1 adalah “Kuning” lalu warna pada RectangleShape2 Form2 adalah Color.Yellow

Baris 37 jika teks pada Combobox2 pada Form1 adalah “Hijau” lalu warna pada RectangleShape2 Form2 adalah Color.Green

Baris 38 jika teks pada Combobox2 pada Form1 adalah “Silver” lalu warna pada RectangleShape2 Form2 adalah Color.Silver

Baris 39 jika teks pada Combobox2 pada Form1 adalah “Emas” lalu warna pada RectangleShape2 Form2 adalah Color.Gold

Baris 40 jika teks pada Combobox2 pada Form1 adalah “Jingga” lalu warna pada RectangleShape2 Form2 adalah Color.OrangeRed

Baris 41 jika teks pada Combobox2 pada Form1 adalah “Ungu” lalu warna pada RectangleShape2 Form2 adalah Color.Purple

Baris 42 menyatakan “warna” adalah string

Baris 43 “warna” adalah teks pada combobox2 pada Form1

Baris 44 jika teks pada combobox1 pada Form1 adalah “lingkaran” lalu teks pada Label1 adalah Lingkaran “warna”

Baris 45 jika teks pada combobox1 pada Form1 adalah “oval” lalu teks pada Label1 adalah Oval “warna”

Baris 46 jika teks pada combobox1 pada Form1 adalah “persegi” lalu teks pada Label1 adalah persegi “warna”

Baris 47 jika teks pada combobox1 pada Form1 adalah “persegi panjang” lalu teks pada Label1 adalah persegi panjang “warna”