Visual Basic 6.

0 Handout

MICROSOFT VISUAL BASIC 6.0

A. Mengenal Microsoft Visual Basic 6.0 Visual Basic adalah bahasa pemrogramam berbasis Microsoft Windows yang merupakan Object Oriented Programming (OOP), yaitu pemrograman berorientasi objek, Visual Basic menyediakan objek-objek yang sangat kuat, berguna dan mudah. Beberapa kemampuan atau manfaat dari Visual Basic diantaranya : o Untuk Membuat program aplikasi berbasis Windows. o Untuk Membuat ActiveX, File Help, Aplikasi Internet, dan sebagainya. o Menguji program (debugging) dan menghasilkan program akhir berakhiran EXE yang bersifat executable atau dapat langsung dijalankan. Keistimewaan Visual Basic 6.0 1. Memiliki compiler andal yang dapat menghasilkan file executable yang lebih cepat dan lebih efesien dari sebelumnya. 2. Memiliki beberapa tambahan sarana Wizard yang baru. 3. Tambahan kontrol-kontrol baru yang lebih canggih serta peningkatan kaidah struktur bahasa Visual Basic. 4. Sarana akses data yang lebih cepat dan andal untuk membuat aplikasi database yang berkemampuan tinggi. 5. Visual Basic 6.0 memiliki beberapa versi atau edisi yang disesuaikan dengan kebutuhan pemakainya. Ada Beberapa Hal yang harus dipahami dalam mempelajari Visual Basic : o Objek Sering disebut entity adalah sesuatu yang bisa dibedakan dengan lainnya. Pada dasarnya seluruh benda didunia ini bisa dikatakan sebagai objek, contoh : mobil, komputer, radio, dll. Dalam Visual Basic objek-objek yang dimaksud disebut kontrol. Jenis-jenis kontrol antara lain : Label, Textbox, Combo Box, List Box, dan masih banyak lagi. Properti Sering disebut atribut, adalah ciri-ciri yang menggambarkan suatu objek. Misalnya disebut objek mobil jika mempunyai ban, spion, rem, dll. Event Suatu kejadian yang menimpa objek. Bagaimana jika mobil didorong, ditabrak, dicat, dsb. Metode Kemampuan yang dimiliki oleh suatu objek. Contohnya jika mobil berbelok, mundur, dan maju.

B. Lingkungan Kerja Visual Basic 6.0 Komponen Visual Basic 1. Project adalah sekumpulan modul/program aplikasi itu sendiri, projek disimpan dalam file berextension .VBP biasanya berisi form-form. 2. Form adalah objek yang dipakai untuk tempat bekerja program aplikasi.

Visual Basic 6.0 Handout

3. Toolbox adalah alat berisi icon-icon atau komponen untuk memasukan objek tertentu kedalam form. Tambahan Komponen : Klik kanan pada toolbox > komponen atau add tab. 4. Properties adalah untuk menentukan setting suatu objek, menentukan cara kerja dari objek saat program dijalankan misal warna, huruf, dll. 5. Kode Program adalah serangkaian tulisan perintah yang akan dilaksanakan jika suatu objek dijalankan. 2

4 5

Latihan 1 :
Membuat Interface :

Visual Basic 6.0 Handout

Mengatur Properties Objek Label1 Label2 Label3 Label4 Label5 Label6 Text1 Text2 Text3 Text4 Text5 Command1 Command2 Command3 Properties Nilai Kenalan Yukk Nim Nama Kelas Alamat Telpon TxtNim TxtNama TxtKelas TxtAlamat TxtTelp &OK CmdNama &Hapus CmdHapus &Exit CmdExit

Caption

Catatan : Untuk Textbox, Properties Text Selalu Dikosongkan

Name

Caption Name Caption Name Caption Name

Menulis Kode Program

Visual Basic 6.0 Handout

Latihan 2 : Coding Form : Private Sub CmdBersih_Click() [Link] = "" [Link] = False [Link] = False [Link] = False [Link] = False [Link] = False [Link] = False [Link] = False [Link] = False [Link] = False End Sub

Objek Option1 Option2 Option3 Option4 Option5 Option6 Option7 Option8 Option9 Text1 Command1

Properties

Caption Name

Text Name

Name Command2 Caption

Nilai Biru OptBiru Hijau OptHijau Merah OptMerah Miring OptMiring Tebal OptTebal Size OptSize Kuning OptKuning Putih OptPutih Hitam OptHitam Visual Basic Text1 CmdKeluar &Keluar CmdBersih &Bersih

Private Sub CmdKeluar_Click() End End Sub Private Sub OptBiru_Click() [Link] = vbBlue End Sub Private Sub Optebal_Click() [Link] = True End Sub Private Sub OptHijau_Click() [Link] = vbGreen End Sub Private Sub OptHitam_Click() [Link] = vbBlack End Sub Private Sub OptKuning_Click() [Link] = vbYellow End Sub Private Sub OptMerah_Click() [Link] = vbRed End Sub Private Sub Optmiring_Click() [Link] = True

Private Sub OptPutih_Click() [Link] = vbWhite End Sub

End Sub
Private Sub Optsize_Click() [Link] = 20 End Sub

Visual Basic 6.0 Handout

KONSTANTA DAN VARIABEL

Variabel Adalah sebuah tempat penyimpanan data sementara dan bisa berubah nilainya. Deklarasi Variabel : Bentuk Umum : Dim <nama_variabel> As <tipe data> Dim : Berlaku sampai suatu prosedur selesai dijalankan Cara penentuan Variabel : o Nama Variabel harus diawali dengan Huruf o Boleh terdiri atas huruf, angka, underscore( _ ) o Tidak boleh lebih dari 255 karakter, dll Pendeklarasian Variabel Ada 2 : 1. Deklarasi Variabel Implicit Yaitu Mendeklarasikan nama variabel beserta tipe datanya dan langsung mengalokasikan nilainya didalam memori. 2. Deklarasi Variabel Eksplicit Yaitu Mendeklarasikan nama variabel beserta tipe datanya didalam prosedur. Latihan 1 : Coding Form : Private Sub Form_Click() Dim Biaya As Currency Dim Pajak As Currency Dim Total As Currency Biaya = 5000 Pajak = 500 Total = Biaya + Pajak [Link] Biaya = ; Biaya [Link] Pajak = ; Pajak [Link] ---------- + [Link] Total = ; Total End Sub Latihan 2 :

Objek Label1 Label2 Label3 Text1 Text2 Text3 Command1 Command2 Command3
Textbox, Properties Text Selalu Dikosongkan

Properties Caption

Name Name Caption Name Caption Name Caption

Nilai Nilai A Nilai B Nilai C TxtA TxtB TxtC CmdAB A+B CmdHapus &Hapus CmdExit &Exit 5

Visual Basic 6.0 Handout

Dim Nilai As Integer Private Sub CmdAB_Click() [Link] = (Val([Link]) Val([Link])) * Nilai End Sub Private Sub CmdExit_Click() End End Sub Private Sub CmdHapus_Click() [Link] = "" [Link] = "" [Link] = "" End Sub Private Sub Form_Load() Nilai = 10 End Sub

FUNGSI STANDAR VISUAL BASIC

1. Fungsi String a. Chr (integer) b. Ucase (Str) c. Lcase (Str) d. Left (Str,Int) e. Right (Str, Int) f. Ltrim (Str) g. Rtrim (Str) h. Str i. Len (Str) 2. Fungsi Format : Menghasilkan karakter Ascii sesuai dengan numeric argumennya. : Mengubah huruf/karakter menjadi huruf besar. : Mengubah huruf/karakter menjadi huruf kecil. : Mengambail beberapa karakter dari kiri. : Mengambail beberapa karakter dari kanan. : Menghasilkan string mengabaikan spasi sebelumnya. : Menghasilkan string mengabaikan spasi sesudahnya. : Mengubah Numerik menjadi String. : Menghasilkan jumlah karakter dalam string.

