Tutorial Multiform Form Pendaftaran
Ramona Music school
* Buka visual basic 2010
* Open file,pilih new project
* Pilih windows form application
Form 1
1.Masukkan button dan
formatnya seperti di bawah ini :
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Form2.Show(
(*Berguna untuk menampilkan form 2 )
Me.Hide((*Berguna
untuk menghilangkan form sebelumnya )
2.Pilih
button,untuk tombol yang akan digunakan
untuk perintah selanjutnya.Maka format yang akan muncul seperti dibawah ini :
Public
Class Form1
Private Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
Form2.Show(
(*Menunjukan
apabila button tersebut di klik, form 2 akan muncul.))
Me.Hide( (*
Menunjukan bahwa apabila form 2 muncul,maka form 1 tertutup))
End Sub
*Buat
form baru dengan langkah
-
Klik project,pilih add windows form
-
Lalu klik Ok
Form 2
1.
Pilih textbox untuk pengisian data dan
akan hilang jika kita tidak mengisi data tersebut di textbox , maka formatnya
seperti di bawah ini :
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 ComboBox1.Text
= "" Or DateTimePicker1.Text = "" Or MaskedTextBox1.Text =
"" Then
MsgBox("SILAHKAN DIISI BAGIAN
YANG BELUM LENGKAP")
Else
Form3.Show()
Me.Hide()
End If
End Sub ((Berguna untuk menampilkan
perintah bahwa data yang diisi belum lengkap ))
2.Pilih
Button untuk data yang selanjutnya
*Buat form baru
*Klik
project,pilih add Windows form
*Ok.
FORM 3
Private
Sub Button1_Click(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
Button1.Click
If
ComboBox5.Text = "" Or ComboBox1.Text = ""
Or ComboBox2.Text = ""
Or ComboBox3.Text = ""
Or ComboBox4.Text = ""
Or TextBox1.Text = ""
Then
MsgBox("SILAHKAN
DIISI BAGIAN YANG BELUM LENGKAP")
Else
Form4.Show()
Me.Hide()
End If
End Sub
(tombol ini
berfungsi untuk menunjukkan hasil rekap di form 4 dan fungsi di dalamnya
berguna untuk menahan untuk tidak maju ke form selanjutnya apabila data yang
diisikan beum lengkap)
*Buat form baru
*Klik
project,pilih add Windows form
*Ok.
FORM 4
1.Memunculkan
hasil data yang sudah kita isikan dan formatnya seperti di bawah ini
Private
Sub Form4_Load(ByVal
sender As System.Object,
ByVal e As
System.EventArgs) Handles
MyBase.Load
Label2.Text = Form2.TextBox1.Text
Label4.Text = Form2.ComboBox1.Text
Label6.Text = Form2.TextBox2.Text
Label8.Text = Form2.DateTimePicker1.Text
Label10.Text = Form2.TextBox3.Text
Label12.Text = Form2.MaskedTextBox1.Text
Label14.Text = Form3.ComboBox5.Text
Label16.Text = Form3.TextBox1.Text
Label18.Text = Form3.ComboBox1.Text
Label20.Text = Form3.ComboBox2.Text
Label22.Text = Form3.ComboBox3.Text
Label24.Text = Form3.ComboBox4.Text
End
Sub
(label-label diatas berfungsi untuk
menunjukan hasil rekap data yang diisikan pada form 2 dan form 3)
|
Komponen
|
Properties
|
Keterangan
|
|
Form1
|
Name
Text
|
Form1
RAMONA MUSIC
SCHOOL
|
|
Label1
|
Name
Text
|
Label1
RAMONA MUSIC
SCHOOL
|
|
Button1
|
Name
Text
|
Button1
DAFTAR
|
|
Form2
|
Name
Text
|
Form2
|
|
Label1
|
Name
Text
|
Label1
FORM
PENDAFTARAN
|
|
Label2
|
Name
Text
|
Label2
NAMA
|
|
Label3
|
Name
Text
|
Label3
JENIS KELAMIN
|
|
Label4
|
Name
Text
|
Label4
TEMPAT LAHIR
|
|
Label5
|
Name
Text
|
Label5
TANGGAL LAHIR
|
|
Label6
|
Name
Text
|
Label6
ALAMAT
|
|
Label7
|
Name
Text
|
Label7
NO. TELP/HP
|
|
TextBox1
|
Name
Text
|
TextBox1
|
|
TextBox2
|
Name
Text
|
TextBox2
|
|
TextBox3
|
Name
Text
|
TextBox3
|
|
ComboBox1
|
Name
Text
|
ComboBox1
PRIA
WANITA
|
|
MaskedTextBox1
|
Name
Text
|
MaskedTextBox1
|
|
DateTimePicker1
|
Name
Text
|
DateTimePicker1
|
|
Button1
|
Name
Text
|
Button1
NEXT
|
|
Form3
|
Name
Text
|
Form3
|
|
Label1
|
Name
Text
|
Label1
ALAT MUSIKYANG
DIMILIKI
|
|
Label2
|
Name
Text
|
Label2
KURSUS YANG
DIMINATI
|
|
Label3
|
Name
Text
|
Label3
ANDA BERMINAT
MEMPELAJARI
MUSIK DARI
|
|
Label4
|
Name
Text
|
Label4
ANDA BERMINAT
MEMPELAJARI
MUSIK KARENA
|
|
Label5
|
Name
Text
|
Label5
MENGETAHUI
RAMONA MUSIC
SCHOOL DARI
|
|
Label6
|
Name
Text
|
Label6
MENGAPA
MEMILIH RAMONA
MUSIC SCHOOL
|
|
TextBox1
|
Name
Text
|
TextBox1
|
|
ComboBox1
|
Name
Text
|
ComboBox1
KEMAUAN
SENDIRI
ORANG TUA
GURU
TEMAN
|
|
ComboBox2
|
Name
Text
|
ComboBox2
HOBI
PENDIDIKAN
PROFESI
MENGISI WAKTU
LUANG
|
|
ComboBox3
|
Name
Text
|
ComboBox3
ORANG TUA
GURU
TEMAN
SAUDARA
|
|
ComboBox4
|
Name
Text
|
ComboBox4
SEKOLAHNYA
BAIK DAN BAGUS
GURUNYA
BERKUALITAS
DEKAT DENGAN
RUMAH
NAMANYA
TERKENAL
ALAT MUSIKNYA
LENGKAP
SARAN
TEMAN/GURU/KELUARGA
|
|
ComboBox5
|
Name
Text
|
ComboBox5
PIANO
ORGAN
KEYBOARD
GITAR KLASIK
GITAR ELEKTRIK
BASS
DRUM
LAIN-LAIN
|
|
Button1
|
Name
Text
|
Button1
SUBMIT
|
|
Button2
|
Name
Text
|
Button2
Previous
|
|
Label1
|
Name
Text
|
Label1
NAMA
|
|
Label2
|
Name
Text
|
Label2
A
|
|
Label3
|
Name
Text
|
Label3
JENIS KELAMIN
|
|
Label4
|
Name
Text
|
Label4
B
|
|
Label5
|
Name
Text
|
Label5
TEMPAT LAHIR
|
|
Label6
|
Name
Text
|
Label6
C
|
|
Label7
|
Name
Text
|
Label7
TANGGAL LAHIR
|
|
Label8
|
Name
Text
|
Label8
D
|
|
Label9
|
Name
Text
|
Label9
ALAMAT
|
|
Label10
|
Name
Text
|
Label10
E
|
|
Label11
|
Name
Text
|
Label11
NO. TELP/HP
|
|
Label12
|
Name
Text
|
Label12
F
|
|
Label13
|
Name
Text
|
Label13
ALAT MUSIK
YANG
DIMILIKI
|
|
Label14
|
Name
Text
|
Label14
G
|
|
Label15
|
Name
Text
|
Label15
KURSUS YANG
DIMINATI
|
|
Label16
|
Name
Text
|
Label16
H
|
|
Label17
|
Name
Text
|
Label17
ANDA BERMINAT
MEMPELAJARI MUSIK DARI
|
|
Label18
|
Name
Text
|
Label18
I
|
|
Label19
|
Name
Text
|
Label19
ANDA BERMINAT
MEMPELAJARI MUSIK KARENA
|
|
Label20
|
Name
Text
|
Label20
J
|
|
Label21
|
Name
Text
|
Label21
MENGETAHUI
RAMONA MUSIC SCHOOL DARI
|
|
Label22
|
Name
Text
|
Label22
K
|
|
Label23
|
Name
Text
|
Label23
MENGAPA
MEMILIH RAMONA MUSIC SCHOOL
|
|
Label24
|
Name
Text
|
Label24
L
|
Tidak ada komentar:
Posting Komentar