modul belajar visual basic

Modul Pemrograman Visual Basic 6.0

Style yang dapat dipilih pada jendela Properties Pages tersebut adalah:

0 – sbrText: Menampilkan Teks
1 – sbrCaps: Menampilkan status penekanan tombol Caps Lock.
2 – sbrNum: Menampilkan status penekanan tombol Num Lock.
3 – sbrIns: Menampilkan status penekanan tombol Insert.
4 – sbrScrl: Menampilkan status penekanan tombol Scroll Lock.
5 – sbrTime: Menampilkan waktu saat ini.
6 – sbrDate: Manampilkan tanggal saat ini.

Berikut ini tampilan status bar yang dapat dikerjakan dengan langkah-langkah di atas:

Langkah yang selanjutnya Anda dapat memberikan metoda untuk setiap menu, pop up
menu, toolbar, dan status bar di atas yaitu sebagai berikut:

Private Sub MDIForm_Load()
StatusBar1.Panels(2).Text = Format(Date, "dddd")
StatusBar1.Panels(3).Text = Format(Date, "dd mmmm yyyy")
StatusBar1.Panels(4).Text = Format(Now, "hh:mm:ss")

End Sub
Private Sub MDIForm_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then PopupMenu mnuToolbar
End Sub
Private Sub MDIForm_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

StatusBar1.Panels(7).Text = "Klik Kanan untuk membuka Pop Up Menu"
End Sub
Private Sub MDIForm_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
Private Sub mnuCase_Click()
frmAlurCase.Show
End Sub

Dedy Arisandi, ST, M.Kom Halaman 51

Modul Pemrograman Visual Basic 6.0

Private Sub mnuIf_Click()
frmIf.Show

End Sub
Private Sub mnuIfElse_Click()

frmIfEls.Show
End Sub
Private Sub mnuOperasi_Click()

frmOperator.Show
End Sub
Private Sub mnuPengulangan_Click()

frmalurFor.Show
End Sub
Private Sub mnuPercobaan_Click()

frmAplikasi.Show
End Sub
Private Sub mnuPropertiForm_Click()

frmPropertiForm.Show
End Sub
Private Sub mnuTampiltoolbar_Click()

mnuTampilToolbar.Checked = Not mnuTampilToolbar.Checked
Toolbar1.Visible = mnuTampilToolbar.Checked
End Sub
Private Sub mnuTampilStatusbar_Click()
mnuTampilStatusbar.Checked = Not mnuTampilStatusbar.Checked
StatusBar1.Visible = mnuTampilStatusbar.Checked
End Sub
Private Sub StatusBar1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
StatusBar1.Panels(7).Text = "Status Aplikasi Anda"
End Sub
Private Sub Timer1_Timer()
StatusBar1.Panels(4).Text = Format(Now, "hh:mm:ss")
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index

Case 1
mnuPercobaan_Click

Case 2
mnuOperasi_Click

Case 3
mnuIf_Click

Case 4
mnuIfElse_Click

Case 5
mnuCase_Click

Case 6
mnuPengulangan_Click

Case 7
mnuPropertiForm_Click

Case 9
Unload Me

End Select
End Sub
Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

StatusBar1.Panels(7).Text = "Klik Salah Satu Icon pada Toolbar"
End Sub
‘ Teruskan sampai sempurna……….

Dedy Arisandi, ST, M.Kom Halaman 52

Modul Pemrograman Visual Basic 6.0

12. PENGELOLAAN DATABASE
Database adalah kumpulan file-file yang mempunyai kaitan antara satu file dengan file yang
lain sehingga membentuk satu bangunanan data untuk menginformasikan satu aktivitas
tertentu. File-file tersebut disimpan ke dalam satu media penyimpanan fisik yang dapat
ditambah, diubah, dihapus, diseleksi, disortir, ditampilan, dan sebagainya. Dalam Visual basic
ada dua kontrol standar yang dapat Anda gunakan untuk pengelolaan database yaitu kontrol
data DAO dan kontrol data ADO.

A. Kontrol Data DAO

Dengan kontrol Data Acces Object (DAO) Anda dapat menampilkan field-field didalam

database. Field adalah atribut-atribut yang dimiliki oleh sebuah entiti. Entiti adalah objek

dunia nyata, seperti manusia, hewan, benda, dan sebagainya. Kontrol data dapat memilih

beberapa format database seperti Microsoft Access (mdb), dBase(dbf), FoxPro(dbf),

