ANALISA PROGRAM 2D

ANALISA PROGRAM 2 DIMENSI

                                                                                                                         

LISTING

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

Keterangan: Pada form bangun 2 dimensi ini kami menggunakan bahasa pemrograman pemisalan End If. Dengan menggunakan pemisalan ini akan mengkoreksi secara automatis bila memilih salah satu dari pilihan pada salah satu radiobutton. Radiobutton akan mengecek dan memisahkan bangun 2 dimensi segiempat, lingkaran, segitiga, segilima dan warna warna. Form ini juga menggunakan kata “lihat” untuk menampilkan bangun 2 dimensi yang sudah di pilih