Langkah Kerja
- Click Start > Program > Microsoft Visual Studio > Microsoft Visual Basic 6.0
- Click Standard Exe dan click Open
- Simpan latihan ini dengan nama
o
Form : Frm_latihan5.Frm
o
Project : P_Latihan5.VBP
Desain
Form Seperti tampilan ini
Atur
properties-nya seperti tabel berikut :
Komponen
|
Properties
|
Value
|
Label1
|
Caption
Appearance
Alligment
Border Style
Back Color
Font
Font > Size
|
Input Data Mahasiswa
0 – Flat
2- Center
1 – Fixed Single
Button Face
Times New Roman
12
|
Label2
|
Caption
|
No Bp
|
Label3
|
Caption
|
Nama Mahasiswa
|
Label4
|
Caption
|
Alamat
|
Label5
|
Caption
|
Jenis Kelamin
|
Label6
|
Caption
|
Fakultas
|
Text1
|
Caption
|
Jurusan
|
Text2
|
Name
Text
|
Txt_nobp
“Kosong”
|
Text3
|
Name
Text
|
Txt_nama
“Kosong”
|
Text4
|
Name
Text
|
Txt_Alamat1
“Kosong”
|
Text5
|
Name
Text
|
Txt_Alamat2
“Kosong”
|
Option1
|
Caption
Value
|
Laki - laki
True
|
Option2
|
Caption
|
Perempuan
|
Frame1
|
Caption
|
Dikosongkan
|
Frame3
|
Caption
|
<< Kontrol >>
|
Command1
|
Name
Caption
|
Cmd_bersih
&Bersihkan
|
Command2
|
Name
Caption
|
Cmd_Keluar
&Keluar
|
Doubleclick pada Cbo_fakultas dan rubah event nya menjadi Click
Private Sub
Cbo_Fakultas_Click()
Select Case
Cbo_Fakultas.ListIndex
Case 0
Cbo_Jurusan.Clear
Cbo_Jurusan.AddItem "Sistem
Informasi"
Cbo_Jurusan.AddItem "Sistem
Komputer"
Cbo_Jurusan.AddItem "Teknik
Informatika"
Cbo_Jurusan.AddItem "Manajemen
Informatika"
Case 1
Cbo_Jurusan.Clear
Cbo_Jurusan.AddItem "Manajemen
Keuangan"
Cbo_Jurusan.AddItem "Akutansi
Perbankan"
Case 2
Cbo_Jurusan.Clear
Cbo_Jurusan.AddItem "Ilmu
Psikologi"
Case 3
Cbo_Jurusan.Clear
Cbo_Jurusan.AddItem "Kedokteran
Umum"
Cbo_Jurusan.AddItem "Spesialis
Mata"
Cbo_Jurusan.AddItem "Ilmu Kesehatan
Masyarakat"
Case 4
Cbo_Jurusan.Clear
Cbo_Jurusan.AddItem "Teknik Sipil
dan Perencanaan"
Cbo_Jurusan.AddItem "Teknik
Indistri"
Cbo_Jurusan.AddItem "Teknik
Kimia"
End Select
End Sub
Doubleclick pada Cmd_bersih dan ketikkan kode program berikut
;
Private Sub
Cmd_bersih_Click()
pesan =
MsgBox("Apakah Form1 ini akan dibersihkan", vbYesNo,
"Pesan")
If pesan = vbYes Then
Txt_nobp.Text = ""
Txt_nama.Text = ""
Txt_alamat1.Text = ""
Txt_alamat2.Text = ""
Option1.Value = True
Cbo_Fakultas.Text = ""
Cbo_Jurusan.Text = ""
Txt_nobp.SetFocus
End If
End Sub
Doubleclick pada Cmd_keluar dan ketikkan kode program berikut
;
Private Sub
Cmd_keluar_Click()
pesan = MsgBox("Program
akan segera di tutup", vbInformation, "Pesan")
Unload Me
End Sub
Doubleclick pada Form1 dan ketikkan kode program berikut ;
Private Sub Form_Load()
Cbo_Fakultas.AddItem "Ilmu
Komputer"
Cbo_Fakultas.AddItem "Ekonomi"
Cbo_Fakultas.AddItem "Psikologi"
Cbo_Fakultas.AddItem "Kedokteran"
Cbo_Fakultas.AddItem "Teknik"
End Sub
Doubleclick pada Txt_alamat1 dan ketikkan kode program
berikut ;
Private Sub
Txt_alamat1_Change()
If Len(Txt_alamat1.Text)
>= 40 Then
Txt_alamat2.SetFocus
End If
End Sub
Doubleclick pada Txt_nama dan ketikkan kode program berikut ;
Private Sub
Txt_nama_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt_alamat1.SetFocus
End If
End Sub
Doubleclick pada Txt_Nobp, tukar event nya menjadi KeyPress dan ketikkan kode program berikut ;
Private Sub
Txt_nobp_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Txt_nama.SetFocus
End If
End Sub
Catatan :
-
KeyAscii (13) sama dengan tombol “Enter”
Berikut catatan kodeAscii untuk tombol keyboard untuk
event Keypress dan keydown
- Enter 13
- Tab 9
- Spasi 32
- Backspace 8
- A 65
- a 97
Berikut catatan kode
Ascii untuk tombol keyboard yang hanya pada event Keydown
- Insert 45
- Delete 46
- Home 36
- End 35
- PgUp 33
- PgDown 34
- Arrowkey – Left 37
- Arrowkey – Up 38
- Arrowkey – right 39
- Arrowkey – Down 40
0 comments:
Post a Comment