MODUL PRAKTIKUM
PEMROGRAMAN VISUAL I
Microsoft Visual Basic 6.0 Disusun oleh : Adjat sudradjat
Program Studi Manajemen Informatika Akademi Manajemen Informatika dan Komputer Bina Sarana Informatika Jakarta 2009
“ BSI ” sebuah fragmen sederhana namun memberikan kesan yang bermakna dalam menjalani lakon diri di naskah – naskah hidup selanjutnya. Jakarta, Maret 2009
BAB I PENGENALAN VISUAL BASIC
1.
Pendahuluan Visual Basic ( sering disebut juga VB ) adalah salah suatu bahasa pemrograman
visual berbasis windows. Bahasa Pemrograman adalah bahasa yang digunakan dalam membuat sebuah program aplikasi. Pada visual basic, pengembangan program aplikasi dimulai dengan mendisain form, kemudian mengatur properti dari objek – objek yang digunakan dalam form, dan baru dilakukan penulisan kode program ( listing program ). Ada beberapa hal yang harus dipahami dalam mempelajari Visual Basic :
Objek
Properti
Event
Metode
2.
Lingkungan Kerja Visual Basic
A.
Komponen Visual Basic
Project Explorer
View Code
: Menampilkan jendela listing program
View Object
: Menampilkan form
Toggle Folder
: Menampilkan folder tempat penyimpanan file
Form
Toolbox
Properties
B.
Cara Kerja Visual Basic
1.
Mendisain Form
2.
Mengatur Properties
3.
Mengetik Listing Program
4.
Menjalankan Program
Latihan 1. Membuat Program Sederhana. 1)
Mendisain Form :
Siapkan sebuah form baru.
Letakkan 1 TextBox dan 2 CommandButton di dalam Form seperti gambar berikut ini.
2)
Mengatur properti : Untuk mengatur properti, sesuaikan dengan tabel di bawah ini : Objek
Properti
Nilai
Project1
Name
PrjPerkenalan
Form1
Name
FrmPerkenalan
Caption
Program Perkenalan
Text1
Command1
Command2
Name
TxtKenalan
Text
(kosongkan)
Name
CmdKenalan
Caption
&Perkenalan
Name
CmdKeluar
Caption
&Keluar
3)
Mengetik Listing Program
4)
Menjalankan Program Menjalankan program dengan cara : 1.
Pilih Run pada menu bar, lalu klik Start atau
2.
Klik icon start pada icon bar atau
3.
Tekan tombol F5 pada key board
Mengakhiri program dengan cara :
5)
1.
Klik icon Close pada from atau
2.
Klik icon End pada icon bar
3.
Klik Tombol Keluar pada form
Menyimpan Program. a.
Buat folder Latihan1
b.
Simpan Form dengan nama FrmPerkenalan di folder Latihan1
c.
Simpan Project dengan nama PrjPerkenalan di folder Latihan1
BAB II VARIABEL DAN KONSTANTA
Variabel adalah suatu tempat untuk menampung data yang nilainya selalu berubah. Sedangkan konstanta adalah suatu tempat untuk menampung data yang nilainya tetap dan tidak pernah berubah.
3.1.
Aturan Penamaan Konstanta dan Variabel Harus diawali huruf. Boleh terdiri dari huruf, angka, dan garis bawah. Maksimal 255 karakter. Tidak boleh menggunakan reserved word.
3.2. Deklarasi Konstanta dan Variabel
Deklarasi konstanta Bentuk umum : [Public | Private] Const nama_konstanta [AS tipe_konstanta] = eksplisit Contoh : Public Const Discount As Single = 0.05 Const Hasil = “Program mencari hasil perhitungan pada form” Contoh penggunaan dalam program Const Phi As = 3.14159265 Const Bonus = 356785.589
Deklarasi variabel Bentuk umum : Dim
[AS ] Contoh : Dim Umur As Byte
Pendeklarasian variabel ada 2 jenis : 1)
Deklarasi Eksplisit Mendeklarasikan nama variabel beserta tipe datanya pada awal procedure. Contoh : Dim Nama As String Dim Jumlah As Integer Dim Gaji As Currency
2)
Deklarasi Implisit Mendeklarasikan nama variabel beserta tipe datanya dan langsung mengisi nilai variabelnya. Contoh : Nama$ = “ Adi ” Jumlah% = 75478 Gaji@ = 1750000
3.3. Ruang Lingkup konstanta dan Variabel Ruang lingkup konstanta atau variabel adalah ruang dimana konstanta atau variabel dikenal. Ada variabel yang dikenal diseluruh bagian program, ada yang hanya dikenal di procedure tempat variabel tersebut dibuat. Contoh : Private Sub CmdTambah_Click() Dim Nama as String Dim Alamat as String * 30 Static No as Integer End Sub
Deklarasi variabel pada Visual Basic dapat dilakukan dengan Keyword berikut : Keyword
Berlaku pada level
Static
Procedure
Dim
Procedure dan Modul
Public
Modul
Private
Modul
Tabel 1-2. Keyword pada deklarasi variabel
Latihan 2. Deklarasi Variabel. 1)
Desain Form Form1
Label1
Command1
2)
Command2
Command3
Properties Objek
Properti
Nilai
Project1
Name
PrjVariabel
Form1
Name
FrmVariabel
Caption
Materi Variabel
Caption
( Kosongkan )
Alignment
2 – Center
Font
Arial,Bold, 24
Label1
3)
Listing Program
4)
Jalankan Program
5)
Simpan Program. a. Buat folder Latihan2 b. Simpan Form dengan nama FrmVariabel di folder Latihan2 c. Simpan Project dengan nama PrjVariabel di folder Latihan2
BAB III OPERATOR Operator adalah perintah yang digunakan untuk memanipulasi nilai atau variabel guna memberikan suatu hasil. Visual Basic menyediakan operator aritmatika, perbandingan dan logika. Seorang programer harus faham tata urutan operasi dari masing – masing operator tersebut, agar ekspresi yang dibuat menghasilkan nilai yang benar. Contoh : A=1+2*3
'nilai yang dihasilkan 7
B = (1 + 2) * 3
'nilai yang dihasilkan 9
3.1. Operator Aritmatika Operator Aritmatika adalah operator yang digunakan untuk melakukan perhitungan angka – angka secara matematis. Operator
Arti
Contoh
^
Pangkat
A = 5 ^ 3 ( Hasil 125 )
*
Kali
A = 5 * 3 ( Hasil 15 )
/
Bagi
A = 5 / 2 ( Hasil 1.66666667 )
\
Bagi ( Bulat )
A = 5 \ 2 ( Hasil 1 )
Mod
Sisa Pembagi
A = 5 Mod 2 ( Hasil 2 )
+
Tambah
A = 5 + 2 ( Hasil 7 )
–
Kurang
A = 5 – 2 ( Hasil 3 )
3.2. Operator Perbandingan Operator perbandingan adalah operator yang digunakan untuk membandingkan suatu data dengan data lain yang akan menghasilkan nilai logika benar atau salah. Operator
Keterangan
=
Sama dengan
<>
Tidak sama dengan
<
Lebih kecil
>
Lebih besar
<=
Lebih Kecil atau Sama dengan
>=
Lebih Besar atau Sama dengan
Contoh : Perbandingan
Hasil
5 = 10
False
5 <> 10
True
5 < 10
True
5 > 10
False
5 <= 10
True
5 >= 10
False
3.3. Operator Logika Digunakan untuk mengekspresikan satu atau lebih data logika menghasilkan data logika baru. Operator And
Or Not
Keterangan Menghasilkan nilai benar jika kedua nilai yang dibandingkan benar. Menghasilkan nilai benar jika salah satu dari kedua nilai yang dibandingkan benar Menghasilkan nilai sebaliknya
Latihan 3. Penggunaan Operator. 1)
Desain Form
2)
Properties Objek
Properti
Nilai
Project1
Name
PrjOperator
Form1
Name
FrmAritmatika
Caption
Materi Operator Aritmatika
Caption
KALKULATOR SEDERHANA
Alignment
2 – Center
Font
Arial,Bold, 14
Label2
Caption
Angka 1
Label3
Caption
Angka 2
Label4
Caption
Hasil
Text1
Name
TxtAngka1
Text
( Kosongkan )
Name
TxtAngka2
Text
( Kosongkan )
Name
TxtHasil
Text
( Kosongkan )
Frame1
Caption
( Kosongkan )
Command1
Name
CmdPangkat
Caption
^
Name
CmdKali
Caption
*
Label1
Text2
Text3
Command2
Command3
Command4
Command5
Command6
Command7
3)
Name
CmdTambah
Caption
+
Name
CmdBagi1
Caption
/
Name
CmdBagi2
Caption
\
Name
CmdKurang
Caption
-
Name
CmdMod
Caption
Mod
Listing Program Private Form_Activate ( ) TxtAngka1.SetFocus TxtHasil.Enabled = False End Sub Private Sub CmdPangkat_Click( ) TxtHasil.Text = Val ( TxtAngka1.Text ) ^ Val ( TxtAngka2.Text ) End Sub Private Sub CmdBersih_Click( ) TxtAngka1.Text = "" TxtAngka2.Text = "" TxtHasil.Text = "" TxtAngka1.SetFocus End Sub
4)
Jalankan Program
5)
Simpan Program. a.
Buat folder Latihan3
b.
Simpan Form dengan nama FrmAritmatika di folder Latihan3
c.
Simpan Project dengan nama PrjOperator di folder Latihan3
BAB IV PERCABANGAN Dalam hidup kita selalu dihadapkan pada berbagai pilihan kondisi yang masing – masing memberikan hasil berbeda. Visual basic menyediakan struktur perintah untuk mengendalikan proses penyeleksian kondisi dalam mengatur jalannya sebuah program Struktur kendali kondisi ( percabangan ) yang didukung oleh Visual Basic adalah sebagai berikut :
4.1. Seleksi Kodisi Dengan Perintah If A.
If ...Then Struktur ini digunakan untuk menyeleksi kondisi tertentu. Jika kondisi benar, maka
perintah akan dijalankan. Jika kondisi salah, maka perintah if tidak dilaksanakan Sintaks : If ( Kondisi ) Then Perintah End If
Contoh : Pesan = MsgBox("Bener neh mo keluar aje ??!!..", vbYesNo, "Tunggu dulu!!!..") If Pesan = vbYes Then Unload Me End If
B.
If ... Then ... Else Struktur ini hampir sama dengan struktur If ... Then. Jika kondisi benar, maka
perintah 1 akan dijalankan. Jika kondisi salah, maka perintah 2 akan dilaksanakan Sintaks : If ( Kondisi ) Then Perintah1 Else Perintah2 End If
Contoh : If
ChkTebal.Value = Checked Then TxtKetik.FontBold = True
Else TxtKetik.FontBold = False End If
C.
Nested If ( If Majemuk ) Struktur ini digunakan untuk menyeleksi kondisi yang lebih dari satu. Jika kondisi1
benar, maka perintah 1 akan dijalankan. Jika kondisi1 salah, maka masuk ke kondisi 2 dan seterusnya. Sintaks : If ( Kondisi-1 ) Then Perintah1 Else If ( Kondisi-2 ) Then Perintah2 ........ Else Perintah - n End If End If
Contoh : If
Nilai > 90 Then Keterangan = " Sangat Baik"
Else If
Nilai > 70 Then Keterangan = "Baik"
Else If
Nilai > 60 Then Keterangan = " Cukup"
Else Keterangan = "Buruk" End If End If End If
Latihan 4. Penggunaan If. A.
If Then Else
1)
Desain Form
Form
Label
Text Box Frame Option Button Command Button Check Box
2)
Properties Object
Properties
Nilai
Project1
Name
PrjPercabangan
Form1
Name
FrmIfThenElse
Caption
Materi If … Then … Else
Caption
KETIK TEKS YANG ANDA
Label1
INGINKAN : Text1
Name
TxtKetik
Text
(Dikosongkan)
Frame1
Caption
Back Color
Option1
Name
OptKuning
Caption
Kuning
Name
OptMerah
Caption
Merah
Frame2
Caption
Text Color
Option3
Name
OptBiru
Caption
Biru
Name
OptPutih
Caption
Putih
Frame3
Caption
Font Style
Check1
Name
ChkTebal
Caption
Tebal
Option2
Option4
Check2
Check3
3)
Name
ChkCetakMiring
Caption
Cetak Miring
Name
ChkGarisbawah
Caption
Garis Bawah
Listing Program Private Form_Activate ( ) TxtKetik.SetFocus End Sub
Private Sub OptKuning_Click( ) TxtKetik.BackColor = vbYellow End Sub Private Sub OptMerah_Click( ) TxtKetik.BackColor = vbRed End Sub Private Sub OptBiru_Click( ) TxtKetik.ForeColor = vbBlue End Sub Private Sub OptPutih_Click( ) TxtKetik.ForeColor = vbWhite End Sub
Private Sub ChkTebal_Click( ) If
ChkTebal.Value = Checked Then TxtKetik.FontBold = True
Else TxtKetik.FontBold = False End If End Sub
Private Sub ChkCetakMiring_Click( ) If
ChkCetakMiring.Value = Checked Then TxtKetik.FontItalic = True
Else TxtKetik.FontItalic = False End If End Sub
Private Sub ChkGarisBawah_Click( ) If
ChkGarisBawah.Value = Checked Then TxtKetik.FontUnderline = True
Else TxtKetik.FontUnderline = False End If End Sub
Private Sub cmdBersih_Click( ) ‘Membersihkan kotak TextBox, Option Button dan Check Box TxtKetik.Text = "" TxtKetik.BackColor = vbWhite OptKuning.Value = False OptMerah.Value = False OptBiru.Value = False OptPutih.Value = False ChkTebal.Value = Unchecked ChkCetakMiring.Value = Unchecked ChkGarisBawah.Value = Unchecked TxtKetik.SetFocus End Sub
Private Sub CmdTutup_Click( ) Pesan = MsgBox("Bener neh mo keluar aje ??!!..", vbYesNo, "Tunggu dulu!!!..") If
Pesan = vbYes Then Unload Me
End If End Sub
4)
Simpan Program. a.
Buat folder Latihan4
b.
Simpan Form dengan nama FrmIfThenElse di folder Latihan4
c.
Simpan Project dengan nama PrjPercabangan di folder Latihan4
Menambah Form Baru
Buka file PrjPercabangan Klik kanan pada PrjPercabangan Pilih Add Pilih form Open
B.
Nested If ( If Majemuk )
1)
Desain Form
2)
Properties
3)
Object
Properties
Nilai
Form2
Name
FrmNestedIf
Caption
Materi Nested If
Logika Jalannya Program a.
Mata Kuliah diisi dengan mengklik salah satu pilihan pada Pilih Mata Kuliah.
b.
Ketika mengisi Nilai UAS, tombol Hitung menjadi aktif
c.
Nilai Rata – rata dan Keterangan diisi dengan mengklik tombol Hitung. Nilai Rata – Rata = ( Nilai UTS + Nilai UAS ) / 2 Jika Rata – Rata >= 85, maka Keterangan = “Sangat Memuaskan” Jika Rata – Rata >= 75, maka Keterangan = “Cukup Memuaskan” Jika Rata – Rata >= 60, maka Keterangan =”Memuaskan” Selain itu maka Keterangan = “Kurang Memuaskan” Ketika mengklik tombol Hitung, tombol Lagi dan Tutup menjadi aktif
4)
Listing Program Private Sub Form_Load( ) 'Menonaktifkan Object CmdHitung, CmdLagi, CmdTutup ‘TxtMataKuliah, TxtRata dan TxtKeterangan TxtMataKuliah.Enabled = False TxtRata.Enabled = False TxtKeterangan.Enabled = False
CmdHitung.Enabled = False CmdLagi.Enabled = False CmdTutup.Enabled = False End Sub
Private Sub OptVisualBasic_Click() TxtMataKuliah.Text = "Visual Basic 6.0" TxtNilaiUTS.SetFocus End Sub
Private Sub TxtNilaiUAS_Change() 'Mengaktifkan Object CmdHitung CmdHitung.Enabled = True End Sub
Private Sub TxtNilaiUAS_KeyPress(KeyAscii As Integer) 'Memberikan enter dan Kursor pindah ke CmdHitung If
KeyAscii = 13 Then CmdHitung.SetFocus
End If End Sub
Private Sub CmdHitung_Click() 'Proses perhitungan Rata _Rata TxtRata.Text = ( Val ( TxtNilaiUTS.Text ) + Val ( TxtNilaiUAS.Text ) ) / 2
'Proses keterangan dengan perintah If If
TxtRata.Text >= 85 Then TxtKeterangan.Text = " Sangat Memuaskan"
Else If
TxtRata.Text >= 75 Then txtKeterangan.Text = " Cukup Memuaskan"
Else If
TxtRata.Text >= 60 Then TxtKeterangan.Text = " Memuaskan"
Else TxtKeterangan.Text = "Kurang Memuaskan" End If End If End If
'Mengaktifkan Object CmdBersih dan CmdKeluar CmdLagi.Enabled = True CmdTutup.Enabled = True End Sub
5)
Simpan form pada PrjPercabangan dengan nama FrmNestedIf
4.2. Seleksi Kondisi Dengan Perintah Select Case Visual Basic menyediakan struktur perintah Select Case sebagai suatu alternatif terhadap If...Then...Else. Perintah Select Case membuat kode lebih mudah dibaca. Sintaks : Select Case ( ekspresi kodisi ) Case Nilai 1 Perintah 1 Case Nilai 2 Perintah 2 … Case Else Pernyataan n End Select Contoh : Select Case Rata - Rata Case Is >= 85: Keterangan = "Sangat Memuaskan" Case Is >= 75 Keterangan = "Cukup Memuaskan" Case Is >= 60 Keterangan = "Cukup Memuaskan" Case Else Keterangan = "Kurang Memuaskan" End Select
Latihan Penggunaan Select Case.
Buka Kembali PrjPercabangan
Rubah Proses Keterangan pada CmdHitung dengan menggunakan perintah Select Case sebagai berikut : Private Sub CmdHitung_Click() 'Proses perhitungan Rata _Rata TxtRata.Text = ( Val ( TxtNilaiUTS.Text ) + Val ( TxtNilaiUAS.Text ) ) / 2
'Proses keterangan dengan perintah Select Case Select Case TxtRata.Text Case Is >= 85: Keterangan = "Sangat Memuaskan" Case Is >= 75 Keterangan = "Cukup Memuaskan" Case Is >= 60 Keterangan = "Memuaskan" Case Else Keterangan = "Kurang Memuaskan" End Select
'Mengaktifkan Object CmdBersih dan CmdKeluar CmdLagi.Enabled = True CmdTutup.Enabled = True End Sub
Latihan Percabangan 1)
Desain Form
TxtSatuan TxtHarga
2)
3)
Properties Object
Properties
Nilai
Form3
Name
FrmToko
Caption
Materi Percabangan
Line1
Border Width
3
Combo1
Name
CmbNamaBarang
Text
PILIH NAMA BARANG
Ketentuan Program a.
Satuan dan harga barang didapat dengan mengklik salah satu pilihan pada Kotak Pilihan Combo Box ( Perintah Select Case ) Jika nama barang = “GULA”, maka satuan = ”Kilogram” dan harga Rp. 5000. Jika nama barang = “KOPI”, maka satuan = “Bungkus” dan harga Rp. 4000. Jika nama barang = “KECAP”, maka satuan = “Botol” dan harga Rp. 7500 Jika nama barang = “SUSU”, maka satuan = “Kaleng” dan harga Rp. 5500
b.
Potongan harga didapat dengan menginput jumlah beli. ( Perintah If ) Proses : Potongan = Persen Potongan * ( Harga * Jumlah Beli ) Jika Jumlah beli antara 50 ke atas, maka mendapat potongan 10 % Jika Jumlah beli antara 20 s/d 49, maka mendapat potongan 5 % Selain itu tidak mendapat potongan.
c.
Discount didapat dengan mengklik pilihan pada jenis bayar. Untuk Jenis bayar Cash, maka Discount = 10% * ( Harga * Jumlah Beli ) Untuk Jenis bayar Kredit, tidak mendapat discount Tombol Hitung aktif ketika mengklik option Cash atau Kredit
d.
Total Bayar diisi dengan mengklik tombol Hitung. Proses : Total Bayar = Harga * Jumlah Beli – Potongan – Discount Tombol Clear dan Stop menjadi aktif ketika mengklik tombol Hitung,
4)
Listing Program Private Sub Form_Load( ) 'Memasukan item - item pilihan ke dalam Combo Box CmbNamaBarang.AddItem "GULA" CmbNamaBarang.AddItem "KOPI" CmbNamaBarang.AddItem "KECAP" CmbNamaBarang.AddItem "SUSU"
'Menonaktifkan Object Text Box dan Command Button TxtSatuan.Enabled = False TxtHarga.Enabled = False TxtPotongan.Enabled = False TxtDiscount.Enabled = False TxtTotalBayar.Enabled = False CmdHitung.Enabled = False CmdClear.Enabled = False CmdStop.Enabled = False End Sub
Private Sub CmbNamaBarang_Click( ) Select Case CmbNamaBarang.ListIndex Case 0 TxtSatuan.Text = "Kilogram" TxtHarga.Text = 5000 Case 1 TxtSatuan.Text = "Bungkus" TxtHarga.Text = 4000
Case 2 TxtSatuan.Text = "Botol" TxtHarga.Text = 7500 Case Else TxtSatuan.Text = "Kaleng" TxtHarga.Text = 5500 End Select ‘Mengaktifkan kursor pada TxtJmlBeli TxtJmlBeli.SetFocus End Sub
Private Sub TxtJmlBeli_Change( ) If
Val(TxtJmlBeli.Text) >= 50 Then TxtPotongan.Text = 0.1 * (Val(TxtHarga.Text) * Val(TxtJmlBeli.Text))
Else If
Val(TxtJmlBeli.Text) >= 20 Then TxtPotongan.Text = 0.05 * (Val(TxtHarga.Text) * Val(TxtJmlBeli.Text))
Else TxtPotongan.Text = 0 End If End If End Sub
Private Sub OptCash_Click( ) TxtDiscount.Text = 0.1 * (Val(TxtHarga.Text) * Val(TxtJmlBeli.Text)) ‘Mengaktifkan Object Hitung CmdHitung.Enabled = True End Sub
Private Sub OptKredit_Click( ) TxtDiscount.Text = 0
Mengaktifkan Object Hitung CmdHitung.Enabled = True End Sub
Private Sub CmdHitung_Click( ) TxtTotalBayar.Text = Val(TxtHarga.Text) * Val(TxtJmlBeli.Text) – Val(TxtPotongan.Text) - Val(TxtDiscount.Text) 'Mengaktifkan Object Clear dan Stop CmdClear.Enabled = True CmdStop.Enabled = True End Sub
Private Sub CmdClear_Click( ) CmbNamaBarang.Text = "PILIH NAMA BARANG" TxtSatuan.Text = "" TxtHarga.Text = "" TxtJmlBeli.Text = "" TxtPotongan.Text = "" TxtDiscount.Text = "" TxtTotalBayar.Text = "" OptCash.Value = False OptKredit.Value = False End Sub
Private Sub CmdStop_Click( ) Pesan = MsgBox("Yakin neh mo berenti??!..", vbYesNo, "Eit!!!..") If
Pesan = vbYes Then End
End If End Sub
5)
Simpan form pada PrjPercabangan dengan nama FrmToko
BAB V PERULANGAN (LOOPING) Struktur loop digunakan untuk melaksanakan sekelompok baris perintah secara berulang – ulang ( lebih dari satu kali ). 5.1. Do While ... Loop Do While ... Loop akan terus melaksanakan perintah program secara berulang – ulang selama memenuhi syarat ( bernilai benar ) dan akan berhenti ketika kondisi sudah tidak memenuhi syarat ( bernilai salah ). Sintaks : Do While Kondisi Perintah Loop
Contoh : Nilai = 1 Do While ( Nilai < 5 ) Print Nilai Nilai = Nilai + 1 Loop
Contoh Program : Buatlah form sebagai berikut :
Listing Program : Dim Nama(5) As String Dim Jumlah As Integer
Private Sub Form_Load( ) Jumlah = 1 Do While (Jumlah <= 5) Nama(Jumlah) = InputBox("Ketik nama ke - " + Str(Jumlah), "Menginput Nama sebanyak 5 kali") List1.AddItem Nama(Jumlah) Jumlah = Jumlah + 1 Loop End Sub
Simpan Program. a.
Buat folder Latihan5
b.
Simpan Form dengan nama FrmDoWhileLoop di folder Latihan5
c.
Simpan Project dengan nama PrjPerulangan di folder Latihan5
5.2. For ... To ... Next For ... To ... Next digunakan untuk melaksanakan perintah program secara berulang – ulang dalam jumlah yang telah ditentukan. Sintaks : For Variabel = Nilai awal To Nilai akhir Perintah Next Variabel
Contoh : For Nilai = 1 To 5 Print Nilai Nilai = Nilai + 1 Next Nilai
Contoh Program :
Buatlah form sebagai berikut :
Listing Program : Dim Nama(5) As String Dim Jumlah As Integer Private Sub Form_Load( ) For Jumlah = 1 To 5 Nama(Jumlah) = InputBox("Ketik nama ke - " + Str(Jumlah), "Menginput Nama sebanyak 5 kali") List1.AddItem Nama(Jumlah) Next Jumlah End Sub
Simpan form pada PrjPerulangan dengan nama FrmForToNext 5.3. While ... Wend While ... Wend digunakan untuk melaksanakan perintah program secara berulang – ulang selama kondisinya benar. Sintaks : While Kondisi Perintah Wend Contoh : Nilai = 1 While Nilai < 5 Print Nilai Nilai = Nilai + 1 Wend Contoh Program :
Buatlah form sebagai berikut :
Listing Program : Dim Nama(5) As String Dim Jumlah As Integer Private Sub Form_Load() Jumlah = 1 While Jumlah <= 5 Nama(Jumlah) = InputBox("Ketik nama ke - " + Str(Jumlah), "Menginput Nama sebanyak 5 kali") List1.AddItem Nama(Jumlah) Jumlah = Jumlah + 1 Wend End Sub
Simpan form pada PrjPerulangan dengan nama FrmWhileWend
BAB VI PROSEDUR
Prosedur banyak membantu programer dalam menghemat penulisan program. Prosedur adalah sekelompok kode yang lazim disebut rutin. Sebuah prosedur dapat digunakan berkali – kali oleh prosedur lainnya.
Latihan . A.
Buatlah Disain Form Sebagai berikut.
B.
Atur Properties dari setiap Object
C.
Logika Jalannya Program.
Pada saat dijalankan hanya tombol input dan kode jabatan yang aktif.
Ketika tombol input diklik, maka tombol batal dan tombol keluar menjadi aktif. Kursor berada pada kode jabatan.
Pada saat kode Jabatan diisi, maka jabatan, gaji pokok, tunjangan dan total gaji otomatis keluar.
Ketika tombol batal diklik keadaan kembali seperti semula.
Ketika tombol tombol Keluar di klik, maka muncul konfirmasi sebagai berikut :
Tabel Kode Jabatan. Kode
Jabatan System Analist
4000000
15% * Gaji Pokok
B
Programmer
3000000
10% * Gaji Pokok
C
Operator
1500000
5% * Gaji Pokok
Listing Program Sub AktifTombol( ) cmdBatal.Enabled = True cmdKeluar.Enabled = True End Sub
Sub NonAktifTombol( ) cmdBatal.Enabled = False cmdKeluar.Enabled = False End Sub
Sub Mati( ) txtJabatan.Enabled = False txtGapok.Enabled = False txtTunjangan.Enabled = False txtTotal.Enabled = False
txtJabatan.BackColor = &H8000000F txtGapok.BackColor = &H8000000F txtTunjangan.BackColor = &H8000000F txtTotal.BackColor = &H8000000F End Sub
Tunjangan
A
Total Gaji = Gaji Pokok + Tunjangan D.
Gaji Pokok
Sub Bersih( ) txtKode.Text = "" txtJabatan.Text = "" txtGapok.Text = "" txtTunjangan.Text = "" txtTotal.Text = "" cmdInput.SetFocus End Sub
Private Sub cmdBatal_Click( ) Call NonAktifTombol Bersih End Sub
Private Sub cmdInput_Click( ) Call AktifTombol txtKode.SetFocus End Sub
Private Sub cmdKeluar_Click( ) Pesan = MsgBox("Yakin nih mo keluar? ", vbOKCancel, "Sekedar Nanya!!...") If Pesan = vbOK Then Unload Me End If End Sub
Private Sub Form_Load( ) Call NonAktifTombol Mati End Sub
Private Sub txtKode_Change( ) If txtKode.Text = "A" Then txtJabatan.Text = "System Analyst" txtGapok.Text = 4000000 txtTunjangan.Text = 0.15 * Val(txtGapok.Text) ElseIf txtKode.Text = "B" Then txtJabatan.Text = "Programmer" txtGapok.Text = 3000000 txtTunjangan.Text = 0.1 * Val(txtGapok.Text)
ElseIf txtKode.Text = "C" Then txtJabatan.Text = "Operator" txtGapok.Text = 1500000 txtTunjangan.Text = 0.05 * Val(txtGapok.Text) Else MsgBox "Tidak ada Kode Jabatan", vbInformation, "Pehatian" txtKode.SetFocus End If txtTotal.Text = Val(txtGapok.Text) + Val(txtTunjangan.Text) End Sub
E.
Simpan dalam folder Latihan6 dengan nama file FrmProsedur dan PrjProsedur
BAB VII PEMROGRAMAN VISUAL BASIC 6.0 DENGAN DATABASE 1.
MEMBUAT DATABASE DAN TABEL. Langkah – langkah untuk membuat database dalam visual basic dengan Visual Data
Manager adalah sebagai berikut : Klik Add-Ins pada menu bar, lalu pilih Visual Data Manager sampai tampil jendela VisData.
Pilih : File/New/Microsoft Access/Version 7.0 MDB ... ( Untuk membuka file database yang sudah pernah dibuat pilih : File/Open Database/Microsoft )
Pilih atau buat Folder tempat menyimpan database yang akan dibuat pada jendela Save in Ketik nama database yang akan dibuat pada File Name (Contoh: Pembelian ), lalu klik tombol save sampai tampil jendela berikut :
Klik kanan pada Properties, pilih New Table, sampai tampil jendela Table Structure berikut ini :
Ketik nama tabel yang akan dibuat pada Table Name ( Contoh : Barang ), lalu klik Add Field, sampai tampil jendela Add Field berikut ini :
Buatlah beberapa field sebagai berikut : Name Kodebrg Namabrg Satuan Harga Stock
Type Text Text Text Double Single
Size 6 30 10 8 4
Keterangan FixedField
Close jendela Add Field, Lalu Klik tombol Add Index ( untuk membuat sebuah index *), sampai tampil jendela berkut ini :
* Ket :
Index data adalah urutan data pada tabel database. Index data diperlukan terutama untuk pencarian data dengan cepat dan pengelompokan data.
Ketik nama index pada bagian Name ( Contoh : Kodebrg ), lalu pilih field yang akan di buat indexnya pada bagian Available Fields ( Contoh : Kodebrg . Ket : Nama index dan nama Fiel boleh sama ), sampai muncul di bagian Indexed Fields. Tentukan pilihan index (Primary, Unique, IgnoreNulls). Primary digunakan sebagai pengenal suatu record, jika tabel yang bersangkutan dihubungkan dengan tabel lain (dalam satu tabel hanya boleh ada satu primary key). Unique dipilih jika ingin index bersifat unik. IgnoreNulls digunakan untuk mengabaikan filed yang kosong. Check list pilihan Primary dan Unique. Setelah selesai membuat index lalu klik tombol Close. Klik tombol Build the table untuk menyimpan tabel yang telah kita buat, samapi tampil sebuah tabel baru di bawah properties pada jendela Visdata ( yaitu : Barang ) Double Klik tabel Barang (atau klik kanan/Open), sampai tampil jendela berikut :
Klik Tombol Add untuk mengisi tabel Barang dengan data berikut ini : Kodebrg PS-001 PS-002 BS-001 BL-002 PP-003
Namabrg PENSIL STEADLER 2B PENSIL STEADLER HB BUKU SINAR DUNIA BUKU LOKOMOTIF PULPEN PILOT C15
Satuan BATANG BATANG BUAH BUAH BATANG
Harga 5000 4000 3000 2000 7500
Stock 20 40 30 50 10
Fungsi menu yang ada pada tabel barang : Add
: menambah record baru.
Update : mengoreksi record. Delete
: menghapus record aktif.
Find
: mencari record.
Refresh : menampilkan ulang setelah record mengalami perubahan. Close
: menutup tabel.
Buat 2 buah tabel baru pada file database Pembelian dengan ketentuan sebagai berikut 1. Tabel Supplier dengan ketentuan sebagai berikut : Name
Type
Size
Keterangan
Kodesup
Text
6
FixedFields
Namasup
Text
30
Alamat
Text
40
Kota
Text
15
Telepon
Text
15
Isi dengan data berikut : Kodesup
Namasup
Alamat
Kota
Telepon
GM-001
TB. GRAMEDIA
JL. MATRAMAN NO. 12
BANDUNG
1234567
GA-002
TB. PILOT
JL. H. UNG NO. 13
JAKARTA
7654321
IB-003
IFADH BADROE
JL. CIMERAH NO. 25
TSM
6543217
DR-002
DENI RAHMAN
JL. CIKERIS NO. 10
PWKT
5432176
EM-003
EDWIN M
JL. JAMIKA
BANDUNG
4321765
2. Tabel Transaksi dengan ketentuan sebagai berikut : Name
Type
Size
Keterangan
Nofak
Text
6
FixedFields
Tglfak
Date
8
Kodesup
Text
6
Kodebrg
Text
6
Harga
Double
8
Banyak
Single
4
Jumlah
Double
8
Total
Double
8
Data diinput kemudian ......
2.
KONEKSI FILE DATABASE DENGAN KONTROL DATA
Kontrol data merupakan interface ( antar muka ) yang menghubungkan sebuah form dengan file database. Di dalam kontrol data memiliki beberapa properties yaitu : Connect Hubungan file database, bisa bersumber dari Access, Dbase, Excel, Foxpro, Lotus, Paradox, dan file Text. Database Name Menyatakan nama file database (.mdb) yang digunakan. Record Source Diisi tabel yang digunakan. EOF Action Pengecekan pergerakan kursor. Jika kursor sampai pada akhir file, maka terdapat 3 pilihan properties : MoveLast ( record terakhir ), EOF ( akhir file ), AddNew ( menambah record baru). Record Set Type Tipe record ; 0 – Tabel, 1 – Dynaset, 2 – Snapshot.
Menambahkan Object Data Bound Grid Menambah Objek pada tool box dengan cara CTRL + T ( Klik kanan pada tool box Pilih Komponen ) kemudian pilih Microsoft Data Bound Control 5.0 (SP3)
Latihan 1. Buatlah sebuah form dengan tampilan sebagai berikut :
Ketentuan : Object
Properties
Nilai
Project1
Name
PrjPembelian
Form1
Name
FrmBrowseBrg1
Caption
Pencarian Data dengan Metode Seek
Name
DataBarang
Caption
Data Barang
Connect
Access
DatabaseName
( Cari file database Pembelian pada folder masing –
Data1
masing ) RecordsetType
0 – Table
RecordSource
Barang
DbGrid1
Data Source
DataBarang
Command1
Name
CmdCariKdBrg
Caption
&Cari Kode Barang
Name
CmdKeluar
Caption
&Keluar
Command2
Listing Program nya Dim MKodeBrg As String * 6
'Deklarasi Variabel
Private Sub CmdCariKdBrg_Click( ) MKodeBrg = InputBox(" Ketik kode barang yang anda cari :") ' Cari data yang kode barangnya sama dengan MKodebrg DataBarang.Recordset.Seek "=", MKodeBrg If
DataBarang.Recordset.NoMatch Then Respon = MsgBox("Data tidak ditemukan!", vbInformation, "Pencarian Kode Barang")
End If End Sub Private Sub CmdKeluar_Click( ) Pilihan = MsgBox("Yakin akan keluar ??", vbYesNo, "Konfirmasi!") If
Pilihan = vbYes Then Unload Me
End If End Sub Private Sub Form_Activate( ) 'Mengaktifkan Index Kode Barang Mkodebrg = "" Databarang.Recordset.Index = "Kodebrg" End Sub
Menambah Form Baru
Klik kanan pada PrjPembelian Pilih Add Pilih form Open
Latihan 2: Buatlah sebuah form dengan tampilan sebagai berikut :
Ketentuan : Object
Properties
Nilai
Form1
Name
FrmBrowseBrg2
Caption
Pencarian Data dengan Metode SQL
Name
DataBarang
Caption
Data Barang
Connect
Access
DatabaseName
( Cari file database Pembelian pada folder masing
Data1
– masing ) RecordsetType
1 – Dynaset
RecordSource
Barang
DbGrid1
Data Source
DataBarang
Frame1
Caption
( Kosongkan )
Label1
Caption
Cari Nama Barang
Text1
Name
TxtCari
Text
( Kosongkan )
ToolTipText
Ketik nama barang yang anda cari disini !!
Name
CmdCari
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Sutio \
Command1
Common \ Graphics \ Icon \ Win95 \ Explorer. Style
1 – Graphical
ToolTipText
Klik disini untuk mencari data !!
Command2
Name
CmdKeluar
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Sutio \ Common \ Graphics \ Icon \ Traffic \ TRFFC14.
Style
1 – Graphical
ToolTipText
Klik disini untuk Keluar dari Program!
Listing Programnya Private Sub CmdCari_Click( ) Dim SQL As String SQL = "Select * From Barang Where Namabrg like '*" & txtcari.Text & "*'" DataBarang.RecordSource = SQL DataBarang.Refresh End Sub Private Sub CmdKeluar_Click( ) Pilihan = MsgBox("Yakin akan keluar ??", vbYesNo, "Konfirmasi!") If
Pilihan = vbYes Then Unload Me
End If End Sub Private Sub TxtCari_KeyPress(KeyAscii As Integer) ' Menginput dengan huruf besar KeyAscii = Asc(UCase(Chr(KeyAscii))) ' Perintah enter setelah di ketik pindah ke CmdCari If
KeyAscii = 13 Then CmdCari.SetFocus
End If End Sub
Tugas 1. Buat sebuah form dengan nama FrmBrowseSup1 ( Disain dan Cara sama dengan FrmBrowseBrg1 ) 2. Buat sebuah form dengan nama FrmBrowseSup2 ( Disain dan cara sama dengan FrmBrowseBrg2 )
BAB VIII UTS ( UJIAN TENGAH SEMESTER )
BAB IX MEMBUAT PROGRAM PEMBELIAN BARANG DENGAN DATABASE
A. Membuat Form Data barang
Ketentuan : Kontrol Form1
Properti
Nilai
Name
FrmBarang
Caption
FORMULIR DATA BARANG TOKO SEMOGA LARIS !!!
Data1
Name
DataBarang
Caption
Data Barang
Connect
Acces
DatabaseName
(Cari file database Pembelian pada folder masing – masing )
RecordsetType
0 – Table
RecordSource
Barang
Visible
False
DbGrid1
Data Source
DataBarang
Caption
BROWSE DATA BARANG
Label1
Caption
Kode Barang
Label2
Caption
Nama Barang
Label3
Caption
Satuan
Label4
Caption
Harga
Label5
Caption
Stock
Text1
Name
TxtKodeBarang
Appearance
0 – Flat
DataSource
DataBarang
DataField
Kodebrg
Text
( Kosongkan )
Name
TxtNamabrg
Appearance
0 – Flat
DataSource
DataBarang
DataField
Namabrg
Text
( Kosongkan )
Name
TxtSatuan
Appearance
0 – Flat
DataSource
DataBarang
DataField
Satuan
Text
( kosongkan )
Name
TxtHarga
Appearance
0 – Flat
DataSource
DataBarang
DataField
Harga
Text
( kosongkan )
Name
TxtStock
Appearance
0 – Flat
DataSource
DataBarang
DataField
Stock
Text
( Kosongkan )
Caption
( Kosongkan )
Text2
Text3
Text4
Text5
Frame1
Command1
Name
CmdTop
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Wizbmps \ WZTOP.
Command2
Style
1 – Graphical
ToolTipText
Record Awal
Name
CmdPrevious
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Wizbmps \ WZBACK.
Command3
Style
1 – Graphical
ToolTipText
Record Sebelumnya
Name
CmdNext
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Wizbmps \ WZNEXT.
Command4
Style
1 – Graphical
ToolTipText
Record Sesudahnya
Name
CmdLast
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Wizbmps \ WZEND.
Style
1 – Graphical
ToolTipText
Record Akhir
Frame2
Caption
( Kosongkan )
Command5
Name
CmdNew
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Graphics \ NEW.
Style
1 – Graphical
ToolTipText
Menambah data baru
Command6
Name
CmdSave
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Graphics \ SAVE.
Command7
Style
1 – Graphical
ToolTipText
Menyimpan data baru
Name
CmdDelete
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Wizbmps \ WZDELETE.
Command8
Style
1 – Graphical
ToolTipText
Menghapus data
Name
CmdUndo
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Wizbmps \ WZUNDO.
Command9
Style
1 – Graphical
ToolTipText
Membatalkan input data baru
Name
CmdEdit
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Wizbmps \ WZEDIT.
Command10
Style
1 – Graphical
ToolTipText
Memperbaiki data
Name
CmdCari
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Graphics \ BROWSE
Command11
Style
1 – Graphical
ToolTipText
Mencari data
Name
CmdExit
Caption
EXIT
Picture
C : \ Program Files \ Microsoft Visual Studio \ Common \ Graphics \ Icon \ Traffic \ TRFFC14.
Style
1 – Graphical
ToolTipText
Keluar dari Aplikasi
Listing Programnya Sub SiapIsi( ) 'Object berfungsi atau siap untuk disi TxtKodeBarang.Enabled = True TxtNamaBarang.Enabled = True TxtSatuan.Enabled = True TxtHarga.Enabled = True TxtStock.Enabled = True 'Memberikan warna pada bbjectt textbox TxtKodeBarang.BackColor = vbWhite TxtNamaBarang.BackColor = vbWhite TxtSatuan.BackColor = vbWhite TxtHarga.BackColor = vbWhite TxtStock.BackColor = vbWhite End Sub Sub TidakSiapIsi( ) 'Object textbox tidak berfungsi TxtKodeBarang.Enabled = False TxtNamaBarang.Enabled = False TxtSatuan.Enabled = False TxtHarga.Enabled = False TxtStock.Enabled = False 'Memberikan warna pada object textbox TxtKodeBarang.BackColor = &H8000000E TxtNamaBarang.BackColor = &H8000000E TxtSatuan.BackColor = &H8000000E TxtHarga.BackColor = &H8000000E TxtStock.BackColor = &H8000000E End Sub Sub NonAktifTombol( ) CmdSave.Enabled = False CmdUndo.Enabled = False End Sub
Sub AktifTombol( ) CmdSave.Enabled = True CmdUndo.Enabled = True End Sub Private Sub CmdDelete_Click( ) 'Perintah menghapus record data Pilihan = MsgBox(" Betul akan dihapus ?", vbOKCancel, "Konfirmasi") If Pilihan = vbOK Then DataBarang.Recordset.Delete DataBarang.Recordset.MoveNext If
DataBarang.Recordset.EOF Then DataBarang.Recordset.MoveLast
End If End If End Sub Private Sub CmdEdit_Click( ) DataBarang.Recordset.Edit SiapIsi End Sub Private Sub CmdEnd_Click( ) DataBarang.Recordset.MoveLast End Sub Private Sub CmdExit_Click( ) Pilihan = MsgBox("Yakin akan keluar ??", vbYesNo, "Konfirmasi!") If Pilihan = vbYes Then Unload Me End If End Sub Private Sub CmdFind_Click( ) Dim MKode As String * 6 MKode = InputBox("Ketik Kode Barangnya :", "Pencarian Data Barang") MSyarat = "Kode = '" & MKode & " ' " DataBarang.Recordset.Index = "Kodebrg" DataBarang.Recordset.Seek "=", Mkode
If Not DataBarang.Recordset.NoMatch Then SiapIsi Else MsgBox "Record kode barang tidak ada", 16, "Informasi" DataBarang.Recordset.MoveFirst TidakSiapIsi End If End Sub Private Sub CmdNew_Click( ) 'Menambah data baru DataBarang.Recordset.AddNew AktifTombol SiapIsi TxtKodeBarang.SetFocus End Sub Private Sub CmdNext_Click( ) DataBarang.Recordset.MoveNext If DataBarang.Recordset.EOF Then DataBarang.Recordset.MoveLast MsgBox "Sudah di akhir record", 16, "Informasi" End If End Sub Private Sub CmdPrevious_Click( ) DataBarang.Recordset.MovePrevious If DataBarang.Recordset.BOF Then DataBarang.Recordset.MoveFirst MsgBox "Sudah di awal record", 16, "Informasi" End If End Sub Private Sub CmdSave_Click( ) 'Menyimpan data baru DataBarang.Recordset.Update TidakSiapIsi End Sub
Private Sub CmdTop_Click( ) DataBarang.Recordset.MoveFirst End Sub Private Sub CmdUndo_Click( ) 'Membatalkan data baru DataBarang.Recordset.CancelUpdate DataBarang.Recordset.MoveLast NonAktifTombol TidakSiapIsi End Sub Private Sub Form_Load( ) NonAktifTombol TidakSiapIsi End Sub
2. Membuat Form Data Supplier
Ketentuan : Kontrol Form1
Properti
Nilai
Name
FrmSupplier
Caption
FORMULIR DATA SUPPLIER TOKO SEMOGA LARIS !!!
Data1
Name
DataSupplier
Caption
Data Supplier
Connect
Acces
DatabaseName
(Cari file database Pembelian pada folder masing – masing )
RecordsetType
0 – Table
RecordSource
Supplier
Visible
False
Data Source
DataBarang
Caption
BROWSE DATA SUPPLIER
Label1
Caption
Kode Supplier
Label2
Caption
Nama Supplier
Label3
Caption
Alamat
Label4
Caption
Kota
DbGrid1
Label5
Caption
Telepon
Text1
Name
TxtKodeSupplier
Appearance
0 – Flat
DataSource
DataSupplier
DataField
Kodesup
Text
( Kosongkan )
Name
TxtNamasup
Appearance
0 – Flat
DataSource
DataSupplier
DataField
Namasup
Text
( Kosongkan )
Name
TxtAlamat
Appearance
0 – Flat
DataSource
DataSupplier
DataField
Alamat
Text
( kosongkan )
Name
TxtKota
Appearance
0 – Flat
DataSource
DataSupplier
DataField
Kota
Text
( kosongkan )
Name
TxtTelepon
Appearance
0 – Flat
DataSource
DataSupplier
DataField
Telepon
Text
( Kosongkan )
Frame1
Caption
( Kosongkan )
Command1
Name
CmdTop
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \
Text2
Text3
Text4
Text5
Vfp98 \ Wizards \ Wizbmps \ WZTOP. Style
1 – Graphical
ToolTipText
Record Awal
Command2
Name
CmdPrevious
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Wizbmps \ WZBACK.
Command3
Style
1 – Graphical
ToolTipText
Record Sebelumnya
Name
CmdNext
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Wizbmps \ WZNEXT.
Command4
Style
1 – Graphical
ToolTipText
Record Sesudahnya
Name
CmdLast
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Wizbmps \ WZEND.
Style
1 – Graphical
ToolTipText
Record Akhir
Frame2
Caption
( Kosongkan )
Command5
Name
CmdNew
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Graphics \ NEW.
Command6
Style
1 – Graphical
ToolTipText
Menambah data baru
Name
CmdSave
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Graphics \ SAVE.
Style
1 – Graphical
ToolTipText
Menyimpan data baru
Command7
Name
CmdDelete
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Wizbmps \ WZDELETE.
Command8
Style
1 – Graphical
ToolTipText
Menghapus data
Name
CmdUndo
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Wizbmps \ WZUNDO.
Command9
Style
1 – Graphical
ToolTipText
Membatalkan input data baru
Name
CmdEdit
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Wizbmps \ WZEDIT.
Command10
Style
1 – Graphical
ToolTipText
Memperbaiki data
Name
CmdCari
Caption
( Kosongkan )
Picture
C : \ Program Files \ Microsoft Visual Studio \ Vfp98 \ Wizards \ Graphics \ BROWSE
Command11
Style
1 – Graphical
ToolTipText
Mencari data
Name
CmdExit
Caption
EXIT
Picture
C : \ Program Files \ Microsoft Visual Studio \ Common \ Graphics \ Icon \ Traffic \ TRFFC14.
Style
1 – Graphical
ToolTipText
Keluar dari Aplikasi
Listing Programnya Bikin sendiri doooooong!!!!!!!!!!!!!........ Hampir sama dengan listing program Form Barang. Selamat Menikmati!!!!!!!!!!.........
3. Membuat Form Data Transaksi Sebelum membuat form data transaksi, tambahkan object SSTab dan DBCombo dengan cara klik kanan pada toolbox lalu pilih Components ( Ctrl+ T ). Aktifkan Komponen berikut ini : Microsoft Data Bound List Controls 6.0 Microsoft Tabbed Dialog Controls 6.0 Buatlah Form Data Transaksi sebagai berikut:
Ketentuan : Kontrol Form1
Properti
Nilai
Name
FrmTransaksi
Caption
FORMULIR DATA TRANSAKSI PEMBELIAN TOKO. SEMOGA LARIS !!!
SSTab1
Data1
Caption1
Input Data Transaksi
Caption2
Browse Data Transaksi
Name
DataBarang
Caption
Data Barang
Connect
Acces
DatabaseName
(Cari file database Pembelian pada folder masing
RecordsetType
– masing )
RecordSource
0 – Table
Visible
Barang False
Data2
Name
DataSupplier
Caption
Data Supplier
Connect
Acces
DatabaseName
(Cari file database Pembelian pada folder masing
RecordsetType
– masing )
RecordSource
0 – Table
Visible
Supplier False
Data3
Name
DataTransaksi
Caption
Data Transaksi
Connect
Acces
DatabaseName
(Cari file database Pembelian pada folder masing
RecordsetType
– masing )
RecordSource
0 – Table
Visible
Transaksi False
Label1
Caption
Nomor Faktur
Label2
Caption
Tanggal Faktur
Label3
Caption
Kode Supplier
Label4
Caption
Nama Supplier
Label5
Caption
Kode Barang
Label6
Caption
Nama Barang
Label7
Caption
Harga Rp.
Label8
Caption
Banyak
Label9
Caption
Jumlah Rp.
Label10
Caption
dd – mm - yy
Line1
BorderWidth
2
Text1
Name
TxtNoFak
Text2
Name
TxtTglFak
Enabled
False
Name
CmbKodeSup
Rowsource
DataSupplier
ListField
KodeSup
Text
Pilih Kode Supplier
Name
TxtNamaSup
Enabled
False
Name
CmbKodeBrg
Rowsource
DataBarang
ListField
Kodebrg
Text
Pilih Kode Barang
Name
TxtNamaBrg
Enabled
False
Name
TxtHarga
Enabled
False
Text6
Name
TxtBanyak
Text7
Name
TxtJumlah
Enabled
False
Name
CmdSimpan
Caption
&Simpan
ToolTipText
Menyimpan Input Data Transaksi
Name
CmdBatal
Caption
&Batal
ToolTipText
Membatalkan Input Data Transaksi
Name
CmdKeluar
Caption
&Keluar
ToolTipText
Keluar Aplikasi
DBCombo1
Text3
DBCombo2
Text4
Text5
Command1
Command2
Command3
DbGrid1
Data Source
DataTransaksi
AllowDelete
True
Listing Programnya Private Sub Bersih( ) 'Membersihkan object textbox pada form CmbKodeBrg.Text = "Pilih Kode Barang" CmbKodeSup.Text = "Pilih Kode Supplier" TxtNoFak.Text = "" TxtNamaSup.Text = "" TxtNamaBrg.Text = "" TxtHarga.Text = "" TxtBanyak.Text = "" TxtJumlah.Text = "" End Sub Private Sub CmbKodeBrg_Change( ) With DataBarang.Recordset .Index = "kodebrg" .Seek "=", CmbKodeBrg.Text If Not .NoMatch Then TxtNamaBrg.Text = !Namabrg TxtHarga.Text = !Harga End If End With TxtBanyak.SetFocus End Sub Private Sub CmbKodeSup_Change( ) With DataSupplier.Recordset .Index = "kodesup" .Seek "=", CmbKodeSup.Text If Not .NoMatch Then TxtNamaSup.Text = !Namasup End If End With CmbKodeBrg.SetFocus End Sub
Private Sub CmdBatal_Click( ) Bersih End Sub Private Sub CmdKeluar_Click( ) Pilihan = MsgBox("Yakin akan keluar ??", vbYesNo, "Konfirmasi!") If Pilihan = vbYes Then Unload Me End If End Sub Private Sub CmdSimpan_Click( ) 'Memberikan intruksi data tidak boleh Kosong If TxtNoFak.Text = "" Then MsgBox "Nomor Faktur Harus Diisi", 16, "Konfirmasi" TxtNoFak.SetFocus Exit Sub End If If CmbKodeSup.Text = "Pilih Kode Supplier" Then MsgBox "Kode Supplier Harus Diisi", 16, "Konfirmasi" CmbKodeSup.SetFocus Exit Sub End If If CmbKodeBrg.Text = "Pilih Kode Barang" Then MsgBox "Kode Barang Harus Diisi", 16, "Konfirmasi" CmbKodeBrg.SetFocus Exit Sub End If If TxtBanyak.Text = "" Then MsgBox "Banyak Barang Harus Diisi", 16, "Konfirmasi" TxtBanyak.SetFocus Exit Sub End If 'Tambahkan record baru pada tabel pembelian DataTransaksi.Recordset.AddNew
'Simpan isian form ke dalam tabel Transaksi pada database Pembelian DataTransaksi.Recordset!NoFak = TxtNoFak.Text DataTransaksi.Recordset!TglFak = TxtTglFak.Text DataTransaksi.Recordset!Kodesup = CmbKodeSup.Text DataTransaksi.Recordset!Kodebrg = CmbKodeBrg.Text DataTransaksi.Recordset!Harga = TxtHarga.Text DataTransaksi.Recordset!Banyak = TxtBanyak.Text DataTransaksi.Recordset!Jumlah = TxtJumlah.Text 'Untuk update record DataTransaksi.Recordset.Update Beep Bersih End Sub Private Sub Form_Activate( ) 'Menampilkan tanggal sistem pada txttglfak TxtTglFak.Text = Date 'Pajang karakter nomor faktur TxtNoFak.MaxLength = 10 End Sub Private Sub TxtBanyak_Change( ) TxtJumlah.Text = Val(TxtHarga.Text) * Val(TxtBanyak.Text) End Sub Private Sub TxtBanyak_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then CmdSimpan.SetFocus Exit Sub End If 'Hanya boleh diisi angka atau backspace If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then Beep KeyAscii = 0 End If End Sub
Private Sub TxtNoFak_Change() With DataTransaksi.Recordset .Index = "nofak" .Seek "=", TxtNoFak.Text If Not .NoMatch Then MsgBox "Nomor Faktur Sudah Ada Euy,Input No.faktur Yang Lain", 16, "Konfirmasi" TxtNoFak.Text = "" End If End With End Sub
Private Sub TxtNoFak_KeyPress(KeyAscii As Integer) 'Memberikan penggunaan enter If KeyAscii = 13 Then CmbKodeSup.SetFocus End If End Sub
Private Sub TxtNoFak_LostFocus( ) 'Menentukan pajang karakter nomor faktur If Len(TxtNoFak.Text) < 10 Then MsgBox "Panjang Karakter untuk Nomor Faktur Harus 10" TxtNoFak.SetFocus End If End Sub
3.
MEMBUAT LAPORAN DENGAN DATA REPORT
Data Report adalah suatu fasilitas yang disediakan oleh Visual Basic untuk membuat sebuah laporan. Laporan akan terbentuk setelah terlebih dahulu mendisain Data Environtment. Data Environtment merupakan penghubung antara database yang telah dibuat dengan Data Report yang akan ditampilkan ( sama fungsinya dengan DAO – Data Access Object ). Langkah – langkah untuk membuat laporan dengan Data Report adalah sebagai berikut : A. Membuat Data Environtment. 1. Klik kanan pada PrjPembelian 2. Pilih Add 3. Pilih Data Environtment, sampai tampil jendela Data Environtment berikut :
4. Klik kanan pada Connection1 5. Pilih Properties, sampai muncul jendela Data Link Properties berikut :
6. Pilih Microsoft Jet 3.51 OLE DB Provider pada Tab Provider, lalu klik Next sampai tampil jendela berikut :
7. Browse (Cari) nama database yang akan dihubungkan (Contoh : Pembelian ) pada bagian 1. Select or enter a database name : dengan cara mengklik tombol
8. Klik Test Connection. Jika Koneksi berhasil, berarti database telah tekoneksi. Klik OK. 9. Untuk menambahkan Command pada database, klik kanan Connection1 lalu pilih Add Command sampai muncul Command1 dibawah Connection1. 10. Klik Kanan Command1, pilih Properties, sampai muncul jendela berikut :
11. Pada Command Name, Ketik LaporanBarang. 12. Pada Database Object, Pilih Tabel 13. Pada Object Name, Pilih Barang 14. Klik tombol Apply, lalu klik tombol OK ( atau langsung klik tombol OK ). 15. Ulangi langkah 9 – 14 untuk membuat Laporan Supplier dan LaporanTransaksi
B. Membuat Data Report Laporan Data Barang 1. Klik kanan pada PrjPembelian 2. Pilih Add, pilih Data Report, sampai tampil jendela Data Report berikut :
Bagian – Bagian pada jendela Data Report : Bagian
Keterangan
Report Header
Berisi Judul Laporan
Page Header
Berisi Judul Kolom yang akan ditampilkan
Detail
Berisi nama field yang akan ditampilkan pada kolom
Page Footer
Berisi catatan kaki di akhir kolom – kolom report
Report Footer
Berisi catatan kecil / Keterangan report
Selain itu ada beberapa kontrol yang akan muncul di toolbox pada bagian tab DataReport yang berisi : Nama
Keterangan
Kontrol RptTexBox
Kontrol serupa Texbox yang hanya menampilkan teks database saat runtime.
RptLine
Kontrol yang dapat menggambar garis secara horizontal, vertikal maupun diagonal.
RptFunction
Kontrol yang dapat menset hasil perhitungan pada saat runtime ( misalnya : Jumlah Total, Standar Deviasi dll )
RptLabel
Kontrol untuk memberikan label pada report
RptImage
Kontrol untuk menampilkan Image ( Gambar ) pada report.
RptShape
Kontrol untuk menggambar Shape ( Bentuk ) pada report.
3. Ubah properties Name menjadi LapBarang dan properties Caption menjadi Laporan Data Barang 4. Untuk memberi judul laporan, letakan
Kontrol RptLabel pada bagian
Report Header. Ubah properties Caption menjadi LAPORAN DATA BARANG TOKO SEMOGA LARIS !!! . Dan properties Alignment menjadi rtpjustcenter. 5. Untuk menghubungkan Database ke Data Report, isi properties DataSource dengan nama Data Environtment yang telah dibuat ( Contoh : Data Environtment1 ), isi properties DataMember dengan nama Command yang telah dibuat ( Contoh : LaporanBarang ) 6. Tampilkan Data Report dan Data Environment secara bersamaan, seperti gambar berikut :
7. Drag and Drop Command Environtment
LaporanBarang
pada jendela Data
ke jendela Data Report di bagian Detail.
8. Pindahkan bagian caption ( bagian yang bertanda “:” ke bagian Page Header pada Data Report, seperti tampilan berikut :
9. Hasil tampilan sederhana :
10. Disain lengkap
Ketentuan : Kontrol DataReport1
Image1
Properti
Nilai
Name
LapBarang
Caption
Laporan Data Barang
DataSource
DataEnvironmet1
DataMember
LaporanBarang
BackColor
&H0080FFFF& ( Warna Kuning )
BackStyle
1 – rptBkOpaque
BorderColor
&H000000FF& ( Warna Merah )
BorderStyle
1 – rptBSSolid
Picture
C : \ Program Files \ Microsoft Office \ media \ cagcat10 \ J0299125.
Shape1
SizeMode
1 – rptSizeStrech
BackColor
&H0080FFFF& ( Warna Kuning )
BackStyle
1 – rptBkOpaque
BorderColor
&H000000FF& ( Warna Merah )
BorderStyle
1 – rptBSSolid
Shape
4 - rptShpRoundedRectangle
Label1
Alignment
2 – rptJustifyCenter
Caption
LAPORAN DATA BARANG TOKO. SEMOGA LARIS !!!
Shape2
Line1,2,3,4
Label2
Label3
Label4
Label5
Label6
Line5,6,7,8,9,10
Line11
Font
Garamond, Bold, 20
ForeColor
&H000000FF& ( Warna Merah )
BackColor
&H00C0FFC0& ( Warna Hijau Muda )
BackStyle
1 – rptBkOpaque
BorderColor
&H000000FF& ( Warna Merah )
BorderStyle
1 – rptBSSolid
Shape
0 - rptShpRectangle
BorderColor
&H000000FF& ( Warna Merah )
BorderStyle
1 – rptBSSolid
Height
570
Alignment
2 – rptJustifyCenter
Caption
Kode Barang
Font
Arial, Bold, 10
Alignment
0 – rptJustifyLeft
Caption
Nama Barang
Font
Arial, Bold, 10
Alignment
2 – rptJustifyCenter
Caption
Satuan
Font
Arial, Bold, 10
Alignment
2 – rptJustifyCenter
Caption
Harga
Font
Arial, Bold, 10
Alignment
2 – rptJustifyCenter
Caption
Stock
Font
Arial, Bold, 10
BorderColor
&H000000FF& ( Warna Merah )
BorderStyle
1 – rptBSSolid
Height
570
BorderColor
&H000000FF& ( Warna Merah )
BorderStyle
1 – rptBSSolid
Left
288
Text1
Text2
Text3
Text4
Text5
Label7
Name
txtkodebrg
Alignment
2 – rptJustifyCenter
DataMember
laporanbarang
DataField
kodebrg
Font
Arial, Regular, 10
Name
txtnamabrg
Alignment
0 – rptJustifyLeft
DataMember
laporanbarang
DataField
namabrg
Font
Arial, Regular, 10
Name
txtsatuan
Alignment
2 – rptJustifyCenter
DataMember
laporanbarang
DataField
satuan
Font
Arial, Regular, 10
Name
txtharga
Alignment
2 – rptJustifyCenter
DataMember
laporanbarang
DataField
harga
Font
Arial, Regular, 10
Name
txtstock
Alignment
2 – rptJustifyCenter
DataMember
laporanbarang
DataField
stock
Font
Arial, Regular, 10
Caption
Created By .................. ( Ketik nama anda
Font
)
ForeColor
Arial, Bold, 10 &H00FF0000& ( Warna Biru )
11. Hasil tampilan lengkap
Tugas Pada PrjPembelian, buatlah : 1. Laporan Data Supplier 2. Laporan Data Transaksi
4.
MEMBUAT MENU UTAMA Menu Utama digunakan untuk mengintegrasikan program – program yang telah
dibuat. Sebelum membuat menu utama dengan MDIForm, atur properties MDIChild pada form dan report yang telah dibuat menjadi True. Langkah – langkah membuat Menu Utama : A. Menambah MDIForm Klik kanan pada PrjPembelian Pilih Add, pilih MDIForm lalu open. Atur properties Name menjadi FrmMenuUtama dan properties Caption menjadi Menu Utama Program Pembelian dan properties WindowState menjadi 2 – Maximized A. Membuat Menu Bar pada MDIForm Klik kanan pada MDIForm Pilih Menu Editor, sampai tampil jendela Menu Editor berikut ini :
Buat struktur Menu Bar sebagai berikut : CAPTION Level 1
Level 2
&File
&Transaksi
NAME MnFile
Data Barang
MnDataBarang
Data Supplier
MnDataSupplier MnTransaksi
Data Pembelian &Cetak
MnCetak Laporan Barang
MnLaporanBarang
Laporan Supplier
MnLaporanSupplier
Laporan Pembelian
MnLaporanPembelian
&Keluar
Tampilan hasilnya :
Listing Programnya Private Sub MnDataBarang_Click() FrmBarang.Show End Sub
Private Sub MnDataPembelian_Click() FrmPembelian.Show End Sub
MnDataPembelian
MnKeluar
Private Sub MnDataSupplier_Click() FrmSupplier.Show End Sub
Private Sub MnLaporanBarang_Click() LapBarang.Show End Sub
Private Sub MnLaporanPembelian_Click() LapPembelian.Show End Sub
Private Sub MnLaporanSupplier_Click() LapSupplier.Show End Sub
Private Sub MnSelesai_Click() Pilihan = MsgBox("Yakin akan keluar ??", vbYesNo, "Konfirmasi!") If Pilihan = vbYes Then End End If End Sub
5.
PROSES COMPILE VISUAL BASIC A. Membuat File .EXE File .EXE ( Executable ) digunakan agar program yang telah kita buat dapat dibaca oleh bahasa mesin dan tidak perlu dibuka lewat Visual Basic lagi. Langkah – langkah membuat File .EXE adalah sebagai berikut : 1. Klik File pada Menu Bar. 2. Pilih PrjPembelian.Exe, sampai tampil jendela berikut :
3. Pilih folder tempat menyimpan File .EXE pada bagian Save In (Disarankan membuat folder baru ) 4. Ketik nama file di bagian File name (Contoh : Program Pembelian ) 5. Klik OK B. Membuat Paket Program Instalasi Untuk membuat program instalasi, sebelumnya kita harus mengaktifkan Add – Ins ( Program tambahan dalam Visual Basic ) yang bernama Package And Deployment Wizard dengan langkah – langkah sebagai berikut :
Klik Add – Ins pada Menu Bar.
Pilih Add – In Manager, sampai tampil jendela berikut :
Pilih Package And Deployment Wizard lalu klik kotak cek Loaded / Unloaded.
Klik OK.
Kembali ke Menu Bar, Klik Add – Ins, Pilih Package And Deployment Wizard ... sampai tampil jendela berikut :
Klik Package. Pada kotak dialog berikutnya tentukan jenis program instalasi. Klik Pilihan Standar Setup Package lalu klik Next
Pada Kotak dialog selanjutnya, tentukan folder tempat menyimpan file – file program instalasi ( Disarankan membuat folder baru ). Lalu klik Next sampai tampil kotak dialog berikut :
Pindahkan file – file yang akan disertakan ke dalam program instalasi, lalu klik tombol Next sampai tampil jendela berikut :
Tentukan bagaimana cara file – file program instalasi akan dibuat berdasarkan media penyimpanan. 1. Single cab
: Semua file instalasi akan digabungkan ke dalam
sebuah file cabinet yang besar. Gunakan pilihan ini jika media penyimpanannya besar, seperti CD, Hard Disk atau Flash Disk. 2. Multiple cab
: Semua file instalasi akan dipecah – pecah kedalam
beberapa buah file cabinet berdasakan ukuran tertentu. Gunakan pilihan ini jika media penyimpanannya kecil, seperti Disket Floppy.
Klik Next sampai tampil jendela berikut :
Ketik judul program instalasi pada bagian Installation title ( Contoh : Program Pembelian ). Lalu Klik Next.
Selanjutnya tentukan dimana program aplikasi yang telah kita buat akan diletakan pada menu Windows. Klik Next
Klik tombol Finish untuk mulai membuat program instalasi
Setelah pembuatan program instalasi selesai, klik Save untuk menyimpan laporan atau langsung klik Close untuk menutupnya.
DAFTAR PUSTAKA
Alam, M. Agus. J. 1999. Belajar Sendiri Microsoft Visual Basic 6.0. Elex Media Komputindo. Jakarta.
Alam, M. Agus. J. 1999. Belajar Sendiri Manajemen Database Dengan Microsoft Visual Basic 6.0. Elex Media Komputindo. Jakarta.
Hadi, Rahardian. 2002. Pemrograman Windows API Dengan Microsoft Visual Basic. Elex Media Komputindo. Jakarta.
Kristanto, Harianto, Ir. 2002. Konsep Perancangan Database. Andi. Yogyakarta.
Kurniadi, Adi. 2000. Pemrograman Visual Basic 6.0. Elex Media Komputindo. Jakarta.
Pramono, Djoko. 2001. Mudah Menguasai Visual Basic 6.0. Elex Media Komputindo. Jakarta.
Yuswanto. 2001. Panduan Belajar Microsoft Visual Basic 5.0. Prestasi Pustaka. Jakarta.