Berikut ini adalah cara pembuatan program Pendaftaran Bimbingan Belajar SNMPTN Bimbingan Belajar Sugiarto Husodo yang telah kami buat :
1. Cara Menampilkan Form Awal Aplikasi
Komponen toolbox yang digunakan :
|
Form
|
Komponen
|
Properties
|
Keterangan
|
|
Form 1
|
Button1
|
Name
Text
|
Button1
START
|
|
|
Label1
|
Name
Text
|
Label1
Formulir Pendaftaran
Bimbingan Belajar SNMPTN
|
|
|
Label2
|
Name
Text
|
Label2
Bimbingan Belajar Sugiarto
Husodo
|
|
|
Label3
|
Name
Text
|
Label3
Developed by Tim23
|
|
|
Label4
|
Name
Text
|
Label4
Jl. Pandanaran no 234,
Semarang
|
|
|
Label5
|
Name
Text
|
Label5
sure we can!
|
Masukkan 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
Private Sub Form1_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
2.
Cara
Menampilkan Form Data Pribadi
Komponen yang
digunakan :
|
Form
|
Komponen
|
Properties
|
Keterangan
|
|
Form2
|
Form2
|
Name
Text
|
Form2
Data Pribadi
|
|
|
Label1
|
Name
Text
|
Label1
DATA PRIBADI
|
|
|
Label2
|
Name Text
|
Label2
Nama Peserta*
|
|
|
Textbox7
|
Name
Text
|
Textbox7
|
|
|
Label3
|
Name
Text
|
Label3
Jenis Kelamin*
|
|
|
Radi
obutton1
|
Name
Text
|
Radiobutton1
Pria
|
|
|
Radiobutton2
|
Name
Text
|
Radiobutton2
Wanita
|
|
|
Label4
|
Name
Text
|
Label4
Tempat Tanggal Lahir*
|
|
|
Textbox6
|
Name
Text
|
Textbox6
|
|
|
Label5
|
Name
text
|
Label5
Alamat Rumah
|
|
|
Textbox5
|
Name
Text
|
Textbox5
|
|
|
Label6
|
Name
Text
|
Label 6
Nomor Telepon/HP*
|
|
|
Textbox4
|
Name
Text
|
Textbox 4
|
|
|
Label7
|
Name
Text
|
Label 7
Alamat E-Mail
|
|
|
Textbox3
|
Name
Text
|
Textbox 3
|
|
|
Label8
|
Name
Text
|
Label 8
Nama Ortu/Wali*
|
|
|
Textbox2
|
Name
Text
|
Textbox 2
|
|
|
Label9
|
Name
Text
|
Label 8
Nomor Telepon Ortu/Wali*
|
|
|
Textbox1
|
Name
Text
|
Textbox1
|
|
|
Label10
|
Name
Text
|
Label 9
Pekerjaan Ortu/Wali
|
|
|
Combobox1
|
Name
|
Combobox1
|
|
|
Label11
|
Name
Text
|
Label11
*) wajib diisi
|
|
|
Button1
|
Name
Text
|
Button1
Continue
|
|
|
Button2
|
Name
Text
|
Button2
Refresh
|
Masukkan Listing berikut :
Public Class
Form2
Private Sub Form2_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.ResetText()
TextBox2.ResetText()
TextBox3.ResetText()
TextBox4.ResetText()
TextBox5.ResetText()
TextBox6.ResetText()
TextBox7.ResetText()
RadioButton1.Checked = False
RadioButton2.Checked = False
ComboBox1.SelectedIndex = False
End Sub
Private Sub TextBox4_KeyPress(ByVal sender
As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles
TextBox4.KeyPress
If Not Char.IsDigit(e.KeyChar) Then
e.Handled = True
End Sub
Private Sub TextBox1_KeyPress(ByVal sender
As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If Not Char.IsDigit(e.KeyChar) Then
e.Handled = True
End Sub
Private Sub TextBox4_TextChanged(ByVal
sender As System.Object, ByVal e As System.EventArgs) Handles
TextBox4.TextChanged
End Sub
End Class
3. Cara Menampilkan Form Data Akademis
Komponen toolbox yang digunakan :
|
Form
|
Komponen
|
Properties
|
Keterangan
|
|
Form3
|
Form3
|
Name
Text
|
Form3
Data Akademis
|
|
|
Label1
|
Name
Text
|
Label1
DATA AKADEMIS
|
|
|
Label2
|
Name
Text
|
Label2
Nama Sekolah*
|
|
|
Textbox1
|
Name
Text
|
Textbox1
|
|
|
Label3
|
Name
Text
|
Label3
Alamat Sekolah
|
|
|
Textbox2
|
Name
Text
|
Textbox2
|
|
|
Label4
|
Name
Text
|
Label4
Program*
|
|
|
Combobox1
|
Name
|
Combobox1
|
|
|
Label5
|
Name
Text
|
Label 5
Tahun Kelulusan
|
|
|
Combobox2
|
Name
|
Combobox2
|
|
|
Label6
|
Name
Text
|
Label6
*) wajib diisi
|
|
|
Button1
|
Name
Text
|
Button1
Continue
|
|
|
Button2
|
Name
Text
|
Button2
Back
|
|
|
Button3
|
Name
Text
|
Button3
Refresh
|
Masukkan listing berikut :
Public Class
Form3
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = ("") Or
ComboBox1.Text = ("") Or ComboBox2.Text = ("") Then
MsgBox("Data yang Anda Isi
Kurang Lengkap")
'do nothing
Else : Form4.Show()
Me.Hide()
End If
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 Button3_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.ResetText()
TextBox2.ResetText()
ComboBox1.SelectedIndex = False
ComboBox2.SelectedIndex = False
End Sub
Private Sub Form3_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
4.
Cara
Menampilkan Form Pendaftaran
|
Form
|
Komponen
|
Properties
|
Keterangan
|
|
Form4
|
Form4
|
Name
Text
|
Form4
Pendaftaran
|
|
|
Label1
|
Name
Text
|
Label1
PENDAFTARAN
|
|
|
Label2
|
Name
Text
|
Label2
Kelas*
|
|
|
Combobox1
|
Name
|
Combobox 1
|
|
|
Label3
|
Name
Text
|
Label 3
Program*
|
|
|
Label4
|
Name
Text
|
Label4
*) wajib diisi
|
|
|
Combobox2
|
Name
|
Combobox 2
|
|
|
Button1
|
Name
Text
|
Button1
Continue
|
|
|
Button2
|
Name
Text
|
Button2
Back
|
|
|
|
Name
Text
|
Button3
Refresh
|
|
|
Button3
|
Name
Text
|
Form5
Are You Sure
|
Masukkan listing berikut :
Public Class
Form4
Private Property Response As MsgBoxResult
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If ComboBox1.Text = ("") Or
ComboBox2.Text = ("") Then
MsgBox("Data yang Anda Isi
Kurang Lengkap")
'do nothing
Else : Response = MsgBox("Are You
Sure?", vbYesNo, "Finalize")
If Response = vbYes Then
Form6.Show()
Else 'do nothing
End If
End If
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 Button3_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button3.Click
ComboBox1.SelectedIndex = False
ComboBox2.SelectedIndex = False
End Sub
Private Sub Form4_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Clas
5. Cara Menampilkan Form Finalisasi
Komponen toolbox yang digunakan :
|
Form
|
Komponen
|
Properties
|
Keterangan
|
|
Form6
|
Form6
|
Name
Text
|
Form6
Finalisasi
|
|
|
Label1
|
Name
Text
|
Label 1
FINALISASI PENDAFTARAN
|
|
|
Label2
|
Name
Text
|
Label 2
Nama :
|
|
|
Label5
|
Name
Text
|
Label5
Textbox7 (Form1)
|
|
|
Label8
|
Name
Text
|
Label8
Asal Sekolah :
|
|
|
Label11
|
Name
Text
|
Label11
Textbox1 (Form3)
|
|
|
Label9
|
Name
Text
|
Label9
Tahun Kelulusan :
|
|
|
Label10
|
Name
Text
|
Label10
Combobox2 (Form3)
|
|
|
Label4
|
Name
Text
|
Label4
Program :
|
|
|
Label6
|
Name
Text
|
Label6
Combobox1 (Form4)
|
|
|
Label3
|
Name
Text
|
Label 3
Kelas :
|
|
|
Label7
|
Name
Text
|
Label7
Combobox2 (Form4)
|
|
|
Button1
|
Name
Text
|
Button 1
Daftar
|
|
|
Button2
|
Name
Text
|
Button 2
Back
|
Masukkan Listing berikut :
Public Class
Form6
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Form1.Close()
End Sub
Private Sub Button2_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form4.Show()
Me.Hide()
End Sub
Private Sub Form6_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Label5.Text = Form2.TextBox7.Text
Label6.Text = Form4.ComboBox1.Text
Label7.Text = Form4.ComboBox2.Text
Label11.Text = Form3.TextBox1.Text
Label10.Text = Form3.ComboBox2.Text()
End Sub
End Class
