Modul Pemrograman Visual Basic 6.0
1. PENDAHULUAN
A. Microsoft Visual Basic
Visual Basic (VB) merupakan salah satu bahasa pemrograman komputer. Bahasa
pemrograman adalah perintah-perintah yang dimengerti oleh komputer untuk melakukan
tugas-tugas tertentu. Bahasa pemrograman Visual Basic, yang dikembangkan oleh
Microsoft sejak tahun 1991, merupakan pengembangan dari pendahulunya yaitu bahasa
pemrograman BASIC (Beginner’s All-purpose Symbolic Instruction Code) yang
dikembangkan pada era 1950-an. Visual Basic merupakan salah satu Development Tool
yaitu alat bantu untuk membuat berbagai macam program komputer, khususnya yang
menggunakan sistem operasi Windows. Visual Basic merupakan salah satu bahasa
pemrograman komputer yang mendukung pemrograman berorientasikan object (Object
Oriented Programming = OOP). Contoh penerapan OOP dapat Anda lihat pada gambar
berikut ini:
B. Integrated Development Environment (IDE) Visual Basic 6.0
Integrated Development Environment Visual Basic merupakan lingkungan
pengembangan program yang terintegrasi yang bersifat visual (grafis) dan mudah
digunakan. Untuk melihat IDE VB 6.0 dapat ditempuh dengan langkah-langkah berikut :
Klik tombol Start pada Taskbar
Pilih dan klik menu Program > Microsoft Visual Studio> Microsoft Visual Basic 6.0
Dedy Arisandi, ST, M.Kom Halaman 1
Modul Pemrograman Visual Basic 6.0
Berikutnya akan tampil kotak dialog New Project berikut ini:
Pilih icon Standard Exe, kemudian klik tombol Open. Selanjutnya akan tampil IDE
VB 6.0 sebagai berikut :
Dedy Arisandi, ST, M.Kom Halaman 2
Modul Pemrograman Visual Basic 6.0 Menu
Toolbar
Toolbox Project
Explorer
Propertie
Window
Form Window Form
Layout
Window
Keterangan IDE VB di atas:
Menu pada VB berisi semua perintah Visual Basic yang dapat Anda pilih
dengan menggunakan Mouse ataupun Keyboard. Anda dapat mengakses menu
yang bergaris bawah seperti File dengan menekan tombol Alt+F. Anda juga
bisa menggunakan shorcut (tombol cepat) seperti Crt+O untuk membuka
jendela Open Project, Ctr+S untuk membuka jendela Save, dan sebagainya.
Toolbar adalah tombol-tombol yang mewakili suatu perintah tertentu dari
Visual Basic. Pada jendela VB terdapat 4 (empat) Toolbar yang dapat dibuka
dengan cara mengklik tombol kanan Mouse pada daerah Toolbar, Ceklis
Toolbar yang ingin ditampilkan.
Form Window adalah daerah kerja utama Visual Basic dimana Anda dapat
meletakkan kontrol-kontrol yang terdapat pada Toolbox dengan cara
menggambar atau mengklik dua kali pada Toolbox yang akan diletakkan pada
Form.
Toolbox merupakan kotak piranti yang berisi semua kontrol (objek) yang
dapat digunakan untuk merancang interface aplikasi yang Anda inginkan.
Secara default Toolbox yang terdapat pada VB adalah sebagai berikut:
Dedy Arisandi, ST, M.Kom Halaman 3
Modul Pemrograman Visual Basic 6.0
Pointer Picture box
Label Text box
Frame Command button
Check box Option button
Combo box List box
Horizontal Scroolbar Vertical Scroolbar
Timer Drive list box
Directory list box
File list box
Shape Line
Image Data
OLE
Kontrol di atas dapat ditambah dengan cara mengklik tombol Mouse kanan
pada daerah Toolbox, pilih Components, tampil jendela berikut:
Cheklis componen yang ingin Anda tampilkan kemudian klik tombol Apply,
OK, maka dijendela Toolbox akan terdapat kontrol baru yang telah Anda pilih
tadi.
Project Explorer adalah jendela yang berisi semua file dalam satu aplikasi
Visual Basic. Jendela ini berisi Project, Form, Modul, Class, dan beberapa file
lainnya. Untuk mengaktifkan file tersebut Anda harus mengklik Mouse dua
kali pada file yang ingin diaktifkan.
Dedy Arisandi, ST, M.Kom Halaman 4
Modul Pemrograman Visual Basic 6.0
Jika jendela Project Explorer ini tidak tampil di IDE VB Anda dapat
menampilkannya dengan cara mengklik icon ini pada Toolbar. Di atas
jendela ini terdapat tiga buah icon berikut:
Menampilkan Menampilkan
Jendela Program Jendela Form
Properties Window adalah jendela yang berisi semua informasi mengenai
kontrol (objek) yang terdapat pada Anda rancang pada Form Visual Basic.
Kontrol (objek) yang terdapat
pada form aktif
Nama Properti dan Nilainya yang dapat
disesuaikan dengan selera Anda
Keterangan dari properti yang
dipilih.
Form Layout Window adalah jendela yang menggambarkan posisi dari Form
yang akan ditampilkan pada layar monitor. Anda dapat menggesar gambar
Form yang tampak pada monitor dengan cara mendrag Form tersebut dan
letakkan pada posisi yang sesuai menurut Anda.
C. Keluar Dari IDE Visual Basic 6.0
Sebelum Anda keluar dari lingkungan kerja VB, Sebaiknya simpan terlebih dahulu
aplikasi yang baru anda kerjakan. Sebaiknya simpan file-file aplikasi anda pada satu
direktori atau folder. Untuk keluar dari IDE Visual Basic dapat dilakukan dengan 4
(empat) cara sebagai berikut:
Klik menu File> Exit.
Tekan tombol Alt + F4.
Tekan tombol Alt + Q
Klik tombol Close yang terdapat disudut kanan atas jendela Visual Basic.
Dedy Arisandi, ST, M.Kom Halaman 5
Modul Pemrograman Visual Basic 6.0
2. MEMBUAT APLIKASI VISUAL BASIC 6.0
A. Proses Pembuatan Aplikasi
Untuk pembuatan aplikasi pada VB Anda harus mengikuti prosedur berikut ini:
Buka Microsoft Visual Basic 6.0 (caranya lihat pada pembahasan sebelumnya)
Buat aplikasi baru yang Anda inginkan atau Anda dapat membuka aplikasi yang sudah
pernah dibuat sebelumnya.
Jika aplikasi telah selesai dibuat, kemudian jalankan aplikasi tersebut dengan menekan
tombo F5 pada keyboard atau klik menu Run> Start.
Jika masih terjadi kesalahan perbaiki dan periksa kembali program aplikasi yang Anda
buat sampai benar. Proses ini dinamakan dengan debugger.
Setelah aplikasi berhasil dijalankan kemudian simpan program aplikasi tersebut.
Langkah berikutnya Anda dapat melakukan kompilasi terhadap aplikasi tersebut,
sehingga menjadi file executable yang dapat langsung dijalankan tanpa membuka IDE
Visual Basic.
Keluar dari Visual Basic.
B. Membuat Aplikasi Baru Dengan VB
Untuk membuat aplikasi baru dengan Visual Basic, langkah awal yang harus dilakukan yaitu
Merancang Interface (antar muka) aplikasi pada jendela Form kemudian atur Properti dari
setiap kontrol/objek yang digunakan dan langkah terakhir tentukan metode yang diinginkan
dengan pengetikan kode program pada jendela kode.
Berikut ini langkah-langkah membuat Aplika pada Visual Basic:
Buka Microsoft Visual Basic.
Pada jendela New Project pilihlah Standard EXE.
Pada objek Form rancanglah tampilan berikut ini:
Properti dari kontrol yang aktif
Untuk membuat tampilan di atas klik kontrol Label pada Toolbox, gambar kontrol
tersebut pada Form dengan cara klik dan drag mouse sampai terbentuk objek seperti
terlihat di atas.
Dedy Arisandi, ST, M.Kom Halaman 6
Modul Pemrograman Visual Basic 6.0
Aturlah properti dari Label, Textbox, dan Command di atas pada jendela properti dengan
pengaturan berikut ini:
Objek / Kontrol Properties Value
Form1 Name frmAplikasi
Caption Aplikasi Percobaan
StartUpPosition 2 - CenterScreen
Label1 Caption Ketik Sembarang Kalimat Kemudian Klik
Tombol OK
Label2 Name lblKalimat
Caption (kosongkan)
Text1 Name txtKalimat
Text (kosongkan)
Command1 Name cmdOk
Caption &OK
Command2 Name cmdKeluar
Caption &Keluar
Berikut ini tampilan Interface setelah dilakukan pengatuaran properti di atas :
Langkah berikutnya yaitu menentukan metode dan even yang akan diterapkan pada
aplikasi tersebut. Jika tombol OK diklik (event click) maka metode yang dilakukan yaitu
teks yang diketik akan ditampilkan pada Label di bawahnya. Kemudian jika tombol
Keluar diklik maka aplikasi akan tertutup. Untuk membuat metode dan even tersebut
double click (klik 2 kali) pada kontrol, misalkan klik 2 kali pada tombol OK, maka
jendela code akan ditampilkan sebagai berikut:
Dedy Arisandi, ST, M.Kom Halaman 7
Modul Pemrograman Visual Basic 6.0
Pilihan Kontrol yang Pilihan Event yang Anda dapat menekan space keyboard pada fasilitas
ini dan secara otomatis nilai properti akan tercatat.
saat ini aktif dapat digunakan
Ketiklah metode yang
akan dikerjakan oleh
kontrol tersebut
Ketiklah program lengkapnya sebagai berikut:
Private Sub cmdOk_Click()
lblKalimat.Caption = txtKalimat.Text
End Sub
Private Sub cmdKeluar_Click()
End
End Sub
Setelah program selesai diketik, kemudian jalankanlah program dengan cara menekan
tombol keyboard F5 atau klik icon ini pada toolbar standard maka akan tampil hasil
aplikasi berikut:
Klik tombol Keluar untuk menutup aplikasi percobaan di atas. Anda juga dapat menutup
hasil program dengan mengklik icon berikut ini yang terdapat pada Toolbar Standard.
Simpan aplikasi percobaan di atas dengan cara menekan tombol Ctr + S maka jendela
Save File As akan tampil sebagai berikut:
Dedy Arisandi, ST, M.Kom Halaman 8
Modul Pemrograman Visual Basic 6.0 Buatlah folder baru untuk
menyimpan aplikasi
Klik Icon ini untuk percobaan ini.
membuat folder baru Ketik nama file untuk Form
yang ada.
Kemudian akhiri dengan
mengklik tombol Simpan.
Berikutnya akan tampil jendela Save Project As berikut ini:
Ketik nama file untuk
Project yang aktif.
Kemudian akhiri dengan
mengklik tombol Simpan.
Jika tampil konfirmasi
berikut ini pilih No:
C. Membuat File Executable
File Executable adalah file yang dapat dijalankan langsung tanpa harus membuka program
pembuatnya. Untuk membuat file executable pada Visual Basic dapat dilakukan dengan cara
sebagai berikut:
Klik menu File> Make Aplikasi.Exe… Tentukan terlebih dahulu
folder letak file executable
yang akan dibuat.
Ketik nama file executable
pada jendela File Name.
Klik tombol Option jika
anda ingin melakukan
pilihan pengaturan yang
tersedia.
Akhiri dengan mengklik
tombol OK.
File Executable saat ini telah
direkam pada disk Anda.
Anda dapat langsung menjalankan file executable berikut ini dengan cara
mengklik 2 kali pada icon tersebut. Halaman 9
Dedy Arisandi, ST, M.Kom
Modul Pemrograman Visual Basic 6.0
3. DATA, VARIABEL, DAN OPERATOR
A. Data
Data adalah nilai mentah yang tidak memiliki arti jika berdiri sendiri. Data dalam Visual
Basic dianggap sebagai nilai-nilai yang bisa dimanipulasi dalam pembuatan program. Contoh
dari data seperti:
“Sekolah Tinggi Teknik Harapan”
9876.45
True
12/6/2005
Setiap data pasti memiliki tipe atau jenis data. Pada Visual Basic jenis data dapat
didefenisikan menggunakan kata kunci Dim. Berikut ini tipe data yang dikenal oleh Visual
Basic 6.0 :
Integer
Tipe data numerik yang berupa bilangan bulat (tanpa pecahan), mulai dari -32.768 hingga
32.767.
Byte
Tipe data yang berupa nilai bulat positif (tanpa pecahan), mulai dari 0 hingga 225.
Decimal
Tipe data yang digunakan untuk menyimpan nilai desimal (pecahan) dengan ketepatan
hingga 28 angka desimal.
Boolean
Tipe data yang hanya memiliki dua buah nilai yaitu True atau False.
String
Tipe data yang memiliki nilai alfanumerik, yaitu nilai data yang bisa berupa huruf, angka,
atau karakter khusus lainnya.
Single
Tipe data numerik yang memiliki kisaran nilai mulai dari -3.402823E+38 hingga
3.402823E+38
Double
Tipe data numerik yang memiliki kisaran nilai yang sangat besar yaitu mulai dari -
1.79769313486232E+308 hingga 1.79769313486232E+308.
Date
Tipe data yang digunakan untuk menyimpan nilai tanggal dan jam. Nilainya berkisar dari
1 Januari 100 hingga 31 Desember 9999.
Currency
Tipe data yang digunakan untuk menyimpan nilai uang sesuai dengan setting komputer
anda.
Long
Tipe data numerik yang mirip dengan integer, hanya saja nilainya jauh lebih besar yaitu
dari -2.147.483.648 hingga 2.147.483.647.
Object
Tipe data yang menyimpan objek seperti form, kontrol dan sebagainya.
Variant
Tipe data yang bisa berisi segala macam tipe data yang berbeda. Biasanya digunakan jika
anda tidak mengetahui pasti jenis data yang akan digunakan.
Dedy Arisandi, ST, M.Kom Halaman 10
Modul Pemrograman Visual Basic 6.0
B. Variabel
Variabel adalah tempat untuk menyimpan nilai-nilai atau data secara sementara pada aplikasi
Visual Basic. Nilai suatu variabel selalu berubah yaitu tergantung dari nilai yang diberikan
terakhir kali kepada variabel tersebut.
Contoh : Panjang = txtPanjang.Text
Panjang adalah contoh sebuah variabel yang menyimpan nilai yang terkandung didalam
txtPanjang.Text.
Pendeklarasian Variabel
Pada Visual Basic, sebelum variabel digunakan sebaiknya Anda mendeklarasikan variabel
terlebih dahulu. Aturan penulisan pendeklarasian variabel adalah sebagai berikut:
Dim namavariabel As tipedatavariabel
Contoh :
Dim Counter as Integer
Dim Nama as String
Dim Tanggal as Date
Pemberian Nilai Variabel
Variabel yang sudah Anda deklarasikan dapat diberi nilai sesuai dengan jenis datanya.
Variabel yang menampung data tanggal tidak dapat diberi nilai dengan string. Berikut ini
aturan pemberian nilai variabel:
Namavariabel = nilai
Contoh :
Counter = 10
Nama = “Delia Syakirah”
Tanggal = #07/05/2005#
Kondisi = True
C. Operator
Operator adalah perintah yang memanipulasi nilai atau variabel dan memberikan suatu hasil.
Contoh :
Luas = Panjang * Lebar
Keterangan :
Panjang dan Lebar adalah operan
* adalah operator
Luas adalah variabel penampung hasil
Operator Aritmatika
Operator aritmatika adalah operator yang digunakan untuk melakukan perhitungan
matematis aritmatika, seperti penjumlahan, pengurangan, dan sebagainya.
OPERATOR ARTI CONTOH
+ Penjumlahan A=5+4
(Nilai A = 9)
- Pengurangan B=9–5
(Nilai B = 4)
* Perkalian C = 20 * 5
Dedy Arisandi, ST, M.Kom Halaman 11
Modul Pemrograman Visual Basic 6.0
/ Pembagian (pecahan) (Nilai C = 100)
\ Pembagian (bulat) D = 15 / 10
^ Pangkat (Nilai D = 1,5
Mod Sisa Pembagian E = 15 \ 10
& (atau +) Penggabungan String (Nilai E = 1)
F=2^5
(Nilai F = 32)
G = 11 Mod 3
(Nilai G = 2)
H=4&8
(Nilai G = 48)
I = “Dedy” + “Arisandi”
(Nilai I = “Dedy Arisandi”
Operator Perbandingan
Operator perbandingan adalah operator yang digunakan untuk membandingkan satu nilai
dengan nilai yang lain, untuk mendapatkan hasil True (benar) atau False (salah). Operator
perbandingan ini biasanya digunakan untuk mengambil keputusan pada suatu kondisi.
OPERATOR ARTI CONTOH
< Lebih kecil dari 7 < 8 hasilnya True
> Lebih besar dari 5 > 9 hasilnya False
<= Lebih kecil sama dengan 6 <=5 hasilnya False
>= Lebih besar sama dengan 6 >= 5 hasilnya True
= Sama dengan 7 = 7 hasilnya True
<> Tidak sama dengan 7 <> 7 hasilnya False
Operator Logikal
Operator logikal adalah operator yang berfungsi untuk membandingkan suatu
perbandingan.
OPERATOR ARTI CONTOH
AND Akan menghasilkan nilai True jika X = 4<6 AND 7<>8
OR kedua nilai yang akan dibandingkan (Nilai X = True)
NOT bernilai True.
Akan menghasilkan nilai False jika X = 3<6 OR 7=8
kedua nilai yang akan dibandingkan (Nilai X = True)
bernilai False.
Akan menghasilkan nilai True jika Z = NOT(15>10)
yang dibandingkan bernilai False. (Nilai Z = False)
Dedy Arisandi, ST, M.Kom Halaman 12
Modul Pemrograman Visual Basic 6.0
Latihan :
Buatlah sebuah Form dengan kontrol-kontrol berikut ini:
Objek / Kontrol Properties Value
Form 1 Name frmOperator
Caption Form Operator
StartUpPosition 2 - CenterScreen
Frame1 Caption Input
Frame2 Caption Output
Frame3 Caption Operasi Aritmatika
Frame4 Caption Operasi Perbandingan
Label1 Caption Nilai 1
Label2 Caption Nilai 2
Text1 Name txtNilai1
Text (kosongkan)
Text2 Name txtNilai2
Text (kosongkan)
Text3 Name txtOutput
Text (kosongkan)
Alignment 2 – Center
Locked True
Option1 Name optPenambahan
Caption Penambahan (+)
Option2 Name optPengurangan
Caption Pengurangan (-)
Option3 Name optPengalian
Caption Pengalian (*)
Option4 Name optPembagian
Caption Pembagian (/)
Option5 Name optPembagianBulat
Caption Pembagian Bulat (\)
Option6 Name optSisaBagi
Caption Sisa Bagi (Mod)
Option7 Name optPemangkatan
Caption Pemangkatan (^)
Option8 Name optPenggabungan
Caption Penggabungan (&&)
Option9 Name optLebihKecil
Caption Lebih Kecil (<)
Option10 Name optLebihBesar
Caption Lebih Besar (>)
Option11 Name optLebihKecilSamaDengan
Caption <=
Option12 Name optLebihBesarSamaDengan
Caption >=
Option13 Name optSamaDengan
Caption Sama Dengan (=)
Option14 Name optTidakSamaDengan
Caption Tidak Sama Dengan (<>)
Dedy Arisandi, ST, M.Kom Halaman 13
Modul Pemrograman Visual Basic 6.0
Private Sub optLebihBesar_Click()
txtOutput.Text = Val(txtNilai1.Text) > Val(txtNilai2.Text)
End Sub
Private Sub optLebihBesarSamaDengan_Click()
txtOutput.Text = Val(txtNilai1.Text) >= Val(txtNilai2.Text)
End Sub
Private Sub optLebihKecil_Click()
txtOutput.Text = Val(txtNilai1.Text) < Val(txtNilai2.Text)
End Sub
Private Sub optLebihKecilSamaDengan_Click()
txtOutput.Text = Val(txtNilai1.Text) <= Val(txtNilai2.Text)
End Sub
Private Sub optPemangkatan_Click()
txtOutput.Text = Val(txtNilai1.Text) ^ Val(txtNilai2.Text)
End Sub
Private Sub optPembagian_Click()
txtOutput.Text = Val(txtNilai1.Text) / Val(txtNilai2.Text)
End Sub
Private Sub optPembagianBulat_Click()
txtOutput.Text = Val(txtNilai1.Text) \ Val(txtNilai2.Text)
End Sub
Private Sub optpenambahan_Click()
txtOutput.Text = Val(txtNilai1.Text) + Val(txtNilai2.Text)
End Sub
Private Sub optPengalian_Click()
txtOutput.Text = Val(txtNilai1.Text) * Val(txtNilai2.Text)
End Sub
Private Sub optPenggabungan_Click()
txtOutput.Text = Val(txtNilai1.Text) & Val(txtNilai2.Text)
End Sub
Private Sub optPengurangan_Click()
txtOutput.Text = Val(txtNilai1.Text) - Val(txtNilai2.Text)
End Sub
Private Sub optSamaDengan_Click()
txtOutput.Text = Val(txtNilai1.Text) = Val(txtNilai2.Text)
End Sub
Private Sub optSisaBagi_Click()
txtOutput.Text = Val(txtNilai1.Text) Mod Val(txtNilai2.Text)
End Sub
Private Sub optTidakSamaDengan_Click()
txtOutput.Text = Val(txtNilai1.Text) <> Val(txtNilai2.Text)
End Sub
Dedy Arisandi, ST, M.Kom Halaman 14
Modul Pemrograman Visual Basic 6.0
4. ALUR PROGRAM DAN KODE PENAMAAN KONTROL
Program adalah proses yang sambung menyambung. Untuk mencapai tujuan, program harus
melalui tahap-tahap tertentu, sehingga diperlukan alur program yang jelas dan efisien. Dalam
Visual Basic 6.0 dikenal beberapa tipe alur seperti keputusan, perulangan ataupun lompatan.
A. Alur Keputusan
Alur keputusan adalah sebuah alur yang menganalisa suatu keadaan dan mengambil
keputusan berdasarkan pada hasil dari analisa tersebut. Jika kondisi benar maka akan
dijalankan perintah tertentu, sedang jika kondisi salah, maka dijalankan perintah yang
lainnya. Beberapa alur keputusan yaitu if, if else, dan case.
Pernyataan IF
If digunakan untuk membandingkan suatu kondisi tertentu. Aturan penulisan pernyataan
if adalah sebagai berikut:
If (Kondisi) Then
… Ekspresi…
End If
Contoh :
Jika teks yang dinput pada kotak input = “Dedy” maka pesan akan ditampilkan kemudian
aplikasi akan tertutup. Dapat diimplementasikan dalam Visual Basic sebagai berikut :
Objek / Kontrol Properties Value
Form 1 Name frmIf
Caption Alur Program IF
StartUpPosition 2 - CenterScreen
Label1 Caption Ketik Kata Pada Teks lalu klik Proses
Text1 Name txtInput
Text (kosongkan)
Command1 Name cmdProses
Caption &Proses
Dedy Arisandi, ST, M.Kom Halaman 15
Modul Pemrograman Visual Basic 6.0
Pernyataan If Else
Aturan penulisan pernyataan If Else adalah sebagai berikut:
If (Kondisi) Then
… Ekspresi 1…
Else
… Ekspresi 2…
End If
Contoh :
Jika nilai yang dinput pada kotak input >=60 maka akan ditampilkan pesan bahwa Anda
lulus jika lebih kecil dari 60 maka Anda dinyatakan gagal. Dapat diimplementasikan
dalam Visual Basic sebagai berikut :
Objek / Kontrol Properties Value
Form1 Name frmIfElse
Caption Alur Program If Else
StartUpPosition 2 - CenterScreen
Label1 Caption Masukkan Nilai
Label2 Caption Keterangan
Text1 Name txtNilai
Text (kosongkan)
Text2 Name txtKeterangan
Text (kosongkan)
Command1 Name cmdProses
Caption &Proses
Command2 Name cmdUlangi
Caption &Ulangi
Command3 Name cmdClose
Caption &Close
Dedy Arisandi, ST, M.Kom Halaman 16
Modul Pemrograman Visual Basic 6.0
Pernyataan Case
Case digunakan untuk melakukan pemilihan kondisi yang jumlahnya banyak atau
bertingkat. Aturan penulisan dari pernyataan Case adalah sebagai berikut:
Select Case Ekspresi
Case nilai:
… Ekspresi 1…
Case nilai:
… Ekspresi 2…
Case nilai:
… Ekspresi 3…
Case Else nilai:
… Ekspresi 4…
End Select
Case dapat berupa : contoh: Case 1 To 5
Case is contoh: Case is >=70
Case [nilaiawal] To [nilaiakhir]
Case [nilai] contoh: Case 7
Contoh :
Jika nilai dimasukkan pada kotak input, maka hasil akan mengikuti persyaratan dibawah
ini:
Nilai 0 – 45 : Keterangan Nilai = E (Gagal)
Nilai 46 – 59 : Keterangan Nilai = D (Kurang Baik)
Nilai 60 – 69 : Keterangan Nilai = C (Cukup Baik)
Nilai 70 – 79 : Keterangan Nilai = B (Baik)
Nilai 80 – 100 : Ketarangan Nilai = A (Sangat Memuaskan)
Permasalahan di atas dapat diselesaikan dengan alur program Case pada Visual Basic
sebagai berikut:
Objek / Kontrol Properties Value
Form1 Name frmAlurCase
Caption Alur Program Case
StartUpPosition 2 - CenterScreen
Label1 Caption Masukkan Nilai
Label2 Caption Keterangan Nilai
Text1 Name txtNilai
Text (kosongkan)
Text2 Name txtKeterangan
Text (kosongkan)
Command1 Name cmdProses
Caption &Proses
Command2 Name cmdUlangi
Caption &Ulangi
Command3 Name cmdClose
Caption &Close
Dedy Arisandi, ST, M.Kom Halaman 17
Modul Pemrograman Visual Basic 6.0
Private Sub cmdKeluar_Click()
Unload Me
End Sub
Private Sub cmdProses_Click()
Select Case Val(txtNilai.Text)
Case 0 To 45
txtKeterangan.Text = "E (Gagal)"
Case 46 To 59
txtKeterangan.Text = "D (Kurang Baik)"
Case 60 To 69
txtKeterangan.Text = "C (Cukup Baik)"
Case 70 To 79
txtKeterangan.Text = "B (Baik)"
Case 80 To 100
txtKeterangan.Text = "A (Sangat Memuaskan)"
Case Else
txtKeterangan.Text = "Nilai tidak terjangkau"
End Select
End Sub
Private Sub cmdUlangi_Click()
txtNilai.Text = ""
txtKeterangan.Text = ""
txtNilai.SetFocus
End Sub
B. Alur Pengulangan
Pengulangan adalah instruksi program yang memerintahkan suatu tugas diulang-ulang
berdasarkan kondisi tertentu. Beberapa alur pengulangan yaitu do while, do until, dan for
next. Untuk keluar dari alur pengulangan Anda dapat menggunakan exit do atau exit for.
Do While
Do While merupakan alur pengulangan yang akan melakukan pengulangan terus menerus
selama (while) suatu kondisi memenuhi syarat.
Aturan penulisan Do While:
Do While (Kondisi) Halaman 18
… Ekspresi …
Loop
Dedy Arisandi, ST, M.Kom
Modul Pemrograman Visual Basic 6.0 intNilai
Contoh :
intNilai = 1
Do While (intNilai <= 7)
Print “Pengulangan Do While ke- “ &
intNilai = intNilai + 1
loop
contoh program di atas akan menampilkan tulisan “Pengulangan Do While ke- 1”
berulang kali sampai “Pengulangan Do While ke- 7”.
Do Until
Do Until merupakan alur pengulangan kebalikan dari alur pengulangan Do While dimana
pengulangan akan dilakukan terus menerus bila kondisi tidak memenuhi syarat.
Aturan penulisan Do Until :
Do Until (Kondisi)
… Ekspresi …
Loop
Contoh :
i = Asc("A")
Do Until i > Asc("Z")
Print "Huruf " & Chr(i)
i=i+1
Loop
contoh program di atas akan menampilkan tulisan “Huruf A” sampai dengan “Huruf Z”.
For Next
For Next merupakan alur pengulangan yang digunakan untuk mengulangi suatu perintah
dalam jumlah yang ditentukan.
Aturan penuliasan For Next :
For counter = nilaiawal To nilaiakhir [steep kenaikan]
… Ekspresi …
Next counter
Contoh :
Rancanglah kontrol-kontrol berikut ini pada form aplikasi Anda:
Objek / Kontrol Properties Value
Form1 Name frmAlurPengulanganFor
Caption Alur Program Pengulangan For
StartUpPosition 2 – CenterScreen
Label1 Caption Menampilkan Nilai Fungsi F(X)=A + BX
Label2 Caption Nilai A
Label3 Caption Nilai B
Label4 Caption Batas Bawah X
Label5 Caption Batas Atas X
Dedy Arisandi, ST, M.Kom Halaman 19
Modul Pemrograman Visual Basic 6.0
Text1 Name txtNilaiA
Text2 Text (kosongkan)
Text3 Name txtNilaiB
Text4 (kosongkan)
Picture1 Text txtXBawah
(kosongkan)
Command1 Name txtXAtas
Command2 (kosongkan)
Command3 Text picLayar
&H00FFFFFF& (Warna Putih)
Name True
cmdProses
Text &Proses
cmdUlangi
Name &Ulangi
BackColor cmdClose
AutoRedraw &Close
Name
Caption
Name
Caption
Name
Caption
Tampilan
program
setalah
program
dijalankan.
Kode Program : Halaman 20
Private Sub cmdKeluar_Click()
Unload Me
End Sub
Private Sub cmdProses_Click()
Dim A, B, AX, BX, X, Y As Double
Dim I As Integer
A = Val(txtNilaiA.Text)
B = Val(txtNilaiB.Text)
AX = Val(txtXBawah.Text)
BX = Val(txtXAtas.Text)
picLayar.FontSize = 8
picLayar.FontName = "Courier New"
Dedy Arisandi, ST, M.Kom
Modul Pemrograman Visual Basic 6.0
picLayar.ForeColor = vbBlue
picLayar.Cls
picLayar.Print "TAMPILAN OUTPUT PROGRAM"
picLayar.Print "-------------------------"
picLayar.Print "X Y"
picLayar.Print "--------------------------"
For I = AX To BX
X=I
Y=A+B*X
picLayar.Print Format(X, "0.000"), Format(Y, "0.000")
If I Mod 5 = 0 Then
MsgBox "Lanjutkan !!!"
picLayar.Cls
picLayar.Print "TAMPILAN OUTPUT PROGRAM"
picLayar.Print "-------------------------"
picLayar.Print "X Y"
picLayar.Print "-------------------------"
End If
picLayar.Print "-------------------------"
Next I
End Sub
Private Sub cmdUlangi_Click()
txtNilaiA.Text = ""
txtNilaiB.Text = ""
txtXBawah.Text = ""
txtXAtas.Text = ""
txtNilaiA.SetFocus
End Sub
C. Kode Penamaan Kontrol
Programmer seluruh dunia secara tidak resmi telah membiasakan diri untuk memberi
nama depan setiap menamai sebuah kontrol. Penamaan ini berfungsi untuk mengetahui
dengan cepat kontrol apa yang digunakan pada nama tersebut.
Nama Kontrol Kode Nama Kontrol Kode
Combo box cbo List box lst
Check box chk Menu mnu
Command button cmd Module mod
Directory list box dir OLE ole
Drive list box drv Option button opt
File list box fil Picture box pic
Frame fra Resource res
Form frm Shape shp
Grid grd Timer tmr
Horizontal scroll bar hsb Text box txt
Image img User defined data type typ
Label lbl Vertical scroll bar vsb
Line lin
Dedy Arisandi, ST, M.Kom Halaman 21
Modul Pemrograman Visual Basic 6.0
5. FORM, MDI FORM, DAN MENU
A. Form
Form adalah media untuk membuat window aplikasi. Form merupakan tempat dimana
kontrol-kontrol lain diletakkan di atasnya.
Properti Form
Jika form Anda aktifkan maka dijendela properti akan tampil semua properti yang
dimiliki oleh form tersebut. Berikut ini properti yang dapat digunakan pada sebuah form
dan kegunaannya:
Properti Keterangan
AutoRedraw Jika True, Visual Basic secara otomatis menggambar ulang gambar pada
form karena window lain menghilangkan gambar. Jika False (default),
Visual Basic tidak akan me-redraw secara otomatis.
BackColor Warna background form. Anda dapat menentukan warna dengan angka
heksadesimal atau memilih warna yang sesuai dari palet warna.
BorderStyle 0 tanpa garis batas, 1 untuk garis tetap, 2 (default) untuk garis yang
ukurannya bisa diubah, 3 garis tetap dengan dua garis pada pinggirnya.
Caption Teks yang tampil pada judul form. Nilai caption secara default adalah nama
form.
ClipControls Jika True (default), Paint event akan bekerja.
ControlBox Jika True (default), form akan mengandung tombol control.
DrawMode Menyediakan 16 komposisi yang terkait dengan properti gambar dalam
menghasilkan efek gambar khusus.
DrawStyle Menyediakan 7 komposisi untuk menentukan tampilan garis dalam gambar.
DrawWidth Menentukan lebar garis pada form
Enabled Jika True (default), form dapat menanggapi events.
FillColor Warna untuk mengisi gambar pada form.
FillStyle Menyediakan 8 macam corak pengisi bidang gambar.
FontBold Untuk menentukan ukuran tebal font pada form maupun pada saat
pencetakan. Tidak berpengaruh pada properti caption.
FontItalic Untuk menentukan bentuk miring font pada form maupun pada saat
pencetakan. Tidak berpengaruh pada properti caption.
FontName Untuk menentukan jenis font pada form maupun pada saat pencetakan.
Tidak berpengaruh pada properti caption.
FontSize Untuk menentukan ukuran font pada form dan saat pencetakan. Tidak
berpengaruh pada properti caption.
FontStrikethru Untuk menentukan garis coret pada font di form maupun pada saat
pencetakan. Tidak berpengaruh pada properti caption.
FontTransparent Untuk mengahasilkan efek transparan font pada form maupun pada saat
pencetakan. Tidak berpengaruh pada properti caption.
FontUnderline Untuk menentukan garis bawah font di form maupun pada saat pencetakan.
Tidak berpengaruh pada properti caption.
ForeColor Untuk menentukan warna latar depan font di form maupun pada saat
pencetakan. Tidak berpengaruh pada properti caption.
Height Untuk menentukan ukuran tinggi form.
HelpContextID Menyediakan nomor pengenal dalam penyusunan context-sensitive help.
Icon Untuk menentukan icon aplikasi.
KeyPreview Jika False (default), control yang menerima fokus bisa menerima event-
event berikut: KeyDown, KeyPress, dan KeyUp sebelum form. Jika bernilai
True, form akan menerima event sebelum kontrol terfokus.
Left Ukuran posisi kiri, terhitung dari pinggir kiri form.
LinkMode 0 (default) akan melumpuhkan DDE, 1 DDE otomatis DDE, 2 DDE
terkode, 3 permintaan terkode.
LinkTopic Menentukan aplikasi sumber dan topik DDE.
Dedy Arisandi, ST, M.Kom Halaman 22
Modul Pemrograman Visual Basic 6.0
MaxButton Jika True (default) tombol maximize muncul pada form pada saat runtime.
Jika False, pemakai tidak bisa me-maximize form.
MDIChild Jika True, form adalah jenis MDI. Jika False (default), form bukan form
MDI.
Name Nama form, default Form1
Picture File gambar yang menampilkan background form.
ScaleHeight Tinggi form, ScaleMode untuk menentukan unit pengukuran yang
digunakan.
ScaleLeft Jarak dari kiri layar ke batas kiri form.
ScaleMode Untuk menentukan pengukuran koordinat pada form. Anda dapat
menentukan diantara delapan pilihan.
ScaleTop Jarak dari sisi atas layar ke batas atas form
ScaleWidth Untuk menentukan lebar form.
Top Posisi batas atas form.
Visible Bernilai True atau False, sehingga form bisa tampak atau hilang.
Width Lebar form dalam satuan twip.
WindowState Menunjukkan kondisi startup form saat pemakai menjalankan program. Jika
bernilai 0 (default), form pertama muncul dalam ukuran sama seperti
ukuran desain. Jika bernilai 1, form minimized. Nilai 2, maximized.
Berikut ini contoh program menggunakan properti form :
Kontrol yang digunakan adalah sebagai berikut :
Objek / Kontrol Properties Value
Form1 Name frmPropertiForm
Caption Properti Pada Form
StartUpPosition 2 – CenterScreen
MaxButton False
Label1 Caption Ketiklah Judul Form Disini
Text1 Name txtJudul
Text (Kosongkan)
Command1 Name cmdPerbesar
Caption Per&besar Ukuran Form
Command2 Name cmdPerkecil
Caption Per&kecil Ukuran Form
Command3 Name cmdWarna
Caption &Ganti Warna Form
Command4 Name cmdTutup
Caption &Tutup Form
Dedy Arisandi, ST, M.Kom Halaman 23
Modul Pemrograman Visual Basic 6.0
Event Form
Event form adalah kejadian-kejadian yang dapat dialami oleh sebuah form, seperti Click
(klik), Load, dan sebagainya. Berikut ini event-event yang bisa dialami oleh sebuah form:
Event Keterangan
Activate Tejadi saat sebuah form menjadi window aktif
Click Terjadi saat pemakai mengklik form.
DblClick Terjadi saat pemakai melakukan klik ganda pada form.
Deactivate Terjadi saat form lain menjadi window aktif.
DragDrop Terjadi saat proses drag melewati form selesai.
DragOver Terjadi sewaktu proses drag melewati form.
GotFocus Terjadi pada saat form mendapat fokus.
KeyDown Terjadi saat pemakai menekan keyboard dan property KeyPreview kontrol pada
form bernilai True. Sebaliknya, kontrol akan memakai event KeyDown
KeyPress Terjadi saat pemakai menekan sebuah tombol pada keyboard melewati form.
KeyUp Terjadi saat pemakai melepas penekanan tombol.
LinkClose Terjadi pada saat proses DDE terhenti.
LinkError Terjadi pada saat proses DDE gagal.
LinkExecute Terjadi pada saat proses DDE mulai dijalankan.
LinkOpen Terjadi pada saat proses DDE mulai.
Load Terjadi pada saat form diaktifkan dan sebelum tempak dilayar.
LostFocus Terjadi pada saat form kehilangan fokus.
MouseDown Terjadi saat pemakai menekan mouse melalui form
MouseMove Terjadi pada saat pemakai memindahkan mouse melalui form.
MouseUp Terjadi saat pemakai melepas mouse melewati form.
Paint Terjadi saat Visual Basic harus menggambar form.
QueryUnload Terjadi beberapa saat sebelum aplikasi dihentikan.
Resize Terjadi pada saat pemakai mengubah ukuran form.
Unload Terjadi pada saat form dinonaktifkan.
Contoh program dengan menggunakan beberapa event pada form :
‘ KODE PROGRAM :
Private Sub Form_Click()
Me.Print "Double Click untuk membersihkan layar.."
End Sub
Private Sub Form_DblClick()
Me.Cls
Me.Print "Anda baru saja membersihkan layar dengan klik ganda.."
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Me.Print "Anda sedang menekan tombol keyboard.."
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Print "Anda sedang menggerakkan tombol mouse di atas form.."
End Sub
Menggunakan Banyak Form Pada Satu Project
Aplikasi yang lengkap adalah aplikasi yang terdiri dari paduan beberapa form. Untuk
menggunakan banyak form pada satu project ada beberapa hal yang harus diperhatikan,
yaitu:
Pengaktifan Form
Perintah mengaktifkan form ke memori:
Load Namaform
Perintah untuk menutup form dari memori:
Unload Namaform
Dedy Arisandi, ST, M.Kom Halaman 24
Modul Pemrograman Visual Basic 6.0
Penampilan Form
Perintah menampilkan form ke layar:
Namaform.Show
Perintah untuk menyembunyikan form:
Namaform.Hide
Untuk menentukan form mana yang akan ditampilkan terlebih dahulu pada saat program
dijalankan, Anda dapat mengklik menu Project> Project1 Properties, maka akan tampil
jendela berikut:
Pilih form yang akan
ditampilkan pertama sekali pada
kotak Startup Object ini.
B. MDI Form
MDI (Multi Document Interface) Form merupakan form yang berfungsi sebagai form induk
(form utama). Pada form ini Anda tidak bisa menggambar kontrol Textbox, Labe, Command,
dan sebagainya. Kontrol yang bisa diletakkan pada form ini adalah kontrol Picture box,
Menu, Toolbar, dan Status bar. Bila form utama ini ditutup, maka semua form anak juga akan
ikut tertutup. Untuk menyatakan form pada VB sebagai form anak, Anda dapat merubah nilai
dari properti MDIChild = True. MDI Form hanya dapat digunakan 1 kali pada satu project.
MDI Form dapat diaktifkan dengan cara sebagai berikut:
Aktifkan Visual Basic
Klik menu Project> Add MDI Form, selanjutnya akan tampil kotak dialog beriku:
Klik tombol Open, maka form MDI akan ditampilkan. Halaman 25
Dedy Arisandi, ST, M.Kom
Modul Pemrograman Visual Basic 6.0
C. Menu
Menu adalah serangkaian pilihan-pilihan yang dapat diklik atau dipilih untuk melakukan
tugas tertentu. Pada Microsoft Word misalnya, menunya terdiri dari File, Edit, View, Format,
Tools, Table, Window, dan Help. Jika menu tersebut diklik, maka didalamnya juga terdapat
sub menu. Visual Basic menyediakan fasilitas untuk membuat menu yaitu Menu Editor.
Langkah-langkah untuk membuat menu adalah sebagai berikut:
Aktifkan MDI Form (ikuti langkah pembuatannya pada point sebelumnya)
Klik menu Tools> Menu Editor (Ctr + E), akan tampil jendela menu editor:
Judul Menu Menciptakan Menu
Nama Menu Pilihan Shortcut
- Menaikkan level - Menghapus
urutan menu sebuah menu
- Menurunkan - Menyisip 1
level urutan menu posisi kosong di
- Mengubah posisi menu 1 atas sebuah menu
posisi ke atas - Berpindah ke
- Mengubah posisi menu 1 menu berikutnya
posisi ke bawah
Ketiklah menu berikut ini pada menu editor di atas:
Menu Properti Nilai
File Caption
---New Name &File
---Open Caption mnuFile
Name New
---Close Caption mnuNew
Edit Name Open
---Cut Shortcut mnuOpen
Caption Ctr + O
---Copy Name Close
Caption mnuClose
---Paste Name &Edit
Caption mnuEdit
---Clear Name Cut
------Formats Shortcut mnuCut
Caption Ctr + X
Name Copy
Shortcut mnuCopy
Caption Ctr + C
Name Paste
Shortcut mnuPaste
Caption Ctr + V
Name Clear
Caption mnuClear
Formats
Dedy Arisandi, ST, M.Kom Halaman 26
Modul Pemrograman Visual Basic 6.0
------Contents Name mnuEditFormats
Caption Contents
View Name mnuContents
Insert Shortcut Del
Format Caption &View
Tools Name mnuView
Table Caption &Insert
Window Name mnuInsert
Help Caption F&ormat
Name mnuFormat
Caption &Tools
Name mnuTools
Caption T&able
Name mnuTable
Caption &Window
Name mnuWindow
Caption &Help
Name mnuHelp
Latihan :
Gabungkanlah semua form yang pernah Anda buat sebelumnya ke satu buah form induk
(MDI Form). Kemudian buat menu untuk masing-masing bagian berdasarkan
pembahasan form seperti: alur program terdiri dari 4 menu yaitu (form If, form IfElse,
form Case, dan form For). Jika menu alur program diklik aplikasi akan menampilkan 4
buah sub menu dan bila sub menu form If diklik maka aplikasi akan menampilkan form
alur If ke layar sebagai form anak. Begitu juga instruksi untuk form-form lainnya.
Dedy Arisandi, ST, M.Kom Halaman 27
Modul Pemrograman Visual Basic 6.0
6. KOTAK INPUT DAN TOMBOL
A. Kotak Input
Kotak input digunakan untuk memasukkan data yang akan diproses oleh aplikasi. Pada
Visual Basic 6.0 terdapat tiga buah kotak input standar yang terdapat pada Toolbox (default)
yaitu Text Box, Combo Box, dan List Box.
Text Box (Kotak Teks)
Text Box adalah kontrol yang paling sering digunakan yang berfungsi sebagai kotak input
teks yang diketikkan melalui keyboard. Text Box juga mempunya properti dan event
seperti halnya pada form.
PROPERTI KETERANGAN
Alignment Perataan teks di dalam kotak teks(rata kiri, rata tengah, atau rata kanan)
BackColor Warna latar belakang dari kotak teks
BorderStyle Menentukan pembatas disekeliling kotak teks.
Enabled Menentukan apakah kotak teks tersebut aktif
Font Mengubah jenis dan ukuran huruf kotak teks
ForeColor Warna teks di dalam kotak teks
Height Tinggi Kotak Teks
Left Jarak dari sisi kiri form ke sisi kiri kotak teks
Locked Menentukan apakah user bisa atau tidak menyunting teks di dalam kotak teks.
MaxLength Banyaknya karakter maksimal yang bisa diketikkan ke dalam kotak teks
MultiLine Teks yang diketikkan bisa lebih dari satu baris
PasswordChar Karakter yang muncul pada saat user mengetik, biasanya digunakan untuk
password
ScrollBars Menampilkan scrollbar (penggulung) jika Anda memilih properti MultiLine
TabIndex Menentukan nomor urut fokus kotak teks
TabStop Menentukan apakah kotak teks bisa menerima fokus
Text Teks yang ditampilkan atau diketikkan pada kotak teks
ToolTipText Text yang muncul pada ToolTip
Top Jarak dari sisi atas form ke sisi atas kotak
Visible Menampilkan / menyembunyikan kotak teks
Width Lebar kotak teks.
Contoh program :
Atur properti berikut ini pada aplikasi Anda:
Objek / Kontrol Properties Value
Form1 Name frmKontroText
Caption Form Uji Kontrol Text Box
Label1 Caption Input Teks dengan Karakter bintang
Label2 Caption Input Teks hanya dengan huruf kecil
Label3 Caption Input Teks hanya dengan huruf besar
Label4 Caption Input Teks hanya dengan angka
Text1 Name txtBintang
Text (Kosongkan)
Text2 Name txtHurufKecil
Text (Kosongkan)
Text3 Name txtHurufBesar
Text (Kosongkan)
Text4 Name txtAngka
Text (Kosongkan)
Text5 Name txtScroll
MultiLine True
ScrollBars 3-Both
Text (Kosongkan)
Dedy Arisandi, ST, M.Kom Halaman 28
Modul Pemrograman Visual Basic 6.0
Kode Program :
Private Sub Form_Load()
txtbintang.PasswordChar = "*"
txtHurufBesar.Locked = True
End Sub
Private Sub txtAngka_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") _
Or KeyAscii = vbKeyBack) Then
Beep
KeyAscii = 0
End If
End Sub
Private Sub txtbintang_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then txthurufKecil.SetFocus
End Sub
Private Sub txthurufKecil_Change()
txtHurufBesar.Text = UCase(txthurufKecil.Text)
End Sub
Private Sub txthurufKecil_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(LCase(Chr(KeyAscii)))
If KeyAscii = 13 Then txtAngka.SetFocus
End Sub
Combo Box (Kotak Combo)
Combo Box adalah kotak yang berisikan pilihan yang dapat dipilih dan dapat diketik
langsung seperti Text Box. Biasanya combo box digunakan untuk menampung data yang
dapat dipilih oleh pemakai, seperti jurusan, nama hari, dan daftar pilihan lainnya.
Properti yang sering digunakan pada combo box :
PROPERTI KETERANGAN
BackColor Warna latar belakang dari combo box
ForeColor Warna teks di dalam combo box
Height Tinggi combo box dalam keadaan tertutup
List Daftar pilihan yang ingin dimasukkan ke dalam combo box, pada program untuk
mengisi daftar Anda dapat menggunakan AddItem.
Sort Menentukan apakah daftar di dalam combo box akan diurutkan secara otomatis
Dedy Arisandi, ST, M.Kom Halaman 29
Modul Pemrograman Visual Basic 6.0
Style Menentukan jenis combo box.
0-DropDown Combo: combo box terbuka dan menampilkan pilihan jika diklik
1-Simple Combo: combo box menampilkan pilihan-pilihan pada daftar yang
selalu terbuka.
2-DropDown List: combo box terbuka dan menampilkan pilihan seperti daftar
kotak list.
Contoh combo box :
Pada Program diketik : Private Sub Form_Load()
Combo1.AddItem "Teknik Industri"
Combo1.AddItem "Teknik Sipil"
Combo1.AddItem "Teknik Mesin"
Combo1.AddItem "Teknik Informatika"
Combo1.AddItem "Teknik Elektro"
Combo1.AddItem "Teknik Telkom"
Combo1.AddItem "Sistem Informasi"
End Sub
List Box (Kotak Daftar)
List Box adalah kotak yang berisikan daftar yang hanya dapat dipilih oleh user tetapi
tidak dapat diinput dengan cara diketik melalui keyboard. List box biasanya digunakan
jika pilihan yang diberikan sudah bernilai mutlak dan tidak dapat dirubah lagi. Berikut ini
properti-properti yang biasa digunakan pada list box :
PROPERTI KETERANGAN
BackColor Warna latar belakang dari list box
Columns Menentukan banyaknya kolom di dalam kotak list, yang dimulai dari 0 yang
berari hanya 1 kolom. 2 yang berari 2 kolom, dan seterusnya.
ForeColor Warna teks di dalam list box
List Daftar pilihan yang ingin dimasukkan ke dalam kotak list
MultiSelect Cara pemilihan pada kotak list.
0-None : User hanya bisa memilih satu item dengan mengklik mouse atau
menekan space bar.
1-Simple : User bisa memilih lebih dari satu pilihan dengan Ctr + Klik saja.
2-Extended : User bisa memilih banyak pilihan dengan menggunakan Shif + Klik
atau Ctr + Klik.
Style Menentukan apakah kotak list ditampilkan bergaya standar atau ditambahi
dengan kotak cek.
Contoh List Box :
Dedy Arisandi, ST, M.Kom Halaman 30
Modul Pemrograman Visual Basic 6.0
Contoh program menggunakan perpaduan antara dua kotak input Combo Box dan List Box:
Objek / Kontrol Properties Value
Form1 Name frmComboListBox
Caption Kotak Input Combo Box dan List Box
List1 Name lstJurusan
Combo1 Name cboJurusan
Command1 Name cmdAdd
Caption &Add
Command2 Name cmdDelete
Caption &Delete
Command3 Name cmdClear
Caption &Clear
Kode Program : Private Sub cmdDelete_Click()
On Error GoTo salah
Private Sub Form_Load() If lstJurusan.ListCount = 0 Then
cboJurusan.AddItem "Teknik Sipil" MsgBox "Tidak ada data pada list"
cboJurusan.AddItem "Teknik Industri" Else
cboJurusan.AddItem "Teknik Mesin" lstJurusan.RemoveItem lstJurusan.ListIndex
cboJurusan.AddItem "Teknik Informatika" lstJurusan.ListIndex = 0
cboJurusan.AddItem "Teknik Telkom" End If
cboJurusan.AddItem "Teknik Elektro" Exit Sub
cboJurusan.AddItem "Sistem Informasi"
cboJurusan.ListIndex = 0 salah:
MsgBox "Pilih item yang akan dihapus"
End Sub
End Sub
Private Sub cmdAdd_Click()
lstJurusan.AddItem cboJurusan.Text Private Sub cmdClear_Click()
cboJurusan.SetFocus lstJurusan.Clear
cboJurusan.SetFocus
End Sub
End Sub
B. Tombol
Tombol digunakan sebagai perintah untuk mengerjakan sesuatu akan diproses oleh aplikasi.
Pada Visual Basic 6.0 terdapat tiga buah tombol standar yang terdapat pada Toolbox (default)
yaitu Command Button, Option Button, dan Check Box.
Command Button (Tombol Perintah)
Command button adalah tombol yang berfungsi untuk melaksanakan eksekusi perintah
terstentu. Hampir setiap jendela pada windows selalu menggunakan tombol ini. Berikut
ini properti yang dapat Anda gunakan pada command button :
Dedy Arisandi, ST, M.Kom Halaman 31
Modul Pemrograman Visual Basic 6.0
PROPERTI KETERANGAN
BackColor Warna latar belakang untuk tombol perintah. Sebelumnya ubah properti Style
menjadi 1-Graphical
Cancel Tombol perintah yang sedang mendapat fokus akan bisa dioperasikan dengan
tombol Esc.
Caption Teks yang ditampilkan pada tombol perintah
Default Tombol perintah mendapat fokus saat aplikasi pertama kali dijalankan dan dapat
langsung dioperasikan jika user menekan enter.
Enabled Menentukan apakah tombol perintah aktif
Font Menentukan jenis dan ukuran huruf pada tombol perintah
Height Tinggi tombol perintah
Left Jarak dari sisi jendela ke sisi kiri tombol perintah
MousePointer Menentukan bentuk tombol kursor mouse apabila diletakkan di atas tombol
perintah
Picture Menentukan file gambar yang akan ditampilkan pada tombol perintah.
Sebelumnya ubah properti Style menjadi 1-Graphical
Style Menentukan apakah jenis dari tombol perintah tersebut berupa tombol window
standar (0-Standar) atau grafik (1-Graphical)
Visible Menentukan apakah tombol perintah ditampilkan atau disembunyikan
Width Lebar tombol perintah.
Option Button (Tombol Pilihan)
Option button merupakan tombol pilihan dimana pemakai hanya bisa memilih 1 dari
beberapa pilihan yang ada. Supaya option button dapat dipilih lebih dari dua pilihan,
Anda harus membuat beberpa option button tersebut dalam satu frame. Contoh option
button yang dikelompokkan sesuai dengan kegunaannya :
Check Box (Kotak Cek)
Kotak cek adalah sebuah kontrol pemilihan yang fungsinya hampir sama dengan option
button, hanya saja bedanya pada check box Anda dapat menentukan lebih dari satu
pilihan.
Contoh selengkapnya dari ketiga bentuk tombol di atas dapat Anda perhatikan pada form
dengan kontrol-kontrol berikut ini :
Objek / Kontrol Properties Value
Form1 Name frmTombol
Caption Form Uji Kontrol Tombol
Label1 Name lblTeks
Caption SELAMAT BELAJAR VISUAL BASIC
Alignment 2 – Center
BorderStyle 1 – Fixed Single
Check1 Name chkGayaHuruf
Caption Gaya Huruf
Check2 Name chkWarnaHuruf
Caption Warna Huruf
Check3 Name chkGarisBawah
Caption Garis Bawah
Check4 Name chkCoretan
Caption Coretan
Dedy Arisandi, ST, M.Kom Halaman 32
Modul Pemrograman Visual Basic 6.0
Frame1 Name fraGayaHuruf
Frame2 Caption Gaya Huruf
Frame3 Name fraWarnaHuruf
Frame4 Caption WarnaHuruf
Option1 Name fraGarisBawah
Option2 Caption Garis Bawah Huruf
Option3 Name fraCoretan
Option4 Caption Coretan Huruf
Option5 Name optNormal
Option6 Caption Normal
Option7 Name optBold
Option8 Caption Bold
Option9 Name optItalic
Option10 Caption Italic
Option11 Name optBoldItalic
Option12 Caption Bold Italic
Command1 Name optGarisBawah
Caption Garis Bawah
Name optTidakBergarisBawah
Caption Tidak Bergaris Bawah
Name optMerah
Caption Merah
Name optBiru
Caption Biru
Name optHijau
Caption Hijau
Name optKuning
Caption Kuning
Name optDicoret
Caption Dicoret
Name optTidakDicoret
Caption Tidak Dicoret
Name cmdWarnaBebas
Caption &Warna Bebas
Style 1 – Graphical
Picture C:\Program Files\Microsoft VisualStudio\Common\
Graphics\Icons\Misc\Bullseye.ico
MousePointer 99 – Custom
MouseIcon C:\Program Files\Microsoft Visual Studio\Common\
Graphics\Icons\Arrows\Point10.ico
Command1 Name cmdKeluar
Caption &Keluar
Style 1 – Graphical
Picture C:\Program Files\Microsoft VisualStudio\Common\
Graphics\Icons\Misc\Misc06.ico
MousePointer 99 – Custom
MouseIcon C:\Program Files\Microsoft Visual Studio\Common\
Graphics\Icons\Elements\Fire.ico
Dedy Arisandi, ST, M.Kom Halaman 33
Modul Pemrograman Visual Basic 6.0
SELAMAT BELAJAR VISUAL BASIC
Kode Program : Unload Me lblTeks.FontUnderline = True
End Sub End Sub
Private Sub chkCoretan_Click()
If chkCoretan.Value = 1 Then Private Sub cmdWarnaBebas_Click() Private Sub optHijau_Click()
fraCoretan.Enabled = True lblTeks.ForeColor = QBColor(Rnd() * 15) lblTeks.ForeColor = vbGreen
Else
fraCoretan.Enabled = False End Sub End Sub
End If
Private Sub Form_Load() Private Sub optItalic_Click()
End Sub chkGayaHuruf.Value = 1 lblTeks.FontBold = False
chkWarnaHuruf.Value = 1 lblTeks.FontItalic = True
Private Sub chkGarisBawah_Click() chkGarisBawah.Value = 1
If chkGarisBawah.Value = 1 Then chkCoretan.Value = 1 End Sub
fraGarisBawah.Enabled = True
Else End Sub Private Sub optKuning_Click()
fraGarisBawah.Enabled = False lblTeks.ForeColor = vbYellow
End If Private Sub optBiru_Click()
lblTeks.ForeColor = vbBlue End Sub
End Sub
End Sub Private Sub optMerah_Click()
Private Sub chkGayaHuruf_Click() lblTeks.ForeColor = vbRed
If chkGayaHuruf.Value = 1 Then Private Sub optBold_Click()
fraGayaHuruf.Enabled = True lblTeks.FontBold = True End Sub
Else lblTeks.FontItalic = False
fraGayaHuruf.Enabled = False Private Sub optNormal_Click()
End If End Sub lblTeks.FontBold = False
lblTeks.FontItalic = False
End Sub Private Sub optBoldItalic_Click()
lblTeks.FontBold = True End Sub
Private Sub chkWarnaHuruf_Click() lblTeks.FontItalic = True
If chkWarnaHuruf.Value = 1 Then Private Sub optTidakBergarisBawah_Click()
fraWarnaHuruf.Enabled = True End Sub lblTeks.FontUnderline = False
Else
fraWarnaHuruf.Enabled = False Private Sub optDicoret_Click() End Sub
End If lblTeks.FontStrikethru = True
Private Sub optTidakDicoret_Click()
End Sub End Sub lblTeks.FontStrikethru = False
Private Sub cmdKeluar_Click() Private Sub optGarisBawah_Click() End Sub
Dedy Arisandi, ST, M.Kom Halaman 34
Modul Pemrograman Visual Basic 6.0
7. PEMROGRAMAN GRAFIK
Pemrograman grafik pada Visual Basic dapat dilakukan dengan menggunakan kontrol picture
box, image, line, dan shape.
A. Picture Box (Kotak Gambar)
Kontrol picture box merupakan kontrol yang digunakan untuk penampilan gambar. Kontrol
ini juga dapat menampung kontrol-kontrol lain di atasnya. Anda dapat membuat form
samaran menggunakan picture box ini seperti contoh berikut ini:
Private Sub cmdKeluar_Click()
Unload Me
End Sub
Private Sub cmdPicForm_Click()
PicForm.Visible = False
cmdTampil.Enabled = True
End Sub
Private Sub cmdTampil_Click()
PicForm.Visible = True
cmdTampil.Enabled = False
End Sub
Private Sub Form_Load()
cmdTampil.Enabled = False
End Sub
Objek / Kontrol Properties Value
Form1 Name frmPicture
Caption Form Samaran
Picture1 Name picForm
Picture C:\Program Files\Microsoft Visual Studio\Common\
Graphics\Metafile\Business\Laptop1.Wmf
Label1 Caption Form Samaran Menggunakan Picture Box
Command1 Name cmdpicForm
Caption X
Command2 Name cmdTampil
Caption &Tampil Form
Command3 Name cmdKeluar
Caption &Keluar
B. Image
Kontrol Image berfungsi untuk menampilkan file gambar pada aplikasi Anda, seperti foto
karyawan, hiasan aplikasi, dan sebagainya. File gambar yang dapat diletakkan pada kontrol
image ini adalah file gambar dengan extension *.bmp, *.jpg, *.gif, *.wmf, *.ico, *.emf, *.cur.
untuk menampilkan gambar melalui program Anda dapat mengikuti aturan berikut ini:
Namakontrol.Picture = LoadPicture(“NamaFile”)
Dedy Arisandi, ST, M.Kom Halaman 35
Modul Pemrograman Visual Basic 6.0
Berikut ini contoh program selengkapnya menggunakan kontrol image :
Objek / Kontrol Properties Value
Form1 Name frmImage
Caption Form Uji Kontrol Image
Image1 Name imgContoh
Option1 Name optStretch
Caption Stretch
Option2 Name optUnStretch
Caption Un Stretch
Combo1 Name cboPilihan
Kode Program:
Private Sub cboPilihan_Change()
cboPilihan_Click
End Sub
Private Sub cboPilihan_Click()
imgContoh.Picture = LoadPicture("C:\Program Files\Microsoft Visual Studio\Common\Graphics\Metafile\Business\" & _
cboPilihan.Text & ".wmf")
End Sub
Private Sub Form_Load()
cboPilihan.AddItem "PCOMPUTR"
cboPilihan.AddItem "3DLRSIGN"
cboPilihan.AddItem "ALPHBORD"
cboPilihan.AddItem "ANSWMACH"
cboPilihan.AddItem "CALCULTR"
cboPilihan.AddItem "CALENDAR"
cboPilihan.AddItem "COINS"
cboPilihan.AddItem "LAPTOP1"
cboPilihan.Text = "PCOMPUTR"
optStretch.Value = True
End Sub
Private Sub optStretch_Click()
imgContoh.Height = 4290 'Disesuaikan dengan ukuran image
imgContoh.Width = 4875 'Disesuaikan dengan ukuran image
imgContoh.Stretch = True
End Sub
Private Sub optUnStretch_Click()
imgContoh.Stretch = False
End Sub
Dedy Arisandi, ST, M.Kom Halaman 36
Modul Pemrograman Visual Basic 6.0
C. Line (Garis)
Kontrol Line digunakan untuk mempercantik tampilan aplikasi Anda. Bagi Anda yang
memiliki jiwa seni yang tinggi tentu menginginkan tampilan aplikasi Anda semenarik
mungkin. Berikut ini garis yang bisa anda buat menggunakan kontrol Line:
D. Shape (Bangun)
Anda dapat menambahkan bangun-bangun sederhana pada aplikasi Anda, seperti kotak,
lingkaran, elips, dan sebagainya. Berikut ini bangun yang dapat Anda buat menggunakan
kontrol Shape :
Dedy Arisandi, ST, M.Kom Halaman 37
Modul Pemrograman Visual Basic 6.0
8. SCROLLBAR DAN ANIMASI
A. Scrollbar (Penggulung)
Scrollbar adalah sebuah kontrol penggulung yang terdapat disisi suatu jendela. Terdapat dua
macam scrollbar yaitu vertical scrollbar dan horizontal scrollbar. Berikut ini contoh program
menggunakan scrollbar:
Objek / Kontrol Properties Value
Form1 Name frmScrollbar
Label1 Caption Form Uji Kontrol Scrollbar
Label2 Caption Komponen Merah
Label3 Caption Komponen Hijau
Label4 Caption Komponen Biru
Label5 Caption Warna yang dihasilkan
Label6 Name lblMerah
Label7 Caption 0
Text1 Name lblHijau
Hscrollbar1 Caption 0
Name lblBiru
Hscrollbar2 Caption 0
Name txtWarna
Hscrollbar3 Text (Kosongkan)
Name hsbMerah
Command1 Max 225
LargeChange 30
Name hsbHijau
Max 225
LargeChange 30
Name hsbBiru
Max 225
LargeChange 30
Name cmdKeluar
Caption &Keluar
Dedy Arisandi, ST, M.Kom Halaman 38
Modul Pemrograman Visual Basic 6.0
Kode Program :
Private Sub Warna()
txtWarna.BackColor = RGB(hsbMerah.Value, hsbHijau.Value, hsbBiru.Value)
End Sub
Private Sub cmdKeluar_Click()
Unload Me
End Sub
Private Sub Form_Load()
txtWarna.BackColor = vbBlack
txtWarna.Enabled = False
End Sub
Private Sub hsbBiru_Change()
Warna
lblBiru.Caption = hsbBiru.Value
End Sub
Private Sub hsbBiru_Scroll()
hsbBiru_Change
End Sub
Private Sub hsbHijau_Change()
Warna
lblHijau.Caption = hsbHijau.Value
End Sub
Private Sub hsbHijau_Scroll()
hsbHijau_Change
End Sub
Private Sub hsbMerah_Change()
Warna
lblMerah.Caption = hsbMerah.Value
End Sub
Private Sub hsbMerah_Scroll()
hsbMerah_Change
End Sub
Dedy Arisandi, ST, M.Kom Halaman 39
Modul Pemrograman Visual Basic 6.0
B. Timer
Timer adalah kontrol yang berfungsi menghitung waktu pada Visual Basic. Kontrol ini
menggunakan jam internal yang terdapat pada komputer Anda. Pada saat program dijalankan
kontrol Timer ini tidak akan tampak pada layar. Properti yang sering digunakan pada kontrol
Timer ini adalah Interval. Misal Interval=500 ini artinya 0,5 detik.
Berikut ini contoh program yang dapat dibuat dengan memanfaatkan fasilitas kontrol Timer:
Kode Program :
Private Sub cmdSelesai_Click()
Unload Me
End Sub
Private Sub tmrGerak_Timer()
If imgTentang.Top + imgTentang.Height >= -1 * _
(picDasar.ScaleHeight - imgTentang.Height) Then
imgTentang.Top = imgTentang.Top - 20
Else
imgTentang.Top = picDasar.ScaleHeight
End If
End Sub
Objek / Kontrol Properties Value
Form1 Name frmTimer1
Caption Tentang Program
Picture1 ControlBox False
Image1 Name PicDasar
BackColor Putih
Timer1 Name imgTentang
Command1 Picture (Rancang teks di Word lalu pasti tepat di atas image)
Stretch True
Name tmrGerak
Interval 20
Name cmdSelesai
Caption &Selesai
Dedy Arisandi, ST, M.Kom Halaman 40
Modul Pemrograman Visual Basic 6.0
Contoh Program Timer2:
Objek / Kontrol Properties Value
Form1 Name FrmTimer2
Picture1 Caption JAM ANALOG dan DIGITAL
Timer1 Name PicDasar
Timer2 BackColor Putih
Line1 Name tmrJam
Label1 Interval 100
Name tmDigital
Label1 Interval 1000
Name linJarumJam
Kode Program : Index 0
Name lblTanggal
Caption (Kosongkan)
BackColor (Warna Putih)
BorderStyle 1-Fixed Single
Name lblJam
Caption (Kosongkan)
BackColor (Warna Putih)
BorderStyle 1-Fixed Single
Private Sub Form_Load()
lblTanggal.Caption = Now
lblJam.Caption = Format(Now, "hh:mm:ss")
Width = 4000
Height = 4000
Left = Screen.Width \ 2 - 4100
Top = (Screen.Height - Height) \ 2
End Sub
Private Sub Form_Resize() Halaman 41
Dim i, sudut
Static flag As Boolean
If flag = False Then
flag = True
For i = 0 To 14
If i > 0 Then Load linJarumJam(i)
linJarumJam(i).Visible = True
Dedy Arisandi, ST, M.Kom
Modul Pemrograman Visual Basic 6.0
linJarumJam(i).BorderWidth = 5
linJarumJam(i).BorderColor = QBColor(2)
Next i
End If
For i = 0 To 14
Scale (-1, -1)-(1, 1)
sudut = i * 2 * Atn(1) / 3
linJarumJam(i).X1 = 0.9 * Cos(sudut)
linJarumJam(i).Y1 = 0.9 * Sin(sudut)
linJarumJam(i).X2 = Cos(sudut)
linJarumJam(i).Y2 = Sin(sudut)
Next i
End Sub
Private Sub tmrDigital_Timer()
Dim jam As Variant
jam = Now
lblJam.Caption = Format(jam, "hh:mm:ss")
End Sub
Private Sub TMRJAM_Timer()
Const lenganjam = 0
Const lenganmenit = 13
Const lengandetik = 14
Dim sudut
Static detiklalu
If Second(Now) = detiklalu Then Exit Sub
detiklalu = Second(Now)
sudut = -0.5236 * (15 - (Hour(Now) + Minute(Now) / 60))
linJarumJam(lenganjam).X1 = 0
linJarumJam(lenganjam).Y1 = 0
linJarumJam(lenganjam).X2 = 0.5 * Cos(sudut)
linJarumJam(lenganjam).Y2 = 0.5 * Sin(sudut)
sudut = -0.1047 * (75 - (Minute(Now) + Second(Now) / 60))
linJarumJam(lenganmenit).X1 = 0
linJarumJam(lenganmenit).Y1 = 0
linJarumJam(lenganmenit).X2 = 0.7 * Cos(sudut)
linJarumJam(lenganmenit).Y2 = 0.7 * Sin(sudut)
sudut = -0.1047 * (75 - Second(Now))
linJarumJam(lengandetik).X1 = 0
linJarumJam(lengandetik).Y1 = 0
linJarumJam(lengandetik).X2 = 0.7 * Cos(sudut)
linJarumJam(lengandetik).Y2 = 0.7 * Sin(sudut)
End Sub
Dedy Arisandi, ST, M.Kom Halaman 42
Modul Pemrograman Visual Basic 6.0
9. PENGELOLAAN FILE
Untuk memudahkan pengelolaan file yang biasanya berjumlah banyak, file-file biasanya
dikelompokkan sesuai jenisnya dan disimpan pada satu folder atau direktori tersendiri. Visual
Basic menyediakan tiga buah kontrol standar untuk pengelolaan file yaitu DriveListBox,
DirListBox, FileListBox.
A. DriveListBox
DriveListBox adalah kontrol file pada VB yang berfungsi untuk menampilkan seluruh drive
yang ada pada komputer Anda. Berikut ini contoh gambar kontrol DriveListBox:
B. DirListBox
DirListBox adalah kontrol file pada VB yang berfungsi untuk menampilkan seluruh direktori/
folder dalam suatu drive tertentu. Berikut ini gambar kontrol DirListBox :
C. FileListBox
FileListBox merupakan kontrol file pada VB yang berfungsi untuk menampilkan file-file
yang sudah difilter dalam satu direktori. Untuk menentukan filter file yang akan ditampilkan
Anda dapat mengaturnya pada properti Pattern. Ketikkan *.* jika ingin menampilkan semua
file dan ketikkan *.ekstension, misalkan *.jpg untuk menampilkan file-file dengan ekstension
jpg. Berikut ini gambar kontrol FileListBox :
Contoh program dengan menggunakan ketiga kontrol file di atas :
Dedy Arisandi, ST, M.Kom Halaman 43
Modul Pemrograman Visual Basic 6.0
Objek / Kontrol Properties Value
Form1 Name FrmFile
Caption Jendela Browser
Drive1 Name Drive1
Dir1 Name Dir1
File1 Name File1
Pattern *.bmp;*.jpg;*.gif;*.wmf;*.ico
Image1 Name imgGambar
Stretch True
BorderStyle 1-FixedSingle
Label1 Name lblPath
Caption Label Path
Option1 BackColor (Warna Hijau Muda)
Option2 Name optStretch
Caption Gambar Stretch
Name optUnStretch
Caption Gambar Sebenarnya
Kode Program:
Private Sub Form_Load()
optStretch.Value = True
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
lblPath.Caption = Dir1.Path
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub optUnStretch_Click()
imgGambar.Stretch = False
End Sub
Private Sub File1_Click()
gambar = File1.Path & "\" & File1.FileName
imgGambar.Picture = LoadPicture(gambar)
lblPath.Caption = gambar
End Sub
Private Sub optStretch_Click()
imgGambar.Height = 4830 'Ukuran disesuaikan dengan
imgGambar.Width = 4440 'ukuran image yang anda buat
imgGambar.Stretch = True
End Sub
Dedy Arisandi, ST, M.Kom Halaman 44
Modul Pemrograman Visual Basic 6.0
10. KOTAK PESAN, KOTAK MASUKAN DAN KOTAK DIALOG
A. Kotak Pesan (MsgBox())
Pada Visual Basic terdapat kotak pesan (msgbox) yang berfungsi untuk menampilkan pesan
kepada pemakai. Pesan ini biasanya berupa pesan peringatan, pesan error, pesan untuk
memastikan suatu tindakan, dan sebagainya. Aturan penulisan adalah sebagai berikut:
intNamaVariabel = MsgBox(“Pesan” , intType, strJudul)
Keterangan:
intNamaVariabel: Variabel untuk menyimpan hasil yang dikembalikan oleh fungsi
MsgBox().
Pesan : Kalimat yang akan ditampilkan pada kotak pesan.
intType: Nilai yang berfungsi untuk menampilkan pilihan tertentu pada kotak pesan.
strJudul: Judul yang akan ditampilkan pada kotak pesan.
Contoh :
Dim Konfir As Integer
Konfir = MsgBox("Apakan Anda yakin ingin keluar dari aplikasi ini",
vbYesNo + vbQuestion, "Konfirmasi")
Hasil dari perintah di atas :
B. Kotak Masukan (InputBox())
Kotak masukan pada Visual Basic dapat ditampilkan dengan fungsi InputBox(). Kotak
masukan ini berfungsi untuk menginputkan nilai-nilai data yang akan diproses pada aplikasi
Anda. Aturan penulisan kotak input ini adalah sebagai berikut :
strNamaVariabel = InputBox(“Pesan” , “strJudul”,
“strDefault”, intXPos, intYPs)
Keterangan:
strNamaVariabel: Variabel untuk menyimpan hasil yang dikembalikan oleh fungsi
InputBox().
Pesan: Kalimat yang ingin ditampilkan sebagai acuan pengisian data.
srtJudul: Judul yang akan ditampilkan pada kotak input.
strDefault: Teks yang ditampilkan sebagai jawaban default (jawaban yang sudah
disediakan) pada kotak input.
intXPos: Lokasi pada sumbu X dimana kotak input akan muncul pada layar.
intYPos: Lokasi pada sumbu Y dimana kotak input akan muncul pada layar.
Contoh :
Dim strInput As String
strInput = InputBox("Masukkan Hobbi Anda : ", "Input Hobbi", "Ketikkan
hobbi Anda disini")
Dedy Arisandi, ST, M.Kom Halaman 45
Modul Pemrograman Visual Basic 6.0
Kotak input yang dihasilkan dari perintah tersebut:
C. Kotak Dialog (Dialog Box)
Kotak dialog adalah jendela-jendela kecil yang muncul untuk meminta input atau masukkan
dari pemakai. Masukan ini akan digunakan untuk melakukan suatu perintah atau tugas
tertentu. Pada Visual Basic terdapat beberapa kotak dialog yang dapat digunakan yaitu kotak
dialog Open, kotak dialog Save, kotak dialog Font, kotak dialog Color, dan kotak dialog
Print, dan kotak dialog Help.
Cara Membuat Kotak Dialog
Aktifkan Visual Basic 6.0
Pilih menu Project> Componens(atau tekan Ctr + T pada keyboard)
Pada kotak Components pilihlah Microsoft Common Control 6.0 hingga kotak ceknya
tertandai lalu klik tombol OK.
Rancanglah form dengan kontrol-kontrol berikut ini:
Objek / Kontrol Properties Value
Form1 Name FrmDialog
Caption Form Uji Kotak Dialog
CommonDialog1 Name Cdb1
Label1 Name lblKalimat
Command1 Name cmdKalimat
Caption Masukkan Kalimat
Combo1 Name cboKotakDialog
Tampilan form :
Selanjutnya ketiklah program berikut ini:
Private Sub cboKotakDialog_Click()
Select Case cboKotakDialog.ListIndex
Case 0
cdb1.DialogTitle = "Membuka Hanya File Dokumen (*.doc)"
cdb1.Filter = "*.doc"
cdb1.FileName = "*.doc"
cdb1.ShowOpen
Case 1
cdb1.DialogTitle = "Menyimpan File Teks (*.txt)"
Dedy Arisandi, ST, M.Kom Halaman 46
Modul Pemrograman Visual Basic 6.0
cdb1.Filter = "*.txt"
cdb1.FileName = "*.txt"
cdb1.ShowSave
Case 2
cdb1.DialogTitle = "Memilih Warna"
cdb1.ShowColor
lblKalimat.ForeColor = cdb1.Color
cboKotakDialog.ForeColor = cdb1.Color
Case 3
cdb1.DialogTitle = "Membuka Dialog Font"
cdb1.Flags = cdlCFBoth
cdb1.ShowFont
lblKalimat.FontSize = cdb1.FontSize
Case 4
cdb1.DialogTitle = "Membuka Dialog Printer"
cdb1.ShowPrinter
Case 5
cdb1.DialogTitle = "Anda Butuh Bantuan"
cdb1.ShowHelp
End Select
End Sub
Private Sub cmdKalimat_Click() Sembarang Kalimat", "Input Kalimat",
Dim Kalimat As String
Kalimat = InputBox("Masukkan
"Ketikkan Kalimat disini")
lblKalimat.Caption = Kalimat
End Sub
Private Sub Form_Load()
cboKotakDialog.AddItem "Kotak Dialog Open"
cboKotakDialog.AddItem "Kotak Dialog Save"
cboKotakDialog.AddItem "Kotak Dialog Color"
cboKotakDialog.AddItem "Kotak Dialog Font"
cboKotakDialog.AddItem "Kotak Dialog Print"
cboKotakDialog.AddItem "Kotak Dialog Help"
End Sub
Private Sub Form_Unload(Cancel As Integer)
Dim Konfir As Integer
Konfir = MsgBox("Anda yakin ingin keluar dari aplikasi ini", vbYesNo +
vbQuestion, "Konfirmasi")
If Konfir = vbYes Then
Cancel = 0
End
Else
Cancel = 1
End If
End Sub
Dedy Arisandi, ST, M.Kom Halaman 47
Modul Pemrograman Visual Basic 6.0
11. TOOLBAR, POP UP MENU, DAN STATUSBAR
A. ToolBar
Toolbar adalah serangkaian tombol-tombol berupa gambar yang apabila diklik akan
melakukan perintah tertetu yang telah ditugaskan padanya. Toolbar berguna untuk
mempersingkat tugas pemakai dengan langsung mengklik gambar yang mewakili satu menu
pada menubar. Toolbar juga dibuat untuk mempercantik tampilan aplikasi Anda.
Untuk membuat Toolbar Anda harus memilih dua kontrol sekaligus yang sebelumnya harus
Anda instal dari component Microsoft Windows Common Controls 6.0 (SP6) yaitu:
Image List yang berfungsi untuk menyimpan gambar-gambar yang akan ditampilkan pada
Toolbar.
Toolbar yang berfungsi untuk membuat Toolbar itu sendiri.
Untuk membuat Toolbar ada langkah-langkah dan pengaturan yang harus Anda lakukan
yaitu:
Buka project yang berisi MDI Form yang berisi menu latihan yang pernah anda buat
sebelumnya.
Klik dua kali pada kontrol Image List, kemudian klik kontrol Toolbar dan gambarkan
pada bagian atas form Anda.
Klik kanan pada kontrol Image List di atas, lalu pilih Properties, maka akan tampil
jendela berikut ini:
Klik tombol Insert Picture, cari
gambar icon yang Anda kehendaki.
Bila gambar yang terlanjur anda
ambil ingin dihapus kliklah tombol
Remove Picture.
Ingat nomor index pada kotak Index
picture yang akan dipanggil
nantinya pada Toolbar.
Jika gambar yang akan diletakkan
pada Toolbar sudah mencukupi,
akhiri dengan menekan tombol OK.
Selanjutnya klik kanan pada Toolbar yang telah digambar di atas, lalu pilih properties,
maka akan tampil jendela berikut ini:
Dedy Arisandi, ST, M.Kom Halaman 48
Modul Pemrograman Visual Basic 6.0
Pilih kotak combo ImageList
dengan ImageList yang akan
Anda pilih gambarnya.
Tentukan bentuk Toolbar yang
anda inginkan pada kotak combo
Style.
Klik tob Button untuk memulai
membuat tombol icon pada
Toolbar Anda.
Klik tombol Insert Button untuk
membuat tombol icon pada Toolbar
Anda.
Ketikkan keterangan toolbar pada
kotak input Caption.
Tentukan nomor indeks gambar
sesuai dengan susunan indeks pada
ImageList yang ingin anda
tampilkan pada Toolbar.
Lakukan berulang-ulang sampai
semua icon toolbar yang anda
inginkan tampil, kemudian akhiri
dengan menekan tombol OK.
Setelah langkah-langakah diatas Anda ikuti maka Anda akan memperoleh hasil sebagai
berikut:
B. Pop Up Menu
Pop up menu adalah menu yang akan tampil apabila Anda mengklik tombol kanan mouse
pada daerah tertuntu. Pop up menu dibuat untuk mempersingkat dan mempermudah
perkerjaan pemakai untuk membuka suatu menu. Untuk membuat pop up menu anda dapat
melakukan langkah-langkah berikut ini:
Buatlah terlebih dahulu menu yang akan Anda buat sebagai pop up menu pada Menu
Editor. Bila menu yang baru anda buat tersebut tidak ingin ditampilkan pada menu bar,
cek tombol checkbox Visible pada menu tersebut.
Dedy Arisandi, ST, M.Kom Halaman 49
Modul Pemrograman Visual Basic 6.0
Matikan cek pada pilihan
Visible ini agar menu tidak
tampil pada menu bar.
Ketik menu-menu yang akan
ditampilkan pada pop up menu.
Akhiri dengan mengklik tombol
OK.
Ketik metode yang akan lakukan oleh pop up menu tersebut sebelumnya, misalkan:
Private Sub mnuTampiltoolbar_Click()
mnuTampilToolbar.Checked = Not mnuTampilToolbar.Checked
Toolbar1.Visible = mnuTampilToolbar.Checked
End Sub
Klik dua kali kontrol yang akan Anda beri pop up menu, misalnya form lalu ketik
program berikut ini:
Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then PopupMenu mnuToolbar
End Sub
Hasil yang diperoleh dari langkah-langkah di atas dapat Anda lihat berikut ini:
C. Statusbar
Statusbar adalah baris status yang biasanya terdapat di bagian bawah layar suatu aplikasi
yang berfungsi memberikan keterangan mengenai aplikasi yang dijalankan saat ini. Sebagai
contoh pemakai dapat melihat tombol Caps Lock, atau Num Lock aktif atau tidak dapat
dilihat pada statusbar. Untuk membuat statusbar Anda dapat melakukan langkah-langkah
berikut ini:
Klik kontrol Statusbar yang terdapat pada Toolbox, lalu klik dan gambar statusbar
tersebut tepat di bagian bawah form induk.
Klik kanan pada statusbar, properties, maka akan tampil jendela berikut:
Menambah panel baru pada statusbar.
Menghapus panel pada statusbar.
Menampilkan teks pada statusbar.
Menampilkan keterangan tips pada panel.
Menentukan bentuk perataan teks.
Menentukan bentuk isi panel.
Mengambil gambar yang akan diletakkan
pada panel.
Dedy Arisandi, ST, M.Kom Halaman 50
The words you are searching are inside this book. To get more targeted content, please make full-text search by clicking here.
modul belajar visual basic
Discover the best professional documents and content resources in AnyFlip Document Base.
Search