Excel(xls), Lotus(wk*), Paradox( db), bahkan database yang berbasis teks (*.txt).

Berikut ini properti yang dapat Anda gunakan pada kontrol data:

PROPERTI KETERANGAN

Caption Teks judul yang akan ditampilkan ditengah-tengah kontrol data.

Connect Memilih salah satu jenis database yang ada.

DatabaseName Menghubungkan kontrol data dengan file database.

RecordSource Memilih salah satu tabel dari database yang dipilih.

Langkah-langkah membuat program database dengan kontrol Data :

Buatlah terlebih dahulu tabel yang akan dijadikan tempat penyimpanan data dengan cara

mengklik menu Add-Ins> Visual Data Manager..

Klik menu File> New> Microsoft Access> Version 7.0 MDB… ketikkan nama file
database misal Latihan.mdb, klik tombol Save, selanjutnya tampil jendela berikut:

Klik kanan pada properties, pilih New Table. Halaman 53
Dedy Arisandi, ST, M.Kom

Modul Pemrograman Visual Basic 6.0

Katikkan pada jendela Add Field di atas data sebagai berikut:

Nama Field Type Size Keterangan

KodeMK Text 7 Index = Kode(KodeMK)

NamaMK Text 30

JlhSKS Single -

Semester Text 1

Akhiri pembuatan tabel diatas dengan mengklik tombol Build The Table. Kemudian tutup

jendela Visual Data Manager.

Rancanglah form berikut ini pada aplikasi Anda:

Component:

Micorosft Data Bound Grid Control 5.0 (SP3)

Pengaturan properti:

Objek / Kontrol Properties Value

Form1 Name FrmData
Form Uji Kontrol Data
Caption Mata Kuliah
Access
Data1 Caption (Browse file Latihan.mdb yang baru dibuat)
2 – Add New
Connect MataKuliah

DatabaseName Halaman 54

EofAction

RecordSource

Dedy Arisandi, ST, M.Kom

Modul Pemrograman Visual Basic 6.0

Label1 Caption Kode Mata Kuliah
Label2 Caption Nama Mata Kuliah
Label3 Caption Jumlah SKS
Label4 Caption Semester
Text1 Name txtKodeMK
Text (Kosongkan)
Text2 DataSource Data1
DataField KodeMK
Text3 MaxLength 7
Name txtNamaMK
Text4 Text (Kosongkan)
DataSource Data1
Command1 DataField NamaMK
MaxLength 30
Name txtJlhSKS
Text (Kosongkan)
DataSource Data1
DataField JlhSks
MaxLength 3
Name txtSemester
Text (Kosongkan)
DataSource Data1
DataField Semester
MaxLength 1
Name cmdNew
Caption &Data Baru
Style 1-Graphical
Icon C:\Program Files\Microsoft Visual Studio\Common\
Graphics\Icons\Computer\Key04.ico
Command2 Name cmdSimpan
Caption &Simpan
Style 1-Graphical
Icon C:\Program Files\Microsoft Visual Studio\Common\
Graphics\Icons\Computer\Disk06.ico
Command3 Name cmdHapus
Caption &Hapus
Style 1-Graphical
Icon C:\Program Files\Microsoft Visual Studio\Common\
Graphics\Icons\Computer\Trash02a.ico
Command4 Name cmdCetak
Caption &Cetak
Style 1-Graphical
Icon C:\Program Files\Microsoft Visual Studio\Common\
Graphics\Bitmaps\TlBr_W95\Print.bmp
Command5 Name cmdExit
Caption &Exit
Style 1-Graphical
Icon C:\Program Files\Microsoft Visual Studio\Common\
Graphics\Icons\Computer\W95mbx01.ico
DBGrid DataSource Data1

Dedy Arisandi, ST, M.Kom Halaman 55

Modul Pemrograman Visual Basic 6.0

Kode Program :

Option Explicit

Private Sub cmdExit_Click()
Unload Me

End Sub