Digunakan untuk mengatur tampilan tanggal dan waktu contohnya : print format (D,Generasi Date), Angka dan karakter, ex : printformat (1234.3, ##,##0,00 yang hasilnya = 1,234.30.

Visual Basic 6.0 Handout

Objek Label1 Label2 Label3 Label4 Label5 Label6 Label7 Label8 Label9 Label10 Label11 Label12 Label13 Label14 Frame1 Command1

Properties Caption Font

Caption

Name Caption Name Caption Caption Caption Name Interval

Timer1 Text1 Text2 Text3 Text4 Text5 Text6 Text7 Text8 Text9 Listing Form :

Name

Nilai FUNGSI STRING Arial, Italic TULISKAN KATA RIGHT UPPER CASE LEFT Lower case GENERAL DATE SHORT DATE MEDIUM DATE LONG DATE TANGGAL HARI INI JAM SEKARANG Lblsekarang (kosong) Lbljam (kosong) PENGAMBILAN TEXT KLIK DISINI UNTUK INPUT TANGGAL Command1 100 Txtkata Txtright Txtuppercase Txtleft Txtlowercase TxtGeneraldate Txtshortdate Txtmediumdate Txtlongdate jam = Now [Link] = Format(hariini, "DDDD / DD - MMMM - YYYY") [Link] = Format(jam, "hh:mm:ss Am/Pm") End Sub Private Sub txtkata_Change() [Link] txtright = Right(txtkata, 7) txtleft = Left(txtkata, 7) txtupper = UCase(txtkata) txtlower = LCase(txtkata) End Sub

Private Sub Command1_Click() a = InputBox("MASUKKAN TANGGALNYA..", "INPUT TANGGAL") txtgeneraldate = Format(a, "General date") txtshortdate = Format(a, "Short date") txtmediumdate = Format(a, "Medium date") txtlongdate = Format(a, "Long date") End Sub Private Sub Timer1_Timer() Dim hariini As Variant Dim jam As Variant hariini = Now

Visual Basic 6.0 Handout

OPERATOR
1. Operator Aritmatika Aritmatika Pangkat ( ^ ) Negatif ( - ) Kali dan Bagi ( *, / ) Pembagian Bulat ( \ ) Sisa Bagi (Mod) Tambah dan Kurang (+,-) Pembagian String (&) Komparasi Sama ( = ) Tidak Sama ( <> ) Kurang dari ( < ) Lebih Dari ( > ) Kurang dari atau sama ( <= ) Lebih dari atau sama (>=) Logika Not And Or Xor Eqv Imp

Coding Form : Private Sub CmdTambah_Click() [Link] = Val([Link]) + Val([Link]) End Sub Private Sub CmdKurang_Click() [Link] = Val([Link]) Val([Link]) End Sub Private Sub CmdKali_Click() [Link] = Val([Link]) * Val([Link]) End Sub Private Sub CmdBagi_Click() [Link] = Val([Link]) / Val([Link]) End Sub Private Sub CmdBersih_Click() [Link] = "" [Link] = "" [Link] = "" [Link] End Sub Private Sub CmdSelesai_Click() pesan = MsgBox("Yakin Nich Mau Keluar", 32 + 1, "Konfirmasi") If pesan = vbOK Then End End If End Sub

Objek
Label1 Label2 Label3 Frame1 Frame2 Text1 Text2 Text3 Command1 Command2 Command3 Command4 Command5 Command6

Properties
Caption

Nilai
Nilai A Nilai B Hasil TxtA TxtB TxtHasil CmdTambah + CmdKali X CmdKurang CmdBagi : CmdBersih &Bersih CmdExit E&xit

Name Name Caption Name Caption Name Caption Name Caption Name Caption Name Caption

Visual Basic 6.0 Handout

2. Operator Perbandingan (Relasi) Operator = <> < > <= >= Like Ls Keterangan Sama dengan Tidak Sama dengan Lebih Kecil Lebih Besar Lebih Kecil atau sama dengan Lebih Besar atau sama dengan Mempunyai ciri yang sama Sama referensi objek

Private Sub CmdBERSIH_Click() TxtA = "" TxtB = "" TxtHasil = "" TxtKet = "" [Link] End Sub Private Sub CmdKELUAR_Click() pesan = MsgBox("Yakin Nich Mau Keluar?", vbQuestion + vbYesNo, "Konfirmasi") If pesan = vbYes Then End End If End Sub Private Sub CmdProses_Click() If Val(TxtA) > Val(TxtB) Then TxtHasil = "A > B" TxtKet = "Nilai A lebih besar dari nilai B" ElseIf Val(TxtA) < Val(TxtB) Then TxtHasil = "A < B" TxtKet = "Nilai A lebih kecil dari nilai B" Else

TxtHasil = "A = B" TxtKet = "Nilai A sama dengan nilai B" End If End Sub Private Sub Form_Load() [Link] = False [Link] = False End Sub Private Sub TxtA_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then [Link] End If End Sub

Visual Basic 6.0 Handout

PERCABANGAN/SELEKSI KONDISI
1. IFTHENELSEEnd If/ If Tunggal Bentuk Umum (BU) : If <Kondisi> Then <Pernyataan-1/Aksi-1> Else <Pernyataan-2/Aksi-1> End If 2. IFMajemuk BU : If <Kondisi-1> Then <Aksi-1/ Pernyataan-1> Elseif <Kondisi-2> Then <Aksi-2/Pernyataan-2> Elseif <Kondisi-n> Then <Aksi-n/Pernyataan-n> Else <aksi-default> End If 3. Select Case End Select Digunakan untuk mengeksekusi sejumlah pernyataan sesuai dengan ekspresi yang ada. Selain itu ekspresi bisa berupa range nilai tertentu atau beberapa ekspresi sekaligus. BU : Select Case <Variabel-ekspresi> Case is <ekspresi-1> <pernyataan-1> Case is <ekspresi-2> <pernyataan-2> Case is <ekspresi-n> <pernyataan-n> Lat 1 : Case else <pernyataan-default> End Select Objek Properties Option1 Caption Name Option2 Caption Name Option3 Caption Name Frame1 Caption Nilai Kepiting Saus Tiram Optmenu (0) Udang Asam Manis Optmenu (1) Cumi Lada Hitam Optmenu (2) Menu Makanan

10

Visual Basic 6.0 Handout

Private Sub cmdhitung_Click() txtTotal = Val(txtHarga) * Val(txtJumlah) If txtJumlah >= 5 Then txtDiskon = 0.15 * txtTotal Else txtDiskon = 0 End If txtBayar = Val(txtTotal) - Val(txtDiskon) End Sub Private Sub cmdkeluar_Click() pesan = MsgBox("Yakin Mau Udahan ...!!!", 36, "Konfirmasi") If pesan = vbYes Then Unload Me End Sub Private Sub cmdlagi_Click() Optmenu(0) = 0 Optmenu(1) = 0 Optmenu(2) = 0 Lat 2 :

txtHarga = "" txtJumlah = "" txtTotal = "" txtDiskon = "" txtBayar = "" End Sub Private Sub Optmenu_Click(Index Integer) Select Case Index Case 0 txtHarga = 20000 Case 1 txtHarga = 15000 Case 2 txtHarga = 12000 End Select [Link] End Sub As

Objek Label12 & Label13 Timer1

Properties Caption BackStyle BorderStyle Interval

Nilai dikosongkan 1-Opaque 1-Fixed Single 1000

Private Sub cmdclear_Click() [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = ""

[Link] = "" [Link] = "" [Link] = "" [Link] End Sub Private Sub cmdexit_Click() pesan = MsgBox("Yakin Nich Mau Keluar", vbQuestion + vbYesNo, "Konfirmasi")

11

Visual Basic 6.0 Handout

If pesan = vbYes Then End End If End Sub Private Sub cmdhitung_Click() [Link] = Val([Link]) * Val([Link]) If [Link] > 5 Then [Link] = 0.1 * Val([Link]) Else [Link] = 0 End If [Link] = 0.05 * Val([Link]) [Link] = Val([Link]) Val([Link]) + Val([Link]) End Sub Private Sub Timer1_Timer() [Link] = Format(Date, "ddmmmm-yyyy") [Link] = Format(Time, "hh:mm:ss:am/pm") End Sub Private Sub txtkode_Change() If Val([Link]) = 1 Then [Link] = "Roti Coklat" [Link] = 1500

ElseIf Val([Link]) = 2 Then [Link] = "Roti Keju" [Link] = 2000 ElseIf Val([Link]) = 3 Then [Link] = "Roti Kismis" [Link] = 2500 Else txtjenis = "Roti Lapis" [Link] = 3000 End If If Val([Link]) > 4 Then MsgBox "kode yang anda masukkan salah!", vbOKOnly, indo End If End Sub Private Sub txtubar_LostFocus() [Link] = Val([Link]) Val([Link]) If (txtubar) >= (txttotal) Then ps1 = MsgBox("Terima Kasih", 32, "Toko") Else ps2 = MsgBox("Dilarang Ngutang!!!", 16, "Toko") txtubar = "" txtukem = "" End If End Sub

PROCEDURE DAN FUNCTION

A. Procedure

Desain Form :

12

Visual Basic 6.0 Handout

Layout :

Objek Frame1 Frame2 Option1 Option2 Option3 Label1 Shape1 Shape2 Shape3 Command1 Command2

Properties Caption (Name) Caption (Name) Caption (Name) Caption Caption Forecolor (Name) Shape (Name) Shape (Name) Shape (Name) Caption (Name) Caption

Nilai Menu Pilihan Gambar OptLingkaran Lingkaran OptElips Elips OptSegiEmpat SegiEmpat Label1 Biru ShpOval 2 Oval ShpSegiEmpat 0 Rectangle ShpLingkaran 3 Circle CmdBersih &Bersih CmdKeluar &Keluar Sub gambar_tersembunyi() [Link] = False [Link] = False [Link] = False Label1 = "" End Sub Private Sub CmdBersih_Click() Call bersih End Sub

Listing Form : Sub bersih() Call gambar_tersembunyi [Link] = False [Link] = False [Link] = False Label1 = "" End Sub

13

Visual Basic 6.0 Handout

Private Sub CmdKeluar_Click() End End Sub Private Sub Form_Load() Call gambar_tersembunyi Call bersih End Sub Private Sub OptElips_Click() Call gambar_tersembunyi [Link] = True [Link] = "Bentuk Elips" [Link] = 20 End Sub B. Function

Private Sub OptLingkaran_Click() Call gambar_tersembunyi [Link] = True [Link] = "Bentuk Lingkaran" [Link] = 20 End Sub Private Sub OptSegiEmpat_Click() Call gambar_tersembunyi [Link] = True [Link] = "Bentuk SegiEmpat" [Link] = 20 End Sub

Listing Form : Function kell() kell = 2 * (3.14 * Val(TxtJari)) End Function Function luas() luas = 3.14 * Val(TxtJari) * Val(TxtJari) End Function Sub kosong() TxtJari = "" TxtKeliling = "" TxtLuas = "" [Link] End Sub

Private Sub CmdExit_Click() End End Sub Private Sub CmdHitung_Click() TxtKeliling = kell TxtLuas = luas End Sub Private Sub CmdLagi_Click() kosong End Sub

14

Visual Basic 6.0 Handout

PERULANGAN (LOOPING)
1. [Link] (Suatu Nilai Awal) Penyeleksian kondisi dijalankan pada awal proses, dimana pernyataan akan dilaksanakan selama kondisi bernilai True. Perintah akan dijalankan minimal 0 kali. BU : Do While <Kondisi> Pernyataan 1 Pernyataan 2 Loop Latihan : Listing Form : Private Sub Form_Activate() Dim I As Integer I=0 Do While I <= 10 [Link] I I=I+1 Loop End Sub 2. Do Until Pernyataan akan dijalankan selama nilai batas belum tercapai atau kondisi bernilai False, perintah dijalankan minimal satu kali. BU : Do Until <Kondisi> Pernyataan 1 Pernyataan 2 Loop List Form : Private Sub CmdExit_Click() pesan = MsgBox("Yakin Nich Mau Keluar", 32 + 1, "Konfirmasi") If pesan = vbOK Then End End If End Sub Private Sub CmdLagi_Click() TxtAwal = "" TxtAkhir = "" End Sub Ex : I = 1 Do Until I > 10 I=I+1 [Link] Looping; I Loop Private Sub CmdUlangi_Click() Dim angka As Integer [Link] angka = TxtAwal Do Until angka < 10 angka = angka + 1 Loop TxtAkhir = angka - 1 [Link] End Sub Ex : I =1 Do While I <= 5 Print Loop Ke ;I I=I+1

15

Visual Basic 6.0 Handout

3. ForNext Akan mengulang pernyataan sebanyak yang telah ditentukan. Penentuan ini berupa nilai awal, nilai akhir, dan nilai selang. Selang dapat berupa penambahan atau pengurangan. BU : For nm_variabel = n_awal To n_akhir Step n_selang Pernyataan 1 Pernyataan 2 Next nm_variabel Listing Form : Dim intjumlah, intangka As Integer Dim intawal, intakhir As Integer Private Sub CmdExit_Click() End End Sub Private Sub CmdHitung_Click() intjumlah = 0 intawal = TxtAwal intakhir = TxtAkhir For intangka = intawal To intakhir intjumlah = intjumlah + intangka Next intangka TxtJumlah = intjumlah [Link] End Sub 4. WhileWend Digunakan untuk mengeksekusi suatu blok ekspresi dengan jumlah perulangan tak terhingga. Untuk menghentikan menggunakan Ctrl + Break. BU : While <Kondisi> Statement1 Statement2 Wend Ex: I = 0 While I < 10 I=I+1 Print Loop Ke ; I Wend

5. ExitDo Digunakan untuk menghindari OverFlow pada suatu perulangan dengan pernyataan Exit dan harus menggunakan if untuk menilai keadaan. BU : Do While nm_variabel = nilai_batas Pernyataan 1 Pernyataan 2 .. If kondisi tertentu Then Exit Do End If Loop Ex : Dim I as Integer I=1 Do While I > 0 I=I+1 Print Loop Ke ;I If I = 5 Then Exit Do End If Loop

16

Visual Basic 6.0 Handout

COMBOBOX DAN LISTBOX

Objek Properties Combobox Text Name

Nilai CboKode

Private Sub CboKODE_Click() If CboKODE = "IND" Then TxtJENIS = "INDIA" TxtSTUDIO = "1" ElseIf CboKODE = "KMD" Then TxtJENIS = "KOMEDI" TxtSTUDIO = "2" Else TxtJENIS = "ACTION" TxtSTUDIO = "3" End If End Sub Private Sub Form_Load() [Link] "IND" [Link] "KMD" [Link] "ACT" End Sub Private Sub Opt1_Click(Index As Integer) If Opt1(0).Value = True Then TxtHARGA = 50000 ElseIf Opt1(1).Value = True Then TxtHARGA = 30000 Else TxtHARGA = 15000 End If [Link] End Sub

Private Sub TxtBAYAR_Change() TxtKEMBALI = Val(TxtBAYAR) Val(TxtTOTAL) End Sub Private Sub TxtJumbel_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If Val(TxtJumbel) >= 6 Then TxtDISKON = 0.1 * TxtHARGA ElseIf Val(TxtJumbel) >= 3 Then TxtDISKON = 0.05 * TxtHARGA Else TxtDISKON = 0 End If TxtTOTAL = Val(TxtHARGA) * Val(TxtJumbel) - Val(TxtDISKON) [Link] End If End Sub Private Sub TxtNAMA_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then [Link] End If End Sub

17

Visual Basic 6.0 Handout

Objek Listbox

Properties Text Name

Nilai LstKode

Private Sub CmdIsi_Click() [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] = "" [Link] End Sub Private Sub CmdIsi_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then [Link] End If End Sub Private Sub CboGolongan_Click() Select Case [Link] Case 0 [Link] = 1000000 [Link] = 75000 Case 1 [Link] = 1250000 [Link] = 100000 Case 2 [Link] = 1500000 [Link] = 125000 Case 3 [Link] = 1750000 [Link] = 150000 Case 4 [Link] = 2000000 [Link] = 175000

Case 5 [Link] = 2500000 [Link] = 200000 End Select End Sub Private Sub CboGolongan_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then [Link] End If End Sub Private Sub CmdSelesai_Click() End End Sub Private Sub LstKode_Click() Select Case [Link] Case 0 [Link] = 1000000 [Link] = Val([Link]) + Val([Link]) + Val([Link]) Case 1 TxtTunjangan .Text = 1250000 TxtGaji .Text = Val([Link]) + Val([Link]) + Val([Link]) Case 2 [Link] = 1500000 [Link] = Val([Link]) + Val([Link]) + Val([Link])

18

Visual Basic 6.0 Handout

Case 3 [Link] = 1750000 [Link] = Val([Link]) + Val([Link]) + Val([Link]) Case 4 [Link] = 2000000 [Link] = Val([Link]) + Val([Link]) + Val([Link]) Case 5 [Link] = 2500000 [Link] = Val([Link]) + Val([Link]) + Val([Link]) End Select End Sub Private Sub LstKode_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then [Link] End If End Sub

Private Sub TxtNama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then [Link] End If End Sub Private Sub TxtNip_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then [Link] End If End Sub Private Sub Form_Load() Dim I As Integer For I = 1 To 6 [Link] "A" & CStr(I) Next For I = 1 To 6 [Link] CStr(I) Next End Sub

ARRAY

* Pada Isi Data, Masukan nama teman anda akan terus muncul berdasarkan Hasil Input Banyak Data Listing Form : Private Sub CmdData_Click() Dim X(5) As String, Y As Byte, Z As Byte [Link] Z = InputBox("Masukan Banyak Data ", "Banyak Data") For Y = 1 To Z X(Y) = InputBox("Masukan Nama Teman Anda", "Isi Data") Next Y For Y = 1 To Z [Link] X(Y)

19

Visual Basic 6.0 Handout

Next Y End Sub Private Sub CmdKELUAR_Click() pesan = MsgBox("Yakin Ingin Keluar ?", vbQuestion + vbYesNo, "Informasi") If pesan = vbYes Then Unload Me End If End Sub Latihan 1:

Ketentuan Soal : 1. Jika Kode Oli = PZL, maka Merk Oli = Penzoil dan Harga Oli = 35000 Kode Oli = AG, maka Merk Oli = Agip dan Harga Oli = 30000 Kode Oli = TO, maka Merk Oli = Top One dan Harga Oli = 27500 Kode Oli =MS, maka Merk Oli = Mesrandan Harga Oli = 20000 2. Biaya Service : Untuk Mobil = 5000 dan Motor = 3500 3. Untuk Pembayaran didapat dari Harga Oli * Jumlah Beli + Biaya Service 4. Jika Pembayaran > 80000, maka mendapatkan potongan 10 % dari pembayaran 5. PPN didapat dari 5% Pembayaran 6. Untuk Total didapat dari Pembayaran Potongan + PPN 7. Untuk Uang Kembali Otomatis muncul ketika memasukkan uang bayar 8. Buatlah Pesan untuk Tombol Keluar Listing Form : Private Sub CmdCLEAR_Click() TxtKODE = "" TxtJUMLAH = "" TxtPEMBAYARAN = "" TxtPOTONGAN = "" TxtPPN = "" TxtTOTAL = "" TxtMERK = "" TxtHARGA = "" TxtSERVICE = "" TxtBAYAR = "" TxtKEMBALI = "" Option1(0).Value = False Option1(1).Value = False End Sub

20

Visual Basic 6.0 Handout

Private Sub CmdHITUNG_Click() If Option1(0).Value = True Then TxtPEMBAYARAN = Val(TxtJUMLAH) * Val(TxtHARGA) + 5000 ElseIf Option1(1).Value = True Then TxtPEMBAYARAN = Val(TxtJUMLAH) * Val(TxtHARGA) + 3500 End If If TxtPEMBAYARAN > 80000 Then TxtPOTONGAN = 0.1 * Val(TxtPEMBAYARAN) Else TxtPOTONGAN = 0 End If TxtPPN = 0.05 * Val(TxtPEMBAYARAN) TxtTOTAL = Val(TxtPEMBAYARAN) Val(TxtPOTONGAN) + Val(TxtPPN) [Link] End Sub Private Sub CmdKELUAR_Click() Keluar = MsgBox("YAKIN MAU KELUAR APLIKASI INI?", vbQuestion + vbOKCancel, "TOKO OLI MOBIL DAN MOTOR FORMULA") If Keluar = vbOK Then Unload Me End If End Sub Private Sub Combo1_Click() Dim kode kode = [Link] Select Case kode Case "PZL" Latihan 2 :

TxtMERK = "Penzoil" TxtHARGA = 35000 Case "AG" TxtMERK = "Agip" TxtHARGA = 30000 Case "TO" TxtMERK = "Top One" TxtHARGA = 27500 Case "MS" TxtMERK = "Mesran" TxtHARGA = 20000 End Select End Sub Private Sub Form_Load() [Link] "PZL" [Link] "AG" [Link] "TO" [Link] "MS" End Sub Private Sub Option1_Click(Index Integer) If Option1(0).Value = True Then TxtSERVICE = 5000 Else TxtSERVICE = 3500 End If [Link] End Sub Private Sub TxtBAYAR_Change() TxtKEMBALI = Val(TxtBAYAR) Val(TxtTOTAL) End Sub As

Private Sub Form_Load() [Link] "MPT" [Link] "GRD" [Link] "BTV" End Sub

21

Visual Basic 6.0 Handout

Ketentuan Soal : 1. Jika Kode Pesawat = MPT, maka Nama Pesawat : Merpati Air Lines Kode Pesawat = GRD, maka Nama Pesawat : Garuda Kode Pesawat = BTV, maka Nama Pesawat : Batavia 2. Untuk Kelas MPT, Jika Kelas = Executive, Harga =1500000, Jika Kelas =Bisnis, Harga =900000, Jika Kelas = Ekonomi, Harga =500000 GRD, Jika Kelas = Executive, Harga =1200000, Jika Kelas =Bisnis, Harga =800000, Jika Kelas = Ekonomi, Harga =400000 BTV, Jika Kelas = Executive, Harga =1000000, Jika Kelas =Bisnis, Harga =700000, Jika Kelas = Ekonomi, Harga =300000 3. Total Didapat dari Harga Tiket * Jumlah Tiket Listing Form : Private Sub Chkkelas_Click(Index As Integer) If Combo1 = "MPT" Then Select Case Index Case 0 txtHarga = 1500000 Case 1 txtHarga = 900000 Case 2 txtHarga = 500000 End Select ElseIf Combo1 = "GRD" Then Select Case Index Case 0 txtHarga = 1200000 Case 1 txtHarga = 800000 Case 2 txtHarga = 400000 End Select Else Select Case Index Case 0 txtHarga = 1000000 Case 1 txtHarga = 700000 Case 2 txtHarga = 300000 End Select End If Exit Sub Select Case Index Case 0 txtHarga = Executive Case 1 txtHarga = Bisnis Case 2 txtHarga = Ekonomi End Select [Link] End Sub Private Sub cmdhitung_Click() txtTotal = Val(txtHarga) * Val(txtJumlah) End Sub Private Sub cmdlagi_Click() [Link] = "Kode" Chkkelas(0) = 0 Chkkelas(1) = 0 Chkkelas(2) = 0 txtNama = "" txtHarga = "" txtJumlah = "" txtTotal = "" [Link] End Sub Private Sub Combo1_Click() Select Case [Link] Case "MPT" txtNama = "Merpati Air Lines" Case "GRD" txtNama = "Garuda Indonesia" Case "BTV" txtNama = "Batavia Air Lines" End Select txtHarga = "" Chkkelas(0) = 0 Chkkelas(1) = 0 Chkkelas(2) = 0 End Sub

22

Visual Basic 6.0 Handout

DATABASE MICROSOFT VISUAL BASIC 6.0

A. Pengertian Database

Database adalah kumpulan beberapa data yang saling berhubungan berdasarkan kode-kode tertentu sehingga membentuk sebuah sistem.
Secara hirarki database bisa digambarkan sebagai berikut :

Character

Field

Record

File

Database

Character sebagai satuan data terkecil dikumpulkan menjadi field (kolom), kumpulan field membentuk sebuah record (baris), beberapa record disimpan dalam file (tabel), dan kumpulan file akan membentuk sebuah database. Ada beberapa tipe field yang digunakan dalam pembuatan tabel pada database Visual Basic 6.0 : Tipe Field Long Currency Single Double Date/Time Text Memo Fungsi Digunakan untuk menampung data numerik untuk bilangan bulat Digunakan untuk menampung data numerik. Kelebihannya adalah currency tidak akan melakukan pembulatan bilangan pada operasi matematik Digunakan untuk menampung data numerik untuk bilangan pecahan Fungsinya sama dengan single Digunakan untuk menampung data tanggal atau jam Digunakan untuk menyimpan data karakter dengan daya tampung sebesar 255 karakter Sama dengan text tetapi dapat menampung sampai dengan 64.000 karakter

B. Membuat Database dan Tabel Untuk membuat Database dengan Visual Data Manager, Langkah-langkahnya : 1. Pilih Menu Add-Ins pada menu utama Visual Basic, lalau pilih Visual Data Manager 2. Pilih : File/New/Microsoft Access/Version 7.0 MDB 3. Berikanlah nama pada database yang akan dibuat. Dengan nama Rental Mobil sebelumnya tentukan dahulu tempat penyimpanan, simpan pada folder masing-masing . 4. Klik Kanan pada Properties, pilih New Table

23

Visual Basic 6.0 Handout

5. Pada Table Name ketik: Tbl_Mobil, lalu klik Add Field

6. Buatlah Beberapa field sebagai berikut : Name Kd_Mobil Nama_Mobil Jumlah_Mobil Harga_Sewa Type Text Text Byte Double Size 5 10

7. Jika telah selesai mengisikan field, klik Ok C. Membuat Index Index Data adalah urutan data pada tabel Database. Index data diperlukan terutama untuk pencarian data dengan cepat dan pengelompokan data. Cara membuat Index : o Pada Tampilan Table Structure, pilih Add Index

24

LNM & Asisten

Visual Basic 6.0 Uts -Uas

o o o

Ketik nama index, yaitu misalnya Kode pada kolom Name Klik kunci index pada Available Fields, otomatis Indexed Fields akan muncul. 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 dipilh jka ingin index bersifat unik. IgnoreNulls digunakan untuk mengabaikan field yang kosong.

D. Mengisi Data Pada Tabel Untuk mengisikan data pada tabel, Double klik pada nama tabel tersebut atau klik kananOpen :

Pada pengisian Klik Add, isi setiap fieldnya lalu klik Update. Fungsi menu yang ada pada tabel barang : o Add : menambah record baru. o Update : mengoreksi record. o Delete : menghapus record aktif. o Find : mencari record. o Refresh : menampilkan ulang setelah record mengalami perubahan. o Close : menutup tabel.

25

LNM & Asisten

Isikan Datanya dengan : Kode Mobil Nama Mobil MCD01 Mercedes SLN01 Soluna KJG01 Kijang KDA01 Kuda PTR01 Panther Latihan 1 :

Visual Basic 6.0 Uts -Uas

Jumlah Mobil 5 6 8 9 7

Harga Mobil 50000 70000 90000 60000 80000

Koneksikan Database dengan cara : Object Properties Data1 DatabaseName RecordSource Text1 Name DataSource DataField Name DataSource DataField Name DataSource DataField Name DataSource DataField Name Caption Picture Style ToolTipText Name Caption

Nilai (Klik tombolcari database yang telah dibuat pada folder kerja) Tbl_Mobil TxtKode Data1 Kd_Mobil TxtNama Data1 Nama_Mobil TxtJumlah Data1 Jumlah_Mobil TxtHarga Data1 Harga_Sewa CmdTop <kosongkan> C:\Program Files\Microsoft Studio\Vfp98\Wizard\Graphics\Top 1 Graphical Top CmdPrevious <kosongkan>

Text2

Text3

Text4

Command1

Visual

Command2

26

LNM & Asisten

Picture Style ToolTipText Name Caption Picture Style ToolTipText Name Caption Picture Style ToolTipText Listing Form: Private Sub CmdBACK_Click() [Link] If [Link] Then MsgBox "Sudah Awal Record", , "Info" [Link] End If End Sub Private Sub CmdBatal_Click() [Link] End Sub Private Sub CmdEND_Click() [Link] End Sub Private Sub CmdHapus_Click() [Link] [Link] End Sub Private Sub CmdKeluar_Click() MsgBox "Yakin Ingin Keluar Nih", 32 + 1, "Rental Mobil" Latihan 2 : End End Sub

Visual Basic 6.0 Uts -Uas

C:\Program Files\Microsoft Studio\Vfp98\Wizard\Graphics\Previous 1 Graphical Previous CmdNext <kosongkan> C:\Program Files\Microsoft Studio\Vfp98\Wizard\Graphics\Next 1 Graphical Next CmdLast <kosongkan> C:\Program Files\Microsoft Studio\Vfp98\Wizard\Graphics\Bottom 1 Graphical Last Visual

Command3

Visual

Command4

Visual

Private Sub CmdNEXT_Click() [Link] If [Link] Then MsgBox "Sudah Akhir Record", , "Info" [Link] End If End Sub Private Sub Cmdsimpan_Click() [Link] End Sub Private Sub CmdTambah_Click() [Link] End Sub Private Sub CmdTOP_Click() [Link] End Sub

1. Buat Database dengan nama : Penjualan, sebelumnya tentukan dahulu tempat penyimpanan difolder masing-masing. 2. Buat Tabel Baru dengan nama : Tbl_Barang

27

LNM & Asisten

Name Kd_Brg Nm_Brg Harga Stok Satuan Type Text Text Currency Integer Text Size 5 20

Visual Basic 6.0 Uts -Uas

10

3. Buat Index dengan nama : Kode dari Kd_Brg 4. Isi Tabel sebanyak 5 Record Kd_Brg BKSD1 PGH01 PGR01 PLG01 PSL2B Nm_Brg Buku Sinar Dunia Penghapus Pengaris Pulpen Gel Warna Pensil 2B Harga 25000 4500 5000 11000 2500 Stok 75 20 30 35 45 Satuan Buah Buah Unit Buah Unit

Setelah Database Koneksi, Klik Kanan :Retrieve Fields

DBGrid1 (Objek Baru pada VB)

Microsoft Data Bound Grid Control 5.0 (SP3), Name : DBGrid1 Cara Menambah Objek baru pada Toolbox yaitu dengan : CTRL + T atau Klik kanan pada ToolBox pilih Component, atau Klik menu Project pada menu utama VB, pilih Component. Objek Command1 Command2 Timer1 Data1 Properties Name Enabled Name Enabled Interval DatabaseName RecordSource Name DataSource Nilai CmdSimpan False CmdBatal False 100 (Klik tombolcari database) Tbl_Barang BARANG BARANG

DBGrid1

28

LNM & Asisten

Listing Form : Sub mati() [Link] = False [Link] = True [Link] = True [Link] = False [Link] = False [Link] = False End Sub Sub hidup() [Link] = True [Link] = False [Link] = False [Link] = True [Link] = True End Sub Sub tampil() TxtKode = [Link]!kd_brg TxtNAMA = [Link]!nm_brg TxtHARGA = [Link]!harga TxtJUMLAH = [Link]!stok Cbosat = [Link]!satuan End Sub Sub kosong() TxtKode = "" TxtNAMA = "" TxtHARGA = "" TxtJUMLAH = "" Cbosat = "" End Sub Private Sub CmdBACK_Click() On Error Resume Next [Link] tampil If [Link] Then MsgBox "Sudah Awal Record", 64, "Informasi" [Link] tampil End If End Sub Private Sub CmdBatal_Click() kosong hidup End Sub

Visual Basic 6.0 Uts -Uas

Private Sub CmdCARI_Click() cari = InputBox("Masukan Kode Yang Dicari", "Pencarian") temukan = "kd_brg= ' " & cari & " ' " [Link] temukan If [Link] Then MsgBox "Data Tidak Ditemukan", 48, "Informasi" Else tampil End If End Sub Private Sub CmdEND_Click() [Link] tampil End Sub Private Sub CmdHAPUS_Click() If MsgBox("Yakin Akan Hapus Data ?", vbYesNo + vbQuestion, "Info") = vbYes Then [Link] [Link] tampil End If End Sub Private Sub CmdKELUAR_Click() pesan = MsgBox("Yakin Mau Keluar Program?", vbYesNo + vbQuestion, "Perhatian") If pesan = vbNo Then Cancel = 1 Else End End If End Sub Private Sub CmdNEXT_Click() On Error Resume Next [Link] tampil If [Link] Then MsgBox "Sudah Akhir Record", 48, "Informasi" [Link] tampil End If End Sub

29

LNM & Asisten

Private Sub CmdSIMPAN_Click() [Link] [Link]!kd_brg = TxtKode [Link]!nm_brg = TxtNAMA [Link]!harga = TxtHARGA [Link]!stok = TxtJUMLAH [Link]!satuan = [Link] [Link] CmdBatal_Click End Sub Private Sub CmdTAMBAH_Click() kosong mati [Link] End Sub

Visual Basic 6.0 Uts -Uas

Private Sub CmdTOP_Click() [Link] tampil End Sub Private Sub Form_Load() [Link] "Unit" [Link] "Potong" [Link] "Buah" [Link] Pasang End Sub Private Sub Timer1_Timer() [Link] = Time End Sub

SQL (Structured Query Language)

SQL adalah bahasa yang digunakan untuk memuat, mengurutkan, menyaring, mengupdate dan mengolah relasi antar database suatu data sehingga dihasilkan suatu data yang spesifik dari suatu database. Bentuk Umum : <Objek Data>. RecordSource = <String SQL> Ket: <String SQL> adalah string yang berisi pernyataan dalam SQL. Bentuk-Bentuk dalam SQL 1. [Link] Digunakan Untuk memilih field dan tabel data dengan SQL BU : Select <Daftar Field> From <Nama Tabel> In <Nama Database> Ket : <Field> Adalah nama-nama field yang diinginkan, bisa satu /lebih field <Nama Tabel> adalah salah satu nama tabel yang ada dalam database (*) untuk semua field 2. [Link] Digunakan Untuk Menyaring data berdasarkan Kriteria tertentu BU : Select <Daftar Field> From <Nama Tabel> Where <Syarat> 3. SelectFromOrderBy Digunakan untuk mengakses suatu data dengan hasil yang terurut (mengurutkan data secara Assembly) BU : Select <Daftar Field> From <Nama Tabel> In <Nama Database> Order By <Field Kunci1>, <Field Kunci2>, Latihan : 1. Buat Database dengan nama : Mahasiswa, simpan difolder masing-masing. 2. Buat Tabel baru dengan nama : Tbl_Mhs Name Nim Nama Jurusan Type Text Text Text Size 5 25 25

30

LNM & Asisten

Kelas Text IPK Single 3. Isi Record Sebanyak 5 : Nim 12011 11025 13020 12055 13021 Nama Vina Ade Lyra Chandra Abdul Fatah Hendra Adi Dendy Reski 5

Visual Basic 6.0 Uts -Uas

Jurusan Manajemen Informatika Komputerisasi Akutansi Teknik Komputer Manajemen Informatika Teknik Komputer

Kelas MI4D KA4C TK4E MI4R TK4F

IPK 2.85 3.15 3.23 2.72 3.45

Listing Form : Private Sub CmdTampil_Click() Private Sub Cmdselesai_Click() [Link] = [Link] Pesan = MsgBox("Yakin Nih Ingin Keluar ?", 32 + 1, "Info") [Link] If pesan = vbOK Then End Sub End Else Pesan = MsgBox(Ga Jadi Keluar Ah!, vbInformation + vbOkOnly, Informasi) End If End Sub Proses Program : Cara menjalankan program dengan mengetikkan perintah SQL pada Text Box, kemudian klik Command Tampil Data maka data yang dimunculkan pada DBGrid1 akan terseleksi dengan perintah SQL yang diketik. Buatlah perintah SQL dibawah ini : 1. Select nim, nama, kelas from Tbl_Mhs 2. Select * from Tbl_Mhs 3. Select * from Tbl_Mhs where jurusan = Teknik Komputer 4. Select * from Tbl_Mhs where ipk > 3.00 5. Select * from Tbl_Mhs order by nama 6. Select * from Tbl_Mhs order by ipk

31

LNM & Asisten Relasi One to One

Visual Basic 6.0 Uts -Uas

Relasi One to One adalah hubungan antara file pertama dengan file kedua adalah satu berbanding satu. Latihan : 1. Buat Database Elektronik Simpan difolder masing-masing. 2. Buat Tabel dengan nama : Tbl_Barang Name Kd_Brg Nm_Brg Harga Type Text Text Currency Size 5 20 Kd_Brg LMR2P MSNCI TVL14

Isi Data Sebanyak 3 Record Harga 40000 15000 25000

Nm_Brg Lemari Es 2 Pintu Mesin Cuci Televisi LG 14

3. Buat Index dengan nama Kode 4. Lalu buat Tabel satu lagi dengan nama : Tbl_Jual Name No_Faktur Tanggal Kd_Brg Jml_Beli Total Type Size Text 5 Date/time Text 5 Byte Currency

5. Buat Index dengan nama Faktur

DTPicker Componnent: Microsoft Windows Common Control 26.0

Objek Data1

Properties DatabaseName Name RecordSource DatabaseName Name RecordSource

Nilai (Klik tombolcari database) Barang Tbl_Barang (Klik tombolcari database) Jual Tbl_Jual

Data2

32

LNM & Asisten

Sub aktif() [Link] = True [Link] = True [Link] = False [Link] = False [Link] = True [Link] = True [Link] = True [Link] = True End Sub Sub nonaktif() [Link] = False [Link] = False [Link] = True [Link] = True [Link] = False [Link] = False [Link] = False [Link] = True [Link] = False End Sub Sub tampilkode() If [Link] <= 0 Then GoTo ni End If With [Link] .MoveFirst Do Until .EOF [Link] (!kd_brg) .MoveNext Loop End With ni: End Sub Sub tampilnama() On Error Resume Next With [Link] finds = "Kd_Brg= ' " & Combo1 & " ' " .FindFirst finds If Not .NoMatch Then Txtbarang = !nm_brg TxtHarga = !Harga Else GoTo ni End If End With ni: End Sub Sub kosong() TxtNo = "" TxtPembeli = "" TxtHarga = "" TxtJumlah = "" Txtbarang = "" TxtTotal = "" Combo1 = "" End Sub

Visual Basic 6.0 Uts -Uas

Private Sub CmdBatal_Click() kosong nonaktif [Link] End Sub Private Sub CmdKELUAR_Click() pesan = MsgBox("Yakin Nih Ingin Keluar ?", 32 + 1, "Info") If pesan = vbOK Then End End If End Sub Private Sub CmdSIMPAN_Click() [Link] [Link]!No_Faktur = TxtNo [Link]!Tanggal = CDate([Link]) [Link]!kd_brg = Combo1 [Link]!Jml_Beli = Val(TxtJumlah) [Link]!Total = Val(TxtTotal) [Link] nonaktif [Link] End Sub Private Sub CmdTAMBAH_Click() kosong aktif [Link] End Sub Private Sub Combo1_Change() tampilnama End Sub Private Sub Combo1_Click() tampilnama End Sub

33

LNM & Asisten

Private Sub Form_Activate() tampilkode End Sub Private Sub Timer1_Timer() [Link] = "Jam " & Time End Sub Private Sub TxtJumlah_Change() TxtTotal = Val(TxtHarga) * Val(TxtJumlah) End Sub Private Sub TxtNo_KeyPress(KeyAscii As Integer) KeyAscii = Asc(UCase(Chr(KeyAscii))) If KeyAscii = 13 Then cari = " No_Faktur = ' " & [Link] & " ' " [Link] cari If [Link] Then [Link]

Visual Basic 6.0 Uts -Uas

Else MsgBox "No Faktur Sudah Ada, Isikan no Lainnya", 48, "Info" [Link] TxtNo = "" End If End If End Sub Private Sub TxtPembeli_KeyPress(KeyAscii As Integer) If (KeyAscii >= Asc("0") And KeyAscii <= Asc("9")) Then KeyAscii = 0 End If If KeyAscii = 13 Then [Link] End If End Sub

Relasi One To Many (Koneksi Multi Table)

Latihan : 1. Buat Database dengan nama : MahasiswaBsi 2. Buat Tabel : Tbl_Siswa Name Nim Nama Kelas Type Text Size 5 20 6

3. Buat Index dengan nama : nomor, dengan pilihan index Primary saja 4. Isikan Data pada Tbl_Siswa sebanyak 5 Record 5. Buat Tabel : Tbl_Nilai Name Nim MatKul Nilai Type Text Integer Size 5 15

34

LNM & Asisten Objek Data1 Properties DatabaseName RecordSource Caption DatabaseName RecordSource Visible Nilai (Klik tombolcari database) Tbl_Siswa Data Mahasiswa (Klik tombolcari database) Tbl_Siswa False Data1 Nim Data1 Nama Data1 Kelas Data2

Visual Basic 6.0 Uts -Uas

Data2

Text1 Text2 Text3 DBGrid1 DataSource DataSource Datafield

Sub Tampil() [Link] = [Link]!Nim [Link] = [Link]!Nama [Link] = [Link]!Kelas End Sub Private Sub CmdBack_Click() On Error Resume Next [Link] Tampil If [Link] Then MsgBox "Sudah Awal Record" [Link] Tampil End If End Sub Private Sub Cmddelete_Click() If MsgBox("yakin akan hapus data?", vbYesNo, "info") = vbYes Then [Link] [Link] End If End Sub Private Sub CMDEDIT_Click() [Link] = True [Link] End Sub Private Sub CmdEnd_Click() [Link] Tampil End Sub

Private Sub CmdExit_Click() End End Sub Private Sub Cmdinput_Click() [Link] [Link] = 1 [Link] [Link]!Nim = [Link] [Link] [Link] = True [Link] = True [Link] End Sub Private Sub CmdNext_Click() On Error Resume Next [Link] Tampil If [Link] Then MsgBox "Sudah Akhir Record" [Link] Tampil End If End Sub Private Sub CmdSave_Click() [Link] = False [Link] = False End Sub Private Sub CmdTop_Click() [Link] Tampil End Sub

35

LNM & Asisten

Visual Basic 6.0 Uts -Uas

Private Sub Txtnim_Change() [Link] = "select * from tbl_nilai where nim='" & [Link] & "'" [Link] End Sub

KONEKSI DATABASE DENGAN MENGGUNAKAN ADODC

1. Klik Kanan Toolbox, Components pilih Microsoft ADO Data Control 6.0 (OLEDB), diChecklist lalu klik Apply, OK.

2. Pilih Properties ConnectionString (Pada Adodc1), klik

lalu pada Tab Property Pages

Pilih Use Connection String lalu klik lalu pada Tab Data link Properties pilih Tab Provider kemudian pilih Microsoft Jet 4.0 OLE DB Provider klik Next. 3. Pada Tab Connection pilih nama Database yang akan digunakan yaitu : Penjualan, klik Test Connection, OK, Klik OK. 4. Pilih Properties RecordSource (Masih pada Adodc1), ), klik lalu pada Tab Property Pages pilih Command Type : 2-adCmdTable, lalu pada Table or Stored Procedure Name pilih tabel yang akan digunakan yaitu : Tbl_Barang, klik Apply, Klik OK. Objek Text1 Text2 Text3 Adodc1 Command5 Visible Name Caption Picture Properties Nilai Adodc1 Kd_Brg Adodc1 Nm_Brg Adodc1 Harga False CmdNew <kosongkan> C:\Program Files\Microsoft Visual Studio\Common\Graphics\Bitmaps\OffCtl Br \Large\Color\New 1 Graphical CmdSave <kosongkan>

DataSource DataField

Style Command6 Name Caption

36

LNM & Asisten

Picture

Visual Basic 6.0 Uts -Uas

C:\Program Files\Microsoft Visual Studio\Common\Graphics\Bitmaps\OffCtl Br \Large\Color\Save 1 Graphical CmdBatal &Batal CmdHapus &Hapus CmdExit &Exit

Style Command7 Command8 Command9 Listing Form: Name Caption Name Caption Name Caption

Private Sub Cmdback_Click() [Link] If [Link] Then [Link] MsgBox "Awal Record", , "info" End If End Sub Private Sub Cmdbatal_Click() [Link] End Sub Private Sub Cmdend_Click() [Link] End Sub Private Sub CmdExit_Click() Pesan = MsgBox("Yakin Nih Ingin Keluar ?", 32 + 1, "Info") If pesan = vbOK Then End Else Pesan = MsgBox(Ga Jadi Keluar Ah!, vbInformation + vbOkOnly, Informasi) End If End Sub Private Sub Cmdhapus_Click() On Error Resume Next If MsgBox("yakin akan hapus data?", vbQuestion + vbYesNo, "info") = vbYes Then [Link] adAffectCurrent If [Link] Then

MsgBox "Data udah kosong", , "info" Else [Link] End If End If End Sub Private Sub Cmdnext_Click() [Link] If [Link] Then [Link] MsgBox "Akhir Record", , "info" End If End Sub Private Sub Cmdsimpan_Click() On Error Resume Next [Link] MsgBox "data sudah tersimpan", , "penyimpanan" Exit Sub pesan: MsgBox "isikan kode yang lainnya", , "info" Exit Sub End Sub Private Sub Cmdtambah_Click() [Link] [Link] End Sub Private Sub Cmdtop_Click() [Link] End Sub

37

LNM & Asisten

Visual Basic 6.0 Uts -Uas

PENGGUNAAN DATA ENVIRONMENT Dan DESIGN REPORT

1. Pada Menubar Project pilih More Active Designers lalu Add Data Environment 2. Maka akan muncul jendela Data Environment, lalu klik kanan pada Connection1 pilih Properties. 3. Maka akan muncul jendela Data Link Properties, pada Tab Provider pilih Microsoft Jet 4.0 OLE DB Provider lalu klik Next. 4. Pada Tab Connection pilih Select or Enter a database name, klik kemudian cari database yaitu : Penjualan, klik Test Connection, OK,klik OK. 5. Klik Kanan pada Connection1 pilih Add Command. 6. Klik Kanan pada Command1, lalu pilih Properties 7. Pada Command Name ketik judul laporan yaitu : Lap_Barang 8. Pada Database Object pilih: Table, lalu Object Name pilih : Tbl_Barang. Klik Apply lalu OK. 9. Klik Menubar Project pilih Add Data Report dan akan muncul jendela Data Repport

Bagian Bagian Data Report : Bagian Report Header Page Header Detail Page Footer Report Footer Keterangan Berisi Judul Laporan Berisi Judul Kolom data yang akan ditampilkan Berisi nama field yang akan ditampilkan pada kolom Berisi catatan kaki di akhir kolom-kolom report Berisi catatan kecil/ keterangan report

Selain Jendela Report, Pada Toolbox akan muncul Tab Data Report yaitu : Nama Kontrol RtpTexBox RptLine Keterangan Kontrol serupa textbox yang hanya menampilkan teks database saat runtime. Kontrol yang dapat menggambar garis secara horizontal, vertical, maupun diagonal.

38

LNM & Asisten

RptFunction RptLabel RptImage RptShape 10. 11.

Visual Basic 6.0 Uts -Uas

Kontrol yang dapat menset hasil perhitungan pada saat runtime (misalnya jumlah toatal, standar deviasi, dsb) Kontrol untuk memberikan label pada report. Kontrol untuk menempatkan image pada report Kontrol untuk menggambar shape pada report

Lalu pada Command1yaitu Lap_Barang Drag ke Data Design (Tempatkan Pada Bagian Detail). Kemudian Atur field-fieldnya Sebagai Berikut

12.

Lalu atur Properties Data Report sebagai berikut : Name DataReport1 DataSource Data Environment1 Data Member Lap_Barang Untuk Melihat Hasilnya yaitu klik MenuBar Project pilih Project1Properties pada Star Up Object pilih Data Report1. lalu Run, Lihatlah Hasilnya.

13.

PEMBUATAN MENU UTAMA

Menu utama atau menu program digunakan untuk mengintegrasikan program-program sehingga pemakai program tidak kesulitan menggunakan program yang telah dibuat. Microsoft Visual Basic 6.0 menyediakan fasilitas untuk membuat menu program, yaitu Menu Editor. Dengan fasilitas ini, anda dapat membuat menu program dengan cepat dan mudah. Adapun langkah-langkah pembuatan menu sebagai berikut: 1. Buka Project yang sudah dibuat 2. Pada Menubar Pilih Menu Project, lalu pilih Add MDI Form. 3. Keluarkan Menu Editor dengan cara klik Toolbar Menu Editor atau pilih Menubar Tools, lalu pilih Menu Editor (Ctrl+E).

39

LNM & Asisten

Fungsi-Fungsi Tombol Menu Editor : Tombol Fungsi Untuk menaikan level urutan menu Untuk menurunkan level urutan menu Untuk memindahkan posisi menu keatas Untuk memindahkan posisi menu kebawah Untuk pindah ke menu berikutnya

Visual Basic 6.0 Uts -Uas

Untuk menyisipkan pilihan baru (menu) diatas sebuah menu Untuk menghapus sebuah menu

Caption Level 1 &File Level 2 &DataBarang &Transaksi Level 3 Name mnuFile mnuDataBarang mnugaris1 mnuTransaksi mnugaris2

40

LNM & Asisten

&Penjualan &Laporan Laporan &Barang E&xit &Keluar Listing Form : Private Sub mnuDataBarang_Click() [Link] End Sub Private Sub mnuKeluar_Click() pesan = MsgBox("Yakin Nih Akan Keluar?", vbQuestion + vbOKCancel, "Konfirmasi") If pesan = vbOK Then End End If End Sub

Visual Basic 6.0 Uts -Uas

mnuPenjualan mnuLaporan mnuLaporanBarang mnuExit mnuKeluar

Private Sub mnuLaporanBarang_Click() [Link] End Sub Private Sub mnuPenjualan_Click() [Link] End Sub Private Sub mnuTransaksi_Click() [Link] End Sub

4. Catatan : FrmBarang : (Form Toko Beruntung), FrmTransaksi : (Form ADODC), dan FrmJual : (Form One to One). 5. Pada MDI Form1 Properties yang dirubah yaitu Picture (Cari Gambar di C:/Master/Full Clipart/Clipart/cari Gambar yang disukai) dan WindowState : 2Maximized. 6. Setelah selesai klik OK dan simpanlah proyek dan formnya dengan nama MDIFrmMenu. 7. Untuk Melihat Hasilnya yaitu klik MenuBar Project pilih Project1Properties pada Star Up Object pilih MDIForm1. lalu Run, maka Hasilnya sebagai berikut :

41

LNM & Asisten

Latihan1 :

Visual Basic 6.0 Uts -Uas

Ketentuan Soal : 1. Buatlah Database : Rental_Film, simpan difolder masing-masing. 2. Buat Tabel : PELANGGAN Kd_pel Nm_pel Alamat Text Text Text 5 20 30

Isi Tabel PELANGGAN : Kd_pel P0001 P0002 P0003 P0004 P0005 Nm_pel Aisyah Fani Reza Hadi Adi Alamat Jakarta Timur Tanjung Priuk Kuningan Bekasi Cawang

Buat Index : Kd_pel, Primary 3. Buat Tabel : VCD Kd_film Judul Harga Text Text Currency 5 25

Isi Tabel VCD : Kd_film F0001 F0002 F0003 F0004 F0005 Judul Pasir Berbisik Manajemen Qolbu Ketika Mas Gagah Pergi Keajaiban Penciptaan Kiamat Sudah Dekat Harga 35000 50000 45000 55000 40000

Buat Index : Kd_film, Primary 4. Buat Tabel : SEWA Kd_sewa Text 5 Tgl_sewa Date/Time Kd_film Text 5 Kd_pel Text 5 Jumlah Integer Bayar Currency Buat Index : Kd_sewa, Primary

Private Sub Cmdbaru_Click() kosong [Link] End Sub Private Sub Cmdbatal_Click() kosong [Link] End Sub

42

LNM & Asisten

Sub kosong() Txtkodesewa = "" Txttanggal = "" Txtkodepel = "" Txtnamapel = "" Txtkodefilm = "" Txtjudul = "" Txtharga = "" Txtjumlah = "" Txtbayar = "" TxtAlamat = "" End Sub Private Sub Cmdhapus_Click() On Error Resume Next If MsgBox("Yakin akan hapus data?", vbQuestion + vbYesNo, "info") = vbYes Then [Link] [Link] tampil End If End Sub Private Sub Cmdhitung_Click() Txtbayar = Val(Txtjumlah) * Val(Txtharga) End Sub Private Sub Cmdkeluar_Click() pesan = MsgBox("Yakin Nih Akan Keluar ?", vbQuestion + vbOKCancel, "Pemberitahuan") If pesan = vbOK Then End End If End Sub Private Sub Cmdsimpan_Click() With [Link] .AddNew !kd_sewa = Txtkodesewa !tgl_sewa = CDate(Txttanggal) !kd_film = Txtkodefilm !kd_pel = Txtkodepel !jumlah = Val(Txtjumlah) !bayar = Val(Txtbayar) .Update End With Cmdbatal_Click End Sub

Visual Basic 6.0 Uts -Uas

Private Sub Txtkodefilm_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cari = "kd_film=' " & Txtkodefilm & " ' " [Link] cari If [Link] Then MsgBox "Data tidak terdaftar", , "info" Else Txtjudul = [Link]!judul Txtharga = [Link]!harga End If End If End Sub Private Sub Txtkodepel_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cari = "kd_pel=' " & Txtkodepel & " ' " [Link] cari If [Link] Then MsgBox "pelanggan tidak terdaftar", , "info" [Link] Txtkodepel = "" Else Txtnamapel = [Link]!nm_pel End If End If End Sub Private Sub Txtkodesewa_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 13 Then cari = "kd_sewa=' " & Txtkodesewa & " ' " [Link] cari If [Link] Then [Link] Else MsgBox "data sudah ada, isikan kode yang lain", , "info" [Link] Txtkodesewa = "" End If End If End Sub

43

LNM & Asisten

Latihan 2 :

Visual Basic 6.0 Uts -Uas

1. 2. 3. 4.

Buat Database dengan nama : Toko_Bunga Buat Tabel : Bunga Isikan Data Tabel sesuai dengan data yang tersedia diForm Harga Bayar dan Discount akan terisi secara otomatis tampil apabila meng-input Jumlah Beli. a. Harga Bayar = Harga Buku * Jumlah Beli b. Mendapat Discount 10 % dari harga Bayar apabila Jumlah Beli >=10 Mendapat Discount 5 % dari Harga Bayar apabila Jumlah Beli >=5 Selain itu tidak dapat Discount c. Total Bayar diperoleh dari Harga-Discount [Link] Do Until [Link] [Link] ([Link]!Kode_Bunga) [Link] Loop ni: End Sub Sub kosong() TxtNama = "" TxtHarga = "" TxtJumlah = "" TxtHarga = "" TxtDiskon = "" TxtTotal = "" Combo1 = "" End Sub

Dim Tambah As Boolean Sub tampilnama() cari = "Kode_Bunga='" & [Link] & "'" [Link] cari If [Link] Then GoTo ni Else TxtNama = [Link]!Nama_Bunga TxtHarga = [Link]!Harga_Bunga End If ni: End Sub Sub tampilkode() If [Link] <= 0 Then GoTo ni End If

44

LNM & Asisten

Sub aktif() [Link] = True [Link] = True [Link] = True [Link] = True [Link] = True [Link] = True [Link] = True End Sub Private Sub CmdExit_Click() pesan = MsgBox("Yakin Ingin Keluar ?", vbQuestion + vbOKCancel, "Toko Bunga") If pesan = vbOK Then Unload Me Else pesan = MsgBox("Ga Jadi Keluar Ah!", vbCritical, "Info") End If End Sub Private Sub CmdNew_Click() Tambah = True [Link] kosong aktif End Sub Private Sub CmdSave_Click() [Link] [Link]!Kode_Bunga = [Link] [Link]!Nama_Bunga = TxtNama [Link]!Harga_Bunga = TxtHarga [Link]!Jumlah_Beli = TxtJumlah [Link]!Harga_Bayar = TxtHarga

Visual Basic 6.0 Uts -Uas

[Link]!Discount = TxtDiskon [Link]!Total_Bayar = TxtTotal [Link] End Sub Private Sub CmdTotal_Click() TxtTotal = Val(TxtHarga) - Val(TxtDiskon) End Sub Private Sub Combo1_Change() tampilnama End Sub Private Sub Combo1_Click() tampilnama [Link] End Sub Private Sub Form_Activate() tampilkode End Sub Private Sub TxtJumlah_Change() TxtBayar = Val(TxtJumlah) * Val(TxtHarga) If Val(TxtJumlah) >= 10 Then TxtDiskon = 0.1 * Bayar Else If Val(TxtJumlah) >= 5 Then TxtDiskon = 0.05 * Bayar Else TxtDiskon = 0 End If End If End Sub

Latihan 3 : Ketentuan : 1. Buat Database : Restoran 2. Buat 3 buah Tabel yaitu :Tbl_Makanan, Tbl_Minuman, Tbl_Transaksi Tbl_Makanan Kd_Mkn Nama_Mkn Harga_Mkn BS01 Bakso Rudal 6000 BS02 Bakso Super 5500 BS03 Bakso Campur 7000 MA01 Mie Ayam Spc 4500 MA02 Mie Ayam Bawang 6500 Tbl_Minuman

45

LNM & Asisten

Visual Basic 6.0 Uts -Uas

3. 4. 5. 6. 7.

Kd_Mn Nama_Mn Harga_Mn AQ01 Aqua Fruit 2500 AQ02 Air Mineral 1000 EJ03 Es Jeruk 3000 TS01 Tea Botol 2000 TS02 Tea Manis 1500 Untuk Tbl_Transaksi desain tabel berisi data dari kedua tabel. Untuk Total Bayar Otomatis muncul ketika Input jumlah makanan dan jumlah minuman dan kursor berada di Uang Bayar. Total Bayar didapat dari = (Harga Makanan * Jumlah Makanan) + (HargaMinuman * Jumlah Minuman). Uang Kembali otomatis muncul ketika memasukkan Uang Bayar. Buatlah Pesan Keluar dan Pesan Tidak Jadi Keluar

Dim Tambah As Boolean Sub kosong() TxtBayar = "" TxtMakan = "" TxtMinum = "" TxtHargaMak = "" TxtHargaMin = "" TxtJmlMakan = "" TxtJmlMinum = "" TxtBayar = "" TxtKembali = "" End Sub

Sub aktif() [Link] = True [Link] = True [Link] = True [Link] = True [Link] = True [Link] = True [Link] = True [Link] = True [Link] = True End Sub

46

LNM & Asisten

Sub nonaktif() [Link] = False [Link] = False [Link] = False [Link] = False [Link] = False [Link] = False [Link] = False [Link] = False [Link] = False End Sub Private Sub CmdExit_Click() p = MsgBox("Yakin Mau Keluar?", vbQuestion + vbYesNo, "Cafetaria") If p = vbYes Then End Else p = MsgBox("Nggak Jadi Ah!", vbInformation + vbOKOnly, "Cafetaria") End If End Sub Private Sub CmdNew_Click() Tambah = True [Link] [Link] kosong aktif [Link] End Sub Private Sub Form_Load() kosong End Sub

Visual Basic 6.0 Uts -Uas

Private Sub CmdSave_Click() [Link] [Link]!Nama_Mkn = TxtMakan [Link]!Harga_Mkn = TxtHargaMak [Link]!Jml_Mkn = TxtJmlMakan [Link]!Nama_Mn = TxtMinum [Link]!Harga_Mn = TxtHargaMin [Link]!Jml_Mn = TxtJmlMinum [Link]!Total = TxtTotal [Link]!Bayar = TxtBayar [Link]!Kembali = TxtKembali [Link] End Sub

Private Sub TxtBayar_Change() TxtKembali = Val(TxtBayar) Val(TxtTotal) End Sub Private Sub TxtJmlMinum_Change() TxtTotal = (Val(TxtHargaMak) * Val(TxtJmlMinum) + Val(TxtHargaMin) * Val(jmlminum)) End Sub Private Sub TxtJmlMinum_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then [Link] End If End Sub

47