Latihan Visual Basic [part 2]

VISUAL BASIC 6.0 [Review] Manfaat Jenis-jenis aplikasi yang dapat dibuat menggunakan bahasa pemrograman Visual Basic 1. Aplikasi Grafis, contoh : simulasi kurva, games 2. Device Interface, contoh : sebagai software penghubung antara alat deteksi sidik jari dengan operating system 3. Aplikasi Database, contoh : Sistem Informasi Akuntansi, Sistem Informasi Kepegawaian, ERP 4. OLE Automation, contoh : otomatisasi Microsoft Office yang dikendalikan sepenuhnya oleh aplikasi yang dibangun dengan VB 5. ActiveX Builder, contoh : pembuatan ocx atau dll yang dapat digunakan dalam aplikasi visual yang lain – seperti Visual C++, Delphi 6. Virus, contoh : Virus Malingsi (dibangun menggunakan VB) Untuk dapat menjalankan aplikasi yang dibuat dengan Visual Basic ada beberapa file yang harus terinstall, demikian juga ketika akan mendistribusikan aplikasi untuk Client. Salah satu file penting tersebut adalah MSVBVM60.DLL 

January 12, 2009 

 

Author : Sukma Tri Cahyono 

Fokus Pembuatan Program

January 12, 2009 

Sebagai langkah awal kita akan fokus dalam pembuatan aplikasi database dan tipe project Standard EXE. Untuk tipe project dan manfaat VB yang lain bisa dipelajari sendiri dari eBook yang sudah di-copykan pada pertemuan I

Author : Sukma Tri Cahyono 

January 12, 2009 

VB User Interface

Author : Sukma Tri Cahyono 

January 12, 2009 

VB Toolbox Standard

Author : Sukma Tri Cahyono 

Cara Menambah Object Form dalam Project Klik Kanan pada Folder Forms di Project Window, lalu pilih Add – Form

Atau

January 12, 2009 

Klik pada Main Toolbar

Author : Sukma Tri Cahyono 

Latihan 2 : Tujuan

January 12, 2009 

1. Memahami object form 2. Memahami metode penggunaan object a. DriveListBox b. DirListBox c. FileListBox d. Image e. PictureBox 3. Dapat mengoptimalkan setting properties dari obyek-obyek yang ada 4. Memahami events yang terjadi dalam proses eksekusi program

Author : Sukma Tri Cahyono 

Desain Form & Object

January 12, 2009 

Tambah form dalam project yang sudah dibuat sebelumnya. Desain form dengan layout berikut :

Dengan properties: 1. Form a. Name b. Caption c. StartUpPosition d. Height e. Width f. BorderStyle 2. DriveListBox a. Name b. Height c. Width d. Left e. Top 3. DirListBox a. Name b. Height c. Width d. Left e. Top

Author : Sukma Tri Cahyono 

: : : : : :

frmLat2 Pengenalan File Controls, PictureBox dan Image 2 – CenterScreen 6645 7200 1 – Fixed Single

: : : : :

drvComp 315 2295 75 75

: : : : :

dirComp 1440 2265 75 480

January 12, 2009 

4. FileListBox a. Name b. Height c. Width d. Left e. Top 5. Image a. Name b. Height c. Width d. Left e. Top f. Stretch 6. PictureBox a. Name b. Height c. Width d. Left e. Top 7. CheckBox a. Name b. Height c. Width d. Left e. Top f. Tooltiptext 8. CommandButton a. Name b. Caption c. Height d. Width e. Left f. Top g. Tooltiptext

Author : Sukma Tri Cahyono 

: : : : :

flComp 3405 2265 75 1950

: : : : : :

ImgOut 1920 4470 2490 75 True

: : : : :

picOut 3360 4470 2490 2055

: : : : : :

chkOut 345 1950 165 5595 [Checked : Output ke Picture Box; Unchecked : Output ke Image]

: : : : : : :

cmdExit E&xit 510 1410 5550 5550 Klik disini untuk menutup form

Coding Buka jendela Code Di awal baris ketikkan perintah sebagai berikut; Option Explicit Dim filename As String Dim lastdrive As String 1. Pada saat desain form, klik 2x di form – frmLat2 [otomatis masuk kedalam code Private Sub Form_Load()] Ketik flComp.Pattern = "*.jpg;*.bmp" lastdrive = drvComp.Drive 2. Klik 2x CommandButton - cmdExit [otomatis masuk kedalam code Private cmdExit_Click()] Ketik

Sub

Unload Me 3. Klik 2x DriveListBox drvComp_Change()] Ketik

–

drvComp

[otomatis

masuk

kedalam

code

Private

Sub

On Error GoTo ErrCatch dirComp.Path = Left$(drvComp.Drive, 1) & ":\" ErrCatch: If Err.Number = 68 Then MsgBox "Drive tidak dapat diakses!", 64, "Informasi" Err.Clear drvComp.Drive = lastdrive End If 4. Klik 2x DirListBox – dirComp_Change()] Ketik

dirComp

[otomatis

masuk

kedalam

code

Private

Sub

January 12, 2009 

flComp.Path = dirComp.Path 5. Klik 2x FileListBox – flComp [otomatis masuk kedalam code Private Sub flComp_Click()] Ketik filename = flComp.Path If Right$(filename, 1) <> "\" Then filename = filename & "\" filename = filename & flComp.filename If chkOut.Value = 1 Then picOut.Picture = LoadPicture(filename) Else imgOut.Picture = LoadPicture(filename) End If

Author : Sukma Tri Cahyono 

Test & Run Tekan F5 atau klik tombol

Start pada Main Toolbar

Mengubah awal Eksekusi Dalam project yang sekarang, terdapat dua form. frmLat1 dan frmLat2. Jika ditekan F5 atau test run, maka yang dieksekusi oleh VB adalah frmLat1. Untuk mengubah agar frmLat2 yang dijalankan, lakukan langkah sebagai berikut : 1. Klik Menu Project – Pilih Properties

January 12, 2009 

2. Ubah Startup Object dari frmLat1 menjadi frmLat2

Author : Sukma Tri Cahyono 

January 12, 2009 

3. Klik OK 4. Lakukan Test Run atau tekan F5 atau CTRL + F5

Author : Sukma Tri Cahyono 

Hasil Design + Coding [Latihan2] 1. Pada awal eksekusi program form akan langsung berada tepat ditengah-tengah monitor 2. User dapat memilih file gambar jpg dan bmp dari direktori computer 3. Apabila drive belum siap seperti CD-ROM / USB / DVD-ROM / Floppy karena belum ada media penyimpan yang dipasang seperti CD, DVD, USB Flash, 3 ½ Floppy, maka aplikasi akan memberitahukan kepada user 4. Semua object yang sudah diisi tooltiptext-nya akan menampilkan petunjuk sesuai isi tooltiptext, apabila user menyorotkan mouse diatas object tersebut. Dalam latihan2 diatas object yang sudah diisi tooltiptext-nya adalah checkbox dan commandbutton

January 12, 2009 

Tugas Setelah menyelesaikan Latihan1 dan Latihan2, 1. Coba buat 1 form menggunakan object-object yang lain. Pelajari properties dan events-eventsnya 2. Dari form yang sudah ada frmLat1 dan frmLat2, percantik tampilan form yang ada. Asumsikan bahwa form akan digunakan oleh user sebenarnya, misal : Atasan diperusahaan masing-masing

Author : Sukma Tri Cahyono