LISTING FORM PENERIMAAN MAHASISWA BARU UNDIP

LISTING FORMULIR PENDAFTARAN

FORM 1

Public Class Form1

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

        MsgBox("PIN = 1234")

    End Sub

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

        If TextBox1.Text = "1234" Then TextBox2.Text = "****"

    End Sub

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

        If Not TextBox1.Text = "1234" Then MsgBox("pin yang anda masukkan salah, cek di info pin")

        If TextBox1.Text = "1234" And TextBox2.Text = "****" Then Form2.Show()

    End Sub

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

        BackColor = Color.Aqua

    End Sub

End Class

FORM2

Public Class Form2

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

    End Sub

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

        If TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" And TextBox5.Text = "" Then

            MsgBox("data anda belum lengkap")

            Return

        End If

        Form3.Show()

        Me.Hide()

    End Sub

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

    End Sub

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

    End Sub

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

        Form1.Hide()

        BackColor = Color.Aqua

    End Sub

End Class

FORM3

Public Class Form3

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

        If TextBox1.Text = "" And TextBox2.Text = "" And TextBox3.Text = "" And TextBox4.Text = "" And TextBox5.Text = "" And TextBox6.Text = "" Then

            MsgBox("data anda belum lengkap")

            Return

        End If

        Form4.Show()

        Me.Hide()

    End Sub

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

        Form2.Show()

        Me.Hide()

    End Sub

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

        BackColor = Color.Aqua

        Form2.Hide()

    End Sub

End Class

FORM4

Public Class Form4

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

        If TextBox1.Text = "" And TextBox2.Text = "" And TextBox4.Text = "" Then

            MsgBox("data anda belum lengkap")

            Return

        End If

        Form5.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 Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        BackColor = Color.Aqua

        Form3.Hide()

    End Sub

End Class

FORM 5

Public Class Form5

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

        Form6.Show()

        Me.Hide()

    End Sub

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

        BackColor = Color.Aqua

        Form4.Hide()

    End Sub

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

        Form4.Show()

        Me.Hide()

    End Sub

End Class

FORM 6

Public Class Form6

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

        BackColor = Color.Aqua

        Label13.Text = Form2.TextBox1.Text

        Label14.Text = Form2.TextBox2.Text

        Label15.Text = Form2.DateTimePicker1.Text

        Label16.Text = Form2.ComboBox1.Text

        Label17.Text = Form2.RadioButton1.Checked Or Form2.RadioButton2.Checked

        Label18.Text = Form4.TextBox1.Text

        Label19.Text = Form4.TextBox2.Text

        Label20.Text = Form4.TextBox4.Text

        Label21.Text = Form4.RichTextBox1.Text

        Label22.Text = Form4.ComboBox2.Text

        Label23.Text = Form5.ComboBox1.Text

        Label24.Text = Form5.ComboBox2.Text

    End Sub

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

        MsgBox("ANDA SUDAH TERDAFTAR")

        Me.Close()

    End Sub

End Class