Listing Program 1 & 2

LISTING PROGRAM 1 (FORM PENDAFTARAN)

STEP 1

Public Class Form1

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    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

        Form3.Show()

        Me.Hide()

    End Sub

    Private Sub MonthCalendar1_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs)

        Me.Hide()

    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub NotifyIcon1_MouseDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs)

    End Sub

    Private Sub DataRepeater1_CurrentItemIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

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

    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)

    End Sub

    Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub Label10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label10.Click

    End Sub

    Private Sub Label13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label13.Click

    End Sub

    Private Sub Label8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label8.Click

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

    End Sub

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

    End Sub

    Private Sub Label12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label12.Click

    End Sub

    Private Sub Label6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label6.Click

    End Sub

    Private Sub Label11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label11.Click

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        ComboBox2.Text = ""

        ComboBox3.Text = ""

        RadioButton1.Text = ""

        RadioButton2.Text = ""

        TextBox6.Text = ""

        TextBox5.Text = ""

        ComboBox1.Text = ""

    End Sub

    Private Sub Label17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label17.Click

    End Sub

    Private Sub TextBox5_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox5.TextChanged

    End Sub

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

    End Sub

End Class

STEP 2

Public Class Form3

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

    End Sub

    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

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

        Form5.Show()

        Me.Hide()

    End Sub

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

        Form1.Show()

        Me.Hide()

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

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

    End Sub

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

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

    End Sub

End Class

STEP 3

Public Class Form5

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

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

        Step4.Show()

        Me.Hide()

    End Sub

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

        Form3.Show()

        Me.Hide()

    End Sub

    Private Sub RESET_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RESET.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

    End Sub

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

    End Sub

End Class

STEP 4

Public Class Step4

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

        Form1.Show()

        Me.Hide()

    End Sub

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

        Form6.Show()

        Me.Hide()

    End Sub

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

    End Sub

End Class

FINISH

Public Class Form6

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

        Close()

    End Sub

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

    End Sub

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

    End Sub

End Class

LISTING PROGRAM 2 (2 DIMENSI)

