Salah
satu contoh program pendaftaran yang
kelompok kami telah buat adalah
proram formulir pendaftaran Industry Cooking Festival. Dalam pembuatan program
ini, dibutuhkan 2 form, form yang pertama merupakan form dimana pengguna akan
mengisikan data dan form yang kedua memperlihatkan rekap dari data yang telah
diisikan pengguna. Berikut cara pembuatannya.
Form 1
1.
Dalam pembuatan form
ini komponen toolbox yang digunakan yaitu :
|
No
|
Komponen
|
Properties
|
Keterangan
|
|
1
|
Form1
|
Name
|
Form Pendaftaran
|
|
|
|
BackgroundImage
|
Pilih gambar dari file
|
|
2
|
Label1
|
Name
|
Label1
|
|
|
|
Text
|
Formulir Pendaftaran Industry Cooking Festival
|
|
|
|
Font
|
Lucida Calligraphy
|
|
3
|
Label2
|
Name
|
Label2
|
|
|
|
Text
|
NAMA
|
|
4
|
Label3
|
Name
|
Label3
|
|
|
|
Text
|
TEMPAT DAN TANGGAL LAHIR
|
|
5
|
Label4
|
Name
|
Label4
|
|
|
|
Text
|
JENIS KELAMIN
|
|
6
|
Label5
|
Name
|
Label5
|
|
|
|
Text
|
ALAMAT DI SEMARANG
|
|
7
|
Label6
|
Name
|
Label6
|
|
|
|
Text
|
ANGKATAN TAHUN
|
|
8
|
Label7
|
Name
|
Label7
|
|
|
|
Text
|
NO. Hp
|
|
9
|
TextBox1
|
Name
|
TextBox1
|
|
10
|
TextBox2
|
Name
|
TextBox2
|
|
11
|
TextBox3
|
Name
|
TextBox3
|
|
12
|
TextBox4
|
Name
|
TextBox4
|
|
13
|
ComboBox1
|
Name
|
ComboBox1
|
|
|
|
Items
|
1
|
|
|
|
|
2
|
|
|
|
|
3
|
|
|
|
|
4
|
|
|
|
|
5
|
|
|
|
|
6
|
|
|
|
|
7
|
|
|
|
|
8
|
|
|
|
|
9
|
|
|
|
|
10
|
|
|
|
|
11
|
|
|
|
|
12
|
|
|
|
|
13
|
|
|
|
|
14
|
|
|
|
|
15
|
|
|
|
|
16
|
|
|
|
|
17
|
|
|
|
|
18
|
|
|
|
|
19
|
|
|
|
|
20
|
|
|
|
|
21
|
|
|
|
|
22
|
|
|
|
|
23
|
|
|
|
|
24
|
|
|
|
|
25
|
|
|
|
|
26
|
|
|
|
|
27
|
|
|
|
|
28
|
|
|
|
|
29
|
|
|
|
|
30
|
|
|
|
|
31
|
|
14
|
ComboBox2
|
Name
|
ComboBox2
|
|
|
|
Items
|
Januari
|
|
|
|
|
Februari
|
|
|
|
|
Maret
|
|
|
|
|
April
|
|
|
|
|
Mei
|
|
|
|
|
Juni
|
|
|
|
|
Juli
|
|
|
|
|
Agustus
|
|
|
|
|
September
|
|
|
|
|
Oktober
|
|
|
|
|
November
|
|
|
|
|
Desember
|
|
15
|
ComboBox3
|
Name
|
ComboBox3
|
|
|
|
Items
|
1980
|
|
|
|
|
1981
|
|
|
|
|
1982
|
|
|
|
|
1983
|
|
|
|
|
1984
|
|
|
|
|
1985
|
|
|
|
|
1986
|
|
|
|
|
1987
|
|
|
|
|
1988
|
|
|
|
|
1989
|
|
|
|
|
1990
|
|
|
|
|
1991
|
|
|
|
|
1992
|
|
|
|
|
1993
|
|
|
|
|
1994
|
|
|
|
|
1995
|
|
|
|
|
1996
|
|
|
|
|
1997
|
|
|
|
|
1998
|
|
|
|
|
1999
|
|
|
|
|
2000
|
|
16
|
ComboBox4
|
Name
|
ComboBox4
|
|
|
|
Items
|
Laki - laki
|
|
|
|
|
Perempuan
|
|
17
|
ComboBox5
|
Name
|
ComboBox5
|
|
|
|
Items
|
2000
|
|
|
|
|
2001
|
|
|
|
|
2002
|
|
|
|
|
2003
|
|
|
|
|
2004
|
|
|
|
|
2005
|
|
|
|
|
2006
|
|
|
|
|
2007
|
|
|
|
|
2008
|
|
|
|
|
2009
|
|
|
|
|
2010
|
|
|
|
|
2011
|
|
|
|
|
2012
|
|
18
|
Button1
|
Name
|
Button1
|
|
|
|
Text
|
Daftar
|
|
19
|
Buttom2
|
Name
|
Button2
|
|
|
|
Text
|
Bersihkan
|
|
20
|
Button3
|
Name
|
Button3
|
|
|
|
Text
|
Keluar
|
Setelah
tampilan dari form jadi, kemudian masukkan listing code berikut :
Public Class Form1
Private
Sub TextBox1_KeyPress(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
Dim masukan As Boolean =
Char.IsDigit(e.KeyChar)
If (masukan) Then e.Handled = True
End
Sub
Keterangan :
·
Baris pertama menentukan jika variabel
“masukan” adalah boolean yang nilai benarnya adalah variabel char
·
Baris kedua menginstruksikan apabila
sesuatu yang menjadi “masukan” bukan berupa data char, maka keypress (tombol
keyboard) menjadi tidak berfungsi
Private Sub TextBox2_KeyPress(ByVal
sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles TextBox2.KeyPress
Dim masukan As Boolean =
Char.IsDigit(e.KeyChar)
If (masukan) Then e.Handled = True
End
Sub
Keterangan :
·
Baris pertama menentukan jika variabel
“masukan” adalah boolean yang nilai benarnya adalah variabel char
·
Baris kedua menginstruksikan apabila
sesuatu yang menjadi “masukan” bukan berupa data char, maka keypress (tombol
keyboard) menjadi tidak berfungsi
·
Hal ini dimaksudkan agar pengguna tidak
bisa memasukkan angka dalam textbox untuk pengisian nama
Private Sub TextBox4_KeyPress(ByVal
sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles TextBox4.KeyPress
Dim masukan As Boolean =
Char.IsDigit(e.KeyChar)
If (Not masukan) Then e.Handled = True
End
Sub
Keterangan :
·
Baris pertama menentukan jika variabel
“masukan” adalah boolean yang nilai benarnya adalah variabel char
·
Baris kedua menginstruksikan apabila
sesuatu yang menjadi “masukan” berupa data char, maka keypress (tombol
keyboard) menjadi tidak berfungsi
·
Hal ini dimaksudkan agar pengguna tidak
bisa memasukkan alfabet dalam textbox untuk pengisian nomor handphone
Private Sub ComboBox1_KeyPress(ByVal
sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles ComboBox1.KeyPress
e.Handled = True
End Sub
Keterangan :
·
ComboBox1 tidak akan bisa diiskan
masukan yang berasal dari keyboard
·
Hal ini dimaksudkan agar pengguna hanya
dapat memilih dari pilihan yang terdapat pada ComboBox1 untuk pengisian tanggal
lahir
Private Sub ComboBox2_KeyPress(ByVal
sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles ComboBox2.KeyPress
e.Handled = True
End
Sub
Keterangan :
·
ComboBox2 tidak akan bisa diiskan
masukan yang berasal dari keyboard
·
Hal ini dimaksudkan agar pengguna hanya
dapat memilih dari pilihan yang terdapat pada ComboBox2 untuk pengisian bulan
lahir
Private Sub ComboBox3_KeyPress(ByVal
sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles ComboBox3.KeyPress
e.Handled = True
End
Sub
Keterangan :
·
ComboBox3 tidak akan bisa diiskan
masukan yang berasal dari keyboard
·
Hal ini dimaksudkan agar pengguna hanya
dapat memilih dari pilihan yang terdapat pada ComboBox1 untuk pengisian tahun
lahir
Private Sub ComboBox4_KeyPress(ByVal
sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles ComboBox4.KeyPress
e.Handled = True
End
Sub
Keterangan :
·
ComboBox4 tidak akan bisa diiskan
masukan yang berasal dari keyboard
·
Hal ini dimaksudkan agar pengguna hanya
dapat memilih dari pilihan yang terdapat pada ComboBox1 untuk pengisian jenis
kelamin
Private Sub ComboBox5_KeyPress(ByVal
sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
Handles ComboBox5.KeyPress
e.Handled = True
End
Sub
Keterangan :
·
ComboBox5 tidak akan bisa diiskan
masukan yang berasal dari keyboard
·
Hal ini dimaksudkan agar pengguna hanya
dapat memilih dari pilihan yang terdapat pada ComboBox1 untuk pengisian tahun
angkatan
Private Sub Button1_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "" Or
TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text =
"" Or ComboBox1.Text = "" Or ComboBox2.Text = ""
Then
MsgBox("Maaf data anda belum
lengkap")
Else
Form2.Label2.Text =
Me.TextBox2.Text
Form2.Label3.Text = Me.TextBox3.Text
& ", " & Me.ComboBox1.Text & " " &
Me.ComboBox2.Text & " " & Me.ComboBox3.Text
Form2.Label4.Text =
Me.ComboBox4.Text
Form2.Label5.Text =
Me.TextBox3.Text
Form2.Label6.Text =
Me.ComboBox5.Text
Form2.Label7.Text =
Me.TextBox4.Text
Form2.Show()
Me.Hide()
End If
Keterangan :
·
Baris 1 hingga baris 3 merupakan
pengecekan kondisi jika ada salah satu dari textbox atau combobox kosong, maka
akan keluar kotak peringatan yang bertuliskan “maaf data anda belum lengkap”
·
Baris 4 hingga baris 13 merupakan
instruksi yang akan berjalan apabila kondisi awal tadi tidak terpenuhi
·
Baris 4 hingga 11 merupakan instruksi
jika label yang berada di form2 akan sesuai dengan textbox atau combobox yang
ada dalam form1
·
Baris 12 merupakan instruksi untuk
menampilkan form2
·
Baris 13 merupakan instruksi untuk
menyembunyikan form1
·
“Me” merupakan nama untuk form yang
dituliskan pada code yang ada dalam form itu
Private Sub Button2_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Ctl As Control
For Each Ctl In Me.Controls
If TypeOf Ctl Is TextBox Then
Ctl.Text = ""
Next
For Each Ctl In Me.Controls
If TypeOf Ctl Is ComboBox Then
Ctl.Text = ""
Next
End
Sub
Keterangan :
·
Baris 1 menentukan jika “Ctl” dalam
form1 adalah control
·
Baris 2 hingga 3 merupakan instruksi
untuk tiap Ctl yang merupakan textbox dalam form1, isinya akan dihapus
·
Baris 5 hingga 6 merupakan instruksi
untuk tiap Ctl yang merupakan combobox dalam form1, isinya akan dihapus
·
“Next” merupakan lanjutan atau akhir
dari instruksi “For”
Private Sub Button3_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Me.Close()
End
Sub
Keterangan :
·
Baris 1 merupakan instruksi untuk
menutup form1
Form2
Dalam pembuatan form
ini komponen toolbox yang digunakan yaitu :
|
No
|
Komponen
|
Properties
|
Keterangan
|
|
1
|
Form2
|
Name
|
Form2
|
|
|
|
BackgroundImage
|
Pilih gambar dari file
|
|
2
|
Label1
|
Name
|
Label1
|
|
|
|
Text
|
Rekap Data Pendaftaran
|
|
|
|
Font
|
Lucida Calligraphy
|
|
3
|
Label2
|
Name
|
Label2
|
|
|
|
Text
|
Nama
|
|
4
|
Label3
|
Name
|
Label3
|
|
|
|
Text
|
TEMPAT DAN TANGGAL LAHIR
|
|
5
|
Label4
|
Name
|
Label4
|
|
|
|
Text
|
JENIS KELAMIN
|
|
6
|
Label5
|
Name
|
Label5
|
|
|
|
Text
|
ALAMAT DI SEMARANG
|
|
7
|
Label6
|
Name
|
Label6
|
|
|
|
Text
|
ANGKATAN TAHUN
|
|
8
|
Label7
|
Name
|
Label7
|
|
|
|
Text
|
NO. Hp
|
|
9
|
Label8
|
Name
|
Label8
|
|
10
|
Label9
|
Name
|
Label9
|
|
11
|
Label10
|
Name
|
Label10
|
|
12
|
Label11
|
Name
|
Label11
|
|
13
|
Label12
|
Name
|
Label12
|
|
14
|
Label13
|
Name
|
Label13
|
|
15
|
Label14
|
Name
|
Label14
|
|
|
|
Text
|
Pendaftaran Berhasil Selamat Berlomba
|
|
|
|
Font
|
Lucida Calligraphy
|
|
16
|
Button1
|
Name
|
Button1
|
|
|
|
Text
|
Keluar
|
|
17
|
Button2
|
Name
|
Button2
|
|
17
|
|
Text
|
kembali
|
Setelah tampilan dari
form jadi, kemudian masukkan listing code berikut :
Private Sub Button1_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Close()
End
Sub
Keterangan :
·
Baris 1 merupakan instruksi untuk
menutup program
Private Sub Button2_Click(ByVal sender
As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Hide()
Form1.Show()
End
Sub
End
Class
Keterangan
:
·
Baris 1 merupakan perintah untuk
menyembunyikan form ini (form2)
·
Baris 2 merupakan perintah untuk kembali
menampilkan form1
Tidak ada komentar:
Posting Komentar