BAB I PENDAHULUAN Mengenal Visual Basic (VB) Mengenal Integrated Development Environment (IDE) VB 6

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.


-

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


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


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.


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


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>


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.KlikNext>

21.TulisnamaSetup(misalnyaAplikasiPenjualan) 22.KemudianklikNext>

23.KlikNext>

24.Sistemakanmencarifile-filependukungdarifilesetuptersebutdibeberapalokasi dalamharddiskyangnantinyadisimpandalamdirektoriSupport. 25.KemudianklikNext>


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:


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.


BAB I PENDAHULUAN Mengenal Visual Basic (VB) Mengenal Integrated Development Environment (IDE) VB 6

Recommend Documents