Analilis Program Bangun2D Berwarna

Public Class Form1

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

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

        If TextBox1.Text = ("Kotak") And TextBox2.Text = ("Biru") Then

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = False

            RectangleShape1.Visible = True

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

        ElseIf TextBox1.Text = ("Kotak") And TextBox2.Text = ("Merah") Then

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = True

            RectangleShape3.Visible = False

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

        ElseIf TextBox1.Text = ("Kotak") And TextBox2.Text = ("Hijau") Then

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = True

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

        ElseIf TextBox1.Text = ("Lingkaran") And TextBox2.Text = ("Merah") Then

            OvalShape1.Visible = False

            OvalShape2.Visible = True

            OvalShape3.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

        ElseIf TextBox1.Text = ("Lingkaran") And TextBox2.Text = ("Biru") Then

            OvalShape1.Visible = True

            OvalShape2.Visible = False

            OvalShape3.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

        ElseIf TextBox1.Text = ("Lingkaran") And TextBox2.Text = ("Hijau") Then

            OvalShape1.Visible = True

            OvalShape2.Visible = True

            OvalShape3.Visible = True

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

        ElseIf TextBox1.Text = ("Segitiga") And TextBox2.Text = ("Biru") Then

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            PictureBox1.Visible = True

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

        ElseIf TextBox1.Text = ("Segitiga") And TextBox2.Text = ("Kuning") Then

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            PictureBox1.Visible = False

            PictureBox2.Visible = True

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

        ElseIf TextBox1.Text = ("Segitiga") And TextBox2.Text = ("Merah") Then

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = True

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = False

        ElseIf TextBox1.Text = ("Persegi Panjang") And TextBox2.Text = ("Hijau") Then

            OvalShape1.Visible = False

            OvalShape3.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = False

            PictureBox6.Visible = True

        ElseIf TextBox1.Text = ("Persegi Panjang") And TextBox2.Text = ("Merah") Then

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = False

            PictureBox5.Visible = True

            PictureBox6.Visible = False

        ElseIf TextBox1.Text = ("Persegi Panjang") And TextBox2.Text = ("Kuning") Then

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            PictureBox1.Visible = False

            PictureBox2.Visible = False

            PictureBox3.Visible = False

            PictureBox4.Visible = True

            PictureBox5.Visible = False

            PictureBox6.Visible = False

        End If

    End Sub

KETERANGAN :

Maksud dari listing Button 1 adalah sebagai berikut

-          jika input pada textbox 1 adalah kotak dan input di textbox 2 adalah Biru maka munculkan RectangleShape 1

-          jika input pada textbox 1 adalah kotak dan input di textbox 2 adalah Merah maka munculkan RectangleShape 2

-          jika input pada textbox 1 adalah kotak dan input di textbox 2 adalah Hijau maka munculkan RectangleShape 3

-          jika input pada textbox 1 adalah Lingkaran dan input di textbox 2 adalah Biru maka munculkan OvalShape1

-          jika input pada textbox 1 adalah Lingkaran dan input di textbox 2 adalah Merah maka munculkan OvalShape2

-          jika input pada textbox 1 adalah Lingkaran dan input di textbox 2 adalah Hijau maka munculkan OvalShape3

-          jika input pada textbox 1 adalah Segitiga dan input di textbox 2 adalah Biru maka munculkan PictureBox1

-          jika input pada textbox 1 adalah Segitiga dan input di textbox 2 adalah Merah maka munculkan PictureBox2

-          jika input pada textbox 1 adalah Segitiga dan input di textbox 2 adalah Hijau maka munculkan PictureBox3

-          jika input pada textbox 1 adalah Persegi Panjang dan input di textbox 2 adalah Biru maka munculkan PictureBox4

-          jika input pada textbox 1 adalah Persegi Panjang dan input di textbox 2 adalah Merahmaka munculkan PictureBox5

-          jika input pada textbox 1 adalah Persegi Panjang dan input di textbox 2 adalah Hijau maka munculkan PictureBox6

Maksud dari listing Button 2 adalah jika kita menekan tombol tersebut maka program akan berhenti

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

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

        OvalShape1.Visible = False

        OvalShape2.Visible = False

        OvalShape3.Visible = False

        RectangleShape1.Visible = False

        RectangleShape2.Visible = False

        RectangleShape3.Visible = False

        PictureBox1.Visible = False

        PictureBox2.Visible = False

        PictureBox3.Visible = False

        PictureBox4.Visible = False

        PictureBox5.Visible = False

        PictureBox6.Visible = False

    End Sub

KETERANGAN :

Maksud dari listing tersebut adalah jika kita membuka aplikasi maka semua bangun tidak akan muncul pada interface

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

        Close()

    End Sub

    Private Sub RectangleShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape1.Click

    End Sub

End Class