Pemrograman Visual I (VB)
STEKOM Semarang
v Tambahkan Form Baru untuk pengisian user login (password pemakaian) dan simpan dengan nama frmLogin
Private Sub Form_Activate() cmdOk.Default = True End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) End Sub Private Sub cmdOk_Click() If Text1.Text = "ADMIN" And Text2.Text = "123" Then Unload Me frmMenuUtama.Show Else MsgBox ("Maaf Anda bukan pemakai yang sah ") End If End Sub Private Sub cmdBatal_Click() End End Sub
v Tambahkan Form Baru untuk form info (about) dan simpan dengan nama frmTentang
Private Sub Form_Activate() Timer1.Enabled = True Timer1.Interval = 200 End Sub Private Sub Timer1_Timer() Label2.ForeColor = QBColor(Rnd * 10 + 1) End Sub Private Sub cmdOk_Click() Unload Me End Sub
[email protected]
18
Pemrograman Visual I (VB)
STEKOM Semarang
v Tambahkan Form Baru untuk form Menu Utama dan simpan dengan nama frmMenuUtama
Private Sub mnkeluar_Click() X = MsgBox("Yakin Untuk Keluar ?", vbYesNo + vbQuestion, "Konfirmasi") If X = vbYes Then End End If End Sub Private Sub mnAnggota_Click() frmAnggota.Show 1 End Sub Private Sub mnBuku_Click() frmBuku.Show 1 End Sub Private Sub mnKembali_Click() frmKembali.Show 1 End Sub Private Sub mnPinjam_Click() frmPinjam.Show 1 End Sub Private Sub mnTentang_Click() frmTentang.Show 1 End Sub Private Sub mnKalkulator_Click() Dim stAppName As String stAppName = "C:\WINDOWS\CALC.EXE" Call Shell(stAppName, 1) End Sub Private Sub mnTglWaktu_Click() Dim stAppName As String stAppName = "C:\WINDOWS\CONTROL TIMEDATE.CPL" Call Shell(stAppName, 1) End Sub Private Sub mnWinExp_Click() Dim stAppName As String stAppName = "C:\WINDOWS\EXPLORER.EXE" Call Shell(stAppName, vbNormalFocus) End Sub
[email protected]
19
Pemrograman Visual I (VB)
STEKOM Semarang
Menambahkan/membuat toolbar
Toolbar
Menyiapkan/Memilih gambar-gambar untuk toolbar 1. Tambahkan ImageList 2. Klik kanan ImageList 3. Pilih Properties
pada form
Tampilan Jendela Properties pada ImageList 4. Pilih ukuran icon misal 32 x 32 5. Klik Tab Images
6. Klik tombol Insert Picture. Cari dan kumpulkan file icon (*.ico) yang akan dipakai sebagai simbol icon di toolbar
7. Klik Ok
[email protected]
20
Pemrograman Visual I (VB)
STEKOM Semarang
Membuat Toolbar pada form 1. Tambahkan komponen toolbar pada form 2. Klik kanan pada toolbar tersebut, Pilih Properties
3. 4. 5. 6.
Dari tab General Klik daftar pilihan pada ImageList. Pilih ImageList1 Pindah ke tab Buttons Klik tombol Insert Button, perhatikan di toolbar akan muncul 1 box toolbar Isikan pada kotak Image, no_urut gambar yang akan dipakai sebagai toolbar sesuai dengan urutan gambar/image yang telah dipersiapkan pada ImageList1 7. Tambahkan tooltiptext untuk memberikan pesan singkat mengenai kegunaan toolbar tersebut
8. Ulangi langkah 6 s/d 8 untuk memasang toolbar berikutnya ! 9. Klik Ok !
Menambahkan/menghubungkan toolbar dengan perintah/kode program 1. Klik 2x pada toolbar 2. Ketikkan kode program berikut Private Sub Form_Load() Toolbar1.Buttons(1).ToolTipText = "Master Data Anggota" Toolbar1.Buttons(2).ToolTipText = "Master Data Buku" Toolbar1.Buttons(3).ToolTipText = "Transaksi Peminjaman" Toolbar1.Buttons(4).ToolTipText = "Transaksi Pengembalian" Toolbar1.Buttons(5).ToolTipText = "Keluar dari Aplikasi" End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1: frmAnggota.Show Case 2: frmBuku.Show Case 3: mnPinjam_Click
[email protected]
21
Pemrograman Visual I (VB)
STEKOM Semarang
Case 4: mnKembali_Click Case 5: mnkeluar_Click End Select End Sub
Menambahkan/membuat StatusBar Misalkan saja menambahkan status bar yang berisi keterangan tanggal, jam dan keaktifan tombol CapsLock 1. Tambahkan komponen toolbar 2. Klik kanan pada toolbar tersebut 3. Pilih Properties
pada form
4. Pindah/klik tab Panels 5. Klik tombol Insert Panel. Perhatikan tampil angka 1 pada Index dan StatusBar pada form akan muncul 1 kotak 6. Atur AutoSizenya menjadi sbrContent 7. Ulangi langkah 5 sebanyak 3 x (membuat 3 panel). Untuk panel yang ke-3 atur Style-nya menjadi 1-sbrCaps 8. Klik Ok 9. Tambahkan komponen Timer pada form atur Enabled = True dan Interval = 1000 10. Tambahkan kode program berikut pada Timer1 Private Sub Timer1_Timer() StatusBar1.Panels(2).Text = "Jam " & Format(Now, "HH:MM:SS") StatusBar1.Panels(1).Text = "Tanggal " & Format(Now, "DD-MMM-YYYY") End Sub
[email protected]
22
