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!
|
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
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*
|
|
|
Radiobutton1
|
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
|
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 Message Box
|
Form
|
Komponen
|
Properties
|
Keterangan
|
|
|
Button1
|
Name
Text
|
Button1
Continue
|
Public Class
Form2
Private Sub Button1_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = ("") Or
TextBox2.Text = ("") Or TextBox4.Text = ("") Or
TextBox6.Text = ("") Or TextBox7.Text = ("") Or
RadioButton1.Checked = False And RadioButton2.Checked = False Then
MsgBox("Data yang Anda Isi
Kurang Lengkap")
'do nothing
Else : Form3.Show()
Me.Hide()
End If
End Sub
4. 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
|
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
0 Response to "ANALISIS PROGRAM PENDAFTARAN BIMBINGAN BELAJAR SNMPTN BIMBINGAN BELAJAR SUGIARTO HUSODO "
Posting Komentar