FORM 1
Tambahankan
Form , Label, TextBox, PictureBox dan Button
Menambahkan
Form : Klik New Project > Add > New Items >Windows Form
Menambahkan Label : Klik label di
ToolBox > Ganti Text sesuati dengan nama yang di inginkan.
Menambahkan
TextBox : Klik Textbox pada ToolBox.
PictureBox:
Klik Picturebox di ToolBox> Ganti gambar yang diinginkan
Menambahkan Button
: Klik button di textbox> Ganti Text sesuati dengan nama yang di inginkan.
Masukkan
listing berikut:
Private Sub Button2_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button2.Click
MsgBox("PIN
= 1234")
End Sub
Private Sub TextBox1_TextChanged(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
TextBox1.TextChanged
If
TextBox1.Text = "1234" Then TextBox2.Text = "****"
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
If Not TextBox1.Text = "1234"
Then MsgBox("pin
yang anda masukkan salah, cek di info pin")
If
TextBox1.Text = "1234" And TextBox2.Text = "****"
Then Form2.Show()
End Sub
Private Sub Form1_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
BackColor = Color.Aqua
End Sub
End
Class
Maka akan muncul tampilan seperti ini
FORM 2
Tambahankan Form , Label,
DateTimePicker, ComboBox, Button, Radio Button dan TextBox
Menambahkan
Form : Klik New Project > Add > New Items >Windows Form
Menambahkan Label : Klik label di
ToolBox > Ganti Text sesuati dengan nama yang di inginkan.
Menambahkan DateTimePicker : Klik DateTimePicker
pada ToolBox
Menambahkan
TextBox : Klik Textbox pada ToolBox.
Menambahkan
ComboBox: Klik ComboBox pada TollBox
Menambahkan
Button : Klik Button pada ToolBox
Menambahkan
RadioButton : Klik RadioButton pada TollBox
Lalu
masukkan listing berikut
Public
Class Form2
Private Sub Label5_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Label5.Click
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
If
TextBox1.Text = "" And TextBox2.Text = ""
And TextBox3.Text = ""
And TextBox5.Text = ""
Then
MsgBox("data
anda belum lengkap")
Return
End If
Form3.Show()
Me.Hide()
End Sub
Private Sub Label8_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Label8.Click
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles ComboBox1.SelectedIndexChanged
End Sub
Private Sub Form2_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
Form1.Hide()
BackColor = Color.Aqua
End Sub
End
Class
Maka akan muncul tampilan seperti ini
FORM 3
Tambahankan
Form , Label, DateTimePicker, ComboBox, Button, dan TextBox
Menambahkan
Form : Klik New Project > Add > New Items >Windows Form
Menambahkan Label : Klik label di
ToolBox > Ganti Text sesuati dengan nama yang di inginkan.
Menambahkan
TextBox : Klik Textbox pada ToolBox.
Menambahkan
ComboBox: Klik ComboBox pada TollBox
Menambahkan Button : Klik Button
pada ToolBox
Lalu masukkan listing berikut
Public
Class Form3
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
If
TextBox1.Text = "" And TextBox2.Text = ""
And TextBox3.Text = ""
And TextBox4.Text = ""
And TextBox5.Text = ""
And TextBox6.Text = ""
Then
MsgBox("data
anda belum lengkap")
Return
End If
Form4.Show()
Me.Hide()
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 Form3_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
BackColor = Color.Aqua
Form2.Hide()
End Sub
End
Class
Maka akan muncul tampilan seperti berikut
FORM 4
Tambahankan
Form , Label, RichTextBox, ComboBox, Button, dan TextBox
Menambahkan
Form : Klik New Project > Add > New Items >Windows Form
Menambahkan Label : Klik label di
ToolBox > Ganti Text sesuati dengan nama yang di inginkan.
Menambahkan
TextBox : Klik Textbox pada ToolBox.
Menambahkan
ComboBox: Klik ComboBox pada TollBox
Menambahkan
RichTextBox: Klik RichTextBox pada ToolBox
Menambahkan Button : Klik Button
pada ToolBox
Lalu masukkan listing berikut
Public
Class Form4
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
If
TextBox1.Text = "" And TextBox2.Text = ""
And TextBox4.Text = ""
Then
MsgBox("data
anda belum lengkap")
Return
End If
Form5.Show()
Me.Hide()
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 Form4_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
BackColor = Color.Aqua
Form3.Hide()
End Sub
End
Class
Maka akan muncul tampilan seperti berikut
FORM 5
Tambahankan
Form , Label, ComboBox, dan Button
Menambahkan
Form : Klik New Project > Add > New Items >Windows Form
Menambahkan Label : Klik label di
ToolBox > Ganti Text sesuati dengan nama yang di inginkan.
Menambahkan
ComboBox: Klik ComboBox pada TollBox
Menambahkan Button : Klik Button
pada ToolBox
Lalu masukkan listing berikut
Public
Class Form5
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Form6.Show()
Me.Hide()
End Sub
Private Sub Form5_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
BackColor = Color.Aqua
Form4.Hide()
End Sub
Maka akan muncul tampilan seperti berikut
FORM 6
Tambahankan
Form , Label, dan Button
Menambahkan
Form : Klik New Project > Add > New Items >Windows Form
Menambahkan Label : Klik label di
ToolBox > Ganti Text sesuati dengan nama yang di inginkan.
Menambahkan Button : Klik Button
pada ToolBox
Lalu masukkan listing berikut
Public
Class Form6
Private Sub Form6_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
BackColor = Color.Aqua
Label13.Text = Form2.TextBox1.Text
Label14.Text = Form2.TextBox2.Text
Label15.Text =
Form2.DateTimePicker1.Text
Label16.Text = Form2.ComboBox1.Text
Label17.Text =
Form2.RadioButton1.Checked Or
Form2.RadioButton2.Checked
Label18.Text = Form4.TextBox1.Text
Label19.Text = Form4.TextBox2.Text
Label20.Text = Form4.TextBox4.Text
Label21.Text = Form4.RichTextBox1.Text
Label22.Text = Form4.ComboBox2.Text
Label23.Text = Form5.ComboBox1.Text
Label24.Text = Form5.ComboBox2.Text
End Sub
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
MsgBox("ANDA
SUDAH TERDAFTAR")
Me.Close()
End Sub
End
Class
Maka akan muncul tampilan seperti berikut
Berikut dijabarkan lebih detail
KONSEP FORM PENERIMAAN MAHASISWA BARU UNDIP
|
NO
|
KOMPOSISI
|
PROPERTIES
|
KETERANGAN
|
|
1
|
FORM1
|
NAME
|
FORM1
|
|
TEXT
|
|||
|
2
|
PICTUREBOX1
|
NAME
|
PICTUREBOX1
|
|
TEXT
|
LOGO UNDIP
|
||
|
3
|
LABEL1
|
NAME
|
LABEL1
|
|
TEXT
|
PIN
|
||
|
4
|
TEXTBOX1
|
NAME
|
TEXTBOX1
|
|
TEXT
|
|||
|
5
|
LABEL2
|
NAME
|
LABEL2
|
|
TEXT
|
PASSWORD
|
||
|
6
|
BUTTON1
|
NAME
|
BUTTON1
|
|
TEXT
|
NEXT
|
||
|
7
|
BUTTON2
|
NAME
|
BUTTON2
|
|
TEXT
|
INFO PIN
|
||
|
8
|
FORM2
|
NAME
|
FORM2
|
|
TEXT
|
|||
|
9
|
LABEL1
|
NAME
|
LABEL1
|
|
TEXT
|
DATA PRIBADI
|
||
|
10
|
LABEL2
|
NAME
|
LABEL2
|
|
TEXT
|
NAMA LENGKAP
|
||
|
11
|
LABEL3
|
NAME
|
LABEL3
|
|
TEXT
|
TEMPAT TANGGAL LAHIR
|
||
|
12
|
LABEL4
|
NAME
|
LABEL4
|
|
TEXT
|
KOTA
|
||
|
13
|
LABEL5
|
NAME
|
LABEL5
|
|
TEXT
|
ALAMAT
|
||
|
14
|
LABEL9
|
NAME
|
LABEL9
|
|
TEXT
|
AGAMA
|
||
|
15
|
LABEL8
|
NAME
|
LABEL8
|
|
TEXT
|
JENIS KELAMIN
|
||
|
16
|
LABEL7
|
NAME
|
LABEL7
|
|
TEXT
|
NO HP
|
||
|
17
|
TEXTBOX1
|
NAME
|
TEXTBOX1
|
|
TEXT
|
|||
|
18
|
TEXTBOX2
|
NAME
|
TEXTBOX2
|
|
TEXT
|
|||
|
19
|
DATETIMEPICKER
|
NAME
|
DATETIMEPICKER
|
|
TEXT
|
|||
|
20
|
TEXTBOX3
|
NAME
|
TEXTBOX3
|
|
TEXT
|
|||
|
21
|
TEXTBOX4
|
NAME
|
TEXTBOX4
|
|
TEXT
|
|||
|
22
|
COMBOBOX1
|
NAME
|
COMBOBOX1
|
|
TEXT
|
|||
|
23
|
RADIOBUTTON1
|
NAME
|
RADIOBUTTON1
|
|
TEXT
|
LAKI-LAKI
|
||
|
24
|
RADIOBUTTON2
|
NAME
|
RADIOBUTTON2
|
|
TEXT
|
PEREMPUAN
|
||
|
25
|
TEXTBOX5
|
NAME
|
TEXTBOX5
|
|
TEXT
|
|||
|
26
|
BUTTON1
|
NAME
|
BUTTON1
|
|
TEXT
|
NEXT
|
||
|
27
|
FORM3
|
NAME
|
FORM3
|
|
TEXT
|
|||
|
28
|
LABEL1
|
NAME
|
LABEL1
|
|
TEXT
|
DATA ORANGTUA
|
||
|
29
|
LABEL2
|
NAME
|
LABEL2
|
|
TEXT
|
BAPAK
|
||
|
30
|
LABEL3
|
NAME
|
LABEL3
|
|
TEXT
|
NAMA
|
||
|
31
|
TEXTBOX1
|
NAME
|
TEXTBOX1
|
|
TEXT
|
|||
|
32
|
LABEL4
|
NAME
|
LABEL4
|
|
TEXT
|
ALAMAT
|
||
|
33
|
TEXTBOX2
|
NAME
|
TEXTBOX2
|
|
TEXT
|
|||
|
34
|
LABEL5
|
NAME
|
LABEL5
|
|
TEXT
|
PEKERJAAN
|
||
|
35
|
TEXTBOX3
|
NAME
|
TEXTBOX3
|
|
TEXT
|
|||
|
36
|
LABEL6
|
NAME
|
LABEL6
|
|
TEXT
|
GAJI
|
||
|
37
|
COMBOBOX1
|
NAME
|
COMBOBOX1
|
|
TEXT
|
|||
|
38
|
LABEL11
|
NAME
|
LABEL11
|
|
TEXT
|
IBU
|
||
|
39
|
LABEL10
|
NAME
|
LABEL10
|
|
TEXT
|
NAMA
|
||
|
40
|
TEXTBOX4
|
NAME
|
TEXTBOX4
|
|
TEXT
|
|||
|
41
|
LABEL9
|
NAME
|
LABEL9
|
|
TEXT
|
ALAMAT
|
||
|
42
|
TEXTBOX5
|
NAME
|
TEXTBOX5
|
|
TEXT
|
|||
|
43
|
LABEL8
|
NAME
|
LABEL8
|
|
TEXT
|
PEKERJAAN
|
||
|
44
|
TEXTBOX6
|
NAME
|
TEXTBOX6
|
|
TEXT
|
|||
|
45
|
LABEL7
|
NAME
|
LABEL7
|
|
TEXT
|
GAJI
|
||
|
46
|
COMBOBOX2
|
NAME
|
COMBOBOX2
|
|
TEXT
|
|||
|
47
|
BUTTON2
|
NAME
|
BUTTON2
|
|
TEXT
|
BACK
|
||
|
48
|
BUTTON1
|
NAME
|
BUTTON1
|
|
TEXT
|
NEXT
|
||
|
49
|
FORM4
|
NAME
|
FORM4
|
|
TEXT
|
|||
|
50
|
LABEL1
|
NAME
|
LABEL1
|
|
TEXT
|
DATA SEKOLAH
|
||
|
51
|
LABEL2
|
NAME
|
LABEL2
|
|
TEXT
|
ASAL SEKOLAH
|
||
|
52
|
TEXTBOX1
|
NAME
|
TEXTBOX1
|
|
TEXT
|
|||
|
53
|
LABEL3
|
NAME
|
LABEL3
|
|
TEXT
|
NILAI UAS
|
||
|
54
|
TEXTBOX2
|
NAME
|
TEXTBOX2
|
|
TEXT
|
|||
|
55
|
LABEL4
|
NAME
|
LABEL4
|
|
TEXT
|
NILAI UAN
|
||
|
56
|
TEXTBOX4
|
NAME
|
TEXTBOX4
|
|
TEXT
|
|||
|
57
|
LABEL7
|
NAME
|
LABEL7
|
|
TEXT
|
PRESTASI
|
||
|
58
|
richtextbox1
|
NAME
|
richtextbox1
|
|
TEXT
|
|||
|
59
|
label6
|
NAME
|
label6
|
|
TEXT
|
JURUSAN
|
||
|
60
|
COMBOBOX2
|
NAME
|
COMBOBOX2
|
|
TEXT
|
|||
|
61
|
BUTTON1
|
NAME
|
BUTTON1
|
|
TEXT
|
NEXT
|
||
|
62
|
BUTTON2
|
NAME
|
BUTTON2
|
|
TEXT
|
BACK
|
||
|
63
|
FORM5
|
NAME
|
FORM5
|
|
TEXT
|
|||
|
64
|
LABEL1
|
NAME
|
LABEL
|
|
TEXT
|
PROGRAM STUI YANG DIPILIH
|
||
|
65
|
LABEL2
|
NAME
|
LABEL2
|
|
TEXT
|
PILIHAN2
|
||
|
66
|
COMBOBOX1
|
NAME
|
COMBOBOX1
|
|
TEXT
|
|||
|
67
|
LSBEL3
|
NAME
|
LABEL3
|
|
TEXT
|
PILIHAN2
|
||
|
68
|
COMBOBOX2
|
NAME
|
COMBOBOX2
|
|
TEXT
|
|||
|
69
|
BUTTON1
|
NAME
|
BUTTON1
|
|
TEXT
|
NEXT
|
||
|
70
|
BUTTON2
|
NAME
|
BUTTON2
|
|
TEXT
|
BACK
|
||
|
71
|
FORM6
|
NAME
|
FORM6
|
|
TEXT
|
|||
|
72
|
LABEL1
|
NAME
|
LABEL1
|
|
TEXT
|
DATA ANDA
|
||
|
73
|
LABEL2
|
NAME
|
LABEL2
|
|
TEXT
|
NAMA
|
||
|
74
|
LABEL3
|
NAME
|
LABEL3
|
|
TEXT
|
TEMPAT TANGGAL LAHIR
|
||
|
75
|
LABEL4
|
NAME
|
LABEL4
|
|
TEXT
|
AGAMA
|
||
|
76
|
LABEL5
|
NAME
|
LABEL5
|
|
TEXT
|
JENIS KELAMIN
|
||
|
77
|
LABEL6
|
NAME
|
LABEL6
|
|
TEXT
|
ASAL SEKOLAH
|
||
|
78
|
LABEL7
|
NAME
|
LABEL7
|
|
TEXT
|
NILAI UAS
|
||
|
79
|
LABEL8
|
NAME
|
LABEL8
|
|
TEXT
|
NILAI UAN
|
||
|
80
|
LABEL9
|
NAME
|
LABEL9
|
|
TEXT
|
PRESTASI
|
||
|
81
|
LABEL10
|
NAME
|
LABEL10
|
|
TEXT
|
JURUSAN
|
||
|
82
|
LABEL11
|
NAME
|
LABEL11
|
|
TEXT
|
PILIHAN1
|
||
|
83
|
LABEL12
|
NAME
|
LABEL12
|
|
TEXT
|
PILIHAN2
|
||
|
84
|
LABEL13
|
NAME
|
LABEL13
|
|
TEXT
|
|||
|
85
|
LABEL14
|
NAME
|
LABEL14
|
|
TEXT
|
|||
|
86
|
LABEL15
|
NAME
|
LABEL15
|
|
TEXT
|
|||
|
87
|
LABEL16
|
NAME
|
LABEL16
|
|
TEXT
|
|||
|
88
|
LABEL17
|
NAME
|
LABEL17
|
|
TEXT
|
|||
|
89
|
LABEL18
|
NAME
|
LABEL18
|
|
TEXT
|
|||
|
90
|
LABEL19
|
NAME
|
LABEL19
|
|
TEXT
|
|||
|
91
|
LABEL20
|
NAME
|
LABEL20
|
|
TEXT
|
|||
|
92
|
LABEL21
|
NAME
|
LABEL21
|
|
TEXT
|
|||
|
93
|
LABEL22
|
NAME
|
LABEL22
|
|
TEXT
|
|||
|
94
|
LABEL23
|
NAME
|
LABEL23
|
|
TEXT
|
|||
|
95
|
LABEL24
|
NAME
|
LABEL24
|
|
TEXT
|
|||
|
96
|
BUTTON1
|
NAME
|
BUTTON1
|
|
TEXT
|
SAVE
|
Tidak ada komentar:
Posting Komentar