ANALISIS LISTING PROGRAM BIDANG 2 DIMENSI DENGAN ARNA

ANALISIS  LISTING PROGRAM BIDANG 2 DIMENSI WARNA

Public Class Form1

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

End Sub

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

Me.Hide()

If ComboBox1.Text = ("Lingkaran") And ComboBox2.Text = ("Merah") Then Form2.Show()

If ComboBox1.Text = ("Lingkaran") And ComboBox2.Text = ("Kuning") Then Form3.Show()

If ComboBox1.Text = ("Lingkaran") And ComboBox2.Text = ("Hijau") Then Form4.Show()

If ComboBox1.Text = ("Persegi panjang") And ComboBox2.Text = ("Merah") Then Form5.Show()

If ComboBox1.Text = ("Persegi panjang") And ComboBox2.Text = ("Kuning") Then Form6.Show()

If ComboBox1.Text = ("Persegi panjang") And ComboBox2.Text = ("Hijau") Then Form7.Show()

If ComboBox1.Text = ("Oval") And ComboBox2.Text = ("Merah") Then Form8.Show()

If ComboBox1.Text = ("Oval") And ComboBox2.Text = ("Kuning") Then Form9.Show()

If ComboBox1.Text = ("Oval") And ComboBox2.Text = ("Hijau") Then Form10.Show()

End Sub

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

End Sub

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

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 :

Baris 1 membuat bentuk lingkaran dengan warna merah

Baris 2 membuat bentuk lingkaran dengan warna kuning

Baris 3 membuat bentuk lingkaran dengan warna hujau

Baris 4 membuat bentuk persegi panjang dengan warna merah

Baris 5 membuat bentuk persegi panjang dengan warna kuning

Baris 6 membuat bentuk persegi panjang dengan warna hijau

Baris 7 membuat bentuk oval dengan warna merah

Baris 8 membuat bentuk oval dengan warna kuning

Baris 9 membuat bentuk oval dengan warna hijau

End sub berarti untuk mengakhiri sub

End class berarti untuk mengakhiri form

Public Class Form2

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

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click = digunakan untuk memfungsikan tombol button

Close()Form1.Show()

End Sub

End Class

Public Class Form3

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

End Sub

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

Close()

Form1.Show()

End Sub

End Class

Public Class Form4

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click = ini digunakan untuk memfungsikan tombol button

Close()

Form1.Show() = ini digunakan untuk button masuk kedalam form selanjutnya

End Sub

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

End Sub

End Class

Public Class form5

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

End Sub

Private Sub RectangleShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape1.Click

End Sub

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

Close()

Form1.Show()

End Sub

End Class

Public Class Form6

Private Sub RectangleShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape1.Click

End Sub

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

Close()

Form1.Show()

End Sub

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

End Sub

End Class

Public Class Form7

Private Sub RectangleShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape1.Click

End Sub

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

Close()

Form1.Show()

End Sub

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

End Sub

End Class

Public Class Form8

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

Close()

Form1.Show()

End Sub

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

End Sub

End Class

Public Class Form9

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

Close()

Form1.Show()

End Sub

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

End Sub

End Class

Public Class Form10

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

Close()

Form1.Show()

End Sub

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

End Sub

End Class