Public Class Form1

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        If TextBox1.Text = ("Persegi") Then RectangleShape1.Show()

        If TextBox1.Text = ("Persegi Hijau") Then RectangleShape2.Show()

        If TextBox1.Text = ("Persegi Kuning") Then RectangleShape3.Show()

        If TextBox1.Text = ("Persegi Biru") Then RectangleShape4.Show()

        If TextBox1.Text = ("Lingkaran") Then OvalShape1.Show()

        If TextBox1.Text = ("Lingkaran Biru") Then OvalShape2.Show()

        If TextBox1.Text = ("Lingkaran Kuning") Then OvalShape3.Show()

        If TextBox1.Text = ("Lingkaran Hijau") Then OvalShape4.Show()

        If TextBox1.Text = ("Persegi Panjang") Then RectangleShape5.Show()

        If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape6.Show()

        If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape7.Show()

        If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape8.Show()

        If TextBox1.Text = ("Persegi Hijau") Then RectangleShape1.Hide()

        If TextBox1.Text = ("Persegi Kuning") Then RectangleShape1.Hide()

        If TextBox1.Text = ("Persegi Biru") Then RectangleShape1.Hide()

        If TextBox1.Text = ("Lingkaran") Then RectangleShape1.Hide()

        If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape1.Hide()

        If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape1.Hide()

        If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape1.Hide()

        If TextBox1.Text = ("Persegi Panjang") Then RectangleShape1.Hide()

        If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape1.Hide()

        If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape1.Hide()

        If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape1.Hide()

        If TextBox1.Text = ("Persegi") Then RectangleShape2.Hide()

        If TextBox1.Text = ("Persegi Kuning") Then RectangleShape2.Hide()

        If TextBox1.Text = ("Persegi Biru") Then RectangleShape2.Hide()

        If TextBox1.Text = ("Lingkaran") Then RectangleShape2.Hide()

        If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape2.Hide()

        If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape2.Hide()

        If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape2.Hide()

        If TextBox1.Text = ("Persegi Panjang") Then RectangleShape2.Hide()

        If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape2.Hide()

        If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape2.Hide()

        If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape2.Hide()

        If TextBox1.Text = ("Persegi") Then RectangleShape3.Hide()

        If TextBox1.Text = ("Persegi Hijau") Then RectangleShape3.Hide()

        If TextBox1.Text = ("Persegi Biru") Then RectangleShape3.Hide()

        If TextBox1.Text = ("Lingkaran") Then RectangleShape3.Hide()

        If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape3.Hide()

        If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape3.Hide()

        If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape3.Hide()

        If TextBox1.Text = ("Persegi Panjang") Then RectangleShape3.Hide()

        If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape3.Hide()

        If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape3.Hide()

        If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape3.Hide()

        If TextBox1.Text = ("Persegi") Then RectangleShape4.Hide()

        If TextBox1.Text = ("Persegi Hijau") Then RectangleShape4.Hide()

        If TextBox1.Text = ("Persegi Kuning") Then RectangleShape4.Hide()

        If TextBox1.Text = ("Lingkaran") Then RectangleShape4.Hide()

        If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape4.Hide()

        If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape4.Hide()

        If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape4.Hide()

        If TextBox1.Text = ("Persegi Panjang") Then RectangleShape4.Hide()

        If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape4.Hide()

        If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape4.Hide()

        If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape4.Hide()

        If TextBox1.Text = ("Persegi") Then OvalShape1.Hide()

        If TextBox1.Text = ("Persegi Hijau") Then OvalShape1.Hide()

        If TextBox1.Text = ("Persegi Kuning") Then OvalShape1.Hide()

        If TextBox1.Text = ("Persegi Biru") Then OvalShape1.Hide()

        If TextBox1.Text = ("Lingkaran Biru") Then OvalShape1.Hide()

        If TextBox1.Text = ("Lingkaran Kuning") Then OvalShape1.Hide()

        If TextBox1.Text = ("Lingkaran Hijau") Then OvalShape1.Hide()

        If TextBox1.Text = ("Persegi Panjang") Then OvalShape1.Hide()

        If TextBox1.Text = ("Persegi Panjang Biru") Then OvalShape1.Hide()

        If TextBox1.Text = ("Persegi Panjang Kuning") Then OvalShape1.Hide()

        If TextBox1.Text = ("Persegi Panjang Hijau") Then OvalShape1.Hide()

        If TextBox1.Text = ("Persegi") Then OvalShape2.Hide()

        If TextBox1.Text = ("Persegi Hijau") Then OvalShape2.Hide()

        If TextBox1.Text = ("Persegi Kuning") Then OvalShape2.Hide()

        If TextBox1.Text = ("Persegi Biru") Then OvalShape2.Hide()

        If TextBox1.Text = ("Lingkaran") Then OvalShape2.Hide()

        If TextBox1.Text = ("Lingkaran Kuning") Then OvalShape2.Hide()

        If TextBox1.Text = ("Lingkaran Hijau") Then OvalShape2.Hide()

        If TextBox1.Text = ("Persegi Panjang") Then OvalShape2.Hide()

        If TextBox1.Text = ("Persegi Panjang Biru") Then OvalShape2.Hide()

        If TextBox1.Text = ("Persegi Panjang Kuning") Then OvalShape2.Hide()

        If TextBox1.Text = ("Persegi Panjang Hijau") Then OvalShape2.Hide()

        If TextBox1.Text = ("Persegi") Then OvalShape3.Hide()

        If TextBox1.Text = ("Persegi Hijau") Then OvalShape3.Hide()

        If TextBox1.Text = ("Persegi Kuning") Then OvalShape3.Hide()

        If TextBox1.Text = ("Persegi Biru") Then OvalShape3.Hide()

        If TextBox1.Text = ("Lingkaran") Then OvalShape3.Hide()

        If TextBox1.Text = ("Lingkaran Biru") Then OvalShape3.Hide()

        If TextBox1.Text = ("Lingkaran Hijau") Then OvalShape3.Hide()

        If TextBox1.Text = ("Persegi Panjang") Then OvalShape3.Hide()

        If TextBox1.Text = ("Persegi Panjang Biru") Then OvalShape3.Hide()

        If TextBox1.Text = ("Persegi Panjang Kuning") Then OvalShape3.Hide()

        If TextBox1.Text = ("Persegi Panjang Hijau") Then OvalShape3.Hide()

        If TextBox1.Text = ("Persegi") Then OvalShape4.Hide()

        If TextBox1.Text = ("Persegi Hijau") Then OvalShape4.Hide()

        If TextBox1.Text = ("Persegi Kuning") Then OvalShape4.Hide()

        If TextBox1.Text = ("Persegi Biru") Then OvalShape4.Hide()

        If TextBox1.Text = ("Lingkaran") Then OvalShape4.Hide()

        If TextBox1.Text = ("Lingkaran Biru") Then OvalShape4.Hide()

        If TextBox1.Text = ("Lingkaran Kuning") Then OvalShape4.Hide()

        If TextBox1.Text = ("Persegi Panjang") Then OvalShape4.Hide()

        If TextBox1.Text = ("Persegi Panjang Biru") Then OvalShape4.Hide()

        If TextBox1.Text = ("Persegi Panjang Kuning") Then OvalShape4.Hide()

        If TextBox1.Text = ("Persegi Panjang Hijau") Then OvalShape4.Hide()

        If TextBox1.Text = ("Persegi") Then RectangleShape5.Hide()

        If TextBox1.Text = ("Persegi Hijau") Then RectangleShape5.Hide()

        If TextBox1.Text = ("Persegi Kuning") Then RectangleShape5.Hide()

        If TextBox1.Text = ("Persegi Biru") Then RectangleShape5.Hide()

        If TextBox1.Text = ("Lingkaran") Then RectangleShape5.Hide()

        If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape5.Hide()

        If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape5.Hide()

        If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape5.Hide()

        If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape5.Hide()

        If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape5.Hide()

        If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape5.Hide()

        If TextBox1.Text = ("Persegi") Then RectangleShape6.Hide()

        If TextBox1.Text = ("Persegi Hijau") Then RectangleShape6.Hide()

        If TextBox1.Text = ("Persegi Kuning") Then RectangleShape6.Hide()

        If TextBox1.Text = ("Persegi Biru") Then RectangleShape6.Hide()

        If TextBox1.Text = ("Lingkaran") Then RectangleShape6.Hide()

        If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape6.Hide()

        If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape6.Hide()

        If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape6.Hide()

        If TextBox1.Text = ("Persegi Panjang") Then RectangleShape6.Hide()

        If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape6.Hide()

        If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape6.Hide()

        If TextBox1.Text = ("Persegi") Then RectangleShape7.Hide()

        If TextBox1.Text = ("Persegi Hijau") Then RectangleShape7.Hide()

        If TextBox1.Text = ("Persegi Kuning") Then RectangleShape7.Hide()

        If TextBox1.Text = ("Persegi Biru") Then RectangleShape7.Hide()

        If TextBox1.Text = ("Lingkaran") Then RectangleShape7.Hide()

        If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape7.Hide()

        If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape7.Hide()

        If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape7.Hide()

        If TextBox1.Text = ("Persegi Panjang") Then RectangleShape7.Hide()

        If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape7.Hide()

        If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape7.Hide()

        If TextBox1.Text = ("Persegi") Then RectangleShape8.Hide()

        If TextBox1.Text = ("Persegi Hijau") Then RectangleShape8.Hide()

        If TextBox1.Text = ("Persegi Kuning") Then RectangleShape8.Hide()

        If TextBox1.Text = ("Persegi Biru") Then RectangleShape8.Hide()

        If TextBox1.Text = ("Lingkaran") Then RectangleShape8.Hide()

        If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape8.Hide()

        If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape8.Hide()

        If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape8.Hide()

        If TextBox1.Text = ("Persegi Panjang") Then RectangleShape8.Hide()

        If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape8.Hide()

        If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape8.Hide()

    End Sub

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

    End Sub

End Class