Form 1
Komponen toolbox yang digunakan:
|
No
|
Komponen
|
Properties
|
Keterangan
|
|
1
|
Label1
|
Name
Text
|
Label1
Welcome to
|
|
2
|
Label2
|
Name
Text
|
Label2
Program Bidang
Datar
|
|
3
|
PictureBox1
|
Name
|
PictureBox1
|
|
4
|
Button1
|
Name
Text
|
Button1
Mulai
|
|
5
|
Button2
|
Name
Text
|
Button2
Keluar
|
Listing yang digunakan:
Listing pada form awal
Public
Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Form2.Show()
Me.Hide()
End Sub
Private
Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
Close()
End Sub
End
Class
Keterangan:
Maksud dari listing tersebut adalah apabila button1 (Mulai) ditekan,
maka akan muncul Form2, dan kemudian Form1 disembunyikan. Dan untuk button2
(Keluar), apabila ditekan, program akan berhenti.
Form 2
Komponen toolbox yang digunakan:
|
No
|
Komponen
|
Properties
|
Keterangan
|
|
1
|
Label1
|
Name
Text
|
Label1
Bangun
|
|
2
|
Label2
|
Name
Text
|
Label2
Warna
|
|
3
|
Button1
|
Name
Text
|
Button1
Lihat
|
|
4
|
Button2
|
Name
Text
|
Button2
Keluar
|
|
5
|
Button3
|
Name
Text
|
Button3
Ulang
|
|
6
|
ComboBox1
|
Name
Items
|
ComboBox1
Lingkaran, Segitiga,
Persegi, Persegi Panjang, Poligon
|
|
7
|
ComboBox2
|
Name
Items
|
ComboBox2
Abu-Abu, Biru,
Coklat, Hijau, Kuning, Merah, Orange, Pink, Tosca, Ungu
|
|
8
|
PictureBox1
|
Name
|
LingkaranAbu
|
|
9
|
PictureBox2
|
Name
|
LingkaranBiru
|
|
10
|
PictureBox3
|
Name
|
LingkaranCoklat
|
|
11
|
PictureBox4
|
Name
|
LingkaranHijau
|
|
12
|
PictureBox5
|
Name
|
LingkaranKuning
|
|
13
|
PictureBox6
|
Name
|
LingkaranMerah
|
|
14
|
PictureBox7
|
Name
|
LingkaranOrange
|
|
15
|
PictureBox8
|
Name
|
LingkaranPink
|
|
16
|
PictureBox9
|
Name
|
LingkaranTosca
|
|
17
|
PictureBox10
|
Name
|
LingkaranUngu
|
|
18
|
PictureBox11
|
Name
|
PPAbu
|
|
19
|
PictureBox12
|
Name
|
PPBiru
|
|
20
|
PictureBox13
|
Name
|
PPCoklat
|
|
21
|
PictureBox14
|
Name
|
PPHijau
|
|
22
|
PictureBox15
|
Name
|
PPKuning
|
|
23
|
PictureBox16
|
Name
|
PPMerah
|
|
24
|
PictureBox17
|
Name
|
PPOren
|
|
25
|
PictureBox18
|
Name
|
PPPink
|
|
26
|
PictureBox19
|
Name
|
PPTosca
|
|
27
|
PictureBox20
|
Name
|
PPUngu
|
|
28
|
PictureBox21
|
Name
|
PersegiAbu
|
|
29
|
PictureBox22
|
Name
|
PersegiBiru
|
|
30
|
PictureBox23
|
Name
|
PersegiCoklat
|
|
31
|
PictureBox24
|
Name
|
PersegiHijau
|
|
32
|
PictureBox25
|
Name
|
PersegiKuning
|
|
33
|
PictureBox26
|
Name
|
PersegiMerah
|
|
34
|
PictureBox27
|
Name
|
PersegiOren
|
|
35
|
PictureBox28
|
Name
|
PersegiPink
|
|
36
|
PictureBox29
|
Name
|
PersegiTosca
|
|
37
|
PictureBox30
|
Name
|
PersegiUngu
|
|
38
|
PictureBox31
|
Name
|
PAbu
|
|
39
|
PictureBox32
|
Name
|
PBiru
|
|
40
|
PictureBox33
|
Name
|
PCok
|
|
41
|
PictureBox33
|
Name
|
PHij
|
|
42
|
PictureBox33
|
Name
|
PKun
|
|
43
|
PictureBox33
|
Name
|
PMer
|
|
44
|
PictureBox33
|
Name
|
POren
|
|
45
|
PictureBox33
|
Name
|
PPink
|
|
46
|
PictureBox33
|
Name
|
PTos
|
|
47
|
PictureBox33
|
Name
|
PUng
|
|
48
|
PictureBox33
|
Name
|
SAbu
|
|
49
|
PictureBox33
|
Name
|
SBiru
|
|
50
|
PictureBox33
|
Name
|
SCok
|
|
51
|
PictureBox33
|
Name
|
SHij
|
|
52
|
PictureBox33
|
Name
|
Skun
|
|
53
|
PictureBox33
|
Name
|
SMer
|
|
54
|
PictureBox33
|
Name
|
SOren
|
|
55
|
PictureBox33
|
Name
|
SPink
|
|
56
|
PictureBox33
|
Name
|
STos
|
|
57
|
PictureBox33
|
Name
|
Sung
|
Listing Yang Digunakan:
Listing Pertama
Digunakan untuk memunculkan dan menyembunyikan gambar.
Public
Class Form2
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
If
ComboBox1.Text = "Lingkaran" And
ComboBox2.Text = "Abu-Abu" Then
LingkaranAbu.Visible = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" And
ComboBox2.Text = "Biru" Then
LingkaranAbu.Visible = False
LingkaranBiru.Visible = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" And
ComboBox2.Text = "Coklat" Then
LingkaranAbu.Visible = False
LingkaranBiru.Visible = False
LingkaranCoklat.Visible = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" And
ComboBox2.Text = "Hijau" Then
LingkaranAbu.Visible = False
LingkaranBiru.Visible = False
LingkaranCoklat.Visible = False
LingkaranHijau.Visible = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" And
ComboBox2.Text = "Merah" Then
LingkaranAbu.Visible = True
LingkaranBiru.Visible = False
LingkaranCoklat.Visible = False
LingkaranHijau.Visible = False
LingkaranKuning.Visible = False
LingkaranMerah.Visible = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" And
ComboBox2.Text = "Kuning" Then
LingkaranAbu.Visible = True
LingkaranBiru.Visible = False
LingkaranCoklat.Visible = False
LingkaranHijau.Visible = False
LingkaranKuning.Visible = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" 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 = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" 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 = True
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
SAbu.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
SUng.Visible = False
End If
If ComboBox1.Text = "Lingkaran"
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 = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Lingkaran" 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 = True
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
SAbu.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
SUng.Visible = False
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
SUng.Visible = False
SAbu.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
SCok.Visible = False
SHij.Visible = False
Skun.Visible = False
SMer.Visible = False
SOren.Visible = False
SPink.Visible = False
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
SBiru.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
SHij.Visible = False
Skun.Visible = False
SMer.Visible = False
SOren.Visible = False
SPink.Visible = False
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
SCok.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
Skun.Visible = False
SMer.Visible = False
SOren.Visible = False
SPink.Visible = False
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
SHij.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
SMer.Visible = False
SOren.Visible = False
SPink.Visible = False
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
Skun.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
SOren.Visible = False
SPink.Visible = False
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
SMer.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
SPink.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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
SUng.Visible = False
SAbu.Visible = False
STos.Visible = True
End If
If
ComboBox1.Text = "Segitiga" 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 = 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 = True
SPink.Visible = False
STos.Visible = False
SUng.Visible = False
SAbu.Visible = False
End If
Tidak ada komentar:
Posting Komentar