Private Sub cmdHapus_Click()
Dim Konfir As Integer
Konfir = MsgBox("Yakin Mata Kuliah " & txtNamaMK.Text & " Ingin

Dihapus", vbQuestion + vbYesNo, "Penghapusan Data")
If Konfir = vbYes Then
Data1.Recordset.Delete
cmdNew_Click
Data1.Recordset.MoveFirst
Else
txtKodeMK.SetFocus
End If

End Sub

Private Sub cmdNew_Click()
On Error GoTo SALAH
Data1.Recordset.AddNew
txtKodeMK.SetFocus
Exit Sub

SALAH:
MsgBox "Terjadi Kesalahan Input", vbExclamation, "Penyimpanan"
Data1.Recordset.MoveFirst
cmdNew.SetFocus

End Sub

Private Sub cmdSimpan_Click()
cmdNew_Click

End Sub

Private Sub cmdCetak_Click()
DataReport1.Show

End Sub

Private Sub txtJlhSKS_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
txtSemester.SetFocus
End If

End Sub

Private Sub txtJlhSKS_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 txtKodeMK_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
txtNamaMK.SetFocus
End If

Dedy Arisandi, ST, M.Kom Halaman 56

Modul Pemrograman Visual Basic 6.0

End Sub

Private Sub txtKodeMK_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))

End Sub

Private Sub txtNamaMK_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
txtJlhSKS.SetFocus
End If

End Sub

Private Sub txtSemester_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
cmdSimpan.SetFocus
End If

End Sub

Private Sub txtSemester_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii =

vbKeyBack) Then
Beep
KeyAscii = 0

End If
End Sub

Membuat Laporan Dengan DataEnvironment dan DataReport

Klik menu Project, More ActiveX Designers, Data Environment :

Klik kanan pada icon Connection1, pilih Properties :

Dedy Arisandi, ST, M.Kom Halaman 57

Modul Pemrograman Visual Basic 6.0
Pilih Microsoft Jet 3.51 OLE DB Provider, lalu klik tombol Next :

Klik Tombol ini untuk mencari
database yang akan dipakai.

Klik Tombol ini untuk mengetes
koneksi ke database sampai
muncul pesan di bawah ini.

Akhiri dengan menekan tombol OK.
Klik kanan kembali pada icon Connection1, pilih Add Command :

Klik kanan pada icon Command1, pilih Properties :

Pilih Database objek dengan
Table dan Objek Name Dengan
Mata Kuliah

Akhiri dengan mengklik tombol OK. Halaman 58
Dedy Arisandi, ST, M.Kom

Modul Pemrograman Visual Basic 6.0
Klik menu Project, Add Data Report :

Lakukan proses drag (klik, tahan, dan tarik) mouse pada field KodeMk ke dalam section

Detail pada DataReport1 di atas. Lakukan cara yang sama untuk memasukkan semua field

yang akan ditampilkan pada DataReport.

Aturlah properti untuk DataReport1 berikut:

- DataSource = DataEnvironment1

- DataMember = Command1

- WindowState = 2-vbMaximized

Jalankanlah program dengan menekan tombol F5, maka akan tampil form Uji Kontrol Data

berikut:

Dedy Arisandi, ST, M.Kom Halaman 59

Modul Pemrograman Visual Basic 6.0

B. Kontrol Data ADO

ActiveX Data Object (ADO) adalah suatu model objek termasuk koneksii data, manipulasi

data, dan objek recordset yang digunakan untuk akses data. Kontrol ini dapat diinstal pada

componen dengan nama Microsoft ADO Data Control 6.0 (Adodc).

Langkah-langkah pembuatan:

Buka Microsoft Access, Create Database dengan nama Gaji.mdb, buatlah tabel dengan

struktur berikut ini:

No Nama Field Jenis Field Ukuran Keterangan

1 KD_Jabatan Text 3 Primary Key

2 NM_Jabatan Text 25

3 TJ_Jabatan Number LongInteger

Simpan tabel di atas dengan nama Jabatan. Kemudian tutup Microsoft Access.
Buka Microsoft Visual Basic dengan menekan tombol Start, Program, Microsoft Visual
Studio, Microsoft Visual Basic 6.0. jendela New Project akan ditampilkan sbb:

Pilih VB Enterprise Edition Controls lalu kelik tombol Open, maka jendela kerja Visual
Basic akan ditampilkan. Kemudian rancangalah form seperti contoh di bawah ini:

Ubah Properti Name pada Form di atas: Halaman 60
frmJabatan
Ubah Properti Name pada Textbox di atas:
TxtKodeJab, txtNamaJab, txtTunjangan
Ubah Properti Name pada Command Button di atas:
CmdSimpan, cmdEdit, cmdHapus, cmdBatal, cmdSelesai

Dedy Arisandi, ST, M.Kom

Modul Pemrograman Visual Basic 6.0
Setelah form selesai dirancang jalankan form tersebut dan tutup kembali. Setelah ditutup
hapus kontrol Adodc1 pada form.
Klik kanan pada ListView1, lalu pilih Properties, setting properties pada listview anda
seperti berikut ini:

