MODUL 2 : PROGRAM KALKULATOR

A. Deskripsi Program

Program ini merupakan penerapan tentang bahasa pemrograman Visual Basic 2010 berdasarkan modul 2 yaitu fungsi aritmatika dalam Visual Basic 2010. Pembuatan program ini merupakan salah satu program perhitungan, dan tentunya program ini adalah program yang sangat dasar dalam kehidupan.

Kalkulator merupakan alat untuk menghitung perhitungan dari yang sederhana hingga yang kompleks, seperti penjumlahan, pengurangan, pembagian, perkalian, sampai pada kalkulator sains dengan rumus matematika kompleks.

Kalkulator merupakan alat hitung elektronika yang lebih sederhana dibandingkan dengan komputer. Dan saat ini sudah banyak beredar kalkulator dengan berbagai merek dan spesifikasi. 

Oleh karena itu, kami sebagai pembuat program, memiliki tujuan untuk mempermudah pemakai program dalam perhitungan matematika, serta mengefisienkan waktu dalam proses perhitungan. Dengan program kami ini, kesalahan dalam perhitungan juga dapat diminimalisir.

B. Flowchart

C. Tampilan Program

Gambar1. Form 1

Gambar2. Form 2

Program dapat diunduh disini
Tutorial dapat diunduh disini

MODUL2: PROGRAM KASIR

       

 MODUL2: PROGRAM KASIR

A. Deskripsi Program

Program ini merupakan hasil dari penerapan dari bahasa pemrograman Visual Basic 2010. Berdasarkan modul 2 yaitu “fungsi aritmatika dalam Visual Basic 2010”. Dan di dalam program ini merupakan program untuk membantu kita dalam proses perhitungan niaga. Dan tentunya program ini sangat bermanfaat bagi kita semua.

Program Kasir merupakan program yang dibuat untuk  kasir yang berguna untuk memudahkan dalam proses perhitungan niaga. Program kasir ini kami buat untuk salah satunya menambah pengalaman kami dalam visual basic dan juga sebagai syarat praktikum.

Konsep kami dalam membuat program kasir adalah dengan visual basic 2010 yaitu dengan menggunakan beberapa label, dan juga menggunakan beberapa combobox, NumbericUpDown, dan juga bermacam-macam tool box. Dan juga properties dalam tool box yang digunakan kami ganti textboxnya.

Program kasir kami terdiri dari 2 form yaitu Form1 dan Form2. Form1 adalah pembuka dalam program kasir yang terdiri dari 2 beberapa dan 1 button. Button tersebut digunakan untuk masuk ke form selanjutnya

            Form2 merupakan isi dari program kasir ini. Dan Form2 ini terdiri dari beberapa label yaitu

  14 label. Dan juga terdapat combobox, textbox, NumericUpDown, Button, Picture box. Picture box ini berisi gambar barang barang yang kami jual antara lain gitar, piano, keyboard, drum, bass, biola, saxophone. Button juga terdiri button menghitung, keluar, reset, dan cetak yang digunakan untuk mencetak. Dan juga kami mempunyai datagrid yang digunakan untuk mencatat barang apa saja yang sudah dibeli.

B. Flowchart

C. Tampilan Program

Gambar1. Form 2

Gambar2. Form 1

Program dapat diunduh disini

Tutorial dapat diunduh disini

MODUL 2: PROGRAM 2D&3D

A. Deskripsi Program

Latar belakang pembuatan aplikasi bangun datar 2D dan 3D ini adalah supaya kita memahami cara mengaplikasikan visual basic dalam perhitungan secara matematis. Dan dan juga salah satu tugas dari teknologi informatika dalam menjalani praktikum. Program bangun datar 2D dan 3D ini kami buat menggunakan visual basic 2010, yang terdiri dari 5 form.

Form3 kami buat sebagai pembuka ata sebagai startup form. Pada form ini terdapat Label, Button, dan comboBox. Dan ada pilihan 2D dan 3D pada button, setelah pilih 2D atau 3D, tentukan jeis bangun yang ingin dilihat. Kemudian pilih mulai untuk masuk ke halaman yang kita inginkan.

