Pemrograman Visual Basic

Praktikum Pemrograman Visual Basic ± Muhammad Rizal,S.Kom

1

Pemrograman Visual Basic

Visual adalah suatu System Pemrograman berbasis windows dan full GUI (Graphic User Interface), dimana seorang programmer dapat melakukan pemrograman secara visual yaitu desain dari suatu antar muka suatu program sudah dapat dilihat walaupun program tersebut belum pernah di run (jalankan). ( jalankan). Seperti yang terlihat pada gambar ga mbar di bawah ini :

Menu File

Propertis Tool Box

Object Form

Gambar 1. Desktop dari Visual Visual Basic

Layar desktop dari Visual Basic ini terdiri dari banyak jendela, ada jendela toolbox, jendela properties, jendela project, jendela design form, jendela form layout jendela menu, dan masih banyak lagi jendela yang tidak nampak pada layar desktop visual basic, yang akan ditampilkan jika diperlukan. d iperlukan. Nah, sekarang kita akan mencoba untuk membuat dasar-dasar dari pemrograman visual basic««!!!

Latihan 1. 1. Komponen Text, Timer & Button

Visual Basic adalah suatu pemrograman berbasis Windows yang selalu menggunakan suatu objek form untuk mendesain program applikasinya, salah satu contoh di bawah ini adalah penggunaan komponen text, button dan timer yang menampilkan waktu (jam) yang berjalan terus apabila apabila terjadi click mouse mouse pada Button Start. Pada Visual Basic object Form sebagai tempat mendesain Applikasi dan selalu pertama kali di beri nama form1 setelah itu terserah anda, jika anda ingin mengganti namanya, maka kita menggantinya pada property caption sebagai keterangan atau property namanya sebagai nama object tersebut.


2

Langkah-langkah Pembuatan : Desain komponen kontrol : Untuk menempatkan suatu komponen ke dalam Form anda bisa mengklik double atau mengklik sekali lalu mouse diseret pada form sesuai ukuran yang kita inginkan untuk setiap objek. 1. Tempatkan kontrol Text sebanyak 3 2. Tempatkan kontrol CommandButton satu buah, beri kata start pada property captionnya 3. Tempatkan kontrol label satu buah, beri kata Penggunaan komponen text dan timer 4. Tempatkan komponen timer satu buah 5. atur komponen-komponen tersebut sesuai dengan gambar di bawah ini

