Analisis Aplikasi Pendaftaran UKM

No.	Komponen	Properties	Keterangan
1.	Form 1	Name Text	Form 1 Pendaftaran UKM
2.	Label 1	Name Text	Label 1 Pendaftaran
3.	Label 2	Name Text	Label 2 UKM
4.	Label 3	Name Text	Label 3 2012
5.	Button 1	Name Text	Button 1 OK
6.	Button 2	Name Text	Button 2 Keluar
7.	Timer 1	Name	Timer 1

Public Class Form1

    Private Property [case] As Object

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        Select Case Label1.Text

            Case ""

                Label1.Text = "P"

            Case "P"

                Label1.Text = "Pe"

            Case "Pe"

                Label1.Text = "Pen"

            Case "Pen"

                Label1.Text = "Pend"

            Case "Pend"

                Label1.Text = "Penda"

            Case "Penda"

                Label1.Text = "Pendaf"

            Case "Pendaf"

                Label1.Text = "Pendaft"

            Case "Pendaft"

                Label1.Text = "Pendafta"

            Case "Pendafta"

                Label1.Text = "Pendaftar"

            Case "Pendaftar"

                Label1.Text = "Pendaftaran"

            Case "Pendaftaran"

                Label1.Text = ""

                Select Case Label2.Text

                    Case ""

                        Label2.Text = "U"

                    Case "U"

                        Label2.Text = "UK"

                    Case "UK"

                        Label2.Text = "UKM"

                    Case "UKM"

                        Label2.Text = ""

                        Select Case Label3.Text

                            Case ""

                                Label3.Text = "2"

                            Case "2"

                                Label3.Text = "20"

                            Case "20"

                                Label3.Text = "201"

                            Case "201"

                                Label3.Text = "2012"

                            Case "2012"

                                Label3.Text = ""

                        End Select

                End Select

        End Select

    End Sub

Keterangan:

Baris 1 sampai dengan baris 22 menyatakan bahwa taks yang ada di label 1 akan muncul hurufnya satu per satu sehingga menjadi tulisan “Pendaftaran”.

Baris 23 sampai dengan baris 30  menyatakan bahwa taks yang ada di label 2 akan muncul hurufnya satu per satu sehingga menjadi tulisan “UKM”.

Baris 31 sampai dengan baris 32 menyatakan bahwa taks yang ada di label 3 akan muncul hurufnya satu per satu sehingga menjadi tulisan “2012”.

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

        Form2.Show()

    End Sub

Keterangan :

Jika Button 1 di klik maka form 2 akan muncul

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

        Close()

    End Sub

Keterangan :

Jika Button 2 di klik maka program berakhir

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

    End Sub

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

    End Sub

End Class

No.	Komponen	Properties	Keterangan
1.	Form 2	Name Text	Form 2 Data Diri
2.	Label 1	Name Text	Label 1 Nama
3.	Label 2	Name Text	Label 2 NIM
4.	Label 3	Name Text	Label 3 Fakultas
5.	Label 4	Name Text	Label 4 Jurusan
6.	TextBox 1	Name Text Text Align Font	Textbox 1 Left Microsoft Sans Serif 8,25pt
7.	TextBox 2	Name Text Text Align Font	Textbox 2 Left Microsoft Sans Serif 8,25pt
8.	TextBox 3	Name Text Text Align Font	Textbox 3 Left Microsoft Sans Serif 8,25pt
9.	TextBox 4	Name Text Text Align Font	Textbox 4 Left Microsoft Sans Serif 8,25pt
10.	Button 1	Name Text	Button 1 Lanjut
11.	Button 2	Name Text	Button 2 Close

Public Class Form2

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

        If TextBox1.Text = (String.Empty) Or TextBox2.Text = (String.Empty) Or TextBox3.Text = (String.Empty) Or TextBox4.Text = (String.Empty) Then MsgBox("Isilah Data Dengan Lengkap") Else Form3.Show()

        If TextBox1.Text = (String.Empty) Or TextBox2.Text = (String.Empty) Or TextBox3.Text = (String.Empty) Or TextBox4.Text = (String.Empty) Then Me.Show() Else Me.Hide()

    End Sub

Keterangan

Baris 1 menyatakan jika textbox 1, textbox 2, textbox, 3, dan textbox 4 kosong maka keluar messege box yang bertuliskan “Isilah Data Dengan Lengkap” namun jika tidak program berlanjut ke form 3.

Baris 2 menyatakan jika textbox 1, textbox 2, textbox, 3, dan textbox 4 kosong maka program tetap menampilkan form 2 namun jika tidak form 2 akan menutup.

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

        Close()

    End Sub

Keterangan

Jika button 2 di klik maka form 2 akan menutup

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

    End Sub

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

    End Sub

End Class

No.	Komponen	Properties	Keterangan
1.	Form 1	Name Text	Form 1 UKM
2.	CheckBox 1	Name Text	CheckBox 1 Futsal
3.	CheckBox 2	Name Text	CheckBox 2 PSM
4.	CheckBox 3	Name Text	CheckBox 3 Basket
5.	CheckBox 4	Name Text	CheckBox 4 Renang
6.	CheckBox 5	Name Text	CheckBox 5 Sepak Bola
7.	Button 1	Name Text	Button 1 Lanjut
8.	Button 2	Name Text	Button 2 Back

Public Class Form3

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

        Form4.Show()

        Me.Close()

    End Sub

Keterangan

Button 1  menunjukan jika button di klik maka form 4 akan muncul dan form 3 akan hilang

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

        Me.Close()

        Form2.Show()

    End Sub

End Class

Keterangan

Button 2  menunjukan jika button di klik maka form 3 akan hilang dan kembali ke form 2

No.	Komponen	Properties	Keterangan
1.	Form 1	Name Text	Form1 Pendaftaran UKM
2.	Button 1	Name Text	Button 1 Ya
3.	Button 2	Name Text	Button 2 Tidak

Public Class Form4

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

        Me.Close()

        MsgBox("Terima kasih anda telah mendaftar, silahkan menununggu pengumuman kelulusan")

    End Sub

Keterangan

Jika Button 1 di klik maka form 4 akan tertutup dan akan muncul messege box "Terima kasih anda telah mendaftar, silahkan menununggu pengumuman kelulusan"

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

        Close()

        Form3.Show()

    End Sub

Keterangan

Jika Button 3 di klik maka form 4 akan tertutup dan akan kembali ke tampilan form 3

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

    End Sub

End Class