Form1 sebagai persegi 2D. Pada form ini pengguna program harus memasukkan nilai sisi agar program dapat menghitung luas persegi tersebut. Kemudian pada form ini terdapat tombol kembali dan tombol keluar. Tombol kembali berfungsi untuk kembali ke form3, dan tombol keluar brfungsi untuk keluar dari aplikasi.

Form2 sebagiai persegi panjang 2D. pada form ini hamper sama dengan form1 yang telah dijelaskan diatas. Hanya saja pada form ini, pengguna program harus memasukkan nilai panjang dan lebar persegi panjang tersebut agar program dpat mencari luas persegi panjangnya.

Form4 sebagai kubus 3D. pada form ini terdapat bagian bagian yang harus diisi untuk dapat menghitung volume kubus ini. Pengguna harus mengisi nilai sisi pada aplikasi. Kemudian klik hitung untuk melihat volume kubus tersebut.

Form5 sebagai balok 3D. pada form ini hampir sama dengan form4 hanya saja pada form ini kita memasukkan nilai panjang lebar dan tinngi untuk dapat melihat nilai volume balok tersebut.

B. Flowchart

C. Tampilan Program

Form1

Form2

Form3

Form4

Form5

Program bisa diunduh disini

Tutorial bisa diunduh disini

Analisis Bangun Datar Part 2

        If ComboBox1.Text = "Segitiga" And

        ComboBox2.Text = "Ungu" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = True

        End If

        If ComboBox1.Text = "Persegi" And

        ComboBox2.Text = "Abu-Abu" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = True

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi" And

        ComboBox2.Text = "Biru" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = True

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi" And

        ComboBox2.Text = "Coklat" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = True

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi" And

        ComboBox2.Text = "Hijau" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = True

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi" And

        ComboBox2.Text = "Kuning" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = True

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi" And

        ComboBox2.Text = "Merah" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = True

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi" And

        ComboBox2.Text = "Orange" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = True

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi" And

        ComboBox2.Text = "Pink" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = True

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi" And

        ComboBox2.Text = "Tosca" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = True

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi" And

        ComboBox2.Text = "Ungu" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = True

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi Panjang" And

            ComboBox2.Text = "Abu-Abu" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = True

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi Panjang" And

       ComboBox2.Text = "Biru" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = True

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi Panjang" And

       ComboBox2.Text = "Coklat" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = True

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi Panjang" And

       ComboBox2.Text = "Hijau" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = True

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi Panjang" And

       ComboBox2.Text = "Kuning" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = True

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi Panjang" And

       ComboBox2.Text = "Merah" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = True

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi Panjang" And

       ComboBox2.Text = "Orange" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = True

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi Panjang" And

            ComboBox2.Text = "Pink" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = True

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi Panjang" And

       ComboBox2.Text = "Tosca" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = True

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Persegi Panjang" And

       ComboBox2.Text = "Ungu" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = True

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Poligon" And

       ComboBox2.Text = "Abu-Abu" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = True

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Poligon" And

       ComboBox2.Text = "Biru" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = True

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Poligon" And

      ComboBox2.Text = "Coklat" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = True

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Poligon" And

      ComboBox2.Text = "Hijau" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = True

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Poligon" And

      ComboBox2.Text = "Kuning" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = True

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Poligon" And

      ComboBox2.Text = "Merah" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = True

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Poligon" And

      ComboBox2.Text = "Orange" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = True

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Poligon" And

      ComboBox2.Text = "Pink" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = True

            PTos.Visible = False

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Poligon" And

      ComboBox2.Text = "Tosca" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = True

            PUng.Visible = False

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

        If ComboBox1.Text = "Poligon" And

      ComboBox2.Text = "Ungu" Then

            LingkaranAbu.Visible = False

            LingkaranBiru.Visible = False

            LingkaranCoklat.Visible = False

            LingkaranHijau.Visible = False

            LingkaranKuning.Visible = False

            LingkaranMerah.Visible = False

            LingkaranOrange.Visible = False

            LingkaranPink.Visible = False

            LingkaranTosca.Visible = False

            LingkaranUngu.Visible = False

            PPAbu.Visible = False

            PPBiru.Visible = False

            PPCoklat.Visible = False

            PPHijau.Visible = False

            PPKuning.Visible = False

            PPMerah.Visible = False

            PPOren.Visible = False

            PPPink.Visible = False

            PPTosca.Visible = False

            PPUngu.Visible = False

            PersegiAbu.Visible = False

            PersegiBiru.Visible = False

            PersegiCoklat.Visible = False

            PersegiHijau.Visible = False

            PersegiKuning.Visible = False

            PersegiMerah.Visible = False

            PersegiOren.Visible = False

            PersegiPink.Visible = False

            PersegiTosca.Visible = False

            PersegiUngu.Visible = False

            PAbu.Visible = False

            PBiru.Visible = False

            PCok.Visible = False

            PHij.Visible = False

            PKun.Visible = False

            PMer.Visible = False

            POren.Visible = False

            PPink.Visible = False

            PTos.Visible = False

            PUng.Visible = True

            SBiru.Visible = False

            SCok.Visible = False

            SHij.Visible = False

            Skun.Visible = False

            SMer.Visible = False

            SOren.Visible = False

            SPink.Visible = False

            STos.Visible = False

            SAbu.Visible = False

            SUng.Visible = False

        End If

    End Sub

