Modul

Published on July 2016 | Categories: Types, School Work | Downloads: 66 | Comments: 0 | Views: 608
of 23
Download PDF   Embed   Report

Comments

Content

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

Nilai
16

Konstanta
vbCritical

Keterangan
Menampilkan
icon

32
48

vbQuestion
vbExclamation

Message
Menampilkan icon Warning Query
Menampilkan
icon
Warning

64

vbInformation

Message
Menampilkan

icon

Critical

Information

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

Cos (3.14) = -1
Exp (100) = 2,688
Int(123.45) = 123
Len (1234) = 4
Log (100) = 4,605
Round (1.23, 1) =

Sin()
Sqr()
Tan()

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

Name
Mnufonts
Mnusize
Mnu8
Mnu14
Mnu18
Mnu26
Mnupisah
Mnucolor
Mnumerah
Mnuhijau
Mnubiru
Mnupisah
Mnujenis
Mnutahoma
Mnustop

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

MembuatFileExe
ProgramyangtelahdibuatbiasanyaharusdijalankandengancaramembukasistemVisual
Basicterlebihdahulu,halinimemerlukanbanyakwaktudantenaga.Untukmelakukan
efisiensimakasebaiknyadibuatsebuahfileEXEdariprogramyangtelahlengkaptersebut.
Untukmembuatkompilasiprogramlakukanlangkah-langkahdibawahini:
1.Bukaprogramyangakandikompilasi(misalnyaAplikasiPenjualan)
2.KlikmenuFile,pilihMakeAplikasiPenjualan.exe…

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

15.PilihdirektoriSetupPenjualan(namadirektoriinitidakakanmunculjikasebelumnya
AndatidakmembuatnyasepertiyangdijelaskanpadatahappersiapanpointA
16.KlikNext>
KarenadalamaplikasipenjualaninisemualaporanmenggunakanCrystalReport,
makaaktifkanfilependukungnya.

Catatan:
Padatahapaninisebaiknyafiledatabasedanfile-filependukunglainnyasepertifilelaporan
yangdibuatdenganCrystalReportditambahkan,caranyaklikadd,carifileyangakan
ditambahkan,klikopen
17.Kemudianaktifkan(pilih)jugafile-filependukunglainnya
18.KlikNext>
19.UntukmenyimpanfileSetupkedisket,pilihlahSingleCab(1,44MB)

*20*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012

20.KlikNext>

21.TulisnamaSetup(misalnyaAplikasiPenjualan)
22.KemudianklikNext>

23.KlikNext>

24.Sistemakanmencarifile-filependukungdarifilesetuptersebutdibeberapalokasi
dalamharddiskyangnantinyadisimpandalamdirektoriSupport.
25.KemudianklikNext>

*21*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012

26.FileSetuptersebutakanmelakukansharingdenganfileexeyangtelahdibuat
sebelumnya,klikpadaCheckBoxProgramPenjualan.Exe
27.KemudianklikNext>

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

5.JikaakanmeneruskanSetup,klikikonbergambarkomputer,untukmengubahtempatfile
programdijalankan,klikikonChangeDirectorykemudiantentukanposisinyadalam
harddisk,untukmembatalkan(keluar)dariSetup,klikExitSetup.

6.TentukanGroupprogramnya,laluklikContinue
7.Tungguprosessetuphingga100%
8.Denganlangkah-langkahdiatas,Andatelahmelakukansetup(instalasi)Aplikasi
Penjualanpadakomputer,dengancarainilahAndadapatmemperbanyakprogram
tersebutpadakomputer-komputerlainyangdiinginkan.

*23*
Laboratorium Praktikum Program Komputer
Jurusan Teknik Pertambangan 2012

Sponsor Documents

Or use your account on DocShare.tips

Hide

Forgot your password?

Or register your new account on DocShare.tips

Hide

Lost your password? Please enter your email address. You will receive a link to create a new password.

Back to log-in

Close