5. 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
|
Komponen toolbox yang digunakan :
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
6. Cara Menampilkan Form Finalize
Form
|
Komponen
|
Properties
|
Keterangan
|
Button1
|
Name
Text
|
Button1
Continue
|
Button1
|
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
7. 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
|
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
0 Response to "ANALISIS PROGRAM PENDAFTARAN BIMBINGAN BELAJAR SNMPTN BIMBINGAN BELAJAR SUGIARTO HUSODO (bagian 2)"
Posting Komentar