Kamis, 15 November 2012

Tutorial Pendaftaran Biro Jodoh


TUTORIAL APLIKASI FORM PENDAFTARAN


  1. Form yang akan kita buat adalah seperti ini
form11.jpg
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.

  1. Lalu kita add form sesuai dengan kebutuhan. Nah, untuk form2 kita membuat data diri peserta. Sepeti berikut :
form22.jpg
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.
rorm33.jpg

44.jpg

55.jpg
66.jpg
Klik pada kata chek data.

Namun pada form7 yaitu form rekap data, kita buat seperti ini 77.jpg
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.88.jpg

Tidak ada komentar:

Posting Komentar