6. klik double Button start lalu ketikkan statement stat ement seperti di bawah ini : Private Sub Command1_Click() µYang dicetak miring miring tidak usah diketik diketik If Command1.Caption = "Start" Then Awal = Now Text1.Text = Format(Awal Fo rmat(Awal,, "hh:mm:ss") "h h:mm:ss") Command1.Caption = "Stop" ElseIf Command1.Caption = "Stop" Then Akhie = Now Lama = Akhir - Awal Text3.Text = Format(Lama, Fo rmat(Lama, "hh:mm:ss") Command1.Caption = "Selesai" ElseIf Command1.Caption = "Selesai" Then End End If End Sub 7.

emudian K emudian

klik double pada form lalu pilih tab general lalu ketik : Dim Awal, Akhir, Lama As Single 8. K lik lik double komponen timer lalu ketik ket ik : Private Sub Timer1_Timer() If Command1.Caption = "Stop" Then Text2.Text = Format(Now, Fo rmat(Now, "hh:mm:ss") Text3.Text = Format(Now - Awal, "hh:mm:ss") End If End Sub 9. Jalankan program tersebut dengan menekan F5 Tugas : Tambahkan komponen text1 untuk menampilkan menampilkan tanggal sesuai dengan format dd-mmm-yyyy


2.

3

Penggunaan Array Kontrol

Objek K ontrol ontrol juga dapat dijadikan suatu array yang dapat digunakan lebih cepat dari menggunakan objek kontrol yang bukan array. Contoh seperti di bawah : Langkah pembuatan : 1. Tempatkan 1 buah kontrol text ke dalam form lalu copy menjadi empat buah 2. lalu atur seperti gambar di bawah ini :

3. Tempatkan 2 kontrol commandButton lalu pada captionnya ketikkan masing yaitu :Hitung dan Selesai 4.

lik K lik

double CommandButton hitung lalu lalu ketikkan seperti di bawah ini: Private Sub Command1_Click() Text1(3).Text = Val(Text1(1).Text) * Val(Text1(2).Text) End Sub 5. K lik lik CommandButton Selesai lalu ketik sbb : Private Sub Command2_Click() End End Sub 6. klik pada form lalu ketik sbb : Private Sub Form_Load() Dim I As Byte For I = 0 To 3 Text1(I).Text = "" Next I End Sub 7. K lik lik Run atau tekan F5 3. Array CommandButton dan Event MouseMove Untuk Array objek commandButton ini, kita belajar menempatkan satu perintah hanya satu objek pada event klik dan semua objek command button akan terpengaruh dikarenakan objek-objek tersebut bersatu dalam array. Langkah pembuatan : 1. Tempatkan 1 buah kontrol CommandButton ke dalam form lalu copy menjadi 20 buah 2. Tempatkan kontrol label lalu rubah captionnya menjadi ³Menampilkan Pesan´ 3. lalu tempatkan kontrol CommandButton 1 buah lagi lagi lalu ganti property captionnya menjadi Exit. 4. lalu atur seperti gambar di bawah ini :


4

5. Lalu pada kontrol CommandButton paling kiri atas di klik double lalu ketikkan sbb : Private Sub Command2_Click(index As Integer) If index = 0 Then MsgBox "Command 0 di klick" ElseIf index = 1 Then MsgBox "Command 1 di klick" ElseIf index = 2 Then MsgBox "Command 2 di klick" ElseIf index = 3 Then MsgBox "Command 3 di klick" ElseIf index = 4 Then MsgBox "Command 4 di klick" ElseIf index = 5 Then MsgBox "Command 5 di klick" k lick" ElseIf index = 6 Then MsgBox "Command 6 di klick" ElseIf index = 7 Then MsgBox "Command 7 di klick" ElseIf index = 8 Then MsgBox "Command 8 di klick" ElseIf index = 9 Then MsgBox "Command 9 di klick" ElseIf index = 10 Then MsgBox "Command 11 di klick" ElseIf index = 12 Then MsgBox "Command 12 di klick" ElseIf index = 13 Then MsgBox "Command 14 di klick" ElseIf index = 15 Then MsgBox "Command 15 di klick" ElseIf index = 16 Then MsgBox "Command 16 di klick" ElseIf index = 17 Then MsgBox "Command 17 di klick" ElseIf index = 18 Then MsgBox "Command 18 di klick" ElseIf index = 19 Then MsgBox "Command 19 di klick" End If End Sub 6. Lalu Pada kontrol CommandButton Exit ketikkan Private Sub Command1_Click() End End Sub


5

7. Lalu pada Event From Activate ketikkan sbb : Private Sub Form_Activate() Dim i As Integer For i = 0 To 19 Command2(i).Caption = "Array " + Str(i) Next i End Sub 8. Pada event form MouseMove ketikkan sbb : Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.CurrentX = X + 10 Form1.CurrentY = Y + 10 Form1.ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Form1.Print "Ichal" End Sub 9. K lik lik Run atau tekan F5 Latihan

2

1. Penggunaan Frame dan Option Frame biasa digunakan untuk mengelompokkan suatu kontrol-kontrol, contohnya adalah penggunaan kontrol option yang berfungsi untuk suatu pemilihan kondisi hanya pada satu kondisi dan kondisi yang lain tidak berlaku, bagaimana jika ada dua kondisi yang ingin dilakukan ? jawabnya gunakan frame untuk melakukan pengelompokan option. Langkah Pembuatan : 1. Tempatkan 2 K ontrol ontrol Label dan ketik pada captionnya ³Penggunaan Frame & Option´ dan yang kontrol label kedua beri pada captionnya ³Universitas Veteran Republik Indonesia´ 2. Tempat 2 Frame lalu rubah masing-masing captionnya dengan ³Warna Tulisan´ dan ³Warna Latar Belakang´ 3. Tempatkan komponen option dengan cara menglik pada objek option tersebut lalu tempatkan tepat di dalam frame masing 5 option. 4. Atur K omponen omponen kontrol tersebut seperti gambar di bawah ini :

5. Lalu ketikkan pada event form activate sbb : Private Sub Form_Activate() Option1.Caption = "Merah" Option2.Caption = "K uning" uning" Option3.Caption = "Hijau" Option4.Caption = "Biru" Option5.Caption = "White" Option6.Caption = "Merah" Option7.Caption = "K uning" uning"


6

Option8.Caption = "Hijau" Option9.Caption = "Biru" Option10.Caption = "White" End Sub 6. K emudian emudian ketik ket ik statemen pada masing-masing option seperti di bawah ini : Private Sub Option1_Click() Label2.ForeColor = vbRed End Sub Private Sub Option10_Click() Label2.BackColor = vbWhite End Sub Private Sub Option2_Click() Label2.ForeColor = vbYellow End Sub Private Sub Option3_Click() Label2.ForeColor = vbGreen End Sub Private Sub Option4_Click() Label2.ForeColor = vbBlue End Sub Private Sub Option5_Click() Label2.ForeColor = vbWhite End Sub Private Sub Option6_Click() Label2.BackColor = vbRed End Sub Private Sub Option7_Click() Label2.BackColor = vbYellow End Sub Private Sub Option8_Click() Label2.BackColor = vbGreen End Sub Private Sub Option9_Click() Label2.BackColor = vbBlue End Sub

7.

lik K lik

Run atau tekan F5 2. Penggunaan K ontrol ontrol Check Box

Untuk K omponen omponen kontrol Check Box berfungsi untuk melakukan pilihan lebih dari 1 pilihan, bahkan dapat dipilih semuanya sebanyak objek check box tersebut di pasang. Untuk penggunaan check box pada program seperti latihan di bawah ini :

Langkah Pembuatan : 1. Tempatkan 7 kontrol label lalu ketik masing-masing pada captionnya : - ³Penggunaan Check Box´


7

- Bilangan A - Bilangan B - K ali, ali, Tambah, K urang urang dan Bagi 2. Lalu tempatkan kontrol text sebanyak 6 3. lalu tempat kontrol kommand button lalu ketik caption = ³K eluar´ eluar´ 4. lalu atur seperti gambar di bawah ini :

5. lalu klik double form kemudian buat pada kode editor prosedure baru dengan nama sub Hitung lalu ketik isinya seperti sepert i di bawah ini : Sub hitung() If Len(Text1.Text) > 0 And Len(Text2.Text) > 0 Then If Check1.Value = 1 Then Text3.Text = Val(Text1.Text) * Val(Text2.Text) Else Text3 = 0 End If If Check2.Value = 1 Then Text4.Text = Val(Text1.Text) + Val(Text2.Text) Else Text4.Text = 0 End If If Check3.Value = 1 Then Text5.Text = Val(Text1.Text) - Val(Text2.Text) Else Text5.Text = 0 End If If Check4.Value = 1 Then Text6.Text = Val(Text1.Text) / Val(Text2.Text) Else Text6.Text = 0 End If End If End Sub 6. lalu ketik pada event form activate sbb : Private Sub Form_Activate() Text3.Text = "" Text4.Text = "" Text5.Text = "" Text6.Text = "" End Sub 7. K emudian emudian ketik pada event clik untuk objek check1 s/d check 4 sbb : Private Sub Check1_Click() hitung End Sub Private Sub Check2_Click()


8

hitung End Sub Private Sub Check3_Click() hitung End Sub Private Sub Check4_Click() hitung End Sub

8.

emudian K emudian

ketik statement pada CommandButton pada event click sbb : Private Sub Command1_Click() End End Sub

9.

emudian K emudian

ketik statement masing-masing pada text1 dan text2 untuk event change sbb: Private Sub Text1_Change() hitung End Sub

Private Sub Text2_Change() hitung End Sub 10. K lik lik Run atau Tekan F5

Tugas : Tambahkan program di atas yang berfungsi untuk menampilkan sisa hasil pembagian (modulus) gunakan operator %.


9

Latihan 3

1. K ondisi ondisi Percabangan IF Then Elseif Endif Pada modul ini latihan 3 ini, kita mempelajari bagaimana mempergunakan kondisi percabangan If Then Elseif Endif dan juga kegunaan dari event K eyPress. eyPress. Langkah pembuatan : 1. Setelah form baru telah di load lakukan penempatan objek-objek seperti :´ a. Objek label sebanyak 6 kemudian atur dan rubah captionnya seperti di bawah ini. b. Objek Button sebanyak 2 buah lalu atur dan rubah captionnya. c. Objek Text Box sebanyak 5 buah lalu atur seperti seperti gambar di bawah ini. ini. d. Pada objek text4 dan text 5 ubah property enabled = false false

2. Isikan Statement pada Command Hitung sbb : Private Sub Command1_Click() If Val(Text3.Text) > 90 Then Text4.Text = "A" Text5.Text = "Pintar Sekali" ElseIf Val(Text3.Text) > 80 And Val(Text3.Text) <= 90 Then Text4.Text = "B" Text5.Text = "Pintar" ElseIf Val(Text3.Text) > 70 And Val(Text3.Text) <= 80 Then Text4.Text = "C" Text5.Text = "K urang urang Belajar" Else Text4.Text = "E" Text5.Text = "Tidak Belajar" End If 3. Lalu pada masing-masing objek text1,2 & 6 di event on K eyPress eyPress ketikkan perintah sbb : Private Sub Text1_KeyPress(KeyAscii As Integer) If K eyAscii eyAscii = 13 Then Text2.SetFocus End If End Sub Private Sub Text2_KeyPress(KeyAscii As Integer) If K eyAscii eyAscii = 13 Then Text3.SetFocus End If End Sub Private Sub Text3_KeyPress(KeyAscii As Integer) If K eyAscii eyAscii = 13 Then Command1.SetFocus


10

End If End Sub 4. Isikan statemen pada Button K eluar eluar sbb : Private Sub Command2_Click() End End Sub 5. Jalankan Dengan menekan tombol F5

2. Penggunaan Percabangan Select Case «« End Select Jika

kita menggunakan kondisi percabangan menggunakan kondisi if maka kondisi tersebut hanya menyeleksi 2 kondisi saja, jika kita menggunakan percabangan Select Case maka kondisi tersebut bisa lebih dari satu percabangan contoh program seperti di bawah ini : Langkah Pembuatan : 1. Tempatkan Frame di pojok kanan atas atas form lalu isi frame tersebut dengan 2 objek label lalu isi masing-masing property captionnya seperti pada gambar di bawah ini. 2. Tempatkan objek label sebanyak 8 buah lalu isikan property captionnya seperti gambar di bawah ini : 3. Tempatk objek Textbox sebanyak 8 buah 4. Tempat objek command button lalu isi captionnya = ³Selesai´ 5. Atur objek-objek tersebut sesuai gambar di bawah ini : 6. klik double objek command1 lalu isi program seperti di bawah ini : Private Sub Command1_Click() End End Sub 7. klik double objek text1 lalu pilih pilih event LostFocus kemudian ketik statement statement sbb : Private Sub Text1_LostFocus() If Text1.Text = "" Then Then End End If End Sub

8. klik double pada form lalu pilih event Activate lalu ketik statement sbb : Private Sub Form_Activate() Text1.Text = "" : Text2.Text = "" : Text3.Text = "" : Text4.Text = 0 Text5.Text = "" :Text6.Text :Text6.Text = 0 : Text7.Text = 0 : Text8.Text = 0 End Sub 9. K lik lik double objek text1 lalu pilih event K eypress eypress kemudian isi program sbb : Private Sub Text1_KeyPress(KeyAscii As Integer) If K eyAscii eyAscii = 13 Then


Text2.SetFocus End If End Sub 10. K lik lik double objek text2 lalu pilih event K eypress eypress kemudian isi program sbb : Private Sub Text2_KeyPress(KeyAscii As Integer) If K eyAscii eyAscii = 13 Then Text5.SetFocus End If End Sub 11. K lik lik double objek text2 lalu pilih event Lostfocus kemudian isi program sbb: Private Sub Text2_LostFocus() Dim kdbrg As String, nmbrg As String Dim Harga As Single Text2.Text = UCase(Text2.Text) kdbrg = Text2.Text Select Case Trim(kdbrg) Case "A001" nmbrg = "LEMARI BESI (BRANK AS)" AS)" Harga = 750000 Case "A002" nmbrg = "LEMARI PLASTIK " Harga = 100000 Case "A003" nmbrg = "LEMARI K AYU" AYU" Harga = 500000 Case "B001" nmbrg = "RANJANG SPRING BED" Harga = 2500000 Case "B002" nmbrg = "RANJANG PENGANTIN" Harga = 3500000 Case "B003" nmbrg = "RANJANG BIASA SAJA" Harga = 1000000 Case Else MsgBox "Isikan kode baran" nmbrg = "" Harga = 0 End Select Text3.Text = nmbrg Text4.Text = Harga End Sub 12. K lik lik double objek text5 lalu pilih event K eypress eypress kemudian ketik sbb : Private Sub Text5_KeyPress(KeyAscii As Integer) If K eyAscii eyAscii = 13 Then Text6.SetFocus End If End Sub 13. K lik lik double objek text6 lalu pilih event K eypress eypress kemudian ketik sbb : Private Sub Text6_KeyPress(KeyAscii As Integer) If K eyAscii eyAscii = 13 Then Text1.SetFocus End If End Sub 14. K lik lik double objek text6 lalu lalu pilih event Lostfocus kemudian ketik sbb : Private Sub Text6_LostFocus() Dim jmlbrg As Integer, diskon As Single Dim Totalbyr As Single, Ttbyr As Single

11


jmlbrg = Val(Text6.Text) Ttbyr = Val(Text4.Text) * jmlbrg If jmlbrg > 10 Then diskon = (10 / 100) * Ttbyr Else diskon = 0 End If Text7.Text = diskon Text8.Text = Format$(Ttbyr - diskon, "###,###,##0.00") Text1.SetFocus End Sub 15. Jalankan Dengan menekan tombol F5

12


13

Latihan 4

1. Penggunaan Listbox dan Combobox Langkah Pembuatan : 1. Tempatkan objek Label beri warna biru pada text tersebut lalu ketik seperti gambar di bawah ini 2. Tempatkan objek label sebanyak 4 buah lalu atur seperti di bawah ini 3. Tempatkan 3 buah objek Combobox lalu rubah masing-masing pada property Style yaitu : 0.Dropdown Combo, 1.Simple Combo, 2. Dropdown Lis L istt 4. Tempat Objek List box lalu atur at ur seperti gambar di bawah ini 5. Tempatkan lagi objek text di bawah objek listbox 6. Tempatkan objek Command 2 buah lalu atur seperti di bawah ini

7. Pada objek Command1 (yang mempunyai titik titik 3) di even click isi program sbb : Private Sub Command1_Click() List1.AddItem Text1.Text End Sub 8. Pada objek Command2 (yang mempunyai kata ³Remove Item´) di even click isi program sbb: Private Sub Command2_Click() On Error Resume Next List1.RemoveItem (List1.ListIndex) End Sub 9. Pada objek Form klik double lalu pilih even Load kemudian ketik programnya sbb : Private Sub Form_Load() Combo1.AddItem "Merah" Combo1.AddItem "K uning" uning" Combo1.AddItem "Hijau" Combo1.AddItem "Ungu" Combo1.AddItem "Biru" Combo1.AddItem "Coklat" Combo1.AddItem "Putih" Combo2.AddItem "Merah" Combo2.AddItem "K uning" uning" Combo2.AddItem "Hijau" Combo2.AddItem "Ungu" Combo2.AddItem "Biru" Combo2.AddItem "Coklat" Combo2.AddItem "Putih" Combo3.AddItem "Merah" Combo3.AddItem "K uning" uning"


14

Combo3.AddItem "Hijau" Combo3.AddItem "Ungu" Combo3.AddItem "Biru" Combo3.AddItem "Coklat" Combo3.AddItem "Putih" End Sub 10. Jalankan program tersebut dengan menekan tombol F5 2. K omponen omponen DriveListBox, DirLis D irListBox, tBox, FileListBox. Program ini menggunakan komponen ko mponen DriveListBox, DirListBox, DirListBox, FileListBox untuk menampilkan nama drive, direktori dan nama file sedangkan komponen text berfungsi untuk menampilkan isi dari file text tersebut. Langkah Pembuatan : 1. Tempatkan Objek DriveListBox, DirListBox, & FileListBox dan atur seperti gambar di bawah ini : 2. Untuk Proerti Pattern pada Objek FileListBox berikan ³*.*´ 3. Tempatkan objek text di bawah ketiga komponen tadi 4. Juga Tempatkan K omponen omponen Label lalu isi caption capt ion seperti di bawah ini.

5. Tempatkan buatlah sebuah file modul dengan cara mengklik menu Project ± Add Module lalu save dengan nama FileOpen.bas, lalu isi program sbb : Option Explicit Dim Nomer As Integer Sub OpenFile(strOpenFilename) Nomer = FreeFile On Error Resume Next Open strOpenFilename For Input As Nomer If Err Then MsgBox "tidak "tidak dapat membuka file: " + strOpenFilename Close Nomer Exit Sub End If Screen.MousePointer = 11 Form1.Text1.Text = Input(LOF(Nomer), Nomer) Close Nomer Screen.MousePointer = 0 End Sub


6.

objek DirListBox (Dir1) lalu pilih event change ket ik programnya sbb : Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub

7.

lik K lik

15

lik K lik

objek DriveListBox lalu pilih event change k etik programnya sbb : Private Sub Drive1_Change() Dir1.Path = Drive1.Drive End Sub 8. K lik lik objek FileListBox lalu pilih event DblClick ketik pro gramnya sbb : Private Sub File1_DblClick() Dim strOpenFilename As Strin St ring g strOpenFilename = "" strOpenFilename = File1.FileName OpenFile (Dir1.Path + "\" + strOpenFilename) End Sub 9. K lik lik objek Form lalu pilih event Activate kemudian ketik programnya sbb : Private Sub Form_Activate() Dir1.Path = Drive1.Drive Text1.Text = " " End Sub 10. Jalan program dengan menekan tombol F5

Latihan 5

1. Penggunaan Vertical Scroll dan Horisontal Scroll Vertical Scroll dan Horisontal Scroll sama-sama menggunakan suatu nilai untuk menghitung penggulungan dari balok penggulungnya dengan property max untuk nilai yang tertinggi dan property min untuk nilai yang terendah serta property value untuk penghitungan nilai yang sedang di gulung (scroll). Contoh Program sbb : Langkah Pembuatan : 1. Tempatkan 2 kontrol komponen label 2. Tempatkan 1 kontrol komponen Vertical scroll 3. Tempatkan 3 kontrol ko ntrol komponen Horisontal scroll 4. Tempatkan 1 komponen Timer dan 1 komponen Check Box

5.

lik K lik

double form lalu pilih event Activate kemudian ketik sbb :


Private Sub Form_Activate() Label2.Caption = "" VScroll1.Max = Label1.Width End Sub 6. K lik lik double Hscroll1 lalu pilih event Change lalu ketik sbb : Private Sub HScroll1_Change() HScroll1_Scroll End Sub 7. K lik lik double Hscroll1 lalu pilih event Scroll lalu ketik sbb : Private Sub HScroll1_Scroll() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub 8. K lik lik double Hscroll2 lalu pilih event Change lalu ketik sbb : Private Sub HScroll2_Change() HScroll2_Scroll End Sub

9.

lik K lik

double Hscroll2 lalu pilih event Scroll lalu ketik sbb : Private Sub HScroll2_Scroll() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub

10. K lik lik double Hscroll3 lalu pilih event Change lalu ketik sbb : Private Sub HScroll3_Change() HScroll3_Scroll End Sub 11. K lik lik double Hscroll3 lalu pilih event Scroll lalu ketik sbb : Private Sub HScroll3_Scroll() Label1.BackColor = RGB(HScroll1.Value, HScroll2.Value, HScroll3.Value) End Sub 12. K lik lik double K omponen omponen Timer1 kemudian ketik pada even timer sbb : Private Sub Timer1_Timer() If Check1.Value = 1 Then HScroll1.Value = Rnd() * 255 HScroll2.Value = Rnd() * 255 HScroll3.Value = Rnd() * 255 End If Label2.Top = Label2.Top - 5 If Label2.Top < Label1.Top Then Label2.Top = Label1.Height Form1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255) Check1.BackColor = Form1.BackColor End If End Sub 13. K lik lik double komponen Vscroll1 lalu pilih event Change lalu ketik sbb : Private Sub VScroll1_Change() VScroll1_Scroll End Sub 14. K lik lik double komponen Vscroll1 lalu pilih event Scroll lalu ketik sbb : Private Sub VScroll1_Scroll() Label1.Width = VScroll1.Value Label1.Height = VScroll1.Value Label2.Caption = VScroll VScro ll1.Value 1.Value End Sub

16

17


Latihan 6

1. Form MDI (Multi Document Interface) Form yang dapat terisi oleh form lain disebut Multi Document Interface(MDI) dimana ada form yang bertindak sebagai induk dari semua yang berada di dalamnya. Langkah Pembuatan : 1. Buat sebuah Form baru 2. lalu buat lagi sebuah form MDI dengan cara mengklik Menu Project Add MDI Form 3. Setelah itu Buatlah lagi satu Module dengan cara Mengklik Menu Project Add Module 4. Tempat K ontrol ontrol Text ke dalam Form Biasa

Form Biasa

Form MDI 5. Buat Menu pada form biasa seperti dengan cara mengklik menu Tools ± Menu Editor seperti gambar di bawah ini lalu isikan menunya sbb : &File ««.&New ««.&Open ««.&Save ««.&Close ««.««.&Exit

&Edit ««.&Copy ««.&Paste ««.&Cut

&Tools «.&Option

&Window ««.&Cascase ««.&Tile «««««.&Horisontal «««««.&Vertical

Menu Editor

6. Buat menu juga untuk Form MDI &File ««.&New ««.&Open ««.&Close ««.««.&Exit

&Window ««.&Cascase ««.&Tile «««««.&Horisontal «««««.&Vertical


18

7. Isi File Modul statement di bawah ini : Option Explicit Sub BukaDokBaru() Static JmlDok As Long Dim frmd As Form1 JmlDok = JmlDok + 1 Set frmd = New Form1 frmd.Caption = "Document " & JmlDok frmd.Show End Sub Function GetFileName(Filename As Variant) ' Tampilkan Save dialog untuk mengambil nama file ' if pilih cancel (32755) tidak jadi merekam On Error Resume Next MDIForm1.OpenLog.Filename = Filename MDIForm1.OpenLog.ShowSave If Err <> 32755 Then ' User tidak memilih memilih cancel GetFileName = MDIForm1.OpenLog.Filename Else GetFileName = "" End If End Function Sub SaveFileAs(Filename) On Error Resume Next Dim strContents As String Open Filename For Output As #1 strContents = MDIForm1.ActiveForm.Text1.Text ' tulis ke file melalui variabel Print #1, strContents Close #1 If Err Then MsgBox Error, 48, App.Title Else MDIForm1.ActiveForm.Caption MDIForm1.ActiveForm.Capti on = UCase(Filename) End If End Sub 8. K lik lik Double Form MDI lalu pilih p ilih objek General lalu ketik sbb : Sub BukaDokLama() Dim SFile As String Static JmlDok As Long Dim frmd As Form1 Dim Nomer Nomer = FreeFile With OpenLog .DialogTitle .DialogTitle = "Open" "Open " .CancelError = False .Flags = cdlOFNAllowMultiselect And .Flags = cdlOFNPathMustExist .Filter = "Text File (*.TXT)|*.*" .ShowOpen If Err <> 32755 Then SFile = .Filename Else Exit Sub End If End With On Error Resume Next Open OpenLog.Filename For Input As Nomer If Err Then Close Nomer


19

Exit Sub End If Set frmd = New Form1 frmd.Caption = OpenLog.Filename frmd.Show Screen.MousePointer = 11 frmd.Text1.Text frmd.Text1.Text = Input(LOF(Nomer), Nomer) Close Nomer Screen.MousePointer = 0 End Sub 9. Isi event-event Form Mdi sbb : Private Sub mnuFileExit_Click() End End Sub Private Sub mnuFileNew_Click() BukaDokBaru End Sub Private Sub mnuFileOpen_Click() BukaDokLama End Sub Private Sub mnuWindowCascade_Click() MDIForm1.Arrange 0 End Sub Private Sub mnuWindowHorisontal_Click() MDIForm1.Arrange 1 End Sub Private Sub mnuWindowVertical_Click() MDIForm1.Arrange 2 End Sub

10. K lik lik Double Form Biasa lalu lalu pilih objek General lalu ketik sbb : Option Explicit Sub BukaDokLama() Dim SFile As String Static JmlDok As Long Dim frmd As Form1 Dim Nomer Nomer = FreeFile With MDIForm1.OpenLog .DialogTitle .DialogTitle = "Open" "Open " .CancelError = False .Flags = cdlOFNAllowMultiselect And .Flags = cdlOFNPathMustExist .Filter = "Text File (*.TXT)|*.*" .ShowOpen If Len(.Filename) = 0 Then Exit Sub End If SFile = .Filename End With Set frmd = New Form1 frmd.Caption = MDIForm1.OpenLog.Filename frmd.Show On Error Resume Next Open MDIForm1.OpenLog.Filename For Input As Nomer If Err Then MsgBox "tidak dapat membuka file: " + MDIForm1.OpenLog.Filename


Close Nomer Exit Sub End If Screen.MousePointer = 11 frmd.Text1.Text frmd.Text1.Text = Input(LOF(Nomer), Nomer) Close Nomer Screen.MousePointer = 0 End Sub 11. Untuk File Form Biasa isikan pada event-event sbb : Private Sub mnuFileClose_Click() Unload Me End Sub Private Sub mnuFileExit_Click() End End Sub Private Sub mnuFileNew_Click() BukaDokBaru End Sub Private Sub mnuFileOpen_Click() BukaDokLama End Sub Private Sub mnuFileSave_Click() Dim strFilename As String

If Left(Me.Caption, Left(Me.Caption, 8) = "Document" Then ' Jika File belum direkam. ' buat nama file baru strFilename = GetFileName(strFil Get FileName(strFilename) ename) Else ' The form's Caption contains the name o f the open file. strFilename = Me.Caption End If ' Call the save procedure. If Filename = Empty, E mpty, then ' the user chose Cancel in the Save As dialog box; otherwise, ' save the file. If strFilename strFilename <> "" Then SaveFileAs strFilename End If End Sub Private Sub mnuWindowCascade_Click() MDIForm1.Arrange 0 End Sub Private Sub mnuWindowTileHorisontal_Click() MDIForm1.Arrange 1 End Sub Private Sub mnuWindowTileVertical_Click() MDIForm1.Arrange 2 End Sub Private Sub Form_Resize() Text1.Height = ScaleHeight Text1.Width = ScaleWidth End Sub

20


21

Latihan 7 Pengolahan Database

1. Pembuatan Database dan Tabel Pada Pemrograman Visual Basic disediakan untuk bagaiamana caranya memproses / mengolah mengolah database. Agar lebih mudah mudah dalam pembuatan table, VB6 VB6 menyediakan suatu perangkat untuk pembuatan database yaitu Visual Data Manager. Untuk pembuatannya, mari kita coba dengan langkah-langkah sbb : 1. K lik lik Menu Add-Ins ± Visual Data Manager 2. kemudian tampil gambar seperti di bawah ini 3. K emudian emudian klik File New untuk pembuatan database baru atau open untuk membuka database yang sudah ada. 4. lalu klik nama-nama database driver yang ingin digunakan (biasanya digunakan Microsoft Access, karena database yang paling kompatible diantara yang lain.

5. setelah itu anda akan di minta untuk memasukkan nama database yang ingin dibuat. (setelah memasukkan nama database klik tombol save) maka akan tampil gambar seperti di bawah ini dan akan terbentuk database dengan ekstension .MDB

6. Setelah itu klik kanan pada Database Window dan menu popup akan muncul kemudian klik menu New Tabel

22


7. maka akan tampil jendela Table Structure, lalu berikan nama untuk nama table yang anda ingin buat

Apabila anda ingin menggunakan file yang berindeks, klik bagian Add Index

8.

lik K lik

Tombol Add Field maka akan tampil jendela seperti di bawah ini. Untuk memasukkan nama field yang anda ingin buat misalnya table yang anda ingin buat mempunyai structure sbb : Name Type Size 1. Nostb Text 10 2. Nama Text 35 3. Alamat Text 35 4. Agama Text 20 5. Hobby Text 20

9. Setelah semua field sudah dibuat klik ok untuk kembali ke menu database. 10. Anda dapat membuat banyak table dalam satu database.

2. Pembuatan Aplikasi Sederhana untuk pengolahan Database Pada latiha 7-1 di atas, kita telah mencoba membuat sebuah database beserta tablenya untuk penyimpanan data yang dibutuhkan, nah sekarang kita kita akan membangun suatu aplikasi yang menghubungkan antara database Microsoft Access tersebut dengan interface Visual Basic. Langkah Pembuatan : 1. Buka Project Baru 2. Tempatkan 6 buah K ontrol ontrol Label 3. Tempatkan 5 bauh K ontrol ontrol Text 4. Tempatkan 6 buah kontrol CommandButton 5. dan terpenting adalah tempatkan K ontrol ontrol data. K ontrol ontrol data ini yang menghubungkan antara interface dengan objeck visual. 6. Atur kontrol-kontrol tersebut seperti gambar di bawah ini :


23

7. Pada Command Input Baru, klik klik double lalu lalu pilih event klik kemudian isi perintah sbb : Private Sub Command3_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text1.SetFocus End Sub 8. Pada Command Exit. K lik lik double. Lalu pilih event klik, lalu ketik di bawah ini : Private Sub Command2_Click() End End Sub 9. Pada Command Rekam, K lik lik diuble lalu pilih event klik, lalu ketik di bawah ini Private Sub Command1_Click() Data1.Recordset.AddNew Data1.Recordset!nostb = Text1.Text Data1.Recordset!nama = Text2.Text Data1.Recordset!alamat = Text3.Text Data1.Recordset!agama = Text4.Text Data1.Recordset!hobby = Text5.Text Data1.Recordset.Update End Sub 10. Pada Command Cari Data, klik double, lalu pilih event klik kemudian ketik statement seperti di bawah ini : Private Sub Command4_Click() Dim cari As String cari = InputBox("Masukkan Nomor Stambuk", "Pencarian data") dat a") Data1.Recordset.FindFirst "nostb = '" & cari & "'" If Data1.Recordset.NoMatch Then MsgBox "Data tidak ditemukan" Else Text1.Text = Data1.Recordset!nostb Text2.Text = Data1.Recordset!nama Text3.Text = Data1.Recordset!alamat


24

Text4.Text = Data1.Recordset!agama Text5.Text = Data1.Recordset!hobby End If End Sub 11. Pada Command Update, klik double, lalu pilih event klik, kemudian ketik statement di bawah ini : Private Sub Command5_Click() Data1.Recordset.Edit Data1.Recordset!nostb = Text1.Text Data1.Recordset!nama = Text2.Text Data1.Recordset!alamat = Text3.Text Data1.Recordset!agama = Text4.Text Data1.Recordset!hobby = Text5.Text Data1.Recordset.Update End Sub 12. Pada Command Hapus, klik double, lalu pilih event klik, kemudian ketik statement di bawah ini : Private Sub Command6_Click() If MsgBox("Benar ingin di hapus", vbYesNo, "Hapus Dat a") = vbYes Then Data1.Recordset.Delete Data1.Refresh End If End Sub 13. Pada K ontrol ontrol Data, klik double, lalu pilih event MouseDown, kemudian ketik statement di bawah ini : Private Sub Data1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Text1.Text = Data1.Recordset!nostb Text2.Text = Data1.Recordset!nama Text3.Text = Data1.Recordset!alamat Text4.Text = Data1.Recordset!agama Text5.Text = Data1.Recordset!hobby End If End Sub 14. Untuk Properti K ontrol ontrol Data : Properti Database : c:\Latihan\bab7\lat7.mdb PropertiRecord Source : Mhs Properti Eof Action : Move Last Properti Recorset Type : Dynaset 15. Tekan Tombol F5 untuk menjalankan program.

Latihan 8 1. Penggunaan Database dengan File Index

File database indeks adalah file yang melakukan pengurutan data secara otomatis sesuai dengan kunci indeks dari suatu field yang telah diberikan, pencarian data berdasarkan dengan menggunakan indeks sangat cepat dibanding dengan file yang tidak menggunakan indeks karena file indeks membandingkan data yang berada bagian tengah file jika data tersebut tidak sama dan lebih kecil dari data yang berada di tengah, maka file akan dipecah lalu dibandingkan lagi dengan data


25

yang berada pada pecahan data yang lebih kecil dari perbandingan data tadi, begitu seterusnya sampai menemukan data yang sama atau tidak sama sekali. Sekarang kita coba membuat suatu program visual dengan menggunakan pencarian data yang berindeks Langkah pembuatannya : 1. Latihan pembuatan database sebelumnya, anda telah belajar membuat database beserta cara membuat index, sekarang buatlah suatu structur data sbb: Field Type data width 1. Stambuk String 2. Nama String 3. Alamat String 4. Fakultas String 5. Program String 2. Buatlah indeksnya dengan kunci indeks tersebut adalah stambuk. 3. setelah itu buatlah form baru dengan cara mengklik Menu New Project lalu klik VB Enterprise Edition control, kemudian letakkan komponen-komponen tersebut sesuai dengan gambar di d i bawah ini :

4. Lalu isi statement pada Command Rekam sbb : Private Sub Command1_Click() Data1.Recordset.AddNew Data1.Recordset!stambuk = Text1.Text Data1.Recordset!nama = Text2.Text Data1.Recordset!alamat = Text3.Text Data1.Recordset!fakultas = Text4.Text Data1.Recordset!program = Text5.Text On Error GoTo Pesan Data1.Recordset.Update Data1.Recordset.MoveLast Exit Sub Pesan: MsgBox "Stambuk tidak boleh double" End Sub 4.

emudian K emudian

pada Objek Close isi statement sbb : Private Sub Command2_Click() End End Sub

5. Pada objek Cari Stambuk isi statement sbb : Private Sub Command3_Click() Dim mK ode ode As String * 10


26

mK ode ode = InputBox("Masukkan Nomor Stambuk ", "Pencarian Data") Data1.Recordset.MoveFirst Data1.Recordset.Index = "xStambuk" Data1.Recordset.MoveFirst Data1.Recordset.Seek "=", mK ode ode If Data1.Recordset.NoMatch Then MsgBox "Data tidak ditemukan", vbOK Only, Only, "Peringatan" Else Text1.Text = Data1.Recordset!stambuk Text2.Text = Data1.Recordset!nama Text3.Text = Data1.Recordset!alamat Text4.Text = Data1.Recordset!fakultas Text5.Text = Data1.Recordset!program End If End Sub 6. Pada Objek Objek Hapus isi statemen sbb : Private Sub Command4_Click() Data1.Recordset.Delete Data1.UpdateRecord Data1.Refresh End Sub 7. Pada objek objek Update Update isi isi statement sbb sbb : Private Sub Command5_Click() Data1.Recordset.Edit Data1.Recordset!stambuk = Text1.Text Data1.Recordset!nama = Text2.Text Data1.Recordset!alamat = Text3.Text Data1.Recordset!fakultas = Text4.Text Data1.Recordset!program = Text5.Text On Error GoTo Pesan Data1.Recordset.Update Exit Sub Pesan: MsgBox "ada kesalahan teknik, tidak jadi merekam" End Sub 8. Pada objek Input Data Data isi isi Statemen sbb : Private Sub Command6_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" Text1.SetFocus End Sub 9. Pada objek Data1 klik double lalu pilih event MouseDown lalu lalu isi statement sebagai berikut : Private Sub Data1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Text1.Text = Data1.Recordset!stambuk Text2.Text = Data1.Recordset!nama Text3.Text = Data1.Recordset!alamat Text4.Text = Data1.Recordset!fakultas

27


Text5.Text = Data1.Recordset!program End If End Sub 10. Pada objek o bjek Form klik double lalu pilih event klik lalu isi statemen sbb : Private Sub Form_Activate() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" Text5.Text = "" End Sub 11. Tekan F5 untuk menjalankan program ini . 12. Lengkapi Applikasi ini dengan menambahkan status bar beserta panel panelnya seperti gambar di atas.

2.

Pembuatan Menu Popup dan Penggunaan Object RichTextBox

Menu Popup adalah menu yang tidak tampak di layar, tetapi apabila kita mengklik kanan mouse maka menu tersebut muncul tepat pada daerah mouse yang diklik. RichTextBox adalah suatu komponen object text yang mempunyai banyak kelebihan dibanding dengan menggunakan komponen textbox, karena Richtextbox dapat diubah font-fontnya boleh tidak secara menyeluruh layaknya Microsoft word. Untuk lebih jelasnya contoh program di bawah ini : Komponen object yang digunakan : 1. Object Label 2. Object Richtext Box apabila tidak pada Jendela Toolbox, maka anda harus mengambil melalui jendela componen dengan cara mengklik Menu Project ± Components, maka akan terbuka jendela Components lalu kelik tanda check pada bagian yang menuliskan ³Microsoft Rich Text Box Control 6.0´, maka komponent tersebut akan masuk ke Jendela ToolBox lalu tempatkan object tersebut ke Form seperti gambar di bawah ini :

Object RichTextBox

3. Tempatkan Object CommonDialog lalu pada Form1. 4. Lalu buatlah menu Popup dengan cara mengklik menu Tools lalu klik MenuEditor, maka akan tampil Jendela Pembuatan menu seperti gambar di bawah ini : 5. Untuk nama menu yaitu menu1 hilangkan tanda check pada kotak visible tetapi pada sub menu yang lain tidak dihilangkan tanda checknya.


28

6. Untuk Event Resize milik Form1 isikan isikan statement stat ement sbb : Private Sub Form_Resize() RichTextBox1.Height = ScaleHeight RichTextBox1.Width = ScaleWidth Label1.Left = Int(Form1.Width - Label1.Width) / 2 End Sub 7. Untuk menu Background Color isi statement pada event click sbb : Private Sub mnuBack_Click() Dialog1.ShowColor RichTextBox1.BackColor = Dialog1.Color End Sub 8. Pada even click menu close isi statement sbb : Private Sub mnuClose_Click() End End Sub 9. Pada even click menu Font isi statement sbb : Private Sub mnuFont_Click() efek pemilihan garis bawah bawah cetak tindih dan µcdlCFEffects untuk menampilkan efek warna huruf µcdlCFBoth untuk menampilkan contoh huruf yang terubah dan langsung menyesuaikannya dengan huruf printer yang akan dicetak nanti. µ selebihnya dari pada constanta di tersebut lihat pada Help MSDN Dialog1.Flags = cdlCFEffects Or cdlCFBoth Dialog1.ShowFont RichTextBox1.SelFontName = Dialog1.FontName RichTextBox1.SelFontSize = Dialog1.FontSize RichTextBox1.SelColor = Dialog1.Color RichTextBox1.SelBold = Dialog1.FontBold RichTextBox1.SelItalic = Dialog1.FontItalic D ialog1.FontItalic RichTextBox1.SelUnderline = Dialog1.FontUnderline RichTextBox1.SelStrikeThru = Dialog1.FontStrikethru End Sub 10. Pada even click menu open ketikan statement sbb : Private Sub mnuOpen_Click() Dialog1.Filter = "Rich Text File (*.rtf)|*.rtf| File(*.*)|*.*" Dialog1.ShowOpen RichTextBox1.FileName = Dialog1.FileName End Sub


29

11. Pada even clik menu save ketik statement sbb ; Private Sub mnuSave_Click() Dialog1.Filter = "Rict Text File (*.rtf)|*.rtf| File(*.*)|*.*" Dialog1.ShowSave RichTextBox1.SaveFile Dialog1.FileName, rtfRTF End Sub 12. Pada even MouseDown Object RichTextBox isi statement sbb : Private Sub RichTextBox1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single) If Button = 2 Then PopupMenu mnuPopUp End If End Sub 13. Tekan F5 untuk menjalankan program tersebut.

Latihan 9 Penggunaan Kontrol Object ADO

Ado (Access Data object) adalah suatu kontrol Object yang mengolah database, kelebihan dari kontrol Data adalah Ado tersebut dapat langsung di kaitkan ke server database apabila applikasi kita berbasis client ± server. Untuk menggunakan object klik Menu File-New- Application Enterprise Edition, maka form akan ditampilkan beserta object database ADO dan kontrol-kontrol yang tambahan yang mungkin akan digunakan. Contoh Applikasi :

Private Sub Command1_Click(Index As Integer) Adodc1.Recordset.AddNew End Sub Private Sub Command2_Click() Adodc1.Refresh End Sub Private Sub Command3_Click() Adodc1.Recordset.Delete End Sub


30

Private Sub Command4_Click() Dim mkode As String * 10 Dim mSyarat As String mkode = InputBox("Masukkan Nomor Stambuk ") mSyarat = "stambuk = '" & mkode & "'" Adodc1.Recordset.MoveFirst Adodc1.Recordset.Find mSyarat If Adodc1.Recordset.EOF Then X = MsgBox("Data tidak ditemukan ", vbOK Only, Only, _ "Pencarian Nomor Stambuk") End If End Sub Private Sub Command5_Click() End End Sub 2. Penggunaan Bahasa SQL (Structure Query Language) Pada Database SQL adalah Bahasa Pemrograman database yang sangat handal karena perintahnya sudah hampir menyamai bahasa manusia serta sangat fleksibel sehingga bahasa ini jadi terkenal dan digunakan oleh hampir semua bahasa permograman untuk pengolahan database serta mempunyai bahasa standard yang digunakan oleh seluruh bahasa pemrograman applikasi. Sekarang kita akan mencoba membuat applikasi menggunakan bahasa SQL dengan menggunakan object data dan ADO.

Pemrograman Visual Basic

Recommend Documents