Blog untuk berbagi ilmu komputer

Thursday, May 22, 2014

Modul Praktikum 5



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
Share:

0 comments:

Post a Comment

Blogger templates