Tutorial Membuat Program Bangun 2 Dimensi Warna dalam Visual Basic 2010

Salah satu contoh program yang kami buat adalah progrm bangun datar  dua dimensi warna. Dalam pembuatan program ini hanya dibutuhkan 1 form, yaitu form yang  berisi combobox pilih bentuk dan pilih warna yang akan disi oleh pengguna serta button Buat untuk mengerjakan bentuk yang telah dipiih, Bersihkan untuk menghapus, dan Tutup untuk  keluar dari program. Berikut cara pembuatannya.

Form1

Dalam pembuatan form ini komponen toolbox yang digunakan yaitu :

No	Komponen	Properties	Keterangan
1	Form1	Name	Bangun 2 dimensi warna
		Background Image	Pilih gambar dari file
2	Label1	Name	Label1
		Text	Mari Menggambar
		Font	Times New Roman
3	Rectangularshape1	Visible	False
4	Ovalshape1	Visible	True
5	ComboBox1	Name	ComboBox1
		Text	Pilih Bentuk
		Items	Segi Empat
			Oval
6	ComboBox2	Name	ComboBox2
		Text	Pilih Warna
		Items	Merah
			Hijau
			Kuning
			Biru
7	Button1	Name	Button1
		Text	Buat
8	Button2	Name	Button2
		Text	Bersihkan
9	Button3	Name	Button3
		Text	Tutup

Setelah tampilan dari form jadi, kemudian masukkan listing code berikut :

Public Class Form1

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

        If ComboBox1.Text = "Oval" And ComboBox2.Text = "Merah" Then

            OvalShape1.Visible = True

            OvalShape1.BackColor = Color.Red

        ElseIf ComboBox1.Text = "Oval" And ComboBox2.Text = "Hijau" Then

            OvalShape1.Visible = True

            OvalShape1.BackColor = Color.Green

        ElseIf ComboBox1.Text = "Oval" And ComboBox2.Text = "Kuning" Then

            OvalShape1.Visible = True

            OvalShape1.BackColor = Color.Yellow

        ElseIf ComboBox1.Text = "Oval" And ComboBox2.Text = "Biru" Then

            OvalShape1.Visible = True

            OvalShape1.BackColor = Color.Blue

        ElseIf ComboBox1.Text = "Segi Empat" And ComboBox2.Text = "Merah" Then

            RectangleShape1.Visible = True

            RectangleShape1.BackColor = Color.Red

        ElseIf ComboBox1.Text = "Segi Empat" And ComboBox2.Text = "Biru" Then

            RectangleShape1.Visible = True

            RectangleShape1.BackColor = Color.Blue

        ElseIf ComboBox1.Text = "Segi Empat" And ComboBox2.Text = "Kuning" Then

            RectangleShape1.Visible = True

            RectangleShape1.BackColor = Color.Yellow

        ElseIf ComboBox1.Text = "Segi Empat" And ComboBox2.Text = "Hijau" Then

            RectangleShape1.Visible = True

            RectangleShape1.BackColor = Color.Green

        ElseIf ComboBox1.Text = "Pilih Bentuk" Or ComboBox2.Text = "Pilih Warna" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Then

            MsgBox("Pilih bentuk dan warna terlebih dahulu")

        End If

    End Sub

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

        ComboBox1.Text = "Pilih Bentuk"

        ComboBox2.Text = "Pilih Warna"

        OvalShape1.Visible = False

        RectangleShape1.Visible = False

    End Sub

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

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Me.Close()

    End Sub

End Class