Tutorial Aplikasi Bangun 2D

Pertama kita membuka visual basic 2010 yang kemudian muncul dialog box seperti dibawah ini dan kita memilih Windows Form Application untuk memulai membuat program aplikasi bangun dua dimensi.

                                                                                                                           
Setelah itu, buat desain dan listing pada program tersebut seperti dibawah ini

                                                                                                                           

FORM 1

Public Class Form1

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

        If RadioButton1.Checked And ComboBox1.Text = "Merah" Then

            SegitigaMerah.Visible = True

            SegitigaBiru.Visible = False

            SegitigaHijau.Visible = False

            SegiempatMerah.Visible = False

            SegiempatBiru.Visible = False

            SegiempatHijau.Visible = False

            LingkaranMerah.Visible = False

            LingkaranBiru.Visible = False

            LingkaanHijau.Visible = False

            SegilimaMerah.Visible = False

            SegilimaBiru.Visible = False

            SegilimaHijau.Visible = False

        End If

        If RadioButton1.Checked And ComboBox1.Text = "Biru" Then

            SegitigaBiru.Visible = True

            SegitigaMerah.Visible = False

            SegitigaHijau.Visible = False

            SegiempatMerah.Visible = False

            SegiempatBiru.Visible = False

            SegiempatHijau.Visible = False

            LingkaranMerah.Visible = False

            LingkaranBiru.Visible = False

            LingkaanHijau.Visible = False

            SegilimaMerah.Visible = False

            SegilimaBiru.Visible = False

            SegilimaHijau.Visible = False

        End If

        If RadioButton1.Checked And ComboBox1.Text = "Hjau" Then

            SegitigaHijau.Visible = True

            SegitigaBiru.Visible = False

            SegitigaMerah.Visible = False

            SegiempatMerah.Visible = False

            SegiempatBiru.Visible = False

            SegiempatHijau.Visible = False

            LingkaranMerah.Visible = False

            LingkaranBiru.Visible = False

            LingkaanHijau.Visible = False

            SegilimaMerah.Visible = False

            SegilimaBiru.Visible = False

            SegilimaHijau.Visible = False

        End If

        If RadioButton2.Checked And ComboBox1.Text = "Merah" Then

            SegiempatMerah.Visible = True

            SegiempatBiru.Visible = False

            SegiempatHijau.Visible = False

            LingkaranMerah.Visible = False

            LingkaranBiru.Visible = False

            LingkaanHijau.Visible = False

            SegilimaMerah.Visible = False

            SegilimaBiru.Visible = False

            SegilimaHijau.Visible = False

            SegitigaHijau.Visible = False

            SegitigaBiru.Visible = False

            SegitigaMerah.Visible = False

        End If                                                        

        If RadioButton2.Checked And ComboBox1.Text = "Biru" Then

            SegiempatBiru.Visible = True

            SegiempatMerah.Visible = False

            SegiempatHijau.Visible = False

            LingkaranMerah.Visible = False

            LingkaranBiru.Visible = False

            LingkaanHijau.Visible = False

            SegilimaMerah.Visible = False

            SegilimaBiru.Visible = False

            SegilimaHijau.Visible = False

            SegitigaHijau.Visible = False

            SegitigaBiru.Visible = False

            SegitigaMerah.Visible = False

        End If

        If RadioButton2.Checked And ComboBox1.Text = "Hijau" Then

            SegiempatHijau.Visible = True

            SegiempatMerah.Visible = False

            SegiempatBiru.Visible = False

            LingkaranMerah.Visible = False

            LingkaranBiru.Visible = False

            LingkaanHijau.Visible = False

            SegilimaMerah.Visible = False

            SegilimaBiru.Visible = False

            SegilimaHijau.Visible = False

            SegitigaHijau.Visible = False

            SegitigaBiru.Visible = False

            SegitigaMerah.Visible = False

        End If

        If RadioButton3.Checked And ComboBox1.Text = "Merah" Then

            SegilimaMerah.Visible = True

            SegilimaBiru.Visible = False

            SegilimaHijau.Visible = False

            SegitigaHijau.Visible = False

            SegitigaBiru.Visible = False

            SegitigaMerah.Visible = False

            SegiempatHijau.Visible = False

            SegiempatMerah.Visible = False

            SegiempatBiru.Visible = False

            LingkaranMerah.Visible = False

            LingkaranBiru.Visible = False

            LingkaanHijau.Visible = False

        End If

        If RadioButton3.Checked And ComboBox1.Text = "Biru" Then

            SegilimaBiru.Visible = True

            SegilimaMerah.Visible = False

            SegilimaHijau.Visible = False

            SegitigaHijau.Visible = False

            SegitigaBiru.Visible = False

            SegitigaMerah.Visible = False

            SegiempatHijau.Visible = True

            SegiempatMerah.Visible = False

            SegiempatBiru.Visible = False

            LingkaranMerah.Visible = False

            LingkaranBiru.Visible = False

            LingkaanHijau.Visible = False

        End If

        If RadioButton3.Checked And ComboBox1.Text = "Hijau" Then

            SegilimaHijau.Visible = True

            SegilimaMerah.Visible = False

            SegilimaBiru.Visible = False

            SegitigaHijau.Visible = False

            SegitigaBiru.Visible = False

            SegitigaMerah.Visible = False

            SegiempatHijau.Visible = False

            SegiempatMerah.Visible = False

            SegiempatBiru.Visible = False

            LingkaranMerah.Visible = False

            LingkaranBiru.Visible = False

            LingkaanHijau.Visible = False

        End If

        If RadioButton4.Checked And ComboBox1.Text = "Merah" Then

            LingkaranMerah.Visible = True

            LingkaranBiru.Visible = False

            LingkaanHijau.Visible = False

            SegilimaHijau.Visible = False

            SegilimaMerah.Visible = False

            SegilimaBiru.Visible = False

            SegitigaHijau.Visible = False

            SegitigaBiru.Visible = False

            SegitigaMerah.Visible = False

            SegiempatHijau.Visible = False

            SegiempatMerah.Visible = False

            SegiempatBiru.Visible = False

        End If

        If RadioButton4.Checked And ComboBox1.Text = "Biru" Then

            LingkaranBiru.Visible = True

            LingkaranMerah.Visible = False

            LingkaanHijau.Visible = False

            SegilimaHijau.Visible = False

            SegilimaMerah.Visible = False

            SegilimaBiru.Visible = False

            SegitigaHijau.Visible = False

            SegitigaBiru.Visible = False

            SegitigaMerah.Visible = False

            SegiempatHijau.Visible = False

            SegiempatMerah.Visible = False

            SegiempatBiru.Visible = False

        End If

        If RadioButton4.Checked And ComboBox1.Text = "Hijau" Then

            LingkaanHijau.Visible = True

            LingkaranMerah.Visible = False

            LingkaranBiru.Visible = False

            SegilimaHijau.Visible = False

            SegilimaMerah.Visible = False

            SegilimaBiru.Visible = False

            SegitigaHijau.Visible = False

            SegitigaBiru.Visible = False

            SegitigaMerah.Visible = False

            SegiempatHijau.Visible = False

            SegiempatMerah.Visible = False

            SegiempatBiru.Visible = False

        End If

    End Sub

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

    End Sub

End Class