Modul visual basic

Pengantar Program
Microsoft Visual Basic 6.0
Mengenal Visual Basic
Microsoft Visual Basic merupakan salah satu aplikasi pemrograman visual
yang memiliki bahasa pemrograman yang cukup popular dan mudah di pelajari.
Basis bahasa pemrograman yang digunakan dalam visual basic adalah bahasa
BASIC (Beginner All-Purpose Symbolic Intruction Code) yang merupakan salah
satu bahasa pemrograman tingkat tinggi yang sederhana dan mudah dipelajari.
Dengan Visual Basic, kita bisa membuat program dengan aplikasi dalam sebuah
form baik aplikasi kecil hingga ke aplikasi pengolahan database.

Menjalankan Visual Basic 6.0
Langkah untuk menjalankan program Visual Basic 6.0 adalah :
1. Klik tombol Start yang terletak di sudut pojok kiri bawah layar.
2. Pilih menu All Programs ► Microsoft Visual 6.0 ► Microsoft Visual
Basic 6.0

3. Sesaat kemudian tampil jendela program visual Basic 6.0 bersamaan
dengan munculnya kotak dialog New Project sebagai berikut:

1

Pada kotak dialog tersebut terdapat tiga pilihan tabulasi sebagai berikut:

Tabulasi
New

Keterangan
Untuk Membuat proyek baru dengan berbagai
macam pilihan.

Existing

Pilihan untuk membuka daftar nama proyek yang
pernah dibuat sebelumnya

Recent

Pilihan untuk membuka daftar nama proyek yang
telah dibuat dan terakhir kali dibuka.

4. Berikutnya pilih tabulasi New dan klik pilihan standart.EXE Kemudian
klik tombol Open. Selanjutnya, tampilan jendela program Visual Basic 6.0
akan terlihat seperti pada gambar berikut:

2

Title Bar
Menu Bar

Form

Main Toolbar

Toolbox

Project

Jendela
Properties

Jendela Form Layout

Keterangan :
Title Bar → berfungsi untuk menunjukkan nama proyek yang sedang aktif.
Menu Bar → berfungsi untuk mengoperasikan program visual basic 6.0
Main Toolbar → berfungsi untuk melakukan suatu perintah khusus secara
cepat.
Toolbox → digunakan dalam proses pembuatan aplikasi.
Project → merupakan jendela yang digunakan untuk menampilkan proyekproyek atau modul-modul yang terlibat dalam proses pembuatan aplikasi.
Form → digunakan untuk merancang aplikasi yang sedang dibuat.
Jendela Form Layout → untuk mengatur posisi form pada layar monitor saat
program dijalankan.

3

Qta cari tau yuuk..apa EVENT
dalam sebuah program...??

Event merupakan suatu tindakan yang dikenakan terhadap objek. Event
yang di terima oleh sebuah objek berfungsi untuk menjalankan kode program
yang ada dalam objek tersebut.
Nah inilah yang
dinamakan Event

Metode adalah kumpulan perintah yang memiliki kegunaan yang hampir
sama dengan suatu fungsi atau prosedur, tetapi perintah-perintah tersebut sudah
disediakan oleh suatu objek.

Ini dinamakan metode. Nah,
sekarang udah bisa ngebedain
metode sama event kan...??

4

Latihan 1

Command
Button

Buat desain program pada form berikut ini:
Dobel klik pada commandbutton1
memunculkan pesan

untuk

menuliskan

kode

program

Private Sub Command1_Click()
MsgBox "Selamat Datang Programmer !!!!", vbInformation,
"Password"
End Sub
Dobel klik pada commandbutton2 untuk menuliskan kode program keluar
aplikasi
End
End Sub
Menjalankan Program

Di bawah ini beberapa cara menjalankan program pada Visual Basic 6.0:
 Klik tombol

Start pada toolbar Standard.

 Klik menu Run ► Start.
 Tekan tombol F5 pada keyboard.

5

Latihan 2

Kode Program :
 Tombol OK
Label2.Caption = Text1.Text
End Sub
 Tombol Selesai
End
End Sub

Latihan 3

6

Kode Program :
Private Sub Option1_Click()
Label2.ForeColor = vbBlue
End Sub
Label2.ForeColor = vbRed
End Sub
Private Sub Check1_Click()
Label2.FontBold = Check1.Value
End Sub
Label2.FontItalic = Check2.Value
End Sub

7

Latihan 4

Kode Program :
 Double Klik Form
Private Sub Form_Load()
Combo1.AddItem "Hery"
Combo1.AddItem "ART"
Combo1.AddItem "Iyan"
Combo1.AddItem "Tuti"
End Sub
 Tombol Add
List1.AddItem Combo1.Text
End Sub
 Tombol Delete
List1.RemoveItem List1.ListIndex
End Sub
 Tombol Bersih