Keterangan:

Listing ini digunakan untuk memunculkan PictureBox dan juga menyembunyikannya. Tujuannya agar saat teks pada ComboBox1 atau ComboBox2 diganti, maka gambar yang muncul juga berganti tanpa adanya penumpukan gambar. PictureBox akan muncul apabila visible-nya True, dan akan tersembunyi apabila visible-nya False.

Listing Kedua

Untuk membuat messagebox dengan style YesNo.

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

        Dim testMsg As String

        testMsg = MsgBox("Are You Sure?", vbYesNo + vbQuestion, "Attention!")

        If testMsg = vbYes Then

            Form1.Close()

        ElseIf testMsg = vbNo Then

            Return

        End If

    End Sub

Keterangan:

Listing ini memiliki makna jika kita memilih tombol Yes pada messagebox, maka form1 atau form induk akan ditutup, dengan kata lain, program tersebut ditutup. Namun jika kita memilih tombol No, maka kita akan tetap pada form ini.

Listing Ketiga

Digunakan untuk membuat tombol refresh atau clear.

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

        ComboBox1.Text = ""

        ComboBox2.Text = ""

        LingkaranAbu.Visible = False

        LingkaranBiru.Visible = False

        LingkaranCoklat.Visible = False

        LingkaranHijau.Visible = False

        LingkaranKuning.Visible = False

        LingkaranMerah.Visible = False

        LingkaranOrange.Visible = False

        LingkaranPink.Visible = False

        LingkaranTosca.Visible = False

        LingkaranUngu.Visible = False

        PPAbu.Visible = False

        PPBiru.Visible = False

        PPCoklat.Visible = False

        PPHijau.Visible = False

        PPKuning.Visible = False

        PPMerah.Visible = False

        PPOren.Visible = False

        PPPink.Visible = False

        PPTosca.Visible = False

        PPUngu.Visible = False

        PersegiAbu.Visible = False

        PersegiBiru.Visible = False

        PersegiCoklat.Visible = False

        PersegiHijau.Visible = False

        PersegiKuning.Visible = False

        PersegiMerah.Visible = False

        PersegiOren.Visible = False

        PersegiPink.Visible = False

        PersegiTosca.Visible = False

        PersegiUngu.Visible = False

        PAbu.Visible = False

        PBiru.Visible = False

        PCok.Visible = False

        PHij.Visible = False

        PKun.Visible = False

        PMer.Visible = False

        POren.Visible = False

        PPink.Visible = False

        PTos.Visible = False

        PUng.Visible = False

        SBiru.Visible = False

        SCok.Visible = False

        SHij.Visible = False

        Skun.Visible = False

        SMer.Visible = False

        SOren.Visible = False

        SPink.Visible = False

        STos.Visible = False

        SAbu.Visible = False

        SUng.Visible = False

    End Sub

End Class

Keterangan:

Listing ini digunakan untuk me-refresh halaman atau form yang sedang bekerja. Atau dengan kata lain, semua data sebelumnya dihilangkan.