Listing Aplikasi Dua Dimensi

LISTING APLIKASI DUA DIMENSI WARNA

Form 1

PublicClassForm1

PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Me.BackColor = Color.HotPink

EndSub

PrivateSub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

If ComboBox1.SelectedText = "PERSEGI"Then Write("PERSEGI")

If ComboBox1.SelectedText = "PERSEGI PANJANG"Then Write("PERSEGI PANJANG")

If ComboBox1.SelectedText = "JAJAR GENJANG"Then Write("JAJAR GENJANG")

If ComboBox1.SelectedText = "SEGITIGA"Then Write("SEGITIGA")

EndSub

PrivateSub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

If ComboBox2.SelectedText = "Merah"Then Write("Merah")

If ComboBox2.SelectedText = "Biru"Then Write("Biru")

If ComboBox2.SelectedText = "Hijau"Then Write("Hijau")

If ComboBox2.SelectedText = "Hitam"Then Write("Hitam")

If ComboBox2.SelectedText = "Kuning"Then Write("Kuning")

EndSub

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

If ComboBox1.Text = "PERSEGI"And ComboBox2.Text = "Merah"ThenForm2.Show()

If ComboBox1.Text = "PERSEGI"And ComboBox2.Text = "Biru"ThenForm3.Show()

If ComboBox1.Text = "PERSEGI"And ComboBox2.Text = "Kuning"ThenForm4.Show()

If ComboBox1.Text = "PERSEGI"And ComboBox2.Text = "Hijau"ThenForm5.Show()

If ComboBox1.Text = "PERSEGI"And ComboBox2.Text = "Hitam"ThenForm6.Show()

If ComboBox1.Text = "PERSEGI PANJANG"And ComboBox2.Text = "Merah"ThenForm7.Show()

If ComboBox1.Text = "PERSEGI PANJANG"And ComboBox2.Text = "Biru"ThenForm8.Show()

If ComboBox1.Text = "PERSEGI PANJANG"And ComboBox2.Text = "Kuning"ThenForm10.Show()

If ComboBox1.Text = "PERSEGI PANJANG"And ComboBox2.Text = "Hijau"ThenForm11.Show()

If ComboBox1.Text = "PERSEGI PANJANG"And ComboBox2.Text = "Hitam"ThenForm12.Show()

If ComboBox1.Text = "JAJAR GENJANG"And ComboBox2.Text = "Merah"ThenForm13.Show()

If ComboBox1.Text = "JAJAR GENJANG"And ComboBox2.Text = "Biru"ThenForm14.Show()

If ComboBox1.Text = "JAJAR GENJANG"And ComboBox2.Text = "Kuning"ThenForm15.Show()

If ComboBox1.Text = "JAJAR GENJANG"And ComboBox2.Text = "Hijau"ThenForm16.Show()

If ComboBox1.Text = "JAJAR GENJANG"And ComboBox2.Text = "Hitam"ThenForm17.Show()

If ComboBox1.Text = "SEGITIGA"And ComboBox2.Text = "Merah"ThenForm18.Show()

If ComboBox1.Text = "SEGITIGA"And ComboBox2.Text = "Biru"ThenForm19.Show()

If ComboBox1.Text = "SEGITIGA"And ComboBox2.Text = "Kuning"ThenForm20.Show()

If ComboBox1.Text = "SEGITIGA"And ComboBox2.Text = "Hijau"ThenForm21.Show()

If ComboBox1.Text = "SEGITIGA"And ComboBox2.Text = "Hitam"ThenForm22.Show()

EndSub

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

Me.Hide()

Form26.Show()

EndSub

EndClass

Form 2

PublicClassForm2

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form 3

PublicClassForm3

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form 4

PublicClassForm4

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form 5

PublicClassForm5

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form 6

PublicClassForm6

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form 7

PublicClassForm7

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form 8

PublicClassForm8

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

Form1.Show()

EndSub

EndClass

Form 9

PublicClassForm9

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

Form1.Show()

EndSub

EndClass

Form 10

PublicClassForm10

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form 11

PublicClassForm11

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form 12

PublicClassForm12

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form 13

PublicClassForm13

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form 14

PublicClassForm14

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form 15

PublicClassForm15

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form16

PublicClassForm16

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form17

PublicClassForm17

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form18

PublicClassForm18

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form19

PublicClassForm19

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form20

PublicClassForm20

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form21

PublicClassForm21

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form22

PublicClassForm22

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

Me.Hide()

Form1.Show()

EndSub

EndClass

Form26

PublicClassForm26

PrivateSub Form26_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load

Me.BackColor = Color.Gray

EndSub

PrivateSub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

Me.ForeColor = Color.Red

EndSub

EndClass