ANALISIS PROGRAM FORMULIR PENDAFTARAN MISS INDUSTRI 2012

Form 1

Komponen toolbox yang digunakan:

No	Komponen	Properties	Keterangan
1	PictureBox1	Name	PictureBox1
2	Label2	Name Text	Label2 Tertarik?
3	Label3	Name Text	Label3 Formulir Pendaftaran Miss Industri 2012
4	Button1	Name Text	Button1 Mulai

Listing

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

Me.Hide()

MsgBox("Isi Dengan Lengkap Ya!")

Form2.Show()

End Sub

Keterangan

Listing tersebut terdiri atas button1 yang berfungsi sebagai hyperlink ke form2, dengan memunculkan form2, lalu menyembunyikan form1.

Form 2

Komponen toolbox yang digunakan

No	Komponen	Properties	Keterangan
1	Label1	Name Text	Label1 Formulir Pendaftaran Miss Industri 2012
2	Label2	Name Text	Label2 Wakil Dari Angkatan
3	Label3	Name Text	Label3 Nama Lengkap *
4	Label4	Name Text	Label4 Nama Panggilan
5	Label5	Name Text	Label5 Usia
6	Label6	Name Text	Label6 Tempat dan Tanggal Lahir *
7	Label7	Name Text	Label7 Nomor Telpon *
8	Label8	Name Text	Label8 Email *
9	Label9	Name Text	Label9 Alamat Kos *
10	Label10	Name Text	Label10 Alamat Rumah
11	Label11	Name Text	Label11 *Harus Diisi
12	ComboBox1	Name Items	ComboBox1 1-31
13	ComboBox2	Nama Items	ComboBox2 Januari-Desember

14	ComboBox3	Nama Items	ComboBox3 2005-2012
15	TextBox1	Nama Text	TextBox1
16	TextBox2	Nama Text	TextBox2
17	TextBox3	Nama Text	TextBox3
18	TextBox4	Nama Text	TextBox4
19	TextBox5	Nama Text	TextBox5
20	TextBox6	Nama Text	TextBox6
21	TextBox7	Nama Text	TextBox7
22	TextBox8	Nama Text	TextBox8
23	TextBox9	Nama Text	TextBox9
24	TextBox10	Nama Text	TextBox10
25	Button1	Nama Text	Button1 Kembali
26	Button2	Nama Text	Button2 Lanjut
27	Button3	Nama Text	Button3 Clear

Listing

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

        Form4.Show()

        Me.Hide()

    End Sub

Keterangan

Listing ini digunakan untuk membuat button1 apabila ditekan membuat form4 muncul dan form yang sedang berjalan disembunyikan. Ini seperti fungsi kembali ke form sebelumnya.

   

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

        If TextBox5.Text = "" Or ComboBox1.Text = "" Or ComboBox2.Text = "" Or TextBox4.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        If TextBox2.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        If TextBox4.Text = "" And TextBox5.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        If TextBox7.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        If TextBox8.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        If TextBox1.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        Form2.Show()

        Me.Hide()

End Sub

Keterangan

Listing ini digunakan pada tombol “lanjut”, untuk memunculkan Message Box peringatan karena syarat untuk dapat melanjutkan ke form selanjutnya belum dipenuhi. Dan membuat pemakai tidak dapat menuju ke form selanjutnya.

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

        ComboBox3.Text = ""

        TextBox1.Text = ""

        TextBox10.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

        TextBox8.Text = ""

        ComboBox2.Text = ""

        ComboBox1.Text = ""

End Sub

Keterangan

Listing ini digunakan pada tombol “clear”, untuk menghilangkan semua data yang sebelumnya sudah dimasukkan.

Form 3

Komponen toolbox yang digunakan

No	Komponen	properties	Keterangan
1	form2	Nama	form2
		Text	formulir pendaftaran miss industri 2012
2	label1	Nama	label1
		Text	formulir pendaftaran miss industri 2012
3	label2	Nama	label2
		Text	ukuran kemeja
4	label3	Nama	label3
		Text	ukuran T-shirt
5	label4	Nama	label4
		Text	tinggi badan
6	label5	Nama	label5
		Text	berat badan
7	label6	Nama	label6
		Text	ukuran celana panjang
8	label7	Nama	label7
		Text	ukuran sepatu
9	label8	Nama	label8
		Text	ukuran dada
10	label9	Nama	label9
		Text	ukuran pinggul
11	label10	Nama	label10
		Text	ukuran pinggang
12	label11	Nama	label11
		Text	Cm
13	label12	Nama	label12
		Text	Kg
14	radiobutton1	Nama	radio botton1
		Text	S
15	radiobutton2	Nama	radio botton2
		Text	M
16	radiobutton3	Nama	radio botton3
		Text	L
17	radiobutton4	Nama	radio botton4
		Text	S
18	radiobutton5	Nama	radio botton5
		Text	M
19	radiobutton6	Nama	radio botton6
		Text	L
20	textbox1	Nama	text box1
		Text
21	textbox2	Nama	text box2
		Text
22	textbox3	Nama	text box3
		Text
23	textbox4	Nama	text box4
		Text
24	textbox5	Nama	text box5
		Text
25	textbox6	Nama	text box6
		Text
26	textbox7	Nama	text box7
		Text
