Contoh 1: Program Kasir Restoran
Tampilan form-form di dalam program:
Inilah listing program berdasarkan komponen yang digunakan:
Combobox1:
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As [Link], ByVal e As S
[Link]) Handles [Link]
Select Case [Link]
Case “Nasi Uduk”
[Link] = “Rp. 3500”
hrgmakanan = 3500
Case “Bakso”
[Link] = “Rp. 6000”
hrgmakanan = 6000
Case “Mie Ayam”
[Link] = “Rp. 7000”
hrgmakanan = 7000
End Select
End Sub
variabel di Form1:
Public Class Form1
Public hrgmakanan, hrgminuman As Integer
Combobox2:
Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
Select Case [Link]
Case “Es Jeruk”
[Link] = “Rp. 3000”
hrgminuman = 3000
Case “Jus Alpukat”
[Link] = “Rp. 7000”
hrgminuman = 7000
Case “Teh Manis”
[Link] = “Rp. 4000”
hrgminuman = 4000
End Select
End Sub
Sub-routine Public:
Public Sub New()
‘ This call is required by the designer. InitializeComponent()
[Link] = False
[Link] = False
‘ Add any initialization after the InitializeComponent() call.
End Sub
Checkbox1:
Private Sub CheckBox1_CheckedChanged(ByVal sender As [Link], ByVal e As
[Link]) Handles [Link]
If [Link] = False Then
[Link] = False
End If
If [Link] = True Then
[Link] = True
[Link] = True
End If
End Sub
Button1:
Private Sub Button1_Click(ByVal sender As [Link], ByVal e As [Link])
Handles [Link]
Dim porsimkn, porsimnm, jumlah As Integer
porsimkn = [Link]
porsimnm = [Link]
jumlah = (hrgmakanan * porsimkn) + (hrgminuman * porsimnm)
[Link] = “Rp. ” & [Link]
End Sub
Contoh 2: Program VB Sederhana
Tampilan form
Listing program pada komponen “commandbutton”:
If [Link] = “” Then
MsgBox (“Isi dulu Nama anda”)
Else
MsgBox (“Nama Saya” + [Link] + “Dan saya sedang belajar Visual Basic 6.0”)
End If
Contoh 3: Program Edit Database
Tampilan pada form:
Berikut ini listing program berdasarkan komponen-komponen di dalamnya:
Command Button “Simpan”:
Private Sub Command1_Click()
‘Addnew = untuk membuat atau menambah data baru
[Link]
‘perintah untuk menyimpan data yang di inputkan pada textbox ke dalam field database
[Link]!nrp = [Link]
[Link]!nama = [Link]
[Link]!jurusan = [Link]
‘update = perintah untuk mengupdate data yang telah ditambahkan
[Link]
‘perintah untuk merefresh grid ketika data sudah ditambahkan
[Link]
‘perintah untuk mengkosongkan textbox setelah data disimpan
[Link] = “”
[Link] = “”
[Link] = “”
End Sub
Command Button “Edit”
Private Sub Command2_Click()
‘Edit = untuk mengedit data yang sudah ada
[Link]
‘perintah untuk menyimpan data yang di sudah di edit
[Link]!nrp = [Link]
[Link]!nama = [Link]
[Link]!jurusan = [Link]
[Link]
[Link]
[Link] = “”
[Link] = “”
[Link] = “”
End Sub
Command Button “Hapus”
Private Sub Command3_Click()
[Link]
[Link]
[Link] = “”
[Link] = “”
[Link] = “”
End Sub
DBGrid1:
Private Sub DBGrid1_Click()
‘kode perintah untuk menampilkan data yang sudah disimpan di dalam grid ke textbox
[Link] = [Link]!nrp
[Link] = [Link]!nama
[Link] = [Link]!jurusan
End Sub
Contoh 4: Menggerakan Label di Visual Basic
Tampilan form:
Listing program:
[Link] = [Link] – 15
If ([Link] <= -([Link])) Or ([Link] >= [Link]) Then [Link] =
[Link]
Contoh 5: Form Pengguna
Tampilan Form:
Pengaturan properties pada tiap komponen:
OBJECK PROPERTIES PENGATURAN
(Name) Lbluser
Label1
Caption User ID
(Name) Lbluser
Label2
Caption Nama Lengkap
(Name) Lbluser
Label3
Caption Password
(Name) Lbluser
Label4
Caption Ketik Ulang Password
Label5 (Name) Lbluser
Caption Type User
Text1 (Name) TxtUser
Text2 (Name) TxtNama
Text3 (Name) TxtPassword
Text4 (Name) TxtUlang
Text5 (Name) TxtType
Option1 (Name) optAdm
Option2 (Name) optOperator
Listview1 (Name) Lv1
(Name) Cmdtambah
Command1
Caption Tam&bah
(Name) Cmdtambah
Command2
Caption Sim&pan
(Name) Cmdtambah
Command3
Caption Ha&pus
(Name) Cmdtambah
Command4
Caption Bat&al
Contoh komponen database “Pengguna”. Anda bisa membuatnya di Microsoft Access:
FIELD
DATA TYPE SIZE
NAME
Username Text 25
Nama Text 25
Password Text 10
Type Text 10
Oh iya, jangan lupa untuk menambahkan references “Microsoft Activex Data objeck 2.0
Library” agar database tersebut terhubung pada program Visual Basic Anda.
Berikut ini adalah listing program berdasarkan komponen-komponen pada form:
tombol “Tambah”:
[Link] = True
[Link]
[Link] = “”
[Link] = “”
[Link] = False
[Link] = True
[Link] = “Simpan”
[Link] = “Batal”
Tombol “Simpan”:
If [Link] <> [Link] Then
MsgBox “Password tidak sama, ketik ulang password “, vbInformation
Exit Sub
End If
If [Link] = “” Or [Link] = “” Or [Link] = “” Or [Link] = “” Or [Link] = “”
Then
MsgBox “DATA tidak boleh kosong!”, _
vbInformation + vbOKOnly, “Perhatian”
[Link]
Else
‘On Error Resume Next
If [Link] = “Simpan” Then
SqlInsert = “”
SqlInsert = “INSERT INTO UsrKontrol” _
& ” (UsrName,” _
& ” Nama,” _
& ” Pass,” _
& ” Tipe)” _
& ” VALUES(‘” & [Link] & “‘,'” _
& Text2 & “‘,'” _
& Text3 & “‘,'” _
& [Link] & “‘)”
MsgBox “data telah disimpan”, vbInformation, “keterangan”
[Link] SqlInsert, , adCmdText
Rs_UsrKontrol.Requery
Call FormNormal
Call Form_Load
ElseIf [Link] = “Ubah” Then
‘ eksekusiSQL “update UsrKontrol set UsrName='” & safeSQL(Text1) & “‘,Nama='” &
safeSQL(Text2) & “‘, Pass='” & safeSQL(Text3) & “‘ tipe='” & safeSQL(Text5) & “‘”
eksekusiSQL “update UsrKontrol set nama='” & safeSQL(Text2) & “‘,pass='” &
safeSQL(Text3) & “‘, tipe='” & safeSQL(Text5) & “‘ where usrname='” & safeSQL(Text1) &
“‘”
MsgBox “Update data sukses.”, vbInformation
Call FormNormal
Call Form_Load
End If
End If
Tombol “Hapus”:
Konfirmasi = MsgBox(“Anda yakin akan menghapus data ini?”, vbYesNo + vbQuestion,
“informasi”)
If Konfirmasi = vbYes Then
SqlDelete = “DELETE FROM UsrKontrol WHERE ” _
& ” Usrname='” & [Link] & “‘”
[Link] SqlDelete, , adCmdText
Rs_UsrKontrol.Requery
Call FormNormal
Call Form_Load
Else
Call FormNormal
End If
Tombol “Batal”:
If [Link] = “Keluar” Then
‘ [Link] = True
Unload Me
Else
FormNormal
End If
Program pada Form_Load:
Sub FormMati()
[Link] = False
[Link] = False
[Link] = False
[Link] = False
[Link] = False
End Sub
Contoh 6: Menampilkan Grafik di Visual Basic
Tampilan form:
Object Properties:
Listing Program berdasarkan komponen yang digunakan:
Form Load:
Private Sub Form_Load()
‘List Combo: chart types
With Combo1
.AddItem “3D Bar”
.AddItem “2D Bar”
.AddItem “3D Line”
.AddItem “2D LIne”
.AddItem “3D Area”
.AddItem “2D Area”
.AddItem “3D Step”
.AddItem “2D Step”
.AddItem “3D Combination”
.AddItem “2D Combination”
.ListIndex = 1 ‘default:2D Bar
End With
[Link] = “&Show Legends”
‘2D array –> chart values
Dim X(1 To 7, 1 To 6) As Variant
X(1, 2) = “Jakarta”
X(1, 3) = “Bandung”
X(1, 4) = “Cirebon”
X(1, 5) = “Bogor”
X(1, 6) = “Sukabumi”
X(2, 1) = “JAN”
X(2, 2) = 3
X(2, 3) = 4
X(2, 4) = 5
X(2, 5) = 6
X(2, 6) = 7
X(3, 1) = “FEB”
X(3, 2) = 4
X(3, 3) = 5
X(3, 4) = 3
X(3, 5) = 8
X(3, 6) = 12
X(4, 1) = “MAR”
X(4, 2) = 1
X(4, 3) = 3
X(4, 4) = 8
X(4, 5) = 10
X(4, 6) = 9
X(5, 1) = “APR”
X(5, 2) = 4
X(5, 3) = 6
X(5, 4) = 12
X(5, 5) = 10
X(5, 6) = 14
X(6, 1) = “MAY”
X(6, 2) = 2
X(6, 3) = 9
X(6, 4) = 7
X(6, 5) = 12
X(6, 6) = 8
X(7, 1) = “JUN”
X(7, 2) = 12
X(7, 3) = 19
X(7, 4) = 5
X(7, 5) = 19
X(7, 6) = 10
‘2D array –> chart data
[Link] = X
End Sub
Check Box:
Private Sub Check1_Click()
If [Link] = 1 Then
‘Show Legends
[Link] = True
[Link] = “&Hide Legends”
Else
‘Hide Legends
[Link] = False
[Link] = “&Show Legends”
End If
End Sub
Combo Box:
Private Sub Combo1_Click()
‘chart type –>run time.
[Link] = [Link]
End Sub