List1.Clear
Combo1.SetFocus
End Sub
8

Latihan 5

Kode Program :
 Option Button Tambah
Text3.Text = Val(Text1.Text) + Val(Text2.Text)
End Sub
 Option Button Kurang
Text3.Text = Val(Text1.Text) - Val(Text2.Text)
End Sub
 Option Button Kali
Text3.Text = Val(Text1.Text) * Val(Text2.Text)
End Sub
 Option Button Bagi
Text3.Text = Val(Text1.Text) / Val(Text2.Text)
End Sub
 Command Button Keluar
End
End Sub

9

Latihan 5

Kode Program :
 Fungsi (&)
var1 = Text1.Text
var2 = Text2.Text
hasil = var1 & var2
Label3.Caption = hasil
End Sub
 Fungsi (>)
var1 = Text1.Text
var2 = Text2.Text
hasil = (var1 > var2)
Label3.Caption = Format(hasil, "True/False")
End Sub
“Tambahkan coding fungsi Operator perbandingan lainnya”

10

Latihan 6

Listing Program pada tombol OptionButton sebagai berikut :
If Option1.Value = True Then
Label3.Caption = "Desain Grafis"
End If
End Sub

Label3.Caption = "Microsoft Access 2000"
End If
End Sub

11

Label3.Caption = "Microsoft Visual Basic 6.0"
End If
End Sub

Listing Program pada tombol CheckBox sebagai berikut :
If Check1.Value = 1 Then
Image1.Visible = True
Else
Image1.Visible = False
End If
End Sub

If Check2.Value = 1 Then
Image2.Visible = True
Else
Image2.Visible = False
End If
End Sub

12

Latihan 7

Buat program dengan ketentuan sebagai berikut :
Nilai Akhir

Index

<40
D
40-59
C
60-79
B
80-100
A
Cari Rata – Rata Nilai nya juga yaa!!

Keterangan
Tidak Lulus
Lulus
Lulus
Istimewa

Buat kode program
untuk keterangannya..

Listing program pada tombol proses :
Dim tugas, uts, uas, na, rata As Integer
Dim index As String
tugas = Val(Text1.Text)
uts = Val(Text2.Text)
uas = Val(Text3.Text)
na = tugas * 20 / 100 + uts * 30 / 100 + uas * 50 / 100
rata = (tugas + uts + uas) / 3

13

Text4.Text = na
Text5.Text = rata
If na < 40 Then
index = "D"
End If
If na >= 40 Then
index = "C"
End If
If na >= 60 Then
index = "B"
End If
If na >= 80 Then
index = "A"
End If
Text6.Text = index
End Sub

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

14

Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End Sub

Latihan 8

Buat program sederhana dengan Mencari nilai bilangan TERKECIL
dan untuk desain formnya lihat dibawah ini. .”selamat Mencoba”

15

Listing program tombol Proses :
Dim nilai1, nilai2, nilai3, nilai4 As Integer
nilai1 = Val(Text1.Text)
If nilai1 < nilai2 And nilai1 < nilai3 And nilai1 <
nilai4 Then
Text5.Text = nilai1
...
...

Teruskan buat codingnya..

...
end sub

Project 1 : Aplikasi Menghitung Harga Barang

Sekarang, kita akan membuat program harga barang dengan diskon

Menghitung harga barang

Nama Barang

pensil 2B

Harga Satuan

2000

Banyaknya Barang

20

Diskon

10%

16

Latihan 9

Tampilan programnya seperti ini :

Kita dapat menambahkan procedure sendiri gunanya untuk mempersingkat listing
program. Caranya Ketikkan :
sub bersih()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
End
Kemudian pada saat pengisian listing program pada tombol New cukup ketikkan..

17

bersih
Text1.SetFocus
End Sub

Listing program jika
ada diskon yaa..

Text5 = 0.1 * Val(Text4.Text)
End Sub
Listing program jika
tidak ada diskon!

Text5.Text = Val(Text4.Text)
End Sub

Private Sub Text5_Change()

Nah ini jangan lupa event nya...
Isikan di textbox jumlah yaa...

If Option1.Value Then
Text5.Text = 0.1 * Val(Text4.Text)
Else
Text5.Text = 0
End If
Text6.Text = Val(Text4.Text) - Val(Text5.Text)
End Sub

18

Latihan 10
Buatkan program menghitung harga barang dengan ketentuan sebagai
berikut :

COMPUTER MALL
Nama Barang
MONITOR

500000

CPU

1000000

LAPTOP

6000000
Nama Aksesoris

Speaker

500000

Mouse

450000

Printer

800000

Cari diskonnya juga................

Nah, untuk desainnya seperti ini yaa,,

Untuk nama barang
pake combobox yaa,,
Nah klo u/ nama
aksesoris pake
checkbox..

19

Listing program untuk Proses
nama = Combo1.Text

