BAB I
DASAR-DASAR
VISUAL BASIC
1.1. PEMROGRAMAN
Pemrograman adalah penggabungan
intruksi/perintah dari suatu bahasa komputer. Apabila anda membuat program
berarti anda telah membuat intruksi/perintah yang dapat dimengerti oleh
komputer untuk menyelesaikan suatu permasalahan yang anda hadapi. Pemrograman
sebenarnya dikategorikan menjadi dua yaitu pemrograman konvensional dan
pemrograman visual. Pemrograman konvensional biasanya menggunakan sistem
operasi DOS (pascal, basic, c++, fortran, COBOL) sedangkan pemrograman visual
sudah menggunakan basis GUI (Graphical User Interface) atau visual. Visual
dalam hal ini berarti input dan output langsung terlihat oleh mata (visual).
Contohnya program visual basic, visual delphi, visual C++, Visual FoxPro dan
visual Object.
Pada pemrograman visual pengembangan
aplikasi dimulai dengan pembentukan user interface kemudian mengatur
properti dari objek-objek yang digunakan dalam user interface, baru
dilakukan penulisan kode program untuk menangani kejadian-kejadian (event).
1.2.
TAMPILAN VISUAL BASIC 6.0
Untuk menjalankan Visual Basic anda
dapat mengklik icon pada desktop (bila ada) atau dengan cara mengklik Start – Program – Visual Studio – Visual
Basic 6.0 lalu tampil gambar sebagai berikut:
|
Gambar
1. Tampilan Awal Visual Basic 6.0
1.3.
KOMPONEN-KOMPONEN PADA VISUAL BASIC
Untuk memunculkan komponen toolbox, form
properties, project diatas dapat anda lihat pada menu view.
ToolBox adalah kotak berisi objek yang digunakan untuk membuat aplikasi
pemrograman dan diletakkan didalam form. Misalnya untuk membuat membuat
tulisan, anda dapat mengklik icon label kemudian drag ke dalam form.
Icon ToolBox dapat diubah/dimodifikasi dengan cara mengklik kanan mouse pada
ToolBox lalu pilih Components – pilih salah satu komponen – Apply
– OK.
Form adalah tempat membuat program aplikasi. Form akan muncul secara otomatis
apabila anda baru membuka aplikasi baru dengan nama Form1. Didalam form
terdapat garis yang berupa titik-titik yang disebut dengan Grid.
Properties digunakan untuk menentukan setting suatu objek.
Objek biasanya mempunyai beberapa properties yang dapat diatur secara langsung
dari properties windows atau object bisa diatur melalui kode program.
Project adalah kumpulan modul-modul yang anda buat didalam program visual
basic. Modul-modul pada project sebenarnya adalah isi aplikasi/program yang
kita buat. Project disimpan dalam file yang berextention .VBP
Kode Program adalah kumpulan intruksi/perintah yang akan
dilaksanakan jika suatu objek dijalankan. Kode program inilah yang akan
mengendalikan semua aktivitas objek.
Event adalah peristiwa atau kejadian yang
diterima suatu objek misalnya drag, klik, keypress dan lain sebagainya.
Contoh:
Private
Sub Command1_Click()
‘event apabila command1 di klik.
<Intruksi /Perintah>
End Sub
Method adalah suatu set perintah yang sudah
tersedia di dalam suatu objek untuk mengerjakan suatu hal yang khusus pada
objek.
Contoh:
Private Sub
Form_Activate()
Form1.Print
"Selamat Belajar Visual Basic 6.0"
End Sub
Method
yang yang digunakan untuk menampilkan tulisan "Selamat Belajar Visual
Basic 6.0" pada kode program diatas adalah print.
1.4. TIPE
DATA DAN CONSTANTA
1.4.1. TIPE DATA
Tipe / jenis data yang sering
digunakan adalah Interger, Long, Single, Double, Curency, String, Byte,
Boolean, Date,Object, Variant. Range / Batasan data untuk masing-masing tipe
data tersebut adalah sebagai berikut:
TIPE
|
RANGE
|
Integer
|
- 32768
s/d 32767
|
Long
|
-
2147483648 s/d 2147483647
|
Single
|
Negatif
: - 340282E38 s/d – 14012981E45
Positif : 1401298E45 s/d 340282E38
|
Double
|
Negatif : -
79769313482321E308 s/d –4940636458412471E32
Positif : 494065645841247E324 s/d
179769313482321E308
|
Currency
|
-
922337203685477.5808 s/d 922337203685477.5808
|
String
|
0 s/d 2
milyar karakter
|
Byte
|
0 s/d
255
|
Boolean
|
True /
False
|
Date
|
s/d 31
Desember 9999
|
Object
|
Refensi
Object
|
variant
|
Null,
Error
|
1.4.2.
CONSTANTA
Constanta adalah pernyataan dari
sebuah nilai yang tetap dan tidak berubah-ubah. Constantan dideklarasikan
dengan statement Const.
Contoh:
Const Harga As 500
1.5.
VARIABEL DAN OPERATOR
1.5.1.
VARIABEL
Variabel adalah tempat yang ada
didalam memori yang diberi nama sebagai pengingat (pengenal) dan dialokasikan
untuk menampung data.
Formula:
Dim
<var> as <Tipe Data>
Keterangan:
<Var>
adalah nama variabel
<Tipe
data> adalah Jenis data yang digunakan
|
Contoh:
Dim nama
as String à nama = ‘Eugine Syafalda Audriella’
Dim gaji
as long à gaji = 2500000
Dim umur
as integer à umur = 25
1.5.2.
OPERATOR
Penugasan
Formula:
<variabel>=<ekspresi>
|
contoh :
bilangan = 0 ‘Memberikan nilai 0
(nol) kepada variabel Bilangan
harga = 500 ‘Memberi nilai 500
untuk variabel harga
bayar = banyak *
harga ‘bayar
menampung hasil perkalian banyak
dengan harga.
Aritmatika
Digunakan untuk
operasi aritmatika dengan hierarki yang berbeda-beda yaitu sebagai berikut :
Operator
|
Operasi
|
^
|
Pemangkatan
|
* , /
|
Perkalian dan
pembagian
|
\
|
Pembagian
integer
|
Mod
|
Modulus (sisa
pembagian)
|
+ , -
|
Penambahan
dan pengurangan
|
+ , &
|
Penggabungan
string
|
Contoh :
2 ^ 2 à hasilnya 4
2 ^ 2 + à hasilnya 9
7 \ 2 à hasilnya 3
“A” & 2
& “b” à hasilnya A2B
“A” + “B” + “C”
à hasilnya ABC
Perbandingan
Digunakan
untuk membandingkan suatu data (ekspresi) dengan data (ekspresi) yang lain dan
menghasilkan nilai logika (benar atau salah). Dua data atau ekspresi yang
dibandingkan mempunyai tipe data yang sama.
operator
|
Keterangan
|
=
|
Sama dengan
|
<>
|
Tidak sama
dengan
|
<
|
Lebih kecil
|
>
|
Lebih besar
|
<=
|
Lebih kecil
atau sama dengan
|
>=
|
Lebih besar
atau ssama dengan
|
Like
|
Mempunyai
ciri yang sesuai
|
Is
|
Sama
referensi objek
|
Contoh :
Tes = 5>4 ‘variabel
tes berisi true’
Sama = “abc” =
“ab” ‘variabel
sama berisi false’
Sama = “abcde”
like “a*” ‘variabel sama
berisi true’
Sama = “abcde”
like “b*” ‘variabel sama
berisi false’
Sama = “abcde”
like “ab?de” ‘variabel sama
berisi true’
Mycheck = myobjek
is thatobjek ‘mycheck berisi true jika
myobjek sama
dengan
thatobjek’
Logika
Digunakan untuk
mengekspresi satu atau lebih data (ekspresi) logika (boolean) menghasilkan data
logika (boolean).
Operator
|
Keterangan
|
Not
|
Tidak
|
And
|
Dan
|
Or
|
Atau
|
PRAKTIKUM 1
NamaFile : Prak-001
Folder : Mahasiswa
1. Jalankan Program Visual Basic
2. Double Klik Form dan ketik Program Berikut:
Private
Sub Form_Activate()
Form1.Print
"Selamat Belajar Visual Basic 6.0"
Form1.Print
"NPM : 0131001"
Form1.Print
"Nama: Eugine Syafalda Audriella"
Form1.Print
" "
harga =
500
banyak =
10
bayar =
banyak * harga
Form1.Print
bayar
Form1.Print
" "
Form1.Print
2 ^ 2 ' hasilnya 4
Form1.Print
2 ^ 2 + 5 ' hasilnya 9
Form1.Print
7 / 2 ' hasilnya 3
Form1.Print
"A" & 2 & "b"
' hasilnya A2b
Form1.Print
"A" + "B" + "C" '
hasilnya ABC
End Sub
3. Jalankan Program dengan menekan F5 atau Klik menu Run – Start sehingga tampil
hasil sebagai berikut:
Gambar 2. Hasil Praktikum 1
Tugas:
1. Apa Hasil
dari program berikut:
banyak = 12
harga = 100
bayar = harga * banyak
Form1.Print banyak & " * " &
harga & "= " & bayar
Form1.Print
50 mod 2
2. Buatlah
potongan 5% dari total pembayaran
BAB II
MENGGUNAKAN
OBJECT PADA TOOLBOX
Objek standar pada toolbox
terdiri dari PictureBox, Label, TextBox, Frame, Command Button, CheckBox,
OptionsBox, ComboBox, ListBox, HscrolBar, VScrolBar, Timer, DriveListBox,
DirListBox, FileListBox, Shape, Line, Image dan Data. Berikut ini adalah icon
yang terdapat pada toolbox:
PictureBox
|
Button
Options Box
ComboBox
HscrolBar
DriveListBox
FileListBox
Line
Data
Gambar
3. Object ToolBox
2.1. LABEL DAN TEXTBOX
LABEL
Label digunakan untuk menampilkan
tulisan dalam bentuk teks
TEXTBOX
TextBox digunakan untuk menginputkan
teks, mengedit dan menampilkan teks
PRAKTIKUM 2
NamaFile : Prak-002
Folder : Mahasiswa
Langkah Kerja:
1. Jalankan
Visual Basic 6.0
2. Aktifkan
Form dan Properties
3. Klik
object Label Pada ToolBox dan Drag ke dalam Form
Pada
Properties pilih caption dan ketik tulisan AKADEMI MANAJEMEN INFORMATIKA DAN KOMPUTER
kemudian pilih font.
Objeck
|
Properties
|
Ket
|
Label1
|
Caption:
AKADEMI MANAJEMEN INFORMATIKA
DANKOMPUTER
Font:
Font:MSSans Serif – Bold – 12
|
4. Ulangi
langkah ke-3 untuk membuat label yang lain
Objeck
|
Properties
|
Ket
|
Label2
|
Caption:
AMIK AKMI BATURAJA
Font:
Font:MSSans Serif – Bold - 12
|
|
Label3
|
Caption : Hallo,
SAYA SEDANG
BELAJAR PEMROGRAMAN VISUAL
BASIC
ForeColor : &H00000080&
|
|
Label4
|
Caption: NAMA
SAYA EUGINE SYAFALDA AUDRIELLA HOBBY SAYA MENYANYI DAN MENARI
Alignment :
2 - Center
|
5.
Jalankan program dengan menekan tombol
F5
6.
Lanjutkan dengan membuat TextBox seperti
pada tabel berikut:
Objeck
|
Properties
|
Ket
|
Label5
|
Caption: Nama
Anda
|
|
Label6
|
Caption: Alamat
anda di mana
|
|
TextBox1
|
Name : TbNama
Text :
|
|
TextBox2
|
Name : TbAlamat
Text :
|
7.
Jalankan Kembali program yang anda buat
Gambar
3. Hasil Praktikum 2
Tugas:
Buatlah Form sebagai berikut:
Gambar
4. Form Tugas Label dan TextBox
2.2. BUTTON
CommandButton
digunakan untuk memberikan suatu perintah atau tindakan yang akan digunakan
dalam program aplikasi
PRAKTIKUM 3
NamaFile : Prak-002
Folder : Mahasiswa
Langkah Kerja:
1. Jalankan
Visual Basic 6.0
2. Aktifkan
Form dan Properties
3. Buat
Form untuk menghitung penjumlahan 2 (dua) buah bilangan sebagai berikut:
Gambar
5. Form menghitung 2 (dua) bilangan
Atur
Properti sebagai berikut:
Objeck
|
Properties
|
Ket
|
Label1
|
Caption:
Angka Pertama
|
|
Label2
|
Caption:
Angka Kedua
|
|
Label3
|
Caption:
Total Penjumlahan
|
|
Text1
|
Text:
|
|
Text2
|
Text:
|
|
Text3
|
Text:
|
|
Command1
|
Caption: Hitung
|
4. Double
Klik CommandButton untuk membuat perintah – perintah penjumlahan dua bilangan tersebut.
Private
Sub Command1_Click()
Text3.Text
= Val(Text1.Text) + Val(Text2.Text)
End
Sub
Keterangan:
Command1_Click()
menunjukkan tindakan/event yang dilakukan oleh pemakai
komputer
Text3.Text
= Val(Text1.Text) + Val(Text2.Text)
Text3.Text
merupakan penampung nilai penjumlahan
Val(Text1.Text)
adalah mengubah data text kedalam bentuk angka.
5. Jalankan
program dan isilah angka pertama dan angka kedua pada program aplikasi anda.
2.3. CHECKBOX, OPTIONBUTTON DAN COMBOBOX
CHECKBOX
CheckBox digunakan untuk memilih satu
atau beberapa pilihan secara bersamaan.
OPTIONBUTTON
OptionButton digunakan untuk memilih
satu pilihan diantara beberapa pilihan.
COMBOBOX
ComboBox digunakan untuk menampilkan
beberapa pilihan secara Drop-Down-List.
PRAKTIKUM 3
NamaFile : Prak-003
Folder : Mahasiswa
Langkah Kerja:
1. Jalankan
Visual Basic 6.0
2. Aktifkan
Form dan Properties
3. Rancanglah
Form sebagai berikut:
Gambar
6. Data Pegawai Sederhana
4. Properti
object sebagai berikut:
Objeck
|
Properties
|
Ket
|
Label1
|
Caption:
Komputerisasi data Pegawai
Alignment:
2- Center
|
|
Label2
|
Caption:
CV. Usaha Perdana
Alignment:
2- Center
|
|
Label3
|
Caption:
Baturaja
Alignment:
2- Center
|
|
Label4
|
Caption:
No. Induk Pegawai
|
|
Text1
|
Text:
|
|
Label5
|
Caption: Nama
Pegawai
|
|
Text2
|
Text:
|
|
Label 6
|
Caption: Alamat
|
|
Text3
|
Text:
|
|
Label7
|
Caption: Jenis
kelamin
|
|
Option1
|
Caption: Laki-Laki
|
|
Option2
|
Caption: Perempuan
|
|
Label8
|
Caption: Agama
|
|
Combo1
|
Text:
List: Islam
(Ctrl + Enter)
Protestan
Katolik
Hindu
Budha
Kepercayaan
|
|
Label9
|
Caption: Pendidikan
Terakhir
|
|
Option3
|
Caption: SD
|
|
Option4
|
Caption: SLTP
|
|
Option5
|
Caption: SLTA
|
|
Option6
|
Caption: S1
|
|
Option7
|
Caption: S2
|
|
Option8
|
Caption: S3
|
|
Label10
|
Caption: Jurusan
|
|
Text4
|
Text:
|
|
Command1
|
Caption: Keluar
|
5. Double
Klik Command1 dan ketik perintah untuk keluar sebagai berikut:
Private
Sub Command1_Click()
End
End
Sub
6. Jalankan
Program
Tugas:
Buatlah form yang mempunyai objek label,
ComboBox, option Button, Command Button dan TextBox dan cobalah untuk membuat
frame, dan FlexGrid seperti tampilan form di bawah ini:
Gambar
7. Form Tugas
2.4. PICTURE DAN IMAGE
Picture
dan image digunakan untuk menampilkan object gambar. Object gambar yang
ditampilkan dalam picture dan image berextention bitmap, icon, gif,Jpeg,
metafile, dan lain sebagainya).
2.5. FRAME DAN TIMER
FRAME
Frame digunakan untuk membuat bingkai
dari sebuah kumpulan object atau group pengontrolan.
TIMER
Timer digunakan untuk mengoperasikan
waktu kejadian pada setiap tindakan/event dari suatu program.
2.6. FILE LISTBOX, DRIVE LISTBOX DAN DIRECTORY LISTBOX
FILE LISTBOX
FileListBox digunakan untuk menampilkan
daftar file pada directory yang aktif.
DRIVE LISTBOX
DriveListBox digunakan untuk menampilkan
daftar drive pada komputer dan memungkinkan untuk memilih salah satu drive.
DIRECTORY LISTBOX
DirListBox digunakan untuk menampilkan
daftar folder atau directory pada drive.
PRAKTIKUM 4
NamaFile : Prak-004
Folder : Mahasiswa
Langkah Kerja:
1. Jalankan
Visual Basic 6.0
2. Aktifkan
Form dan Properties
3. Rancanglah
Form sebagai berikut:
Gambar
8. Praktikum 4
4. Properties
object sebagai berikut
Objeck
|
Properties
|
Ket
|
Frame1
|
||
Image1
|
Picture: Bitmap (c:\Windows\)
Stretch: True
|
|
Label1
|
Caption: LATIHAN MEMBUAT PICTURE,
IMAGE, FRAME, FILE LIST BOX, DRIVE LIST BOX DAN DIRECTORY LIST BOX
|
|
Picture1
|
Picture: Bitmap (c:\Windows\)
Stretch: True
|
|
Frame2
|
||
Dir1
|
||
Frame3
|
||
File1
|
5. Double
Klik Drive1 dan buat source code sbb:
Private
Sub Drive1_Change()
Dir1
= Drive1 ‘Apabila drive berubah
maka
End
Sub ‘directory juga berubah.
6. Double
Klik Dir1 dan buat source code sbb:
Private
Sub Dir1_Change()
File1
= Dir1 ‘Apabila directory berubah
End
Sub ‘maka file juga berubah
7. Jalankan
Program
2.7. MEMBUAT MENU
Menu
adalah pilihan intruksi atau perintah yang dapat dipilih secara vertikal atau
harizontal. Menu yang umum terlihat
diantaranya adalah menu file, Edit, View, Format dan lainnya. Untuk membuat
menu menggunakan perintah sebagai berikut:
1. Pilih
tools – Menu Editor lalu muncul tampilan sebagai berikut:
Gambar
9. Gambar Menu Editor
Keterangan:
Caption
: digunakan untuk membuat menu
Contoh: &File
& = untuk membuat garis disebelah kanan
Menu
Name : untuk membuat nama menu
Contoh: mnFile
Next : untuk melanjutkan menu
Insert : untuk menyisipkan menu
Delete : untuk menghapus menu
à :
Membuat sub dan sub-sub menu
ß
: Menghapus sub menu
2. Ketika
Menu yang akan anda buat pada Caption
3. Ketik
nama menu pada Name
4. Klik
Next dan Ulangi kembali langkah 2 (dua) untuk menu yang lain.
5. OK
dan coba jalankan
PRAKTIKUM 5
NamaFile : Prak-005
Folder : Mahasiswa
Langkah Kerja:
1. Jalankan
Visual Basic 6.0
2. Aktifkan
Form dan Properties
3. Rancanglah
menu sebagai berikut:
Gambar
10. Gambar Menu
4. Jalankan
program anda
5. Lanjutkan
dengan mengklik menu keluar dan ketik perintah keluar sbb:
Private
Sub mnKeluar_Click()
End
End
Sub
6. Buatlah
sub menu File sebagai berikut:
Input
Data Mahasiswa, Input Data Dosen, Input Data Mata Kuliah, Input Data Mahasiswa
Baru dan Input Data Nilai.
Gambar
11. Sub menu File
7. Jalankan
program anda
Tugas:
Buatlah program dan menu untuk
menghitung rumus-rumus matematika yang anda ketahui.
BAB
III
MEMBUAT
SOURCE CODE
(MENULIS
PERINTAH PROGRAM)
3.1. METHOD
Method
adalah perintah yang sudah tersedia didalam suatu object. Didalam Visual basic
Method dibuat dengan pemisah tanda titik (.) misalnya : form1.print “ Selamat
Belajar”. Tanda titik yang terdapat pada perintah form1.print merupakan method
untuk menampilkan text pada form1. Perintah tersebut diatas umumnya sudah
terdapat pada properties.
Contoh:
Private Sub Form_Load()
Text1.Text = " " ‘Text1.text
diisi dengan karakter blank
End Sub
3.2. EVENT
Event
adalah peristiwa atau kejadian yang diterima suatu object. Misalnya drag, klik,
tunjuk dan lain sebagainya.
Contoh:
Private Sub Command1_Click()
End Sub
PRAKTIKUM 6
NamaFile : Prak-006
Folder : Mahasiswa
Langkah Kerja:
1. Jalankan
Visual Basic 6.0
2. Aktifkan
Form dan Properties
3. Rancanglah
Form Kalkulator sebagai berikut:
Gambar 12. Form Kalkulator Sederhana
4. Isi
Properties sebagai berikut
Objeck
|
Properties
|
Ket
|
Text1
|
Text:
|
|
Text2
|
Text:
|
|
Text3
|
Text:
|
|
Text4
|
Text:
|
|
Command1
|
Caption: 7
|
|
Command2
|
Caption: 8
|
|
Command3
|
Caption: 9
|
|
Command4
|
Caption: +
|
|
Command5
|
Caption: 4
|
|
Command6
|
Caption: 5
|
|
Command7
|
Caption: 6
|
|
Command8
|
Caption: -
|
|
Command9
|
Caption: 1
|
|
Command10
|
Caption: 2
|
|
Command11
|
Caption: 3
|
|
Command12
|
Caption: *
|
|
Command13
|
Caption: 0
|
|
Command14
|
Caption: CE
|
|
Command15
|
Caption: =
|
|
Command16
|
Caption: /
|
5. Dengan
SourceCode Sebagai berikut:
Private
Sub Command1_Click()
Text4.Text
= Text4.Text + "7"
End
Sub
Private
Sub Command10_Click()
Text4.Text
= Text4.Text + "2"
End
Sub
Private
Sub Command11_Click()
Text4.Text
= Text4.Text + "3"
End
Sub
Private
Sub Command12_Click()
Text2.Text
= "*"
Text1.Text
= Text4.Text
Text4.Text
= "": Text4.SetFocus
End
Sub
Private
Sub Command13_Click()
Text4.Text
= Text4.Text + "0"
End
Sub
Private
Sub Command14_Click()
Text1.Text
= ""
Text2.Text
= ""
Text3.Text
= ""
Text4.Text
= "": Text4.SetFocus
End
Sub
Private
Sub Command15_Click()
Text3.Text
= Text4.Text
If
Text2.Text = "+" Then Text4.Text = Val(Text1.Text) + Val(Text3.Text)
If
Text2.Text = "-" Then Text4.Text = Val(Text1.Text) - Val(Text3.Text)
If
Text2.Text = "*" Then Text4.Text = Val(Text1.Text) * Val(Text3.Text)
If
Text2.Text = "/" Then Text4.Text = Val(Text1.Text) / Val(Text3.Text)
End
Sub
Private
Sub Command16_Click()
Text2.Text
= "/"
Text1.Text
= Text4.Text
Text4.Text
= "": Text4.SetFocus
End
Sub
Private
Sub Command17_Click()
CrystalReport1.Name
= "Test1.rpt"
CrystalReport1.RetrieveDataFiles
End
Sub
Private
Sub Command2_Click()
Text4.Text
= Text4.Text + "8"
End
Sub
Private
Sub Command3_Click()
Text4.Text
= Text4.Text + "9"
End
Sub
Private
Sub Command4_Click()
Text2.Text
= "+"
Text1.Text
= Text4.Text
Text4.Text
= "": Text4.SetFocus
End
Sub
Private
Sub Command5_Click()
Text4.Text
= Text4.Text + "4"
End
Sub
Private
Sub Command6_Click()
Text4.Text
= Text4.Text + "5"
End
Sub
Private
Sub Command7_Click()
Text4.Text
= Text4.Text + "6"
End
Sub
Private
Sub Command8_Click()
Text2.Text
= "-"
Text1.Text
= Text4.Text
Text4.Text
= "": Text4.SetFocus
End
Sub
Private
Sub Command9_Click()
Text4.Text
= Text4.Text + "1"
End
Sub
Private
Sub Form_Load()
‘Text1.Visible
= False
‘Text2.Visible
= False
'Text3.Visible
= False
End
Sub
6. jalankan
Program Anda
Catatan:
Rumus dari Perintah
IF
If Expression
Then TruePart
Contoh:
If
T2.Text = "+" Then T4.Text = Val(T.Text) + Val(T3.Text)
|
atau
If Expression
Then
<TruePart> ‘Perintah dijalankan apabila ekspresi
benar
Else
<FalsePart> ‘ Perintah dijalankan apabila ekspresi
salah
End IF
Contoh 1:
If T2.Text =
"+" Then
T4.Text = Val(T.Text) + Val(T3.Text)
End IF
Contoh 2:
If T2.Text =
"+" Then
T4.Text = Val(T.Text) + Val(T3.Text)
Else
T4.Text = Val(T.Text) - Val(T3.Text)
End IF
|
BAB
IV
BEKERJA
DENGAN DATABASE
4.1. BEKERJA DENGAN SATU TABEL
Cara Membuat Tabel Database:
1. Klik
Add-In – Visual Data Manager
Gambar
13. Visual data Manager (VisData)
2. Klik
File – New dan pilih salah satu penampung database misalnya: Microsoft Acces –
Version 7.0 MDB
3. Pada
File Name buat nama Database yang akan dibuat Misalnya Pegawai Lalu Klik
Save
Gambar
14. VisData Database Pegawai
4. Buat
Tabel dengan cara klik kanan pada properties dan pilih new table
Gambar
15. Strukur Table
5. Buat
nama tabel pada Table Name Misalnya: TbKaryawan
6. Klik
AddField kemudian masukkan field, Type data dan size dari field yang akan anda
buat dalam tabel lalu Klik Ok (Ulangi langkah 6 sampai dengan selesai)
Gambar
16. Struktur Add Field
Dengan
field sebagai berikut:
NO
|
Field
Name
|
Type
|
Size
|
Keterangan
|
1
|
NIK
|
Text
|
10
|
No Induk Karyawan
|
2
|
Nama
|
Text
|
35
|
Nama Karyawan
|
3
|
Alamat
|
Text
|
50
|
Alamat karyawan
|
4
|
Kota
|
Text
|
25
|
Kota
|
5
|
TPLahir
|
Text
|
25
|
Tempat Lahir
|
6
|
TglLahir
|
Date
|
Tanggal lahir
|
|
7
|
Kelamin
|
Text
|
10
|
Jenis Kelamin
|
8
|
Status
|
Text
|
15
|
Status
|
7. Klik
Close dan Klik Built the Table
PRAKTIKUM 7
MENGHUBUNGKAN OBJECK DATA DENGAN TABEL
NamaFile : Prak-007
Folder : Mahasiswa
Langkah Kerja:
1. Jalankan
Visual Basic 6.0
2. Aktifkan
Form dan Properties
3. Rancanglah
Form sebagai berikut:
Gambar
16. form Latihan membuat tabel
4. isi
Properties sebagai berikut:
Objeck
|
Properties
|
Ket
|
Data1
|
Database Name:DBKaryawan
Record Source:Tbkaryawan
|
|
Text1
|
Text:
Data Source: Data1
Data Field : NIK
|
|
Text2
|
Text:
Data Source: Data1
Data Field : Nama
|
|
Text3
|
Text:
Data Source: Data1
Data Field : Alamat
|
|
Text4
|
Text:
Data Source: Data1
Data Field : Kota
|
|
Text5
|
Text:
Data Source: Data1
Data Field : TpLahir
|
|
Text6
|
Text:
Data Source: Data1
Data Field : TglLahir
|
|
Text7
|
Text:
Data Source: Data1
Data Field : Kelamin
|
|
Text8
|
Text:
Data Source: Data1
Data Field : Status
|
|
Command1
|
Caption: Input Data
|
|
Command2
|
Caption: Simpan Data
|
|
Command3
|
Caption: Edit Data
|
|
Command4
|
Caption: Delete Data
|
|
Command5
|
Caption: Cari Data
|
|
Command6
|
Caption: Keluar
|
|
Form1
|
WindowsState: 2 - Maximazise
|
5. Jalankan
Program Anda lalu lanjutkan pembuatan aplikasi anda
6. Double
Klik Button Input Data Lalu Ketikkan perintah berikut ini.
Private
Sub Command1_Click()
Data1.Recordset.AddNew ‘Menambah Record Baru
Text1.SetFocus ‘Kursor di Posisi Text1
End
Sub
7. Double
Klik Button Simpan Data Lalu Ketikkan perintah berikut:
Private
Sub Command2_Click()
Data1.Recordset.Update ‘Menyimpan Data Record
Data1.Refresh
End
Sub
8. Double
Klik Button Edit Data Lalu Ketikkan perintah berikut:
Private
Sub Command3_Click()
Data1.Recordset.Edit ‘Edit record
Data1.Refresh
End
Sub
9. Double
Klik Button Delete Data Lalu Ketikkan perintah berikut:
Private
Sub Command4_Click()
Data1.Recordset.Delete ‘Delete Record
Data1.Refresh
End
Sub
10. Double
Klik Button Cari Data Lalu Ketikkan perintah
Private
Sub Command5_Click()
‘Pencarian
Data
Dim
Cari As String
Cari
= InputBox("Masukkan NIK", "Search Data")
Data1.Recordset.FindFirst
("NIK='" & Cari & " ' ")
If
Data1.Recordset.NoMatch Then
MsgBox ("Record tersebut tidak
ada")
End
If
End
Sub
11. Double
Klik Button Keluar Lalu Ketikkan perintah
Private
Sub Command6_Click()
‘Selesai
/ Keluar
End
End
Sub
12.
Jalankan Program Anda
BEKERJA DENGAN KOMPONEN FLEXGRID
Flexgrid
adalah komponen yang dapat menampilkan data dalam bentuk tabel yang terdiri
dari kolom dan baris. FlexGrid pada umumnya digunakan untuk melihat data yang
sudah terdapat di dalam tabel.
Cara Menampilkan Komponen FlexGrid:
1. Klik
Project – Component
2. Pilih
Microsoft FlexGrid Control 6.0 – Apply
3. Klik
Close (ToolBox anda sudah terdapat objeck FlexGFrid)
4. Klik
FlexGrid pada ToolBox dan Drag ke x Form
5. Isi
Properties – DataSource: Data1
Gambar
17. Komponen FlexGrid
6. Jalankan
Program Anda
MENCETAK DATA DENGAN DATA DATA REPORT
A. MEMBUAT LINK DENGAN DATA ENVIRONMENT
PRAKTIKUM 8
NamaFile : Prak-007
Folder : Mahasiswa
Langkah Kerja
1. Project
– Add Data Environment sehingga tampil gambar sebagai berikut:
Gambar
18. Data Environment
2. Klik
kanan pada Conection1 – Pilih Microsoft Jet 4.0 OLE DB Provider seperti Pada
gambar berikut:
Gambar
19. Data Link Properties
3. Kemudian
Klik Next
4. Pilih
Nama database pada Select or enter Database Name kemudian klik Test Conection.
Catatan:
Apabila
link benar maka akan muncul “Test Conection Succeeded”
5. Klik
Kanan Properties – Pilih Command1
6. Klik
Kanan Command1 – Pilih Properties
7. Pilih
Database Object – Table
8. Pilih
Object Name – Pilih satu tabel – apply - OK
B. MEMBUAT DATA REPORT
Data
Report digunakan untuk membuat laporan yang akan dicetak di layar monitor
maupun di printer. Untuk membuat data report ikuti langkah berikut:
1. Klik
Object – Add Data Report
2. Isi
Properties: Data Source – Data Environment
Data Member – Command1
Catatan:
- Report
Header & Page Header untuk membuat Catatan pada bagian atas tabel (judul
Report)
- Detail
untuk meletakkan field database yang akan di cetak
- Page
Footer & Report Foother untuk membuat catatan bawah / tulisan dibawah
tabel.
Gambar
20. Data Report
3. Masukkan
Field-Field Table pada Detail dengan cara sebagai berikut:
- Klik
Data Report – Isi Properties : DataSource
DataMember
- Klik
Detail – Klik Kanan – Pilih Insert Control dan Pilih Text Box
- Isi
Properties : Data Member (Command1)
Data
Field (Pilih Field)
Catatan:
Insert
Control digunakan untuk membuat / menyisipkan label, TextBox, Image (gambar),
Line (Garis), shape (Objext lain).
4. Ulangi
langkah ke 3 (tiga) sampai dengan selesai
5. Buat
Judul Field pada Page Header dengan cara:
- Klik
kanan – Insert Control – Pilih Label
- Isi
Properties: Caption (Isi Judul Field)
6. Buat
Report Header (sama seperti langkah 5)
Tugas (dikumpulkan)
Buatlah program aplikasi (tidak boleh
sama antara mahasiswa satu dengan mahasiswa lain) dengan ketentuan sbb:
1. Memiliki
Button Input data, Simpan Data, Edit Data, Delete Data, Cari Data, Cetak dan Keluar
2. Memiliki
FlexGrid
4.2. BEKERJA DENGAN MULTI TABEL
BAB
V
MENCETAK
DATA VISUAL BASIC
DENGAN
CRYSTAL REPORT
CrystalReport
adalah program bantu untuk membuat report / laporan pada Visual Basic. Dengan
CrystalReport kita dapat membuat Report dengan mudah dan cepat. Langkah untuk
membuat report adalah sebagai berikut:
1.
Klik Add-In
2.
Pilih Report Designer maka akan
tampil aplikasi CrytalReport
Gambar 1. Tampilan Crystal Report
3.
Klik File – New dan akan tampil
pilihan pembuatan report lalu kita pilih listing
Gambar 2. Membuat report baru
4.
Klik Data atau SQL/ODBC untuk
memilih tabel yang akan dicetak
Gambar 3. Pilihan datafile / SQL untuk membuat report
5.
Pilih Database/table yang akan di cetak
Gambar 4. Pilihan database file
6.
Klik Done dan klik Next
7.
Pilih Field yang akan dibuat
report
Gambar 5. Form Report Fields
8.
Klik Preview Report
9.
Simpan Report
Catatan:
Memperbesar
tampilan report
1.
Klik Report
2.
Pilih Zoom
Menyisipkan
Garis / Kotak / Picture
1.
Klik Insert
2.
Pilih Line / Box / Picture dan
Drag ke Report
Membuat no
halaman / data / tanggal Report
1.
Klik Insert
2.
Klik Special Field
Page Number Field =
untuk nomor halaman
Record Number Field =
untuk nomor record
Print Date Field =
tanggal cetak
3.
Klik ke Report
MEMBUAT
BUTTON PRINT /CETAK
1.
Klik Project – component –
pilih CrystalReport – OK
2.
Drag Object Crystal Report ke
Form
3.
Isi Properties:
ReportFilename dan pilih file
4.
Buat Button Print dan buat
perintah sbb:
CrystalReport1.WindowState = crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.PrintReport
Keterangan:
CrystalReport1.WindowState = crptMaximized digunakan untuk
memperbesar tampilan Report (Maximize), CrystalReport1.RetrieveDataFiles
digunakan untuk mengatur data yang baru dimasukkan kedalam tabel dan CrystalReport1.PrintReport
digunakan untuk mencetak report (preview).
5.
Run Program
Mencetak Per
Kelompok Barang
1. Dengan
InputBox
SForBox =
InputBox("Masukkan Kode barang yang akan di print")
CrystalReport1.SelectionFormula
= "{BrgMasuk.KodeBarang}='" & SForBox & "'"
CrystalReport1.ReportFileName
= "C:\tstrepttgl.rpt"
CrystalReport1.WindowState
= crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action
= 1
2. Dengan
ComboBox / TextBox
Private Sub
Command3_Click()
If Combo1.Text =
"" Then
Combo1.SetFocus
Exit Sub
Else
CrystalReport1.SelectionFormula
= "{BrgMasuk.KodeBarang}='" & Combo1.Text & "'"
CrystalReport1.ReportFileName
= "C:\tstrepttgl.rpt" ‘ Nama Report
CrystalReport1.WindowState
= crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action
= 1
End If
End Sub
Mencetak Data
Perhari berdasarkan Tanggal
Private Sub
Command4_Click()
'Report Per
Tanggal
SForBox =
InputBox("Masukkan Kode barang yang akan di print")
CrystalReport1.SelectionFormula
= "ToText({BrgMasuk.TglMasuk})='"
& SForBox &
"'"
CrystalReport1.ReportFileName
= "C:\tstrepttgl.rpt"
CrystalReport1.WindowState
= crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action
= 1
End Sub
Report Tanggal
Perhari
Private Sub
nmPerhari_Click()
Dim Tgl, Bln,
Thn As String
SforBox =
InputBox("Masukkan Tanggal yang akan dicetak")
Tgl =
Left(SforBox, 2)
Bln =
Mid(SforBox, 4, 2)
Thn =
Right(SforBox, 4)
MsgBox
("Tahun " & Thn & " Bulan " & Bln & "
Tanggal " & Tgl)
'CrystalReport1.SelectionFormula
= "{Siswa.Tanggal_Diterima}=Date(2006,07,10)"
CrystalReport1.SelectionFormula
= "ToText({Siswa.Tanggal_Diterima})= '" & Tgl & "-"
& Bln & "-" & Thn & "'"
CrystalReport1.ReportFileName
= "D:\Hendra\Tugas_Akhir\lapsiswa.rpt"
CrystalReport1.WindowState
= crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action
= 1
End Sub
Report Data
Perminggu
CrystalReport1.SelectionFormula
= "ToText({Siswa.Tanggal_Diterima})>= '" &
Format(DTPicker1.Value,
"dd-mm-yyyy") & "'" &
“and
ToText({Siswa.Tanggal_Diterima})<= '" &
Format(DTPicker1.Value
+ 7, "dd-mm-yyyy") & "'"
CrystalReport1.ReportFileName
= "D:\Hendra\Tugas_Akhir\rpt-tglterima.rpt"
CrystalReport1.WindowState
= crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action
= 1
Report data
perbulan
'Report Perbulan
CrystalReport1.SelectionFormula
= "ToText({Siswa.Tanggal_Diterima})>= '" &
Format(DTPicker1.Value,
"dd-mm-yyyy") & "'" &
"and
ToText({Siswa.Tanggal_Diterima})<= '"
&
Format(DTPicker2.Value, "dd-mm-yyyy") & "'"
CrystalReport1.ReportFileName
= "D:\Hendra\Tugas_Akhir\rpt-tglterima.rpt"
CrystalReport1.WindowState
= crptMaximized
CrystalReport1.RetrieveDataFiles
CrystalReport1.Action
= 1
Seleksi Data
PerMinggu berdasarkan Tanggal
Private Sub
Command1_Click()
'Seleksi Report
harian
Data1.RecordSource
= " SELECT * From Siswa " & _
" Where
Tanggal_Diterima = #" & Format(DTPicker1.Value,
"mm/dd/yyyy") & "#"
Data1.Refresh
End Sub
Private Sub
Command2_Click()
Form4.Show
End Sub
Private Sub
Command3_Click()
'Seleksi report
perminggu
Data1.RecordSource
= " SELECT * From Siswa " & _
" Where
Tanggal_Diterima >= #" & Format(DTPicker1.Value,
"mm/dd/yyyy") & "#" & _
" and Tanggal_Diterima
<= #" & Format(DTPicker1.Value + 7, "mm/dd/yyyy") &
"#"
Data1.Refresh
End Sub
Seleksi Data PerBulan berdasarkan Bulan
Private Sub
Command4_Click()
'seleksi report
dari tanggal tertentu (perbulan)
Data1.RecordSource
= " SELECT * From Siswa " & _
" Where
Tanggal_Diterima >= #" & Format(DTPicker1.Value,
"mm/dd/yyyy") & "#" & _
" and Tanggal_Diterima
<= #" & Format(DTPicker2.Value, "mm/dd/yyyy") &
"#"
Data1.Refresh
End Sub
Menggunakan
Formula / Rumus
Langkah:
1.
Klik Insert – Formula Field
2.
Buat Nama Variabel – Klik Ok
3.
Buat formula, misal: Jumlah
Barang * Harga Barang
-
Double Klik Field Jumlah
-
Double Klik x * y
-
Double Klik Harga
4.
Klik Accept
5.
Klik Posisi Formula / Rumus
Menggunakan
Fungsi Logika pada Crystal Report
Latihan:
Buat table
dengan Field KodeBarang, NamaBarang, Harga, Banyak lalu buat report. Apabila
sudah selesai buat Formula total Pembelian, Discount 5% dan Total Bayar pada report serta lengkapi dengan judul,
garis, nomor halaman, nomor record dan tanggal cetak. Seperti pada gambar
berikut:
Query dengan banyak baris
Private Sub Data1_Reposition()
Dim lPubId As Long
lPubId = Data1.Recordset!PubId
'que = " Select * From Titles "
& _
'
"where PubId=" & lPubId
'Data2.RecordSource = que
Data2.RecordSource = " Select * From
Titles " & _
"Where PubId = "
& lPubId
'mess = "Selamat datang kami
ucapkan" & _
"kepada rekan-rekan sekalian"
'MsgBox (mess)
Data2.Refresh
MSFlexGrid1.ColWidth(0) = 6500
MSFlexGrid1.ColWidth(1) = 1500
MSFlexGrid1.ColWidth(2) = 2000
End Sub
Note:
Antara titik dua yang dibuat dalam perintah
harus dispasi. Diantara variabel OK !!!!
Pencarian query dengan menggunakan
textbox
Private Sub Command1_Click()
Data1.RecordSource = " Select * From
mahasiswa " & _
" where npm ='"
& Text1.Text & " ' "
Data1.Refresh
End
Pencarian data dengan like
Private Sub Command6_Click()
Data1.RecordSource = " Select * From
Siswa " & _
" Where Nama Like'" &
Trim(Text1.Text) + "*" & "'"
Data1.Refresh
End
Pencarian data dengan while
Private Sub Command1_Click()
caridata = InputBox("Masukkan
Nama Pegawai", "Pencarian data")
Data1.Recordset.MoveFirst
While Not (Data1.Recordset.EOF)
If Data1.Recordset.Fields("Nama") = Trim(caridata) Then
Tanya = MsgBox("Data " & caridata & "
ditemukan")
'Data1.Recordset.Move (Data1.Recordset.RecordCount)
Exit Sub
Else
Data1.Recordset.MoveNext
End If
Wend
End Sub
MODUL
PEMROGRAMAN VISUAL I
( VISUAL BASIC )
OLEH:
HENDRAYUDI
AKADEMI MANAJEMEN INFORMATIKA DAN KOMPUTER
(AMIK) AKMI BATURAJA
2005
Thanks Gan Tas Modul nya
BalasHapussangat membantu
www.infoagustinus.tk