Ini adalah tutorial pembuatan dan penggunaan program pendaftaran bimbingan belajar snmptn bimbingan belajar sugiarto husodo. semoga bermanfaat
0 Comments
Ini adalah tutorial pembuatan dan penggunaan program pendaftaran bimbingan belajar snmptn bimbingan belajar sugiarto husodo. semoga bermanfaat
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
|
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
Langganan:
Postingan (Atom)