Nama merupakan Deklarasi dari
combobox dan jumlah deklarasi
dari textbox

jumlah = Val(Text1.Text)
If nama = "Monitor" Then
harga = 500000
End If
.
.

Teruskan kode programnya

.
Text2.Text = harga
subtotal1 = jumlah * harga
Text3.Text = subtotal1
diskon1 = Int(jumlah / 4) * harga

speaker = Check1.Value
jumlah = Val(Text4.Text)
If speaker = 1 Then
harga = 500000
End If
Text5.Text = harga
Text4.Text = jumlah
subtotal2 = jumlah * harga
Text6.Text = subtotal2
diskon2 = Int(jumlah / 4) * harga
.
.

20

total = subtotal1 + subtotal2 + subtotal3 + subtotal4
Text13.Text = total
diskon = diskon1 + diskon2 + diskon3 + diskon4
Text14.Text = diskon
bayar = total - diskon
Text15.Text = bayar

21

Latihan 11

Kode Program :
 Button Close
Tanya = MsgBox("are you sure?", vbQuestion +
vbOKCancel, "exit")
If Tanya = vbOK Then
End
End If
End Sub
 Button Next
Datalengkapsiswa.Show
Formsiswa.Hide
End Sub
22

Kode Program :
 Form Load
Combo1.AddItem ("SMP")
Combo1.AddItem ("SMA")
Combo1.AddItem ("Diploma")
Combo1.AddItem ("Sarjana")
Combo1.AddItem ("Magister")
End Sub

 Button Save
MsgBox "Hello..." & Text1.Text & " Apa kabar?",
vbInformation, "Hello friend!"
End Sub

23

 Button Exit
MsgBox "Hello..." & Text1.Text & " Apa kabar?",
vbInformation, "Hello friend!"
End Sub

Button Back
Formsiswa.Show
Datalengkapsiswa.Hide
End Sub

24

Latihan 12

Kode Program :
If Text1.Text = "" Then
MsgBox "Anda Lupa Mengisi Nama!!!"
Text1.SetFocus
ElseIf Option1.Value = True Then
MsgBox "Nama anda " & Text1.Text & " Anda seorang
pria"
Else
MsgBox "nama anda " & Text1.Text & " Anda seorang
wanita"
End If
End Sub

25

Latihan 13

Kode Program :
 Timer
Private Sub Timer1_Timer()
Label2.Caption = "transaksi per tgl " & Date & " - " &
Time & Chr(13) & " User:Yeni"

End Sub
 Form Load
Text1.Text = "RD0001"
Text3.Text = Date
Combo1.AddItem ("pepsodent")
Combo1.AddItem ("Shampo")
Combo1.AddItem ("Pulpen")
Text4.Text = Str(0)
Text5.Text = Str(0)

26

Text6.Text = Str(0)
Text7.Text = Str(0)
Text8.Text = Str(0)
Text9.Text = Str(0)
Text4.Enabled = False
Text9.Enabled = False
End Sub

 Combobox1 (Barang)
Private Sub Combo1_Click()
If Combo1.Text = "pepsodent" Then
Text4.Text = 5000
ElseIf Combo1.Text = "Shampo" Then
Text4.Text = 700
Else
Text4.Text = 1500
End If
End Sub
 Textbox 7 (Jumlah)
Text5.Text = Val(Text4.Text) * (Val(Text7.Text))
If Text5.Text > 100000 Then
Text8.Text = (20 / 100) * Val(Text5.Text)
Else
Text8.Text = 0
End If
End Sub
 Textbox 6 ( Pembayaran)
Text9.Text = Val(Text6.Text) - (Val(Text5.Text)Val(Text8.Text))
End Sub

27

Kode Program :
 Form Load
Private Sub Form_Click()
Unload Me
FrmMenu.Show
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
FrmMenu.Show
End Sub

28

Project 2: Aplikasi Database dengan Kontrol Data & DBGrid
Database merupakan sekumpulan data/informasi seperti kode, nama, alamat,
nomor telepon, atau nota pembelian yang memiliki nota pembeli yang memiliki
skala ukuran data dalam jumlah yang besar.
Membuat Database dengan Visual Data Manager
Visual data manager merupakan program tambahan dari visual basic 6.0
yang digunakan untuk membuat dan mengolah database. Dalam aplikasinya, satu
file database dapat menampung beberapa tabel sekaligus.
Langkah untuk membuat file database dengan Visual Data Manager adalah:
1. Jalankan program VB 6.0
2. Klik menu Add-Ins ► Visual Data Manager sehingga tampil jendela
VisData seperti pada gambar berikut :

3. Pada jendela VisData, klik menu file ► New ►Microsoft Access, pilih
Version 7.0 MDB. Selanjutnya, tampil kotak dialog Select Microsoft to
Create seperti gambar berikut :