Setelah setting Listview anda sama dengan setting di atas, lalu klik tombol Apply.
Kemudian klik Tab Column Headers, tampilan berikut akan muncul:

Klik tombol Insert Column, lalu ketik pada Text = NO. kemudian ubah Width jika perlu.

Lalu klik tombol Insert kembali ketik pada Text = Kode Jabatan, lakukan cara yang sama

sehingga memenuhi tabel berikut:

Index Text Width

1 NO. 700.15

2 Kode Jabatan 1500

3 Nama Jabatan 3000

4 Tunjangan 2000

Akhiri dengan penekanan tombol OK.

Dedy Arisandi, ST, M.Kom Halaman 61

Modul Pemrograman Visual Basic 6.0

Sebelumnya simpan file project, form, modul, database(Access) pada satu folder.
Kemudian klik menu Project, Add Module, Open. Lalu ketik program berikut ini:

Option Explicit

Global DataAnsi As ADODB.Connection

Public Sub BukaData()
Dim konfir As Integer
Set DataAnsi = New ADODB.Connection
DataAnsi.CursorLocation = adUseClient
DataAnsi.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\Gaji.MDB"

End Sub

Public Sub TutupData()
DataAnsi.Close
Set DataAnsi = Nothing

End Sub

Public Sub FormatAngka(KotakTeks As TextBox)
On Error Resume Next
With KotakTeks
Select Case Len(.Text)
Case Is > 3
.Text = Format(.Text, "###,##0")
.SelStart = Len(.Text)
Case Is > 6
.Text = Format(.Text, "###,###,##0")
.SelStart = Len(.Text)
Case Is > 9
.Text = Format(.Text, "###,###,###,##0")
.SelStart = Len(.Text)
Case Is > 12
.Text = Format(.Text, "###,###,###,###,##0")
.SelStart = Len(.Text)
End Select
End With

End Sub

Tekan Ctr + S untuk menyimpan project anda.
Klik 2 kali form jabatan, klik menu View, Code, lalu ketik program berikut ini:

Option Explicit

Dim Coba As Boolean

Private Sub Inisial()
Coba = False
txtNamaJab.Text = ""
txtTunjangan.Text = ""
txtNamaJab.Enabled = False
txtTunjangan.Enabled = False
cmdSimpan.Enabled = False
cmdEdit.Enabled = False
cmdHapus.Enabled = False
cmdBatal.Enabled = False
txtKodeJab.Text = ""
txtKodeJab.Enabled = True
txtKodeJab.SetFocus
TampilLV1

End Sub

Private Sub txtTunjangan_Change()
FormatAngka txtTunjangan

End Sub

Private Sub cmdBatal_Click()
Inisial

End Sub

Dedy Arisandi, ST, M.Kom Halaman 62

Modul Pemrograman Visual Basic 6.0

Private Sub TampilLV1()
Dim TJabatan As ADODB.Recordset
Dim Kata As String
Dim i As Byte
Dim vButir As ListItem
Me.MousePointer = 11
Kata = "SELECT * FROM Jabatan ORDER BY KD_Jabatan"
Set TJabatan = New ADODB.Recordset
TJabatan.Open Kata, DataAnsi, adOpenStatic
LV1.ListItems.Clear
If Not TJabatan.EOF Then
TJabatan.MoveFirst
i=1
While Not TJabatan.EOF
Set vButir = LV1.ListItems.Add(, , i & ".")
vButir.SubItems(1) = TJabatan![KD_Jabatan]
vButir.SubItems(2) = TJabatan![NM_Jabatan]
vButir.SubItems(3) = TJabatan![TJ_Jabatan]
TJabatan.MoveNext
i=i+1
Wend
End If
TJabatan.Close
Set TJabatan = Nothing
Me.MousePointer = 1

End Sub

Private Sub CmdEdit_Click()
Coba = True
cmdEdit.Enabled = False
cmdHapus.Enabled = False
txtNamaJab.Enabled = True
txtTunjangan.Enabled = True
cmdSimpan.Enabled = True
txtKodeJab.Enabled = False
txtNamaJab.SetFocus

End Sub

