BAB I
PENDAHULUAN
Mengenal Visual Basic (VB)
Visual Basic adalah salah satu bahasa pemrograman komputer. Bahasa pemrograman adalah
perintahperintahyang
dimengerti
oleh
komputer
untuk
melakukan
tugas-tugas
tertentu.
Bahasa
pemrogramanVisual Basic, yang dikembangkan oleh Microsoft sejak tahun 1991, merupakan pengembangan
daripendahulunya 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 alatbantu untuk membuat berbagai macam
program komputer, khususnya yang menggunakan sistem operasiWindows. Visual Basic merupakan salah satu
bahasa pemrograman komputer yang mendukung object(Object Oriented Programming = OOP).
Mengenal Integrated Development Environment (IDE) VB 6
Aktifkan VB 6 melalui tombol Start > Programs > Microsoft Visual Studio 6.0 >
Microsoft Visual Basic 6.0.
Tunggulah beberapa saat hingga muncul tampilan berikut :
Pilih Standard EXE dan klik tombol Open.
Anda akan melihat tampilan area kerja atau IDE VB 6. Kenali bagian-bagian utama di dalam IDE VB 6
berikut ini :
*1*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
Keterangan :
1. Menubar (digunakan untuk memilih tugas-tugas tertentu seperti menyimpan project, membuka project,
yang terdiri dari menu file, edit, view, project, format, debug, run, query, diagram, tools, add ins, window,
help)
2. Toolbar (merupakan shortcut untuk menu-menu yang sering digunakan pada menu bar)
3. Toolbox (window ini berisi komponen-komponen yang dapat digunakan untuk memperkaya user
interface)
4. Jendela Form (window ini berisi komponen-komponen yang dapat digunakan untuk memperkaya user
interface)
5. Jendela Project (window ini berisi struktur tree dari project yang sedang dikerjakan. Berisi daftar form,
module, class, activeX yang digunakan dalam membuat program aplikasi)
6. Jendela Properties (window ini digunakan untuk melihat / mengedit sifat-sifat (properties) dari object
yang sedang terpilih)
7. Form Layout (window yang akan menunjukan tampilan form bersangkutan disaat runtime)
8.
1.3 Mengenal Toolbar
Jendela Toolbox merupakan jendela yang sangat penting bagi anda. Dari jendela ini anda dapat mengambil
komponen-komponen (object) yang akan ditanamkan pada form untuk membentuk user interface.
Pointer bukan merupakan suatu kontrol; gunakan icon ini ketika anda inginmemilih kontrol yang sudah berada
pada form.
*2*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
-
PictureBoxadalah kontrol yang digunakan untuk menampilkan image dengan format: BMP, DIB
-
(bitmap), ICO (icon), CUR (cursor), WMF (metafile), EMF (enhanced metafile), GIF, dan JPEG.
Labeladalah kontrol yang digunakan untuk menampilkan teks yang tidak dapat diperbaiki oleh pemakai.
TextBoxadalah kontrol yang mengandung string yang dapat diperbaiki oleh pemakai, dapat berupa satu
-
baris tunggal, atau banyak baris.
Frameadalah kontrol yang digunakan sebagai kontainer bagi kontrol lainnya.
CommandButtonmerupakan kontrol hampir ditemukan pada setiap form, dan digunakan untuk
-
membangkitkan event proses tertentu ketika pemakai melakukan klik padanya.
CheckBoxdigunakan untuk pilihan yang isinya bernilai yes/no, true/false.
OptionButtonsering digunakan lebih dari satu sebagai pilihan terhadap beberapa option yang hanya dapat
-
dipilih satu.
ListBoxmengandung sejumlah item, dan user dapat memilih lebih dari satu (bergantung pada property
-
MultiSelect).
ComboBoxmerupakan konbinasi dari TextBox dan suatu ListBox dimana pemasukkan data dapat
-
dilakukan dengan pengetikkan maupun pemilihan.
HScrollBar dan VScrollBardigunakan untuk membentuk scrollbar berdiri sendiri.
Timerdigunakan untuk proses background yang diaktifkan berdasarkan interval waktu tertentu.
-
Merupakan kontrol non-visual.
DriveListBox, DirListBox, dan FileListBoxsering digunakan untuk membentuk dialog box yang
-
berkaitan dengan file.
Shape dan Linedigunakan untuk menampilkan bentuk seperti garis, persegi, bulatan, oval.
Imageberfungsi menyerupai image box, tetapi tidak dapat digunakan sebagai kontainer bagi kontrol
lainnya. Sesuatu yang perlu diketahui bahwa kontrol image menggunakan resource yang lebih kecil
-
dibandingkan dengan PictureBox
Datadigunakan untuk data binding
OLE dapat digunakan sebagai tempat bagi program eksternal seperti Microsoft
Excel, Word, dll.
BAB II
FUNGSI
Fungsi adalah sebuah program yang mampu menerima berbagai nilai / data dan memberikan suatu hasil tertentu.
Fungsi biasanya digunakan untuk melakukan hal-hal seperti :
1. Perhitungan matematik, seperti menghitung akar, nilai absolut, nilai sinus, cosinus, tangen dll.
2. Memanipulasi teks / string.
3. Memanipulasi tanggal, jam, data, melakukan operasi input, output dll.
Fungsi Inputbox()
Fungsi inputbox() adalah fungsi yang menghasilkan kotak yang meminta input tertentu dari user. Syntax dari
fungsi inputbox() adalah :
Strnamavariabel = inputbox (pesan, [strjudul, strdefault,
intXpos, intYpos])
Keterangan :
1.
2.
3.
4.
Strnamavariabel : variabel untuk menyimpan hasil yang dikembalikan oleh fungsi inputbox().
Pesan : teks yang ditampilkan pada kotak input (diapit oleh tanda kutip).
Strjudul : judul yang akan ditampilkan (diapit oleh tanda kutip).
Strdefault : teks yang ditampilkan sebagai jawaban input pada kotak input (diapit oleh tanda kutip).
*3*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
5. intXpos : lokasi pada sumbu X dimana kotak input akan muncul pada layar.
6. intYpos : lokasi pada sumbu Y dimana kotak input akan muncul pada layar.
Contoh :
Strhasil = Inputbox (“masukkan nama anda”, “input nama”, “ketikkan nama di sini”)
Fungsi Msgbox()
Fungsi msgbox() adalah fungsi yang menghasilkan kotak yang menampilan pesan-pesan untuk user. Syntax dari
fungsi msgbox() adalah :
Intnamavariabel = msgbox (pesan, [intType, strjudul])
Keterangan :
1.
2.
3.
4.
Intnamavariabel : variabel untuk menyimpan hasil yang dikembalikan oleh fungsi msgbox().
Pesan : teks yang ditampilkan pada kotak pesan(diapit oleh tanda kutip).
IntType : nilai yang berfungsi untuk menampilkan pilihan tertentu pada pesan.
Strjudul : judul yang akan ditampilkan (diapit oleh tanda kutip).
Pilihan pada message box
Nilai
0
1
JENIS TOMBOL
Konstanta
Keterangan
vbOkOnly
Menampilkan tombol OK
vbOkCancel
Menampilkan tombol OK dan
2
vbAbortRetryIgnor
Cancel
Menampilkan tombol Abort, Retr
3
e
vbYesNoCancel
dan Ignore
Menampilkan tombol Yes, No dan
4
5
vbYesNo
vbRetryCancel
Cancel
Menampilkan tombol Yes dan No
Menampilkan tombol Retry dan
Cancel
JENIS ICON
Message.
Contoh :
Inthasil = Msgbox (“sudah siap cetak?”, vbQuestion + vbOKCancel, “mencetak laporan”)
Fungsi Matematika
*4*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
Fungsi
Abs()
Keterangan
Menghasilkan nilai mutlak
Contoh
Abs (90) = 90
Atn()
Nilai
Abs (-90) = 90
Atn (3.14) = 1.262
Cos()
Exp()
Int()
Len()
Log()
Round (nilai, x)
radian)
Nilai cosinus (dalam radian)
Nilai basis logaritma
Nilai integer saja (bulat)
Jumlah karakter numeric
Nilai logaritma natural
Membulatkan nilai sebsar x
angka di belakang koma
Nilai sinus (dalam radian)
Akar kuadrat
Nilai tangen (dalam radian)
1.2
Sin (3.14) = 2,653
Sqr (4) = 2
Tan (3.14) = -2,653
arc
tangen
(dalam
Khusus untuk format nilai, selain menggunakan round, dapat juga menggunakan tanda pagar (#) untuk pemisah
ribuan dan nol (0) untuk jumlah angka decimal di belakang koma. Contoh :
Format(1000000, “###,###,###”) = 1,000,000
Format(1000000, “###,###,###.00”) = 1,000,000.00
Format (1000.1234, “###,###.00”) = 1,000.12
Format (1000.12, “###,###.0000”) = 1,000.1200
BAB III
KONTROL PERCABANGAN
KONTROL “ IF”
Merupakan salah satu kontrol pemrograman yang digunakan untuk percabangan dengan syarat (kondisi)
lebih dari satu. Namun pada hasilnya hanya satu kondisi (statement) yang akan dijalankan pada program yang
dibuat (pada kondisi yang terpenuhi).
Syntax :
If [kondisi 1] Then
[Statement 1]
Else
[Statement 2]
End If
Contoh penggunaan control “If’” pada program
1. Buka program Visual Basic
2. Buat form seperti di bawah ini
*5*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
3. Atur propertinya seperti dibawah ini
Objek
Label 1
Label 2
Text 1
Text2
Option1
Option2
Option 3
Command1
Label3
Text3
Properti
Caption = Angka pertama
Caption = Angka kedua
Text 1 =Kosong
Text2 = kosong
Caption = kalikan
Value = True
Caption = tambahkan
Caption = Kurangi
Caption = Hitung
Caption = Hasil
Text = kosong
4. Double klik objek command 1 (hitung) sehingga muncul kode editor kemudian buat prosedur
seperti berikut :
Private Sub Command1_click()
Dim a, b, c As Integer
a = Val (Text1.text)
b=Val (Text2.text)
If option1.Value = True Then
c = a*b
Else If Option2.Value = True Then
c=a+b
Else
c=a–b
End If
Text3.text = c
End Sub
5. Jalankan programnya, perhatikan apa yang terjadi
KONTROL “CASE”
Merupakan salah satu kontrol pemrograman yang digunakan pada waktu kita menggunakan banyak
perintah Else If dengan tujuan agar lebih efisien.
Syntax :
Select case ungkapan Utama
Case Ungkapan 1
Statement 1
Case Ungkapan 2
Statement 2
End Select
Contoh penggunaan control “case” pada program
1. Buka program visual basic
2. Buat form seperti di bawah ini
*6*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
3. Atur Propertinya seperti di bawah ini
Object
Label 1
List 1
Label 2
Text 1
Command1
Label 3-7
Properties
Caption
Caption
Text 1
Caption
Name
Value
Pilih barang
Jumlah
(dikosongkan)
OK
lblBarang,
4. Buka jendela kode dan ketiklah
kode berikut :
lblHarga,
lblJumlah, lblDiskon, lblTotal
Back Color
Caption
Palette : (Putih)
(dikosongkan)
Private Sub Form_Load()
List1.AddItem “Pensil”
List1.AddItem”Pulpen”
List1.AddItem”Buku”
List1.AddItem”Penghapus”
End Sub
Private Sub Command1_Click()
Dim harga As Currency, total As Currency
Dim jumlah As Integer
Dim diskon As Single
Dim satuan As String
If List1.Text = “” Then
MsgBox “Anda belum memilih barang!!”
List1.ListIndex = 0
Exit Sub
End If
If Text1.text = “” Then
MsgBox “Anda belum mengisi jumlah barang!!”
Text1.Setfocus
Exit Sub
End If
Select Case List1.Text
Case “Pensil”
Harga = 7500
Satuan = “Pak”
Case “Pulpen”
Harga = 12000
Satuan = “Pak”
Case “Buku”
Harga = 30000
*7*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
Satuan = “Lusin”
End Select
lblBarang.Caption = “Barang : “&List1.Text
lblHarga.Caption = “Harga :” & Format(harga,_”Currency”) & “/” & satuan
lblJumlah.Caption = “Jumlah :” & Text1.text & “” & satuan
jumlah = Text1.text
Select Case jumlah
Case is < 10
Diskon = 0
Case 10 To 20
Diskon = 0.15
Case Else
Diskon = 0,2
End Select
Total = jumlah * (harga*(1-diskon))
lblDiskon.Caption = “Diskon : “ & Format (diskon, “0%”)
lblTotal.Caption = “Total Bayar : “ & Format (total,_”Currency”)
End Sub
5. Jalankan programnya
BAB IV
KONTROL PENGULANGAN (LOOPING)
Pengulangan (Loop) adalahpernyataan yang akan menjalankan sejumlah pernyataan selama kondisi tertentu.
1. For . . . Next
Statement For . . . Next adalah bentuk pengulangan yang paling banyak digunakan, bentuknya :
For CounterVar = StartNum To EndNum [Step StepNum]
Statements
Next [CounterVar]
CounterVar adalah variable yang nilainya akan dijalankan dari StartNum hingga EndNum, dengan perubahan
sebesar StepNum, Apabila StarNum < EndNum dan StepNum bernilai positif, maka CounterVar akan bergerak
maju. Apabila StarNum >EndNum dan StepNum bernilai Negatif, maka CounterVar akan bergerak Mundur. Jika
Step StepNum Tidak dituliskan, maka nilainya dianggap 1.
2. Do . . . Loop
Bentuk Do . . . Loop dapat memberikan alternative dalam melakukan pengujian pada awal atau pada akhir.
Kelebihan lainnya adalah, penggulangan tidak bergantung pada maju atau mundur tetapi lebih fleksibel. Terdapat
2 buat variasi bentuk dari Do . . . Loop
Do while condition
Statement Group
Loop
Do Until condition
Statement Group
Loop
Bentuk ini akan menjalankan statement group
Bentuk ini akan menjalankan statement group hingga
*8*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
apabila condition bernilai benar
condition terpenuhi
Contoh
Nilai = 10
Do While nilai > 0
Nilai = Nilai – 2
Loop
Contoh
Nilai = 10
Do Until nilai= 0
Nilai = Nilai – 2
Loop
Akan menampilkan hasil 10,8,6,4,2
Akan menampilkan hasil 10,8,6,4,2
Contoh
Buat tiga project yang terdiri dari satu Form dengan tampilan seperti berikut :
Membuat progressbar : Ctrl+T, control>centang Microsoft Windows Command Control 6.0 (SP6)> OK
Buat dengan mengklik tool progressbar
CommandButton
Progressbar
Name : Command1
Name :Progressbar1
Capton : OK
Max : 10000
Code Form1 Project ke-1
Dim i As ValueConstants
Private Sub Command1_Click()
For i = 0 To 10000
ProgressBar1.Value = i
If ProgressBar1.Value = 10000
Then
End
End If
Next
End Sub
Code Form1 Project ke-2
Private Sub Command1_Click()
i = 10000
Do While i > 0
i=i-2
ProgressBar1.Value = i
If ProgressBar1.Value = 0 Then
End
End If
Loop
End Sub
Code Form1 Project ke-3
Private Sub Command1_Click()
i = 10000
Do Until i = 0
i=i-2
ProgressBar1.Value = i
If ProgressBar1.Value = 0 Then
End
End If
Loop
End Sub
BAB V
POP UP MENU
Membuat Pop Up Menu denganVisual Basic 6.0
*9*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
Apakah yang dimaksud dengan Pop Up menu ? Pop Up menu merupakan menu khusus
yangditampilkan untuk mempercepat akses ke menu, biasanya Pop Up dapat tampil saat mouse
melintasisuatu obyek (event mouse over),atau saat kita mengklik kanan mouse.
Tips kali ini membahasbagaimana membuat menu yang tampil ketika mouse mendapat event klik
kanan (event right click).
Langkah – langkah pembuatan Pop Up menu adalah :
1. Sebelumnya buka aplikasi visual basic 6.0 buat satu project dengan sebuah form standar,
2. Letakkan sebuah label, button dan sebuah line, atur tampilan seperti gambar berikut :
3. ubah properti caption label1 sesuai keinginan anda (dalam contoh diatas caption diisi dengan “Test”.
4. Fungsi Pop Up Menu”), selanjutnya buka menu editor, terdapat dua cara untuk membuka menu.
5. editor, pertama klik menu Tools (Alt + T) pilih menu editor.
6. cara kedua adalah klik kanan pada obyek form lalu pilih menu editor.
Pada menu editor buatlah struktur menu seperti berikut :
Letak
fonts
…size
……8
……14
……18
……26
....….color
……merah
……hijau
……biru
....…jenis
……tahoma
……stop
Caption
Fonts
Size
8
14
18
26
color
merah
hijau
biru
jenis
tahoma
stop
Perhatikan letak menu pada menu editor,
*10*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
masuk jendela kode ketikan listing program berikut :
Private Sub Command1_Click()
End ‘ mengakhiri program
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbRightButton Then
PopupMenu mnufonts 'memanggil menu menjadi pop up menu
End If
End Sub
Private Sub mnu8_Click()
Label1.FontSize = 8 '
End Sub
Private Sub mnu18_Click()
Label1.FontSize = 18
End Sub
Private Sub mnu26_Click()
Label1.FontSize = 28
End Sub
Private Sub mnumerah_Click()
Label1.ForeColor = &HFF& ' warna merah
End Sub
Private Sub mnu14_Click()
Label1.Font = 14
End Sub
Private Sub mnuhijau_Click()
Label1.ForeColor = &H8000& ' warna hijau
End Sub
Private Sub mnubiru_Click()
Label1.ForeColor = &HFF0000 'warna biru
End Sub
Private Sub mnutahoma_Click()
Label1.FontName = "tahoma"
End Sub
Private Sub mnustop_Click()
Label1.FontName = "Stop"
End Sub
*11*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
jalankan program, klik kanan pada form,Pop Up Menu anda akan tampil seperti berikut :
Perhatian !!!
Pop Up Menu hanya muncul jika kita lakukan event klik kanan padaform, Pop Up Menu tidak akan
muncul ketika kita mengklik kananobyek lain seperti label,button dan lainya.
BAB VI
PEMROGRAMAN DATABASE
Deskripsi Program:
Program ini merupakan program data sebuah komunitas, namun sebelum kita melihat data tersebut kita
diharuskan mendaftar untuk mendapatkan user dan password untuk masuk melihat data tersebut.
Berikut ini Langkah-langkahnya:
1. Buka Program VB,dan pilih standar project, kemudian buat 4 form,1 module dan 1 Data Environment pada
jendela Project Explorer klik kanan pada form 1 >add>form,ulangi langkah ini sampai terbentuk 4 form .
untuk module, pada jendela Project Explorer klik kanan pada form 1 >add>module, sedangkan untuk data
environment,pada menu bar view>Data view Window>add a data environment to the current project.
2. Membuat database,Add-ins>Visual Data Manager akan terbuka jendela baru. File>New>Microsoft Access
version 7.0 MDB tulis dan pilih lokasi file akan disimpan. Dalam hal ini data base pertama diberi judul login
(untuk database login). Akan muncul gambar sebagai berikut.
pada properties klik kanan>New Table,Table Name isi “Login”. Pada Field List>Add Field.
Name
Type
User
text
Pass
text
Kemudian Build The Table. Data Base Pertama telah selesai.
Size
25
25
Lanjut membuat database kedua File>New>Microsoft Access version 7.0 MDB simpan di lokasi yang sama
dengan database login dengan nama “Data” setelah itu properties klik kanan>New Table,Table Name isi “Data”.
Pada Field List>Add Field.
Nam
NAM
NI
FAKULTA
JURUSA
e
A
M
S
N
Typ
Text
Tex
Text
Text
IPK
NO.H
P
Tex
Text
e
t
t
Size 50
50
50
50
50
50
Kemudian Build The Table. Data Base telah selesai kemudian tutup semua jendela.
*12*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
3. A. Program VB simpan terlebih dahulu di dalam folder yang sama dengan database disimpan. Setelah
Disimpan,Project Explorer> DataEnvironment1, Propertis windows> Name (DataEnvironment1 diganti “DT”)
klik kanan connection1>properties,
Provider>Microsoft Jet 4.0 OLE DB Provider>Next, setelah itu
connection> 1. Select or enter a database name> klik .… Pilih database “data” yang kita buat tadi> OK.
Setelah itu klik kanan Command> Add Command, Klik kanan “command1” yang baru saja dibuat> Propertis,
General pada command name tulis “command1” dan Connection>Connection1. Pada source of data:
Database Object> Table dan Object Name > Data kemudian pada Tab Advance>Lock Type>3-Optimisic
setelah itu “OK”.
4. Klik
kanan
connections>Add
connection
maka
akan
terbentuk
connection2.
klik
kanan
connection2>properties, Provider>Microsoft Jet 4.0 OLE DB Provider>Next, setelah itu connection> 1.
Select or enter a database name> klik .… Pilih database “login” yang kita buat tadi> OK. Setelah itu klik
kanan Command> Add Command, Klik kanan “command2” > Propertis, General pada command name tulis
“command2” dan Connection>Connection2. Pada source of data: Database Object> Table dan Object Name >
login kemudian pada Tab Advance>Lock Type>3-Optimisic setelah itu “OK”.
Nama connection2 diganti menjadi pass melalui properties window>Name
Tampilan DT(DataEnvironment) setelah Langkah di atas lengkap dan benar.
5. Aktifkan Microsoft Activex Data Objects 2.0 Library
6. Sekarang tinggal mengatur Form yang telah kita buat
a. Form1
Rancang Form1 seperti ini
Properti
s
Label
(atas)
Label
(bawah)
Textbox
Textbox
Cmd
button
Cmd
button
Cmd
button
*13*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
Form1
(Name)
Caption/
Label1
User
Label2
Pass
Text
txtuser
“kosong
txtpass
“kosong
”
”
Cmdok
OK
Cmdcancel
Exit
Command1
Daftar
Code
Public LoginSuccess As Boolean
Dim RS As ADODB.Recordset
Private Sub cmdcancel_Click()
End
End Sub
Private Sub cmdok_Click()
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.Open "SELECT * FROM login WHERE User = '" + txtuser + "' and Pass = '" + txtpass + "' ",
CN, adOpenDynamic, adLockOptimistic
If (txtpass.Text = "") And (txtuser.Text = "") Then
MsgBox "Please Type Username and Password"
txtpass.Text = ""
txtuser.Text = ""
txtuser.SetFocus
ElseIf (txtuser.Text = "") Then
MsgBox "Please Type Username"
txtuser.Text = ""
txtuser.SetFocus
ElseIf (txtpass.Text = "") Then
MsgBox "Please Type Password"
txtpass.Text = ""
txtpass.SetFocus
Else
With RS
If RS.RecordCount = 1 Then
Unload Me
MsgBox "Access Code Accepted!"
Form2.Show
Unload Me
Else
MsgBox "Password and/or Username Mismatch!"
txtpass.Text = ""
txtuser.Text = ""
txtuser.SetFocus
End If
End With
End If
End Sub
Private Sub Command1_Click()
Form1.Hide
Form3.Show
End Sub
Private Sub Form_Load()
Me.Show
Set CN = New ADODB.Connection
CN.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\login.mdb;Persist
Security Info=False;Jet OLEDB:Database Password=MLEVDQ48L2"
End Sub
b. Form2
*14*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
Aktifkan toolbox Microsoft Data Grid Control 6.0 OLEDB, dengan control Ctrl+T pada control
conteng Microsoft Data Grid Control 6.0 OLEDB lalu OK
Rancang Form2 seperti ini :
Propertis Form2
DataGrid
(Name)
Caption
DataGrid1
Kosong
Data
Data
AllowUpdat
Sourc
Member
e
Code
Private
e
DT
Command
Fales
Command1_Click()
End
End Sub
1
Commandbutto
Command
KELUA
n
1
R
Sub
c. Form3
Rancang Form3 Seperti Ini
Buat didalam Frame 1 commandbutton,6 label dan 6 textbox
Properti
s Form3
(Name)
Caption
Label
Label1
NAMA
Label2
NIM
Label3
FAKULTAS
cmdbutton
Label4
JURUSAN
Label5
IPK
Label6
NO
Command1
Selanjutnya
HP
Propertis Form3
Frame
(Name)
Frame
Propertis
Form3
(Name)
Text
DataSource
Data Member
Data Field
Caption
kosong
Kemudian
Textbox
Text 1
Text 2
NAMA
NIM
Text 3
Text 4
Kosong
DT
Command1
FAKULTAS
JURUSAN
Visible
False
satu
commandbutton dengan
Text 5
Text 6
IPK
NO
HP
(Name)=command2;caption=OK
Code
*15*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
Option Explicit
Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "data belum lengkap"
ElseIf Text2.Text = "" Then
MsgBox "data belum lengkap"
ElseIf Text3.Text = "" Then
MsgBox "data belum lengkap"
ElseIf Text4.Text = "" Then
MsgBox "data belum lengkap"
ElseIf Text5.Text = "" Then
MsgBox "data belum lengkap"
ElseIf Text6.Text = "" Then
MsgBox "data belum lengkap"
Else
DT.rsCommand1.AddNew
Form3.Hide
Form4.Show
End If
End Sub
Private Sub Command2_Click()
DT.rsCommand1.AddNew
Frame1.Visible = True
Command2.Visible = False
End Sub
d. Form4
Rancang form4 seperti ini
Buat didalam Frame 1 commandbutton,2 label dan 2 textbox
Propertis
Form4
Label
(atas)
Label
(bawah
Textbox
Textbox
1
2
(Name)
Label
Caption/Te
1
User
)
Label2
Text1
Pass
xt
Cmd
button
Cmd
button
Text2
Command
Command
“kosong
“kosong
1
Selanjutny
2
OK
”
”
a
Propertis Form4
DataSource
DataMember
DataField
Texbox1
DT
Command2
User
Textbox2
DT
Command2
Pass
Kemudian satu commandbutton dengan (Name)=command1;caption=OK
Code
*16*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
Private Sub Command1_Click()
DT.rsCommand2.AddNew
frame.Visible = True
Command1.Visible = False
End Sub
Private Sub Command3_Click()
If Text1.Text = "" Then
MsgBox "data belum lengkap"
ElseIf Text2.Text = "" Then
MsgBox "data belum lengkap"
Else
DT.rsCommand2.AddNew
MsgBox "Selamat Registrasi Telah Selesai"
Form1.Show
Form4.Hide
End If
End Sub
e. Module1
Code
Option Explicit
Public CN As ADODB.Connection
BAB VII
MEMBUAT APLIKASI
3.TulisnamafileEXE(misalnyaProgramPenjualan)
4.Tentukanposisipenyimpananfiletersebut(misalnyapadadirektoriC:\BelajarVB)
5.KemudianpilihOK
2. MembuatShortcut
*17*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
SetelahterbentukfileEXEdenganlangkah-langkahdiatas,makasebaiknyaAndapun
membuatshortcut-nyadidesktopdengantujuanagarpadasaatprogramtersebutdijalankan
Andacukupdenganmelakukandouble-Clickpadashortcuttersebuttanpaharusmembuka
sistemVisualBasic.
Untuk membuat shortcut di desktop lakukan langkah-langkah di bawah ini:
1. Tampilkan Desktop
2. Klik kanan mouse
3. Pilih New
4. Pilih Shortcut
5. Klik Browse…
6. Pilih direktori C:\Belajar VB
7. Klik Open
8. Pilih file Program Penjualan
9. Klik Open, maka akan muncul menu seperti gambar berikut :
10. Klik Next
11. Jika perlu, ubahlah dengan nama shortcut yang baru
12. Klik Finish
Dengancarainimakaakanterbentuksebuahshortcutbarudidesktop,jikaAndamelakukan
Double-Clickpadashortcuttersebutmakaakantampilprogramaplikasipenjualanyangtelah
dikompilasidengannamaProgramPenjualan.
MembuatFileSetup
Jikasebuahprograminginditransferkekomputerlain,makaakanlebihbaikjikacara
memindahkannyadenganmembuatfilesetup-nyaterlebihdahulu.Walaupuncarapenyalinan
jugadapatdigunakanuntukmentransperprogram,tetapicaratersebutdirasakankurangaman.
Untukmembuatfilesetuplakukanlangkah-langkahberikutini:
A.Tahappersiapan.
1.Buatlahsebuahdirektoribaru(misalnyaSetupPenjualan)tempatmenyimpanfile setupdanfilefilependukunglainnyasepertifilehasildesainCrystalReport,
beberapaformyangdirancangolehVisualBasicdanlain-lain.
2. Salinlah (copy) file-file yang dibutuhkan seperti yang disebutkan pada point 1.
*18*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
B. Membuat file setup
1. Klik ikon Start
2. Pilih Programs
3. Pilih Microsoft Visual Studio 6.0
4. Pilih Microsoft Visual Studio Tools
5. Pilih Package & Development Wizard
6. Klik Browse …
7. Aktifkan direktori C:\Belajar VB
8. Pilih project dengan nama Aplikasi Penjualan
9. Klik Open, sehingga muncul tampilan berikut ini :
10. Kemudian pilih Package
11. Pilih
12.KemudianpilihPackage
13.PilihStandardSetupPackage
14.KlikNext>
*19*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012
28.KlikFinish
Dengan cara di atas Anda telah membuat sebuah file setup aplikasi penjualan. Untuk
melihathasilnya, lakukan proses setup (instalasi) program dengan langkah-langkah berikut ini :
1.BukaWindowsExplorer
2.PilihdirektoriSetupPenjualan
3.Double-ClickikonSetup(gambarkomputerwarnabiru),akanmuncultampilansepertidi
bawahini:
4.KlikOK,akantampilgambardibawahini:
*22*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012