29

4. Pada bagian Save in tentukan lokasi di mana file database tersebut akan anda
simpan. Misalnya, pilih direktori D:
5. Pada bagian File name, ketik nama file databasenya.misalnya siswa, kemudian
klik tombol Save untuk menyimpan. Selanjutnya, tampilan VisData akan
berubah seperti pada gambar berikut ini:

6. Arahkan pointer mouse pada Properties, klik kanan lalu klik New Table.
7. Pada kolom Table Name, ketik siswa. Kemudian klik tombol Add Field.
8. Pada kolom Name : ketik nik, type:Text, Size: ketik 5, lalu klik OK
kemudian klik field-field lainnya, sebagai berikut:

30

Nik
220011
220012
220013
220014

Nama
Lida
Dani
Randi
Aris Nur

Alamat
Jl.Sudirman
Jl. Burangrang
Jl.Riau 9
Jl.Dago 23

Kelamin
Perempuan
Laki-Laki
Laki-Laki
Laki-Laki

Jurusan
Manajemen
Akuntansi
Ekonomi
Akuntansi

9. Selanjutnya klik tombol Add-Index, pada kolom Available Fields : klik Nik,
lalu pada kolom Name ketik Nik. Hilangkan tanda checklist √ pada kolom
checkbox Unique, lalu klik OK setelah itu klik tombol Close.

Koneksi Kontrol Data dengan Database
Kontrol Data
merupakan sebuah control
menghubungkan aplikasi program dengan database.

yang

digunakan

untuk

DBgrid
merupakan kontrol yang digunakan untuk menampilkan data record
dari koneksi kontrol data.
Nah, setelah kita belajar memasukkan data lewat database langkah
selanjutnya yaitu mengkoneksikan data dari database ke dalam form
ikutin caranya di bawah ini yaa……..

TextBox

DB Grid

Kontrol Data

31

Nah, cara mengkoneksikannya lihat properties di bawah ini:
☺Klik

pada

Kontrol

Data

dan

Isikan

DatabaseName nya pada properties. Perlu
di ingat ya…pengisian databasename ini
harus

disesuaikan

pada

path

(penyimpanannya).
☺ Klik RecordSource isikan DataSiswa.
☺ Klik

pada

DBGrid

dan

isikan

Data

Sourcenya.
☺ Kemudian pada Textbox isikan data source
dengan data1 dan data fieldnya sesuai
dengan data siswa.

Sekarang kita akan menambahkan sedikit modifikasi desain formnya :

32

Listing program pada tombol tambah
Data1.Recordset.AddNew
End Sub

Listing program pada tombol simpan
Data1.Recordset.Update
End Sub

listing program hapus
Data1.Recordset.Delete
MsgBox " yakin data akan di hapus,,??", vbInformation +
vbYesNo, "hapus data"
Data1.refresh
End Sub

Listing program Cari
Data1.Recordset.FindFirst "Nik='" + Text6.Text + "'"
If Data1.Recordset.NoMatch Then
MsgBox "Kode tidak ditemukan", vbQuestion, "Cari
Kode"
Text6.SetFocus
Data1.Recordset.MoveFirst
End If

33

End Sub

Listing program Filter
Data1.Recordset.FindFirst "jurusan='" + Text7.Text + "
' "
If Data1.Recordset.NoMatch Then
MsgBox "Jurusan Belum Terdaftar"
Else
Data1.RecordSource = "select * from DataSiswa in
'D:siswa.mdb' where jurusan=' " & Text7.Text & " ' "
End If
End Sub

Listing program untuk Unfilter
Data1.RecordSource = "select* from DataSiswa"
Data1.Refresh
End Sub

34

- Buat sebuah aplikasi baru :
- File -> New Project -> Standard Exe
- Pada Form, masukkan 1 Combo Box, 1 Text Box, dan 1 Label

- Double click pada badan form untuk memasukkan code
- Tulis code berikut ini:
Combo1.Clear
For i = 1 To 12
Combo1.AddItem i
Next i
Combo1.ListIndex = 0
End Sub
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Label1.Caption = "January"
Text1.Text = "Bulan ke : " & Combo1.ListIndex + 1
Case 1
Label1.Caption = "February"
Case 2
Label1.Caption = "Maret"
Case 3
Label1.Caption = "April"
Case 4
Label1.Caption = "Mei"
Case 5
Label1.Caption = "Juni"

35

Case 6
Label1.Caption = "July"
Case 7
Label1.Caption = "Agustus"
Case 8
Label1.Caption = "September"
Case 9
Label1.Caption = "Oktober"
Case 10
Label1.Caption = "November"
Case 11
Label1.Caption = "Desember"
End Select
End Sub

36

Modul visual basic

More Related Content

What's hot (20)

Similar to Modul visual basic (20)

More from Yang Terluka (20)

Modul visual basic