TUTORIAL MEMBUAT PROGRAM FORM PENDAFTARAN

TUTORIAL UNTUK MEMBUAT PROGRAM PENDAFTARAN ORGANISASI

 

 

CARANYA ADALAH SEBAGAI BERIKUT :

FORM 1

1.       Instal Microsoft Visual Studio 2010 ke dalam computer

2.       Buka Program Microsoft Visual Basic 2010 Express

3.       Tampilan awal program akan seperti ini :

4.       Kemudian Klik New Project lalu Pilih Windows Form Application à Ok

5.       Kemudian tampilan akan muncul seperti ini :

                                                                                           

6.       Kemudian design tampilan form1 yang berisi Label “FORMULIR PENDAFTARAN UKM PRISMA” diletakkan pada bagian atas.

7.       Untuk mengubah tipe tulisan klik pada properties lalu Fonts lalu Pilih Showcard Gotic dengan ukuran 20.

8.        

Untuk membuat Latar Belakang , klik pada form, munculkan properties, klik BackgroundImage, kemudian pilih import, pilih gambar background Ok

9.       Untuk mengubah type background klik pada properties, BackgroundImageLayout, dan pilih Center

10.   Untuk Mengubah warna background pilih properties,BackColor ,Pilih warna putih (White)

11.   Untuk Membuat tombol Mulai dan Selesai, Double klik 2x pada toolbox Button, Ubah nama Button menjadi Mulai dan Selesai dengan klik pada button , Properties , pilih Text , Ubah menjadi Mulai pada Button yang pertama dan Selesai pada Button yang kedua

12.   Untuk Mengubah Latar Belakang dari Button tersebut , Klik Button , pada properties klik BackColoràpilih warna biru.

13.   Untuk mengganti warna font dalam Button, Klik Button , pada properties pilih ForeColor , kemudian pilih warna putih

.

14.   Tampilan :

 

15.   Untuk Listingnya masukkan listing berikut dalam form1 tersebut :

 Public Class Form1

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

End Sub

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

Me.Text = "Formulir Pendaftaran UKM PRISMA"

End Sub

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

End Sub

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

Form3.Show()

Me.Hide()

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

       End

    End Sub

End Sub

End Class

FORM 3 (Biodata Diri)

1.       Pada Solution Explorer klik kanan pada Windows Application1 à add à windows form à ok

2.       Untuk design Background caranya sama dengan yang form1 dengan gambar yang berbeda

3.       Untuk Judul pun juga sama dengan form1 namun diubah dengan Text “Biodata Diri”

4.       Untuk konten yang lain adalah ComboBox                               , TextBox                             , dan RadioButton

5.       Untuk membuat ComboBox caranya hampir sama yaitu pilih ComboBox di Toolbox dengan double klik à Tempatkan sesuai keinginan untuk membuat form Biodata Diri

6.       Kemudian untuk Label berisi nama, TTL, dll dibuat dengan BackColor Transparent. Klik labelàpropertiesàBackColor à web àTransparent

7.       Kemudian buat 2 Button dengan text “SELANJUTNYA” dan “KEMBALI”

8.       Tampilan :

 

                                                                                                                                              

9.       Kemudian masukkan Listing berikut :

  Public Class Form3

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

        Me.Text = "Biodata Diri"

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

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

       

        If ComboBox1.Text = "" Or TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or ComboBox2.Text = "" Or ComboBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Or TextBox6.Text = "" Or TextBox7.Text = "" Or TextBox8.Text = "" Or TextBox9.Text = "" Then

            MsgBox("Wah Belum Lengkap Bro, Diisi Dulu Ya")

        Else

            Form2.Show()

            Me.Hide()

        End If

    End Sub

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

        TextBox1.MaxLength = 30

      

    End Sub

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

        TextBox2.MaxLength = 20

    End Sub

    Private Sub TextBox8_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox8.TextChanged

        TextBox8.MaxLength = 20

    End Sub

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

        TextBox3.MaxLength = 20

    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged

    End Sub

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

       

    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 ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

End Class

FORM 2 : (PRESTASI)

1.       Klik kanan pada Solution Explorer à add à Windows Form à Ok

2.       Beberapa langkah dapat diulangi dengan cara yang sama seperti TextBox, ComboBox, dan Button

3.       Untuk pembuatan ListBox caranya pun hamper sama yaitu kliik double ListBox pada ToolBox, à Atur dan isi dari ListBox adalah dengan cara klik pada tanda segitiga diatas listbox yang tertera pada interface formà isi tingkatan Kejuaraan.

4.       Tampilan akan seperti ini :

 

5.       Kemudian Masukkan listing berikut :

 Public Class Form2

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

    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

        Me.Text = "Prestasi"

    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 Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form5.Show()

        Me.Hide()

    End Sub

End Class

FORM 5 (FINALISASI PENDAFTARAN)

1.       Buat form baru

2.       Gunakan Label dan Button Yes, No, dan Kembali

3.       Tampilan :

4.       Masukkan Listing berikut :

 Public Class Form5

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

    End Sub

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

        Form2.Show()

        Me.Hide()

    End Sub

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

    End Sub

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

    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 Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        MsgBox("Terima kasih, registrasi telah selesai")

    End Sub

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

        Form1.Show()

    End Sub

End Class