MEMBUAT FORM VISUAL BASIC
Membuat Form BIODATA pada Visual Basic
Halo, Kali ini saya akan menguraikan bagaimana cara membut form pada visual basic. Bagaimana cara membuatnya agar hasil sebagai berikut.
Ini form pertama yang apabila di submit akan memunculkan form ke 2
Dan ini Form 3 yang berisikan data data yang berasal dari form 1 dan 2, mari kita bahas cara membuatnya.
Pertama kita buka visual basic dan mendesign From sesuai dengan Output yang kita ingin
Pada tabel dibawh ini adalah data kontrol dan pilihan property dan nilainya.
FORM 1
|
|||
KONTROL
|
PROPERTY
|
NILAI
|
|
LABEL
|
Name
|
Label 1
|
|
Backstyle
|
0-Transparent
|
||
Caption
|
NAMA
|
||
Font
|
Baskerville Old Face
|
||
LABEL
|
Name
|
Label2
|
|
Backstyle
|
0-Transparent
|
||
Caption
|
NPM
|
||
Font
|
Baskerville Old Face
|
||
LABEL
|
Name
|
Label3
|
|
Backstyle
|
0-Transparent
|
||
Caption
|
TANGGAL LAHIR
|
||
Font
|
Baskerville Old Face
|
||
LABEL
|
Name
|
Label 4
|
|
Backstyle
|
0-Transparent
|
||
Caption
|
JENIS KELAMIN
|
||
Font
|
Baskerville Old Face
|
||
LABEL
|
Name
|
Label 5
|
|
Backstyle
|
0-Transparent
|
||
Caption
|
BIODATA MAHASISWA
|
||
Font
|
Baskerville Old Face
|
||
LABEL
|
Name
|
Label 7
|
|
Backstyle
|
0-Transparent
|
||
Caption
|
AGAMA
|
||
Font
|
Baskerville Old Face
|
||
LABEL
|
Name
|
Label 8
|
|
Backstyle
|
0-Transparent
|
||
Caption
|
NO HP
|
||
Font
|
Baskerville Old Face
|
||
LABEL
|
Name
|
Label 9
|
|
Backstyle
|
0-Transparent
|
||
Caption
|
EMAIL
|
||
Font
|
Baskerville Old Face
|
||
TEXTBOX
|
Name
|
Text1
|
|
Text
|
|||
Font
|
Baskerville Old Face
|
||
TEXTBOX
|
Name
|
Text2
|
|
Text
|
|||
Font
|
Baskerville Old Face
|
||
TEXTBOX
|
Name
|
Text3
|
|
Text
|
|||
Font
|
Baskerville Old Face
|
||
TEXTBOX
|
Name
|
Text4
|
|
Text
|
|||
Font
|
Baskerville Old Face
|
||
OPTION
|
Name
|
Option1
|
|
Text
|
Pria
|
||
Font
|
Baskerville Old Face
|
||
OPTION
|
Name
|
Option2
|
|
Text
|
Wanita
|
||
Font
|
Baskerville Old Face
|
||
COMBOBOX
|
Name
|
Combo1
|
|
Text
|
TANGGAL
|
||
List
|
1 to 32
|
||
Font
|
Baskerville Old Face
|
||
COMBOBOX
|
Name
|
Combo2
|
|
Text
|
BULAN
|
||
List
|
1 to 12
|
||
Font
|
Baskerville Old Face
|
||
COMBOBOX
|
Name
|
Combo3
|
|
Text
|
TAHUN
|
||
List
|
1990 to 2000
|
||
Font
|
Baskerville Old Face
|
||
COMBOBOX
|
Name
|
Combo4
|
|
Text
|
Pilih Agama
|
||
List
|
ISLAM,HINDU,PROTESTAN,BUDHA
|
||
Font
|
Baskerville Old Face
|
||
COMMAND BUTTON
|
Name
|
command1
|
|
Text
|
Submit
|
||
COMMAND BUTTON
|
Name
|
command2
|
|
Text
|
Exit
|
||
PICTUREBOX
|
Name
|
Picture1
|
|
Image
|
FORM 2
|
|||
KONTROL
|
PROPERTY
|
NILAI
|
|
LABEL
|
Name
|
Label 1
|
|
Backstyle
|
0-Transparent
|
||
Caption
|
PROGRAM STUDI
|
||
Font
|
Baskerville Old Face
|
||
LABEL
|
Name
|
Label2
|
|
Backstyle
|
0-Transparent
|
||
Caption
|
JURUSAN
|
||
Font
|
Baskerville Old Face
|
||
LABEL
|
Name
|
Label3
|
|
Backstyle
|
0-Transparent
|
||
Caption
|
FAKULTAS
|
||
Font
|
Baskerville Old Face
|
||
LABEL
|
Name
|
Label 4
|
|
Backstyle
|
0-Transparent
|
||
Caption
|
SEMESTER
|
||
Font
|
Baskerville Old Face
|
||
LABEL
|
Name
|
Label 5
|
|
Backstyle
|
0-Transparent
|
||
Caption
|
MATA KULIAH
|
||
Font
|
Baskerville Old Face
|
||
COMBOBOX
|
Name
|
Combo1
|
|
Text
|
PILIH FAKULTAS
|
||
List
|
ILMU KOMPUTER,TEKNIK
INDUSTRI,SATRA,EKONOMI,TEKNIK SIPIL DAN PERENCANAAN
|
||
COMBOBOX
|
Name
|
Combo2
|
|
Text
|
PILIH JURUSAN
|
||
List
|
SISTEM INFORMASI,SISTEM
KOMPUTER,TEKNIK INFORMATIKA,SASTRA INGGRIS,PSIKOLOGI,TEKNIK INDUSTRI,TEKNIK
SIPIL, ARSITEK
|
||
TEXTBOX
|
Name
|
Text1
|
|
Text
|
|||
Font
|
Baskerville Old Face
|
||
TEXTBOX
|
Name
|
Text2
|
|
Text
|
|||
Font
|
Baskerville Old Face
|
||
TEXTBOX
|
Name
|
Text3
|
|
Text
|
|||
Font
|
Baskerville Old Face
|
||
TEXTBOX
|
Name
|
Text4
|
|
Text
|
|||
Font
|
Baskerville Old Face
|
||
TEXTBOX
|
Name
|
Text5
|
|
Text
|
|||
Font
|
Baskerville Old Face
|
||
TEXTBOX
|
Name
|
Text6
|
|
Text
|
|||
Font
|
Baskerville Old Face
|
||
TEXTBOX
|
Name
|
Text7
|
|
Text
|
|||
Font
|
Baskerville Old Face
|
||
COMMAND BUTTON
|
Name
|
command1
|
|
Text
|
Submit
|
||
COMMAND BUTTON
|
Name
|
command2
|
|
Text
|
Back
|
FORM 3
|
||
KONTROL
|
PROPERTY
|
NILAI
|
LABEL
|
Name
|
Label 1
|
Backstyle
|
0-Transparent
|
|
Caption
|
NAMA
|
|
Font
|
Baskerville Old Face
|
|
LABEL
|
Name
|
Label2
|
Backstyle
|
0-Transparent
|
|
Caption
|
DATA MAHASISWA
|
|
Font
|
Baskerville Old Face
|
|
LABEL
|
Name
|
Label3
|
Backstyle
|
0-Transparent
|
|
Caption
|
NPM
|
|
Font
|
Baskerville Old Face
|
|
LABEL
|
Name
|
Label 4
|
Backstyle
|
0-Transparent
|
|
Caption
|
JURUSAN
|
|
Font
|
Baskerville Old Face
|
|
LABEL
|
Name
|
Label 4
|
Backstyle
|
0-Transparent
|
|
Caption
|
SEMESTER
|
|
Font
|
Baskerville Old Face
|
Nah saya akan menjelaskan kontrol apa saja yang saya gunakan pada Form. Yang pertama ada Label yang berupa keterangan dengan caption caption seperti Nama, NPM, Nilai, dll. Sedangkan ComboBox saya menggunakan List untuk memunculkan pilihan pilihan yang berupa Tanggal bulan, tahun. Sedangkan textbox berupa kotak panjang yang bisa kita isi pada saat form di run kan. Dan yang terakhir adalah COMMAND button yng berupa sebuah tombol yang dapat memunculkan sesuatu apa bila user meng-click, seperti form lain lain muncul dan lain lain.
Mari kita lihat Code pada Commadbutton
Private Sub Command1_Click()
Form2.Show
Form1.Hide
Form3.Label1.Caption = "NAMA : " & Text1
Form3.Label3.Caption = "NPM : " & Text2
End Sub
Code diatas ketika User meng klik command 1 maka form 1 akan menghilang dan form2 akan muncul
Private Sub Command2_Click()
Form1.Hide
End Sub
Code diatas ketika User meng klik command 2 maka form 1 akan menghilang
Private Sub Command1_Click()
Form2.Show
Form1.Hide
Form3.Label1.Caption = "NAMA : " & Text1
Form3.Label3.Caption = "NPM : " & Text2
End Sub
Code diatas akan memunculkan text pada form3 yang berasal dari form 1 di text1, dan memunculkan text pada form3 yang berasal dari form 1 di text2
Private Sub Command1_Click()
Form3.Show
Form2.Hide
Form3.Label4.Caption = "JURUSAN : " & Combo2
Form3.Label5.Caption = "SEMESTER : " & Text1
End Sub
Code diatas ketika User meng klik command 1 maka form 1 akan menghilang dan form2 akan muncul
Private Sub Command1_Click()
Form3.Show
Form2.Hide
Form3.Label4.Caption = "JURUSAN : " & Combo2
Form3.Label5.Caption = "SEMESTER : " & Text1
End Sub
Code diatas ketika User meng klik command 1 maka form 1 akan menghilang dan form2 akan muncul
Private Sub Command1_Click()
Form3.Show
Form2.Hide
Form3.Label4.Caption = "JURUSAN : " & Combo2
Form3.Label5.Caption = "SEMESTER : " & Text1
End Sub
Code diatas akan memunculkan text pada form3 yang berasal dari form 2 di text1 dan combo2,
Sekian Penjelasan dari saya, Semoga bermanfaat.
Komentar
Posting Komentar