Analisa Formulir Pendaftaran Biro Jodoh

PENJELASAN LISTING

PublicClassForm1

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

Form2.Show()

Me.Hide()

·         Listing tersebut berfungsi untuk menampilakan form 2

·         Me.hide agar form yang sedang terbuka tadi menghilang

EndSub

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

EndSub

EndClass

PublicClassForm2

PrivateSub textbox3_Keypress(ByVal sender AsSystem.Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress

DimnumAsBoolean = Char.IsDigit(e.KeyChar)

If (Notnum) Thene.Handled = True

EndSub

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

·         Menandakan ada tombol pada form

        TextBox1.Text = ""

·         Menandakan ada kotak tex pada form

        CheckBox1.Checked = False

        CheckBox2.Checked = False

·         Menandakan ada CheckBox2.Checked pada form

        TextBox3.Text = ""

        TextBox4.Text = ""

        ComboBox1.SelectedItem = Nothing

        ComboBox2.SelectedItem = Nothing

        ComboBox3.SelectedItem = Nothing

·         Menandakan ada comboBox pada form. Dan “nothing” berguna untuk merefres kotak isian

EndSub

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

Form3.Show()

Me.Hide()

EndSub

PrivateSub Form2_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

EndSub

EndClass

PublicClassForm3

PrivateSub textbox2_Keypress(ByVal sender AsSystem.Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress

DimnumAsBoolean = Char.IsDigit(e.KeyChar)

If (Notnum) Thene.Handled = True

EndSub

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

Form4.Show()

Me.Hide()

EndSub

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

Form2.Show()

Me.Hide()

EndSub

·         Samadengan yang telah dijeaskan di atas tadi

·          

PrivateSub Button3_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click

        CheckBox1.Checked = False

        CheckBox2.Checked = False

        CheckBox3.Checked = False

        ComboBox1.SelectedItem = Nothing

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        DateTimePicker1.Text = ""

·         Untuk memunculkan tanggal pada form

EndSub

PrivateSub textbox3_Keypress(ByVal sender AsSystem.Object, ByVal e AsSystem.Windows.Forms.KeyPressEventArgs) Handles TextBox3.KeyPress

DimnumAsBoolean = Char.IsDigit(e.KeyChar)

If (Notnum) Thene.Handled = True

EndSub

PrivateSub Form3_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

EndSub

EndClass

PublicClassForm4

PrivateSub Button1_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs)

Form3.Show()

EndSub

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

Form5.Show()

Me.Hide()

EndSub

·         Semua listing telah di jelaskan di atas

PrivateSub Button1_Click_1(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button1.Click

Form3.Show()

Me.Hide()

EndSub

PrivateSub Form4_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

EndSub

EndClass

PublicClassForm5

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

Form4.Show()

Me.Hide()

EndSub

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

Close()

EndSub

·         Semua listing telah di jelaskan di atas

PrivateSub Button3_Click(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) Handles Button3.Click

Form6.Show()

Me.Hide()

EndSub

PrivateSub Form5_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

EndSub

EndClass

PublicClassForm6

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

Form7.Show()

Me.Hide()

EndSub

PrivateSub Form6_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

EndSub

EndClass

PublicClassForm7

PrivateSub Form7_Load(ByVal sender AsSystem.Object, ByVal e AsSystem.EventArgs) HandlesMyBase.Load

Me.BackColor = Color.Crimson

·         Memberikan warna pada background

        Label16.Text = Form2.TextBox1.Text

If Form2.CheckBox1.Checked Then Label17.Text = Form2.CheckBox1.Text

If Form2.CheckBox2.Checked Then Label17.Text = Form2.CheckBox2.Text

        Label18.Text = Form2.TextBox3.Text

        Label19.Text = Form2.TextBox4.Text

        Label20.Text = Form2.ComboBox1.SelectedItem

        Label21.Text = Form2.ComboBox2.SelectedItem

        Label22.Text = Form2.ComboBox3.SelectedItem

If Form3.CheckBox1.Checked Then Label23.Text = Form3.CheckBox1.Text

If Form3.CheckBox2.Checked Then Label23.Text = Form3.CheckBox2.Text

If Form3.CheckBox3.Checked Then Label23.Text = Form3.CheckBox3.Text

        Label24.Text = Form3.ComboBox1.SelectedItem

        Label25.Text = Form3.TextBox2.Text

        Label26.Text = Form3.TextBox3.Text

        Label27.Text = Form3.TextBox4.Text

        Label28.Text = Form3.TextBox5.Text

        Label30.Text = Form3.DateTimePicker1.Text

·         Untuk record.Jadisemua text pengisiandari di tampilkanulang

EndSub

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

Form2.Show()

Me.Hide()

EndSub

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

Form8.Show()

Me.Hide()

EndSub

EndClass