27	button1	Nama	button1
		Text	Kembali
28	button2	Nama	button2
		text	Lanjut
29	Button3	Nama	Button3
		Text	Clear

Listing

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

        Form1.Show()

        Me.Hide()

End Sub

Keterangan

Listing ini digunakan pada tombol “Kembali” untuk mengembalikan pemakai program ke form sebelumnya.

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

        If TextBox1.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If TextBox2.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If TextBox3.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If TextBox4.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If TextBox5.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If TextBox6.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If TextBox7.Text = "" Then

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If RadioButton1.Checked Or RadioButton2.Checked Or RadioButton3.Checked Then

            Form3.Show()

            Me.Hide()

        Else

            MsgBox("Semua Harus Diisi")

            Return

        End If

        If RadioButton4.Checked Or RadioButton5.Checked Or RadioButton6.Checked Then

            Form3.Show()

            Me.Hide()

        Else

            MsgBox("Semua Harus Diisi")

            Return

        End If

        Form3.Show()

        Me.Hide()

End Sub

Keterangan

Listing ini digunakan pada tombol “Lanjut” untuk memunculkan message box peringatan apabila syarat untuk menuju form selanjutnya belum terpenuhi, sehingga pemakai program tetap berada di form yang sedang berjalan.

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

        RadioButton1.Checked = False

        RadioButton2.Checked = False

        RadioButton3.Checked = False

        RadioButton4.Checked = False

        RadioButton5.Checked = False

        RadioButton6.Checked = False

        TextBox1.Text = ""

        TextBox2.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

        TextBox6.Text = ""

        TextBox7.Text = ""

End Sub

Keterangan

Listing ini digunakan pada tombol “Clear” untuk menghilangkan semua data yang sudah diisi sebelumnya.

Form 4

Komponen toolbox yang digunakan

No	Komponen	Properties	Keterangan
1	Form3	Nama Text	Form3 Fomulir Pendaftaran Miss Industri 2012
2	Label1	Nama Text	label1 Fomulir Pendaftaran Miss Industri 2012
3	Label2	Nama Text	label2 Bakat *
4	Label3	Nama Text	label3 Bahasa Yang Dikuasai *
5	Label4	Nama Text	label4 Sertifikat
6	Label5	Nama Text	label5 Lomba Yang Pernah Diikuti
7	Label6	Nama Text	label6 Pengalaman Berorganisasi
8	Checkbox1	Nama Text	Checkbox1 Menyanyi
9	Checkbox2	Nama Text	Checkbox2 Menari
10	Checkbox3	Nama Text	Checkbox3 Bermusik
11	Checkbox5	Nama Text	Checkbox5 Lainya
12	Textbox1	Nama Text	Textbox1
13	Textbox2	Nama Text	Textbox2
14	Textbox3	Nama Text	Textbox3
15	Textbox4	Nama Text	Textbox4
16	Textbox5	Nama Text	Textbox5
17	Button1	Nama Text	Button1 Kembali
18	Button2	Nama Text	Button2 Selesai
19	Button3	Nama Text	Button3 Clear

Listing

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

        Form2.Show()

        Me.Hide()

 End Sub

Keterangan

Listing ini digunakan pada button1 (Kembali), untuk mengembalikan pemakai ke form sebelumnya.

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

        Dim testMsg As String

        testMsg = MsgBox("Yakin Sudah Lengkap?", vbYesNo + vbQuestion, "Peringatan!")

        If testMsg = vbNo Then

            Return

        ElseIf testMsg = vbYes Then

            Form5.Show()

            Me.Hide()

        End If

        If CheckBox1.Checked Or CheckBox2.Checked Or CheckBox3.Checked Then

            Form5.Show()

            Me.Hide()

        ElseIf CheckBox5.Checked = False Or TextBox1.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

        If TextBox2.Text = "" Then

            MsgBox("Yang Bertanda Bintang Harus Diisi")

            Return

        End If

       

End Sub

Keterangan

Listing ini digunakan pada tombol Selesai, untuk memunculkan Message Box Peringatan apabila syarat  untuk dapat menuju ke form selanjutnya tidak dipenuhi, dan pemakai akan tetap berada pada form yang sedang berjalan. Namun, apabila semua syarat dipenuhi, pemakai akan menuju form selanjutnya.

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 = ""

        CheckBox1.Checked = False

        CheckBox2.Checked = False

        CheckBox3.Checked = False

        CheckBox5.Checked = False

End Sub

Keterangan

Listing ini digunakan pada tombol “Clear” dimana apabila ditekan, semua data yang sebelumnya sudah diisi dihilangkan.

Form 5

Komponen toolbox yang digunakan

No	Komponen	Properties	Keterangan
76	Form5	Nama Text	Form5 Formulir Pendaftaran Miss Industri 2012
77	Label1	Nama Text	Label1 Kamu Berhasil Mengisi Formulir Pendaftaran Miss Industri 2012
78	Label2	Nama Text	Label2 Selamat!!!
79	Button1	Nama Text	Button1 Keluar

Listing

Public Class Form5

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

        Form4.Close()

    End Sub

End Class

Keterangan

Listing ini digunakan pada tombol Keluar, dimana apabila tombol tersebut ditekan maka program selesai.