Private Sub cmdHapus_Click()
Dim Kata As String
Dim Tanya As Integer
Tanya = MsgBox("Yakin Data Jabatan " & txtNamaJab.Text & " Ingin Dihapus ?", vbQuestion +

vbYesNo, "Penghapusan Data")
If Tanya = vbYes Then
Me.MousePointer = 11
Kata = "DELETE FROM Jabatan WHERE KD_Jabatan='" & Trim(txtKodeJab.Text) & "'"
DataAnsi.Execute Kata
Me.MousePointer = 1
Inisial
Else
cmdSelesai.SetFocus
End If
LV1.Refresh

End Sub

Private Sub cmdSelesai_Click()
Unload Me

End Sub

Private Sub cmdSimpan_Click()
If Not Coba Then
TambahData
Else
EditData
End If
LV1.Refresh

End Sub

Private Sub Form_Activate()
Inisial

End Sub

Private Sub TambahData()
Dim Kata As String

Dedy Arisandi, ST, M.Kom Halaman 63

Modul Pemrograman Visual Basic 6.0

Me.MousePointer = 11
Kata = "INSERT INTO Jabatan VALUES ('" & Trim(txtKodeJab.Text) & "', '" &
Trim(txtNamaJab.Text) & "', " & _
IIf(txtTunjangan.Text = "", "0", Format(txtTunjangan.Text, "##############0")) & ")"
DataAnsi.Execute Kata
Me.MousePointer = 1
Inisial
LV1.Refresh
End Sub

Private Sub EditData()
Dim Kata As String
Me.MousePointer = 11
Kata = "UPDATE Jabatan SET NM_Jabatan='" & Trim(txtNamaJab.Text) & "', TJ_Jabatan = " &

IIf(txtTunjangan.Text = "", "0", Format(txtTunjangan.Text, "##############0")) & ")WHERE
KD_Jabatan='" & Trim(txtKodeJab.Text) & "'"

DataAnsi.Execute Kata
Me.MousePointer = 1
Inisial
LV1.Refresh
End Sub

Private Sub Form_Load()
BukaData

End Sub

Private Sub Form_Unload(Cancel As Integer)
TutupData

End Sub

Private Sub LV1_ItemClick(ByVal Item As MSComctlLib.ListItem)
txtKodeJab.Text = LV1.SelectedItem.SubItems(1)
txtNamaJab.Text = LV1.SelectedItem.SubItems(2)
txtTunjangan.Text = LV1.SelectedItem.SubItems(3)
cmdEdit.Enabled = True
cmdHapus.Enabled = True
cmdBatal.Enabled = True

End Sub

Private Sub txtTunjangan_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then cmdSimpan.SetFocus

End Sub

Private Sub txtKodeJab_KeyDown(KeyCode As Integer, Shift As Integer)
Dim TJabatan As ADODB.Recordset
Dim Kata As String
If KeyCode = vbKeyReturn Then
If txtKodeJab.Text = "" Then
MsgBox "Kode Data Jabatan Tidak Boleh Kosong", vbExclamation, "Pengisian Data"
txtKodeJab.SetFocus
Exit Sub
End If
Me.MousePointer = 11
Kata = "SELECT * FROM Jabatan WHERE KD_Jabatan='" & Trim(txtKodeJab.Text) & "'"
Set TJabatan = New ADODB.Recordset
TJabatan.Open Kata, DataAnsi, adOpenStatic, adLockReadOnly
If TJabatan.EOF Then
TJabatan.Close
Set TJabatan = Nothing
Me.MousePointer = 1
txtNamaJab.Text = ""
txtTunjangan.Text = ""
txtNamaJab.Enabled = True
txtTunjangan.Enabled = True
cmdSimpan.Enabled = True
cmdEdit.Enabled = False
cmdHapus.Enabled = False
cmdBatal.Enabled = True
txtNamaJab.SetFocus
Exit Sub
End If
TJabatan.MoveFirst

Dedy Arisandi, ST, M.Kom Halaman 64

Modul Pemrograman Visual Basic 6.0

With TJabatan
txtNamaJab.Text = ![NM_Jabatan]
txtTunjangan.Text = ![TJ_Jabatan]

End With
TJabatan.Close
Set TJabatan = Nothing
Me.MousePointer = 1
cmdSimpan.Enabled = False
cmdEdit.Enabled = True
cmdHapus.Enabled = True
cmdBatal.Enabled = True
cmdEdit.SetFocus
End If
End Sub

Private Sub txtNamaJab_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then txtTunjangan.SetFocus

End Sub

Simpan kembali Project anda, kemudian jalankan dengan menekan tombol keyboard F5,
maka akan muncul form input sebagai berikut:

Dedy Arisandi, ST, M.Kom Halaman 65