TUTORIAL,
LISTING, DAN ANALISIS PROGRAM PENDAFTARAN
TPQ AL-BARAQAH
Digunakan
beberapa proses untuk membuat formulir Pendaftran TPQ Al-Baraqah,
langkah-langkah pembuatannya antara lain :
a. Form1
no
|
Komponen
|
Properties
|
Keterangan
|
1.
|
Form1
|
Name
Text
ForeColor
Backcolor
Icon
|
Form1
TPQ
Al-Baraqah
White
Green
|
2.
|
PictureBox
|
Name
|
PictureBox1
|
3.
|
Label1
|
Name
Text
|
Label1
Al-Qur’an
Penyejuk Hati
|
4.
|
Label2
|
Name
Text
|
Label2
Al-Qur’an
Pembersih Diri
|
5.
|
Label3
|
Name
Text
|
Label3
Al-Qur’an
Penahan Emosi
|
6.
|
Label4
|
Name
Text
|
Label4
Al-Qur’an
Pengikat Silaturahmi
|
7.
|
ListBox1
|
Name
Text
|
ListBox1
Assalamu’alaikum
Wr.Wb. (...)
|
8.
|
Label5
|
Name
Text
|
Label5
Untuk
bergabung, silahkan klik
|
9.
|
Button1
|
Name
Text
|
Button1
Di
sini
|
Kemudian
masukan listing berikut :
Public Class
Form1
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Form2.Show()
Me.Hide()
End Sub
End Class
Keterangan
:
Baris
1 digunakan untuk memunculkan form2 (Formulir pendaftaran 1)
Baris
ke 2 digunakan untuk menyembunyikan form1 (TPQ Al-Baraqah)
Selanjutnya
akan dibuat formulir pendaftaran untuk pengisian data pribadi, langkah-langkahnya
adalah sebagai berikut :
a. Form2
Komponen toolbox
yang digunakan antara lain :2
No.
|
Komponen
|
Properties
|
Keterangan
|
1.
|
Form2
|
Name
Text
ForeColor
Backcolor
Icon
|
Form2
Formulir Pendaftaran 1
White
Green
|
2.
|
Label1
|
Name
Text
|
Label1
Formulir Pendaftaran
|
3.
|
Label2
|
Name
Text
|
Label2
Nama
|
4.
|
Label3
|
Name
Text
|
Label3
Tempat Tanggal Lahir
|
5.
|
Label5
|
Name
Text
|
Label5
Alamat
|
6.
|
Label6
|
Name
Text
|
Label6
Jenis Kelamin
|
7.
|
Label7
|
Name
Text
|
Label7
No Telepon
|
8.
|
Label9
|
Name
Text
|
Label9
Alamat Email
|
9.
|
Label8
|
Name
Text
|
Label8
Pekerjaan
|
10.
|
TextBox1
|
Name
Text
|
Textbox1
|
11.
|
TextBox2
|
Name
Text
|
TextBox2
|
12.
|
TextBox4
|
Name
Text
|
TextBox4
|
13.
|
Radiobutton1
|
Name
Text
|
Radiobutton1
Laki-laki
|
14.
|
Radiobutton2
|
Name
Text
|
Radiobutton2
Perempuan
|
15.
|
TextBox6
|
Name
Text
|
TextBox6
|
16.
|
TextBox5
|
Name
Text
|
TextBox5
|
17.
|
TextBox7
|
Name
Text
|
TextBox7
|
18.
|
Button1
|
Name
Text
|
Button1
Selanjutnya
|
19.
|
Button2
|
Name
Text
|
Button2
Menu Awal
|
20.
|
Button3
|
Name
Text
|
Button3
Refresh
|
Kemudian masukan
listing berikut :
Public Class
Form2
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button1.Click
If
TextBox1.Text = "" Then TextBox1.Focus() : Exit
Sub
If
TextBox2.Text = "" Then TextBox2.Focus() : Exit
Sub
If
TextBox4.Text = "" Then TextBox4.Focus() : Exit
Sub
If
RadioButton1.Checked = False Then RadioButton1.Focus() : Exit
Sub
If
TextBox6.Text = "" Then TextBox6.Focus() : Exit
Sub
If
TextBox5.Text = "" Then TextBox5.Focus() : Exit
Sub
If
TextBox7.Text = "" Then TextBox7.Focus() : Exit
Sub
Form3.Show()
Me.Hide()
End Sub
Keterangan :
Baris 1 digunakan
untuk pengisian TextBox1, yang apabila kolom TextBox tersebut tidak diisi makan
kursor akan fokus ke kolom TextBox1.
Baris 2
digunakan untuk pengisian TextBox2, yang apabila kolom TextBox tersebut tidak
diisi makan kursor akan fokus ke kolom TextBox2.
Baris 3
digunakan untuk pengisian TextBox4, yang apabila kolom TextBox tersebut tidak
diisi makan kursor akan fokus ke kolom TextBox4.
Baris 4
digunakan untuk pengisian Radiobutton1 dan Radiobutton2, yang apabila kolom
Radiobutton tersebut tidak diisi makan kursor akan fokus ke kolom Radiobutton1.
Baris 5
digunakan untuk pengisian TextBox6, yang apabila kolom TextBox tersebut tidak
diisi makan kursor akan fokus ke kolom TextBox6.
Baris 6
digunakan untuk pengisian TextBox5, yang apabila kolom TextBox tersebut tidak
diisi makan kursor akan fokus ke kolom TextBox5.
Baris 7
digunakan untuk pengisian TextBox7, yang apabila kolom TextBox tersebut tidak
diisi makan kursor akan fokus ke kolom TextBox7.
Baris 8
digunakan untuk memunculkan from3 (formulir pendaftaran2) apabila tombol
Button1 (selanjutnya) dipilih dan apabila seluruh TextBox dan salah satu dari
Radiobutton telah diisi.
Baris 9
digunakan untuk menyembunyikan form2 (formulir pendaftaran1) apabila tombol
Button1 (selanjutnya ) dipilih dan apabila seluruh extBox dan salah satu
Radiobutton telah diisi.
Selanjutnya,
untuk membuat tombol refresh kita dapat membuatnya dengan cara memasukan
listing berikut :
Private Sub
Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button3.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox4.Text = ""
RadioButton1.Checked = False
RadioButton2.Checked = False
TextBox6.Text = ""
TextBox5.Text = ""
TextBox7.Text = ""
End Sub
Keterangan :
Baris 1
menerangkan bahwa apabila Button3 (Refresh) dipilih maka tulisan yang ada di
TextBox1 akan hilang.
Baris 2
menerangkan bahwa apabila Button3 (Refresh) dipilih maka tulisan yang ada di
TextBox2 akan hilang.
Baris 3
menerangkan bahwa apabila Button3 (Refresh) dipilih maka tulisan yang ada di
TextBox4 akan hilang.
Baris 4
menerangkan bahwa apabila Button3 (Refresh) dipilih maka pilihan yang ada di
salah satu Radiobutton akan hilang.
Baris 5
menerangkan bahwa apabila Button3 (Refresh) dipilih maka tulisan yang ada di
TextBox6 akan hilang.
Baris 6
menerangkan bahwa apabila Button3 (Refresh) dipilih maka tulisan yang ada di
TextBox5 akan hilang.
Baris 7
menerangkan bahwa apabila Button3 (Refresh) dipilih maka tulisan yang ada di
TextBox7 akan hilang.
Untuk membuat
tombol “menu awal” kita dapat menggunakan listing sebagai berikut :
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Form1.Show()
Me.Hide()
End Sub
Keterangan
:
Baris1
digunakan untuk memunculkan kembali form1(TPQ Al-Baraqah) apabila Button2 (menu
awal) dipilih.
Baris
2 digunakan untuk menyembunyikan form2 (formulir pendaftaran 1) apabila Button2
dipilih.
Untuk
membuat kursor fokus langsung pada saat form2 dibuka, dapat digunakan listing
sebagai berikut :
Private Sub
Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
TextBox1.Focus()
End Sub
Keterangan
:
Baris
1 digunakan untuk memfokuskan kursor pada TextBox1 (nama) apabila mulai
memasuki form2 (Formulir pendaftaran 1)
Untuk
membuat kolom No.telepon diisi hanya menggunakan angka saja, dapat dibuat
dengan cara memasukan listing berikut :
Private Sub
TextBox6_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox6.KeyPress
Dim key
As Integer = Char.ConvertToUtf32(e.KeyChar.ToString(), 0)
If Not (((key >= 48) And
(key <= 57)) Or (key = 8)) Then
e.Handled = True
End If
End Sub
Keterangan
:
Baris
1 pada digunakan untuk mendeklarasikan isi dari No.telepon agar hanya dapat
diisi oleh angka saja.
Selanjutnya,
memasuki form selanjutnya, yaitu :
a. Form3
Komponen-komponen
yang digunakan yaitu :
No.
|
Komponen
|
Properties
|
Keterangan
|
||||
1.
|
Form3
|
Name
Text
ForeColor
Backcolor
Icon
|
Form3
Formulir
Pendaftaran 2
White
Green
|
||||
2.
|
Label1
|
Name
Text
|
Label1
Pengalaman
Organisasi
|
||||
3.
|
Label2
|
Name
Text
|
Label2
Prestasi
|
||||
4.
|
RichTextBox1
|
Name
Text
|
RichTextBox1
|
||||
5.
|
RichTextBox2
|
Name
Text
|
RichTextBox2
|
||||
6.
|
Button1
|
Name
Text
|
Button1
Selanjutnya
|
||||
7.
|
Button2
|
Name
Text
|
Button2
Kembali
|
||||
Kemudian
masukan listing seperti berikut :
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Form4.Show()
Me.Hide()
End Sub
Keterangan
:
Baris
1 digunakan untuk memunculkan form4 (formulir pendaftaran 3) pada saat Button1
(Selanjutnya) dipilih.
Baris
2 digunakan untuk menyembunyikan form 3 (formulir pendaftaran 2) pada saat
Button1 (selanjutnya) dipilih.
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Form2.Show()
Me.Hide()
End Sub
Keterangan
:
Baris
1 digunakan untuk memunculkan form2 (formulir pendaftaran 1) pada saat Button2
(Kembali) dipilih.
Baris
2 digunakan untuk menyembunyikan form3 (formulir pendaftaran 2) padaa saat
Button 2 (Kembali) dipilih.
Selanjutnya adalah pembuatan form4, dengan langkah
sebagai berikut ,:
a. Form4
Komponen-komponen
yang dibutuhkan yaitu :
No.
|
Komponen
|
Properties
|
Keterangan
|
1.
|
Form4
|
Name
Text
BackColor
ForeColor
Icon
|
Form4
Formulir Pendaftaran 3
Green
White
|
2.
|
Label1
|
Name
Text
|
Label1
Alasan Mendaftar TPQ Al-Baraqah
|
3.
|
Label3
|
Name
Text
|
Label3
Sumber Informasi mengenai TPQ Al-Baraqah
|
4.
|
ComboBox1
|
Name
Text
|
ComboBox1
|
5.
|
ComboBox2
|
Name
Text
|
ComboBox2
|
6.
|
Button1
|
Name
Text
|
Button1
Kembali
|
7.
|
Button2
|
Name
Text
|
Button2
Selanjutnya
|
Kemudian masukan
listing sebagai berikut :
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
If
ComboBox1.Text = "" Then ComboBox1.Focus() : Exit
Sub
If
ComboBox2.Text = "" Then ComboBox2.Focus() : Exit
Sub
Form5.Show()
Me.Hide()
End Sub
Keterangan :
Baris 1
menunjukan jika ComboBox1 tidak diisi, maka kursor akan fokus ke ComboBox1 dan
Button2 (Selanjutnya) tidak dapat memunculkan form berikutnya.
Baris 2
menunjukan jika ComboBox2 tidak diisi, maka kursor akan fokus ke ComboBox2 dan
Button2 (Selanjutnya) tidak dapat memunculkan form berikutnya.
Baris 3
digunakan untuk memunculkan form5 jika Button2 (selanjutnya) dipilih dan
apabila semua ComboBox telah diisi.
Baris 4
digunakan untuk menyembunyikan form4 jika Button2 (selanjutnya) dipilih dan
apabila semua ComboBox telah diisi.
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Form3.Show()
Me.Hide()
End
Sub
Keterangan :
Baris 1
digunakan untuk memunculkan form3 jika Button1 (kembali) dipilih.
Baris 2
digunakan untuk menyembunyikan form4 jika Button1 (kembali) dipilih.
Selanjutnya,
kami akan membuat lembar verifikasi. Langkah-langkah pembuatannya adalah
sebagai berikut :
a.
Form5
FGambar form5
saat CheckBox belum diklik, maka tombol selanjutnya mati.
Gambar form5
saat CheckBox sudah diklik, maka tombol selanjutnya kembali hidup dan bisa
dipilih.
Komponen yang
digunakan adalah :
No.
|
Komponen
|
Properties
|
Keterangan
|
1.
|
Form5
|
Name
Text
ForeColor
Backcolor
Icon
|
Form5
Vefifikasi Pendaftaran
White
Green
|
2.
|
ListBox1
|
Name
Text
Font
Forecolor
BackColor
|
ListBox1
Saya menjamin bahwa data (...)
Bold
White
Green
|
3.
|
CheckBox1
|
Name
Text
|
CheckBox1
Saya bersedia mengikuti (...)
|
4.
|
Button1
|
Name
Text
|
Button1
Selanjutnya
|
5.
|
Button2
|
Name
Text
|
Button2
Kembali
|
Kemuadian
masukan listing berikut :
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
Form6.Show()
Me.Hide()
End Sub
Keterangan :
Baris 1
digunakan untuk memunculkan form6 (TPQ Al-Baraqah) jika Button1 (Selanjutnya)
dipilih dan jika CheckBox1 telah diceklis.
Baris 2
digunakan untuk menyembunyikan form5 (Verifikasi Pendaftaran) jika Button1
(selanjutnya) dipilih dan jika CheckBox1 telah diceklis
Private Sub
Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button2.Click
Form4.Show()
Me.Hide()
End Sub
Keterangan :
Baris 1
digunakan untuk memunculkan Form4 (formulir pendaftaran 3) apabila Button2
(Kembali) dipilih.
Baris 2
digunakan untuk menyembunyikan
Form5 (verifikasi pendaftaran)
apabila Button2 (Kembali) dipilih.
Private Sub
CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
CheckBox1.CheckedChanged
If
CheckBox1.Checked Then Button1.Enabled = True
End Sub
Keterangan :
Baris 1
menunjukan bahwa jika CheckedBox1 diceklis, kemudian Button1 (selanjutnya)
dapat diklik.
Selanjutnya
yaitu form terakhir yang menyatakan bahwa kita telah resmi bergabung dengan TPQ
Al-Baraqah, langkah pembuatannya yaitu :
a.
Form6
Komponen yang
dibutuhkan yaitu :
No.
|
Komponen
|
Properties
|
Keterangan
|
1.
|
Form6
|
Name
Text
ForeColor
BackColor
|
Form6
TPQ Al-Baraqah
White
Green
|
2.
|
PictureBox1
|
Name
|
PictureBox1
|
3.
|
Label3
|
Name
Text
|
Label3
Alhamdulillahirabbil’alamin
|
4.
|
Label1
|
Name
Text
|
Label1
Anda telah bergabung di TPQ Al-Baraqah
|
5.
|
PictureBox2
|
Name
|
PictureBox2
|
6.
|
Label2
|
Name
Text
|
Label2
Kami akan menghubungi anda untuk memberitahukan
informasi selanjutnya
|
7.
|
Label4
|
Name
Text
|
Label4
Wassalamu’alaikum Wr.Wb
|
8.
|
Button1
|
Name
Text
|
Button1
Selesai
|
Kemudian masukan
listing berikut :
Private Sub
Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Button1.Click
End
End Sub
Keterangan
:
Baris
1 digunakan untuk mengakhiri program jika Button1(selesai) dipilih.
Melalui
langkah-langkah diatas, maka program Formulir Pendaftaran TPQ Al-Baraqah telah
selesai dibuat.
Selamat
Mencoba.
Tidak ada komentar:
Posting Komentar