TUTORIAL APLIKASI FORM PENDAFTARAN
- Form yang akan kita buat adalah seperti ini
Untuk
tulisan-tulisannya kita gunakan toolbox-label. Sedangkan untuk tombolnya kita
gunakan buttonbox. Khusus untuk tombol, klik dua kali dan tuliskan listing
berikut
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Form2.Show()
Me.Hide()
End Sub
Kita
pilih form2 karena tombol ini
menghubungkan form 1 ke form2.
Untuk
backgroundnya kita masukkan gambar dari Properties – background- import dan
carilah gambar yang diinginkan.
- Lalu kita add form sesuai dengan kebutuhan. Nah, untuk form2 kita membuat data diri peserta. Sepeti berikut :
Disini
kita memakai tools label untuk membuat tulisan Nama dan yang
berikut-berikutnya. Dan juga kita memakai textbox, checkbox, serta combobox.
Untuk
tombol reset dan next kita gunakan buttonbox. Tombol reset kita gunakan lisitng
berikut
ComboBox1.SelectedItem = Nothing
ComboBox2.SelectedItem = Nothing
ComboBox3.SelectedItem = Nothing
Untuk
tombol next, kita hubungkan ke form3
Form3.Show()
Me.Hide()
Untuk
form-form selanjutnya caranya sama.
Klik
pada kata chek data.
Namun
pada form7 yaitu form rekap data, kita buat seperti ini
Masukkan listing berikut Private Sub
Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
MyBase.Load
Me.BackColor = Color.Crimson
Label16.Text = Form2.TextBox1.Text
If Form2.CheckBox1.Checked Then
Label17.Text = Form2.CheckBox1.Text
If Form2.CheckBox2.Checked Then
Label17.Text = Form2.CheckBox2.Text
Label18.Text = Form2.TextBox3.Text
Label19.Text = Form2.TextBox4.Text
Label20.Text = Form2.ComboBox1.SelectedItem
Label21.Text = Form2.ComboBox2.SelectedItem
Label22.Text = Form2.ComboBox3.SelectedItem
If Form3.CheckBox1.Checked Then
Label23.Text = Form3.CheckBox1.Text
If Form3.CheckBox2.Checked Then
Label23.Text = Form3.CheckBox2.Text
If Form3.CheckBox3.Checked Then
Label23.Text = Form3.CheckBox3.Text
Label24.Text = Form3.ComboBox1.SelectedItem
Label25.Text = Form3.TextBox2.Text
Label26.Text = Form3.TextBox3.Text
Label27.Text = Form3.TextBox4.Text
Label28.Text = Form3.TextBox5.Text
Label30.Text = Form3.DateTimePicker1.Text
End Sub
Setelah
itu, maka akan muncul rekap data peserta.
Jika
data kita sesuai dengan diri kita atau tidak terdapat kesalahan dalam
peng-input-an maka kita bisa tekan ok. Jika ingin mengulang tekan reset.
Setelah
kita tekan tombol ok, maka akan muncul form terakhit. Dan silahkan klik exit
untuk mengakhiri interakasi.
Tidak ada komentar:
Posting Komentar