Senin, 19 November 2012

LISTING PROGRAM PEMBUAT BIDANG


LISTING PROGRAM PEMBUAT BIDANG

1.png

Pada Form 1

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.ForeColor = Color.White
        Me.BackColor = Color.Black
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ComboBox1.Text = "Lingkaran" And
            ComboBox2.Text = "Merah" Then
            Form2.Show()

        End If
        If ComboBox1.Text = "Lingkaran" And
            ComboBox2.Text = "Kuning" Then
            Form3.Show()
        End If
        If ComboBox1.Text = "Lingkaran" And
       ComboBox2.Text = "Hijau" Then
            Form4.Show()
        End If
        If ComboBox1.Text = "Persegi" And
            ComboBox2.Text = "Merah" Then
            Form5.Show()
        End If
        If ComboBox1.Text = "Persegi" And
          ComboBox2.Text = "Kuning" Then
            Form6.Show()
        End If
        If ComboBox1.Text = "Persegi" And
        ComboBox2.Text = "Hijau" Then
            Form7.Show()

        End If
    End Sub
End Class

5.png

Pada Form 2

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Black
    End Sub
End Class

7.png

Pada Form 3

Public Class Form3

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Black
    End Sub
End Class

6.png

Pada Form 4

Public Class Form4

    Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Black
    End Sub
End Class

2.png

Pada Form 5

Public Class Form5

    Private Sub Form5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Black
    End Sub
End Class

4.png

Pada Form 6

Public Class Form6

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Black
    End Sub
End Class

3.png

Pada Form 7

Public Class Form7

    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.BackColor = Color.Black
    End Sub
End Class


0 komentar:

Posting Komentar