MODUL 1
I. Menjalankan Visual Basic
Visual Basic juga merupakan sebuah program aplikasi windows. oleh sebab itu. Anda juga harus menjalankannya dari dalam windows. Seperti biasa, Anda melakukan ini dari menu Start.
1. Klik tombol mouse pada menu Start
2. Pilih menu Programs> Microsoft Visual Basic 6.0.
3. Akan muncul kotak dialog seperti berikut ini , untuk membuat program apikasi standar , pilihlah Standard EXE, lalu klik tombol Open.
II. Lingkungan Visual Basic
Setelah Visual Basic dijalankan , akan muncul sebuah layar seperti pada gambar berikut :
Control Menu Menu
Toolbar
ToolBox
Form Window
Project Explorer LayOut Window Properties Window
1. Cotrol Menu
Control menu adalah menu yang digunakan terutama untuk memanipulasi jendela Visual Basic. Dari menu ini anda dapat mengubah ukuran ukuran , memindahkan , atau menutup jendela Visual Basic atau jendela lainnya.
2. Menu
Menu Visual Basic berisi semua perintah Visual Basic yang dapat anda pilih untuk melakukan tugas tertentu. Isi dari menu ini sebagian hamper sama dengan program-program Windows pada umumnya.
3. Toolbar
Toolbar adalah tombol-tombol yang mewakili suatu perintah tertentu dari Visual Basic. Setiap tombol tersebut dapat langsung diklik untuk melakukan perintah tertentu
4. Form Window
Form Window atau jendela form adalah daerah kerja utama, dimana anda akan membuat program-program aplikasi Visual Basic.
5. Toolbox
Toolbox adalah sebuah “kotak peranti” yang mengandung semua objek atau control yang dibutuhkan untuk membentuk suatu program aplikasi. Kontrol adalah suatu objek yang akan menjadi interface (penghubung) antara program aplikasi dan user-nya, dan kesemuanya harus diletakkan didalam jendela form.
6. Project Explorer
Jendela Project Explorer adalah jendela yang mengandung semua file didalam aplikasi Visual Basic anda. Seiap aplikasi dalam Visual Basic disebut dengan istilah project (proyek) , dan setiap proyek dapat mengandung lebih dari satu file.
7. Jendela Properties
Jendela properties adalah jendela yang mengandung semua informasi mengenai objek yang erdapat pada aplikasi Visual Basic anda. Properti adalah sifat dari sebuah objek , misalnya seperti nama , warna , ukuran , posisi , dan sebagainya. Setiap objek sebagian besar memiliki jenis property yang sama , tetapi ada pula yang berbeda-beda.
8. Form Layout Window
Form layout Window adalah jendela yang menggambarkan posisi dari form yang ditampilkan pada layer monitor. Posisi form pada Form layout window iilah yang merupakan petunjuk dimana aplikasi anda akan ditampilkan pada layer monitor saat dijalankan nanti.
9. Jendela Code
Jendela kode adalah salah satu jendela yang penting didalam Visual Basic. Jendela ini berisi kode-kode program yang emrupakan instruksi-instruksi untuk aplikasi Visual Basic. Setiap objek pada Visual Basic dapat anda tambahn dengan kode-kode program untuk melakukan tugas-tugas tertentu.
III. Membuat Aplikasi Baru
Untuk membuat aplikasi Vsual Basic yang baru, lakukan langkah berikut ini :
1. Pilih menu File > New Project , atau tekan tombol Ctrl+N.
2. Kotak dialog New Project akan muncul , di mana anda dapat memilih jenis dari aplikasi yang ingin anda buat.
Beberapa pilihan yang terdapat pada kotak dialog New Project adalah sebagai berut :
Standard EXE : membuat aplikasi Visual Basic standar.
ActiveX EXE : membuat aplikasi ActiveX
ActiveX DLL : membuat library ActiveX
ActiveX Control : membuat control ActiveX
VB Application Wizard : membuat aplikasi dengan bantuan wizard
VB Wizard Manager : pusat pengeloalan wizard Visual Basic
IIS Application : membuat aplikasi IIS ( Internet Information Server)
DHTML Application : membuat aplikasi DHTML (Dynamic Hypertext Mark-up Language ) untuk internet
3. Klik tombol OK untuk membuat aplikasi baru.
LATIHAN 1
1. Jalankan Visual Basic 6
2. Kotak dialog New Project akan muncul pada layer. Jika kotak dialog ini tidak muncul pada layar, pilihlah menu File> New Project ,atau tekan tombol Ctrl+N
3. Karena anda akan membuat aplikasi Visual Basic yang umum ,maka pilihlan ikon Standard EXE, lalu klik tombol OK.
4. Layar pengembangan Visual Basic akan muncul.
5. Langah berikutnya mengklik objek atau kontrol Label pada toolbox yang terdapat di bagian sebelah kiri layar.
6. Bawa kursor pada jendela Form, tekan dan tahan tombol mouse kiri , lalu geser mouse hingga membentuk kotak yang ukurannya cukup besar. Selanjutnya lepaskan tombol mouse. Hasilnya tampak sebagai berikut :
7. Pindahkan mouse ke jendela Properties yang terletak diseebelah kanan bawah layer Visual Basic. Pada daftar yang ada dibawah tab alphabetic, carilah dan klik pada kata Caption
8. Ganti teks Label1 dan ketiklah “ Program Visual Basic_ku ….!” lalu tekan Enter.
9. Masih pada jendela Properties, kini carilah dan klik pada property Font
10. Klik pada tombol ellipsis di sebelah kanan untuk menampilkan kotak dialog Font , yang dapat dirubah sesuai keinginan.
11. Klik OK, untuk melihat hasilnya.
12. Berikutnya , arahkan kursor kembali ke tool box lalu pilihlah objek Command Button dan pindahkan ke area kerja anda.
13. Gerakkan kursor ke jendela Properties, pilih Caption lalu ketik “OK”.
14. Langkah berikutnya adalah menambahkan kode program pada command button yang telah anda buat. Caranya , klik ganda objek command button tersebut hingga menampilkan jendela code seperti berikut :
15. Anda perhatikan kode program pada jendela code tersebut terdiri dari beberapa bagian yakni :
Private Sub : tanda aawal dari prosedur
Command1-click () : nama objek beserta metodenya
End Sub : tanda akhir dari prosedur
16. Klik tombol mouse pada baris kosong diantara kata Private Sub dan End Sub , kemudian ketiklah kata End.
17. tutup jendela code ini dengan mengklik tombol close di bagian pojok kanan atas jendela.
18. Berikutnya kita akan mengubah judul form. Klik mouse pada objek Form , yaitu jendela yang menjadi background dari objek-objek yang anda buat tadi. Lalu pada jendela Properties , pilih property Caption dang ganti nilai di sebelahnya menjadi “Aplikasiku”.
19. Langkah yang terakhir adalah mengubah nama form itu sendiri. PAda jendela Properties , pilih property (Name) lalu ganti nilai disebelahnya dengan Contoh1.
20. Untuk menjalankannya pilih menu Run > Start , atau tekan tombol F5, atau klik tombol Start pada toolbar.
21. Klik kursor pada tombol OK untuk menutup aplikasi ini dan kembali ke layar pengembangan Visual Basic.
22. Langkah untuk menyimpan aplikasi adalah sebagai berikut :
Pilih File > Save Project
Ketik nama yang anda inginkan pada kotak File Name , lalu klik tombol Save. Terkan melakukan langkah diatas , sampai seluruh file pendukung tersimpan.
Yang terakhir , anda akan diminta menyimpan file project. Ketiklah nama file yang anda inginkan pada kotak File Name lalu klik tombol Save untuk menyimpannya.
23. Aplikasi yang anda buat dapat dikompilasi , untuk membuat sebuah file executable. File executable adalah file yang berakhiran EXE dan dapat langsung dijalankan pada computer anda tanpa harus membuka Visual Basic terlebih dahulu. Adapun caranya sebagai berikut :
Pada menu Visual Basic , pilihlah File > Make nama_proyek (nama_proyek adalah yang sudah anda buat sebelumnya)
Pada kotak dialog Make Proect yang muncul, ketik nama yang diinginkan untuk menjadi file executable. Misalnya Latih1.Exe
Klik tombol OK untuk mulai mengkompilasi aplikasi.
Catatan :
Proses kompilasi tidak perlu dilakukan setiap kali anda membuat proyek aplikasi Visual Basic , karena akan memakan waktu cukup lama. Kompilasi hanya perlu dilakukan apabila aplikasi anda tersebut benar-benar sudah jadi lengkap, serta siap didistribusikan kepada para pemakai akhir anda. Untuk menguji aplikasi anda , cukup jalankan melalui Visual Basic dengan menekan tombol Start (F5) tanpa harus meng-kompilainya.
Latihan 2
Program ini bertujuan untuk mengkonversi nilai celcius ke Fahrenheit dan sebaliknya , tampilan design seperti berikut :
Pengaturan Properti sebagai berikut :
Kontrol Properti Value
1. Label Name Label1
Caption Sebelum Konversi
2. Label Name Label2
Caption Sesudah Konversi
3. Label Name Label3
Caption Konversi Untuk :
4. Option Button Name Option1
Caption Celcius – Fahrenheit
5. Option Button Name Option2
Caption Fahrenheit - Celcius
6. Command Button Name Command1
Caption OK
7. Text Box Name Text1
8. Text Box Name Text2
Kode untuk setiap objek sebagai berikut :
1. Sub Form_Load ()
Text1.Text = “”
Text2.Text = “”
Option1.Value = True
End Sub
2. Sub Command1_Click()
Dim Nilai1 As Integer
Nilai1 = Val(Text1.Text) ‘ Konversi dari string ke numeric
‘Konversi untuk Celcius ke Fahrenheit
if Option1.Value = True Then
text2.Text = 9 / 5 * Nilai1 + 32
Exit Sub
end if
‘Konversi untuk Fahrenheit ke Celcius
if Option2.Value = True Then
text2.Text = 5 / 9 * (Nilai1 – 32)
Exit Sub
end if
End Sub
Program ini bertujuan untuk menampilkan data masukan , tampilan design sebagai berikut :
Kode untuk setiap objek , yaitu :
1. Private Sub Form_Load ()
‘mendeklarasikan variabel
Dim strNama As String
Dim intPesan As Integer
strNama = InputBox ( “ Nama Anda “ , “Input Nama”)
if (strNama = “” )
then
intPesan = MsgBox (“Nama tidak dimasukkan”)
else
intPesan = MsgBox (“ Nama Anda “ &strNama)
Form1.Caption = strNama
end if
End Sub
Program ini bertujuan untuk proses data penggajian , tampilan design sebagai berikut :
Pengaturan properti sebagai berikut :
Kontrol Properti Value
1. Label Name Label1
Caption Penjualan
2. Label Name Label2
Caption Bonus
3. Label Name Label3
Caption Pajak
4. Label Name Label4
Caption Gaji Total
5. Text Name Text1
Text (dikosongkan)
6. Text Name Text2
Text (dikosongkan)
7. Text Name Text3
Text (dikosongkan)
8. Text Name Text4
Text (dikosongkan)
9. Command Button Name Command1
Caption OK
10.Command Button Name Command2
Caption Cancel
Kode untuk setiap objek , yaitu :
1. ‘Variabel global
Dim txtPenjualan
Dim intGaji As Integer
Dim sngBonus , sngPajak , sngTotal As Single
2. Private Sub Command1_Click ()
intGaji = 200000
if (Text1.Text > 100000 )
then
sngBonus = Text1.Text * 0.1
sngPajak = (sngBonus + sngGaji ) * 0.15
sngTotal = sngGaji + sngBonus + sngPajak
else
sngBonus = 0
sngPajak = ( sngBonus + sngGaji) * 0.15
sngTotal = sngGaji + sngBonus + sngPajak
end if
Text2.Text = sngBonus
Text3.Text = sngPajak
Text4.Text = sngTotal
End Sub
3. Private Sub Command2_Click ()
End
End Sub
Tugas :
Buatlah program visual basic untuk masalah berikut ini
Toko buku “Makmur” merencanakan membuat program untuk proses pembelian dengan criteria : jenis buku terdiri dari A , B , C, dan penjulan yang dilakukan dalam bentuk satuan , lusinan (12 buku) , Boks (50 buku). Bila harga tiap jenis buku berbeda , yakni
Harga_A = 2500 / buku
Harga_B = 5000 / buku
Harga_C = 7500 / buku
Toko buku “Makmur” akan mendapat potongan jika penjualan mencapai nilai tertentu, yaitu
1. Penjualan lebih dari 15 buku dan kurang dari 25 buku , maka mendapat potongan 10 % untuk setiap buku.
2. Penjualan lebih dari 30 buku dan kurang dari 45 buku , maka mendapat potongan 15 % untuk setiap buku.
Pajak yang harus dibayar oleh toko buku tersebut sebesar 10 % dari harga buku sebenarnya (belum mendapat potongan). Total pembayaran yang harus dibayar adalah harga keseluruhan (setelah mendapat potongan) ditambah pajak.
Tampilan design diserahkan ke praktikan.
jangan tunggu sampai esok apa yang dapat Anda kerjakan hari ini
LATIHAN 3
Cara untuk membuat array control adalah sebagai berikut :
1. Pilih satu atau lebih control yang ingin di copy.
2. Pada menu , pilih Edit > Copy atau tekan tombol Ctrl+C
3. Pilih menu Edit > Paste atau tekan tombol Ctrl+V
4. Pada layar akan muncul pesan yang menanyakan apakah anda ingin membuat array control.
• Jika anda menekan Yes, akan dibuat array control untuk control tersebut.
• Jika anda menekan No, akan dibuat control sendiri dengan nama yang berbeda. (misalnya jika anda sebelumnya memiliki control tombol perintah Command1, maka control yang dihasilkan akan bernama Command2)
5. Jika anda menekan Yes, akan dihasilkan control yang memiliki persamaan dengan control yang anda copy diatas. Kontrol yang baru ini akan diletakkan dipojok kiri atas Form. Baik control yang lama dengan control yang baru memiliki properti yang sama. Kontrol-kontrol tersebut juga memiliki nama yang sama tetapi kini memiliki nomor indeks yang berbeda.
6. Ulangi langkah-langkah diatas untuk membuat sebanyak mungkin array control yang anda inginkan
Fokus suatu control
Untuk menggunakan focus suau control , anda harus mengubah properti TabIndex untuk setiap control secara manual. Nilai untuk property TabIndex ini dimulai dari 0 untuk focus pertama , lalu fokusberikutnya adalah 1, 2, dan seterusnya.Properti lain yang berguna untuk focus ini adalah TabStop. Apaila anda tidak ingin suatu control memiliki focus atau tidak bereaksi jika ditekan tombol Tab, maka ubah nilainya menjadi False (biasanya control yang tidak membutuhkan focus adalah control Label).
LATIHAN 4
1. Buat proyek visual basic baru.
2. Klik ganda control CommandButton pada toolbox.
3. Pilih control Command Button tersebut pada jendela Form , tekan tombol trl+C , lalu tekan tombol Ctrl+V.
4. Visual Basic akan menanyakan apakah anda ingin membuat array control. Klik Yes, pada jendela Form akan terbentuk sebuah array control.
5. Ulangi langkah 4 diatas untuk membuat sebuah array control lagi sehingga kini anda memiliki tiga buah array control tombol perintah dengan nama yang sama itu Command1.
6. Kini klik ganda pada salah satu tombol perintah tersebut untuk menampilkan jendela Code.
7. Ketikkan kode program di bawah ini. Disini anda akan mengubah properti Caption setiap tombol perintah. Caption ini akan berubah nilainya sesuai dengan program yang ditulis dibawah jika anda mengklik salah satu pada tombol perintah tersebut. Perhatikanlah angka-angka indeks yang digunakan untuk membedakan antara satu control tombol perintah dengan control yang lain.
Private Sub Command1_Click (Index As Integer)
Command1 (0).Caption = “VB 6 OK !”
Command1 (1).Caption = “Saya bias VB6 !”
Command1 (2).Caption = “Saya Jagoan VB !”
End Sub
8. Jalankan aplikasi tersebut dengan menekan ombol F5. Jika anda mengklik pada salah satu tombol tersebut maka semua tombol perintah akan berubah Caption-nya sesuai dengan propertinya yang telah ditentukan pada langkah 7 diatas.
LATIHAN 5
1. Pilih menu File > New atau tekan tombol Ctrl+N untuk membuat proyek baru pada visual basic.
2. Pilih Standard.Exe lalu tekan OK.
3. Klik ganda control Label pada toolbar. Pada layar form akan terbentuk sebuah control label.
4. Ulangi langkah 3 diatas sebanyak tiga kali sehingga anda akan memiliki empat buah control Label pada jendela Form.
5. Aturlah posisinya sehingga tampak seperti gambar dibawah ini.
6. Kini klik seklai pada control TextBox lalu bawa kursor kesebelah kanan control Label2.
7. Buatlah kotak teks disebelah kanan control Label2.
8. Ulangi membuat control Textbox sebanyak dua kali lagi. Aturlah ukuran dan posisinya.
9. Kini buatlah dua buah control CommandButton , lalu letakkan dibagian bawah Form.
10. Yang terakhir , buatlah sebuah control PictureBox , lalu aturlah ukuran dan posisinya sehingga akan ampak seperti gambar dibawah ini.
11. Selanjutnya adalah mengganti nama identitas atau properti Name dari masing-masing control , sehingga menjadi seperti berikut
Nama Lama Nama Baru
Form1 frmBioData
Label1 lblJudul
Label2 lblNama
Label3 lblAlamat
Label4 lblTelepon
Text1 txtNama
Text2 txtAlamat
Text3 txtTelepon
Command1 cmdOk
Command2 cmdCancel
Picture1 picGambar
12. Berikutnya ganti pula properti Caption dari setiap control. Caption adalah judul yang hanya akan ditampilkan pada layar. Gantilah setiap Caption lama menjadi Caption baru seperti berikut.
Kontrol Caption Lama Caption Baru
frmBioData Form1 Biodata Pribadi
lblJudul Label1 Biodata Pribadi
lblNama Label2 Nama
lblAlamat Label3 Alamat
lblTelepon Label4 Telepon
cmdOK Command1 &OK
cmdCancel Coomand2 &CANCEL
tanda & (ampersand) yang ditulis didepan Caption untuk control cmdOK dan cmdCancel adalah perintah untuk membuat hotkey. Hotkey adalah tombol cepat yang dapat diakses dengan menekan tombol Alt dengan huruf yang digarisbawahi (misalnya Alt-F).
13. Berikutnya hapus nilai pada properti Text untuk ketiga control TextBox , agar nanti saat dijalankan ketiga kotak teks ini akan kosong.
14. Berikutnya ubahlah properti Font untuk kontrol-kontrol di atas sehingga hasilnya jadi lebih menarik (klik pada tombol ellipsis di sebelah kanan property Font). Anda dapat menentukan jenis dan ukuran font apa saja sesuai keinginan anda.
15. Kini pilihlah control picGambar, lalu pilih properti Picture pada jendela Properties. Klik tombol ellipsis di sebelah kanannya untuk memunculkan kotak dialog Load Picture. Cari dan pilih gambar apa saja yang terdapat pada computer anda untuk ditampilkan pada form ini.
16. Klik ganda control cmdOK. anda kini akan membuat metode untuk tombol OK ini. Ketikkan kata End diantara kalimat Private Sub dan End Sub seperti pada gambar dibawah ini.
17. Ulangi langkah diatas untuk control cmdCancel
18. Aplikasi anda sudah selesai dibuat. Kini jalankanlah dengan mengklik tombol Start atau menekan tombol F5.
19. Klik tombol OK atau Cancel untuk menutup apilkasi ini dan kembali ke VB.
FORM DAN LABEL
A. Form
Form juga merupakan sebuah objek di dalam aplikasi visual basic yang anda buat. Form disebut sebagai objek ayah (parent objek) karena menjadi tempat untuk meletakkan objek-objek lain di dalam aplikasi. Form inilah nanti yang akan menjadi latar belakang dari aplikasi anda.
Sebagai sebuah objek, form juga memiliki properties (sifat) , metode (aksi) , serta event (kejadian) , sama seperti objek-objek atau kontrol-kontrol yang lain.
Pada saat visual basic dijalankan atau pada saat anda membuat proyek baru , pada layar akan ditampilkan satu buah endela form yang kosong. Tetapi sebenarnya anda bisa memiliki leih dari satu jendela form pad aproyek aplikasi visual basic anda. Biasanya suatu aplikasi yang kompleks membutuhkan lebih dari satu form , seperti anda perlu sebuah form untuk mengisikan daftar pelanggan , form lain untuk menampilkan tem penjualan yang dibeli pelanggan , form lain untuk mencari pelanggan yang aktif dan sebagainya.
Untuk menambahkan jendela form baru ikutilah langkah berikut :
1. Pilih menu Project> Add Form , atau klik tombol Add Form pada toolbar.
2. Berikunya akan muncul kotak dialog agar anda bisa milih jenis form apa yang ingin ditambahkan, klik pada ikon form untuk menambahkan jendela form yang kosong, lalu klik tombol open.
3. Kini aplikasi anda sudah memiliki dua buah form
Properti Font
Form memiliki property yang lebih banyak daripada objek –objek atau kontrol-kontrol lain pada visual basic. Namun umumnya tidak semuanya digunakan oleh form tersebut. Tabel dibawah ini menampilkan beberapa property form yang umum dan paling sering digunakan.
Properti Keterangan
BackColor Warna latar belakang dari form
BorderStyle Menentukan pemabatas di sekeliling form
0-None : tidak ada pembatas
1-Fixed Single : pembatas garis tunggal
2-Sizeble : jendela form dapat diubah ukurannya
3-Fixed Dialog : jendela seperti kotak dialog
4-Fixed Tool Window : jendela seperti toolbar
5-Sizeable Tool Window : Toolbar dan ukurannya dapat dirubah
Caption Teks yang akan ditampilkan pada bagian atas form ( judul form )
ControlBox Menentukan apakah form menampilkan icon control menu
Enable Menentukan apakah form tersebut aktif
Font Mengubah jenis dan ukuran font
ForeColor Warna teks dari form
Height Tinggi form
Icon Gambar icon yang akan ditampilkan pada skbar apabila form ini diminimalkan
Left Jarak dari sisi kiri layar ke sisi kiri form
MaxButton Menampilkan/menyembunyikan tombol maximize
MinButton Menampilkan/menyembunyikan tombol minimize
MousePointer Menentukan bentuk kursor mouse apabila iletakkan di atas form
Moveable Menentukan apakah form bisa di geser-geser letaknya
Picture Gambar yang akan ditampilkan sebagai latar belakang form
ScaleMode Menentukan satuan ukuran form dalam twip, pixel, inch, centimeter, dll.
ShownTaskbar Menentukan apakah form ditampilkan pada taskbar windows
StartUpPosition Menentukan posisi awal form pada saat aplikasi pertama kali dijalankan
Top Jarak dari sisi atas layar ke sisi atas form
Visible Menampilkan/menyembunyikan form dari user
Width Lebar font
WindowState Menentukan sattus awal ukuran form (minimal, maksimal, normal) saat pertama kali dijalankan.
LATIHAN 6
1. Pilih menu File> New atau tekan tombol Ctrl+N ntuk membuat proyek baru pada visual basic.
2. Pilih standard.Exe lalu tekan OK
3. Ubah nama identitas form ini melalui property (Name). Ubahlah nilainya menjadi frmlatihan.
4. Ubahlah property caption atau judul dari form ini menjadi Latihan Form. (Anda sebelumnya juga bisa mengubah jenis dan ukuran huruf untuk caption ini dengan mengubahnya pada property Font).
5. Kini coba ubahlah warna latar belakang form tersebut. Cari property BackColor pada jendela roperties, lalu pilih warna yang sesuai dengan keinginan anda.
6. Jika anda memiliki file gambar, kita akan mengubah latar belakang form ini agar tampak menarik. Caranya, cari properties Picture lalu klik tombol elips disebelah kanannya/. Pada kotak dialog Load Picture yang muncul , carilah file gambar apa saja pada computer anda lalu klik OK. (file gambar ini bisa berakhiran BMP, JPG, IF, dsb.)
7. Berikutnya kita akan mengubah beberapa propertie seperti dibawah ini agar form memilki komponen-komponen seperti layaknya jendela Windows lain :
Properti Nilai
BorderStyle 1-Fixed Single
ControlBox True
MaxButton True
MinButton True
ShowInTaskbar True
WindowState 0-Normal
MousePointer 11-Hourglass
Moveable True
StartUpPosition 2-CenterScreen
8. Jalankan form anda dengan menekan tombol F5
LATIHAN 7
1. Buatlah proyek baru pada visual basic atau tekan tombol Ctrl+N
2. Pilih Standard.Exe lalu tekan OK.
3. Pada jendela Project Explorer, klik kanan tombol mouse pada Project1, lalu pada menu yang muncul pilihlah Add> Form.
4. Kilik pada icon form untuk menambahkan jendela form yang kosong , lalu klik tombol open.
5. Ulangi langkah diatas , sehingga kini kita memiliki tiga uah jendela form di dalam project1 dengan nama Form1, Form2, Form3.
6. Kini klik pada jendela Form1 agar aktif.
7. Klik ganda icon Command Button pada toolbox untuk membuat sebuah kontrol tombol perintah pada form1.
8. Ulangi langkah diatas sebanyak dua kali sehingga anda memiliki tiga buah kontrol CommandButton . Aturlah posisinya hingga tampak seperti dibawah ini :
9. Ubahlah property caption untuk ketiga tombol perintah tersebut menjadi seperti dibawah ini :
Kontrol Propertie Nilai
Command1 caption Buka Form2
Command2 caption Buka Form3
Command3 caption E&xit
10. Pilih menu View> Code untuk menampilkan jendela Code , lalu ketikkan kode progem dibawah ini
Private Sub Command1_Click()
Load Form2
Form2.Show
End Sub
Private Sub Command2_Click()
Load Form3
Form3.Show
End Sub
Private Sub Command3_Click()
End
End Sub
11. Jalankan form anda dengan menakan tombol F5
• Jika anda mengklik tombol “Buka Form1” maka akan dijalankan prosedur ecent yang terdapat pada command1_click() yaitu Load Form2 yang berfungsi me-load Form2, dan Form2.Show yang berfungsi menampilkan Form2.
• Jika anda mengklik tombol “Buka Form2” maka akan dijalankan prosedur ecent yang terdapat pada command2_click() yaitu Load Form3 yang berfungsi me-load Form2, dan Form2.Show yang berfungsi menampilkan Form3.
• Jika anda mengklik tombol “Exit“ maka akan dijalankan prosedur event yang terdapat pada command3_click() yaitu End yang berfungsi menghentikan aplikasi.
B. Label
Kontrol label berfungsi untuk menampilkan teks pada aplikasi anda. Label terutama digunakan untuk menampilkan judul, teks, penjelas disebelah kotak teks (TextBox), keterangan dan sebagainya.
Properti Label
Label memiliki nayak property , sama seperti kontrol-kontrol lainnya , tetapi yang biasa digunakan hanyalah yang berhubungan dengan tampilan saja seperti , ukuran , jenis , warna huruf.
Properti Keterangan
Alignment Perataan teks label (rata kiri, tengah, kanan) , diantara pembatas kontrol label
BorderStyle Menentukan pembatas disekeliling label :
0-None : tidak ada pembatas
1-Fixed Single : pembatas garis tunggal
BackStyle Menentukan apakah label bersifat :
0-Transparent : transparan (tembus pandang)
1-Opaque : tidak tembus pandang
Enabled MEnentukan apakah label tersebut aktif
TabIndex Menentukan nomor urut focus label
ToolTipText Teks yang muncul pad ToolTip
WordWarp Menentukan apakah ukuran kontrol label akan menyesuaikan dengan teks captionnya
Visible Menampilkan/menyembunyikan label dari user
MousePointer Mennetukan bentuk kursor mouse apabila di letakkan diatas label
Top Jarak dari sisi atas form ke sisi atas label
LATIHAN 8
1. Pilih menu File> New atau tekan tombol Ctrl+N untuk membuat proyek baru pada visual basic.
2. Pilih Standard.Exe lalu takan OK.
3. Klik ganda kontrol label pada toolbar.
4. Pilih property caption pada jendela properties.
5. Ganti caption untuk label ini menjadi , “Ini Latihan Untuk Membuat Kontrol Label”.
6. Jika anda perhatikan , teks yang panjang tampak tidak memuat di dalam kontrol label tersebut. Anda bsa mengubah ukuran tangkai di sekitar kontrol agar teks terlihat semua, tetapi cara yang paling efektif adalah dengan menggunakan propertie Autosize.
7. Pilih property Autosize, lalu ubah nilainya menjadi True. Kini ukuran kontrol akan berubah sesuai dengan panjang teks.
8. Namun pada suatu saat jika nada ingin membuat sebuah teks yang terdiri dari banyak garis kebawah , gunakanlah property Autosize dengan digabung dengan property WordWrap. Pilih property WordWarp terlebih dahulu, lalu ubah nilainya menjadi True. Lalu pilih property Autosize dan ubah nilainya menjadi True.
9. Kini ubahlah property tampilan untuk label ini dengan mengikuti petunjuk di bawah ini.
Properti Nilai
Alignment 2-Center
Appearance 1-3D
Autosize True
BackColor (warna biru)
BackStyle 1-Opaque
BorderStyle 1-Fixed Single
Font Font : MS Sains Serif
Font Style : Bold
Size : 18
ForeColor (warna merah)
Tugas :
Modifikasi program penggajian minggu lalu dengan menggunakan fasilitas form dan label seperti latihan 6, 7, dan 8.
TOMBOL
Macam-macam kontrol berbentuk tombol seperti , Command Button (tombol perintah) , Option Button (tombol pilihan) , serta Check Box (kotak cek). Ketiga jenis ini sangat sering digunakan dalam suatu aplikasi.
1. Command Button
Tombol perintah dalam penampilannya tampak seperti sebuah segi empat dengan teks diatasnya. Fungsi dari tombol ini biasanya untuk mengeksekusi perintah tertentu, misalnya :
• Menyetujui atau menjalankan suatu perintah (tombol OK)
• Keluar dari aplikasi (tombol Exit)
• Membatalkan perintah (tombol Cancel)
• Menerapkan perubahan (tombol Aplly)
• Membuka file (tombol Open) , dsb.
Jika diinginkan memberi warna atau gambar pada command button, sebelumnya harus mengubah property Style menjadi 1-Graphical. Selanjutnya dapat menggunakan property Backcolor atau gambar dengan menggunakan property Picture.
Agar lebih menarik lagi, maka dapat menggunakan dua buah gambar yang berbeda pada command button dengan menambahi property Downpicture. Dengan property ini , gambar pada saat tombol diklik (ditekan) akan berbeda pada saat tombol tidak diklik.
2. Option Button
Tombol pilihan adalah salah sebuah kontrol di mana user dapat memilih salah satu dari beberapa pilihan-pilihan yang ada. Pilihan ini sifatnya tunggal, artinya user tidak dapat memilih lebih dari satu pilihan. Apabila user mengklik pada tombol pilihan yang lain, maka pada tombol pilihan pertama yang sudah diklik akan dimatikan pilihannya.
Option button dapat juga membuat kelompok-kelompok tombol pilihan. Di mana setiap kelompok terdapat sekumpulan tombol-tombol pilihan masing-masing. Disini user dapat memilih lebih dari salah satu pilihan, tetapi didalam masing-masing kelompok tetap hanya bisa memilih satu pilihan saja.
Untuk membuat kelompok tombol pilihan digunakan kontrol Frame. Yang mana berupa segi empat yang berfungsi menjadi temapt kontrol-kontrol yang lain. Semua kontrol-kontrol yang diletakkan dalam frame ini akan dianggap sebagai satu kelompok.
Latihan 1
1. Buatlah proyek baru pada visual basic (tekan Ctrl+N)
2. Klik ganda kontrol frame
3. Aturlah ukuran kontrol frame ini agar dapat menampung kontrol lain
4. Klik tungal kontrol Option button
5. Klik dan tahan tombol mouse , geser kursor didalam daerah frame untuk membentuk tombol pilihan, lalu lepas tombol mouse. (jangan sampai kontrol yang dibuat melebihi batas frame, karena nanti tidak akan dianggap sebagai bagian frame tersebut).
6. Ulangi langkah 2-5 di atas untuk membuat rame dan kontrol-kontrol lainnya. Aturlah semua posisi dan ukurannya hingga seperti dibawah ini :
7. Ubahlah property setiap kontrol di atas menjadi seperti berikut :
Kontrol Properti Nilai
Form1 Caption Option button dengan frame
Label1 Caption Mengubah label dengan option button
Frame1 Caption Style
Frame2 Caption Color
Frame3 Caption Underline
Frame4 Caption StrikeOut
Option1 Caption Normal
Option2 Caption Bold
Option3 Caption Italic
Option4 Caption Bold italic
Option5 Caption Merah
Option6 Caption Biru
Option7 Caption Hijau
Option8 Caption Kuning
Option9 Caption Garis bawah
Option10 Caption Tidak bergaris
Option11 Caption Dicoret
Option12 Caption Tidak dicoret
8. Pilih menu View> Code untuk menampilkan jendela code, lalu ketikkan program dibawah ini :
Private Sub Option1_Click()
Label1.FontBold = False
Label1.FontItalic = False
End Sub
Private Sub Option2_Click()
Label1.FontBold = True
End Sub
Private Sub Option3_Click()
Label1.FontItalic = True
End Sub
Private Sub Option4_Click()
Label1.FontBold = True
Label1.FontItalic = True
End Sub
Private Sub Option5_Click()
Label1.ForeColor = vbRed
End Sub
Private Sub Option6_Click()
Label1.ForeColor = vbBlue
End Sub
Private Sub Option7_Click()
Label1.ForeColor = vbGreen
End Sub
Private Sub Option8_Click()
Label1.ForeColor = vbYellow
End Sub
Private Sub Option9_Click()
Label1.FontUnderline = True
End Sub
Private Sub Option10_Click()
Label1.FontUnderline = False
End Sub
Private Sub Option11_Click()
Label1.FontStrikethru = True
End Sub
Private Sub Option11_Click()
Label1.FontStrikethru = False
End Sub
9. Jalankan aplikasi ini dengan menekan tombol F5. Klik pada setia option button untuk menguvbah tampilan teks judul sesuai dengan pilihan-pilihan yang ditentukan.
3. Check Box
Kotak cek adalah sebuah kontrol pemilihan yang fungsinya hamper sama dengan opion button, hanya saja bedanya pada check box , dapat dipilih lebih dari satu pilihan.
Untuk menentukan jenis dari check box, property ini memiliki dua buah nilai, yaitu : 0-Standard dan 1-Graphical.
Latihan 2
1. Buatlah proyek baru pada visual basic.
2. Klik ganda icon check box pada tool box.
3. Buatlah tiga buah lagi kontrol check box dan sebuah kontrol label. Aturlah posisinya hingga tampak seperti dibawah ini
4. Ubahlah property setiap kontrol tersebut menjadi seperti pada tabel berikut ini.
Kontrol Properti Nilai
Form1 Caption Contoh Check Box
Label1 Caption Mengubah teks dengan check box
Border Style 1-Fixed Single
Check1 Caption &Bold
Check2 Caption &Underline
Check3 Caption &Red Text
Style 1-Graphical
Check4 Caption B&ig Text
Style 1-Graphical
5. Klik ganda Check1, lalu ketikkan kode program dibawah ini
Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Label1.FontBold = True
Else
If Check1.value = vbUnchecked Then
Label1.FontBold = False
End If
End If
End Sub
6. Ulangi langkah diatas untuk mengubah kode program ketiga check box lainnya seperti dibawah ini
Rem Kode rogram kotak cek Check2
Private Sub Check2_Click()
If Check2.value = vbChecked Then
Label1.FontUnderline = True
Else
If Check2.value = vbUnchecked Then
Label1.FontUnderline = False
End If
End If
End Sub
Rem Kode rogram kotak cek Check3
Private Sub Check3_Click()
If Check3.value = vbChecked Then
Label1.Forecolor = vbRed
Else
If Check3.value = vbUnchecked Then
Label1.Forecolor = vbBlack
End If
End If
End Sub
Rem Kode rogram kotak cek Check4
Private Sub Check4_Click()
If Check4.value = vbChecked Then
Label1.FontSize = 14
Else
If Check4.value = vbUnchecked Then
Label1.FontSize = 10
End If
End If
End Sub
7. Jalankan aplikasi ini dengan menekan tombol F5.
Tugas : Kerjakanlah tugas anda dengan menggunakan fasilitas tombol diatas.
Latihan 1
1. Jalankan Visual basic dalam standar EXE
2. Klik A kontrol label dalam toolbox, kemudian tempatkan pointer mouse di atas form. Selanjutnya buat label2, label3, dan label4
3. Klik kontrol command button dalam toolbox, kemudian tempatkan pointer pada form untuk meletakkan kontrol tersebut, serta atur bentuknya agak besar.
4. Tambahkan dua tombol command lagi dibawahnya.
5. Klik kontrol Picturebox dalam toolbox, kemudian tempatkan pada form tersebut.
Atur property sesuai tabel berikut
Objek Properti Pengaturan
Command1 Caption Putar
Command2 Caption Selesai
Label1 Alignment Center
BorderStyle 1 – Fixed Single
Font Arial, Bold, 28
Caption -
Label2 Alignment Center
BorderStyle 1 – Fixed Single
Font Arial, Bold, 28
Caption -
Label3 Alignment Center
BorderStyle 1 – Fixed Single
Font Arial, Bold, 28
Caption -
Label4 Font Arial, Bold, 28
Caption Kiu – Kiu
Picture1 Picture Cari gambar sendiri
Visible False
6. Klik ganda pada command1 , lalu ketik kode berikut ini :
Private Sub Command1_Click()
Picture1.Visible = False
Label1.Caption = Int (Rnd*10)
Label2.Caption = Int (Rnd*10)
Label3.Caption = Int (Rnd*10)
If (Label1.Caption 9) or (Label2.Caption = 9) or _
(Label3.Caption = 9) then
Picture1.Visible = True
Beep
End If
End Sub
7. Klik ganda pada comman2 , lalu ketik kode berikut ini :
Private Sub Command2_Click()
End
End Sub
8. Klik ganda di form, lalu ketik kode berikut :
Private Sub Form_Load()
Randomize ‘membuat data acak
End Sub
9. Jalankan program tersebut.
Latihan 2
1. Buat tombol kontrol sesuai dengan property berikut ini :
Objek Properti Pengaturan
Form Caption Textbox
TextBox1 Name Text1
Text -
Command1 Name cmdSisip
Caption Sisipkan Tanggal
Command2 Name cmdPesan
Caption Tampilkan Pesan
Command3 Name cmdHapus
Caption Hapus Teks
2. Klik ganda pada command1
Private Sub cmdSisip_Click()
Dim Tgl
Tgl = Format (Date, “dddd, d mmm yyyy”)
Text1.Text = “Sekarang hari dan tanggal : “ + Tgl
End Sub
3. Klik ganda pada command2
Private Sub cmdPesan_Click
Text1.Text = “Belajar visual basic”
End Sub
4. Klik ganda pada command3
Private Sub cmdHapus_Click()
Text1.Text = “”
End Sub
Latihan 3
1. Buat tombol kontrol sesuai dengan property berikut ini :
Objek Properti Pengaturan
Form Caption Toko Komputer
Label1 Caption Toko Komputer al star
Font Times New Roman
ForeColor Biru Tua
Label2 Caption Pemesanan Produk
Font Times New Roman
ForeColor Biru Tua
Label3 Caption Periferal (Pilih satu)
Shape1 Fill Style Diagonal Cross
Line1 Border With 3
Frame1 Caption Komputer (pilih)
Frame2 Caption Peralatan Kantor
Option1 Caption PC
Index 0
Value True
Option2 Caption Macintosh
Index 1
Option3 Caption Laptop
Index 2
CheckBox1 Name Check1
Caption Mesin Penjawab
CheckBox2 Name Check2
Caption Kalkulator
CheckBox3 Name Check3
Caption Foto Copy
ListBox Name List1
ComboBox Name Combo1
Caption Metode Pembayaran
Image1 Strech True
Image2 Strech True
Image3 Strech True
Image4 Strech True
Image5 Strech True
Image6 Strech True
Command1 Name cmdKeluar
Caption Keluar
Private Sub Form_Load()
Dirgbr = “c:\program files\microsoft visual studio\common\”_
& “graphics\metafile\business\”
Image1.picture = LoadPicture(DirGbr + “pcomputr.wmf”)
List1.Additem “Backup disk”
List1.Additem “Printer”
List1.Additem “Parabola”
Combo1.Additem “Dollar Amerika”
Combo1.Additem “Cek”
Combo1.Additem “Kontan Rupiah”
End Sub
Private Sub Check1_Click()
If Cehck1.Value = 1 then
Image2.Picture = LoadPicture(DirGbr+”answmach.wmf”)
Image2.Visible = True
Else
Image2.Visible = False
End If
End Sub
Private Sub Check2_Click()
If Cehck2.Value = 1 then
Image4.Picture = LoadPicture(DirGbr+”calcultr.wmf”)
Image4.Visible = True
Else
Image4.Visible = False
End If
End Sub
Private Sub Check3_Click()
If Cehck1.Value = 1 then
Image6.Picture = LoadPicture(DirGbr+”copymach.wmf”)
Image6.Visible = True
Else
Image6.Visible = False
End If
End Sub
Private Sub Combo1_Click()
Select Case Combo1.ListIndex
Case 0
Image5.Picture = LoadPicture(DirGbr + “dollar.wmf”)
Case 1
Image5.Picture = LoadPicture (DirGbr + “check.wmf”)
Case 2
Image5.Picture = LoadPicture (DirGbr + “ruble.wmf”)
End Select
Image5.Visible = True
End Sub
Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Image3.Picture = LoadPicture (DirGbr + “harddisk.wmf”)
Case 1
Image3.Picture = LoadPicture (DirGbr + “printer.wmf”)
Case 2
Image3.Picture = LoadPicture (DirGbr + “satedish.wmf”)
End Select
Image3.Visible = True
End Sub
Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Image1.Picture = LoadPicture (DirGbr + “pcomputr.wmf”)
Case 1
Image1.Picture = LoadPicture (DirGbr + “computer.wmf”)
Case 2
Image1.Picture = LoadPicture (DirGbr + “laptop1.wmf”)
End Select
End Sub
Private Sub cmdKeluar_Click()
End
End Sub
MENCARI DATA
Untuk melakukan pencarian data berurutan , anda dapat menggunakan metode Find sebagai berikut :
object.recordset.Find
Pernyataan object menunjukkan objek (data) yang akan dicari. Misalnya akan dicari pada dbPembelian, maka bentuknya menjadi :
dbPembelian.Recordset.FindFirst
String kriteria yang dimaksud , adalah “Kode=’PS.02’”. Perhatikan bahwa string yang ditulis dalam string yang lain , ditulis dalam tanda kutip tunggal.
Untuk memahami pencarian data berurutan, lakukan langkah berikut :
LATIHAN 1
1. Buka proyek Lat02 (modul minggu lalu)
2. Simpan proyek dengan nama Lat03.vbp , dengan cara menu File lalu Save Project As.
3. Simpan form dengan nama baru Lat03.frm dengan cara menu File lalu Save Lat02.frm As.
4. Tampilkan jendela form , lalu tambahkan objek seperti gambar berikut, perhatikan bahwa objek Frame1 dibuat sebelum objek di dalamnya. Jadi, objek yang harus anda buat urutannya adalah Frame untuk bingkai , Label untuk tulisan Kode Barang dalam frame, Text1 untuk isian Kode Barang dalam frame, Command1 untuk tombol Cari dalam frame dan Command2 unuk tombol Exit. Perhatikan bahwa jika anda membuat objek diatas objek lain , jangan menggunakan cara klik ganda pada toolbox, tetapi gunakan cara klik pada tool yang diinginkan , lalu seret di atas objek yang diinginkan.
5. Ubahlah setting property objek-objek, seperti :
Objek Properti Setting
Frame Caption Cari Data
Label2 Caption Kode Barang
Text1 Name txtCari
Caption (kosong)
Command1 Name cmdCari
Caption Cari
Command2 Name cmdExit
Caption Exit
6. Tampilkan editor kode program dan tuliskan program berikut :
Private Sub cmdCari_Click()
Dim MKode As String
MKode = txtCari.Text
MSyarat = “Kode = ‘ “ & MKode & “ ‘ “
‘cari data pertama yang nomornya sama dengan MKode
dbPembelian.Recordset.Find MSyarat
If dbPembelian.Recordset.EOF Then
X = MsgBox ( “Data tidak ditemukan !” , vbOkOnly,
“Pencarian kode barang “ )
‘bawa ke record pertama
dbPembelian.Recordset.MoveFirst
End If
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub txtCari_GotFocus()
cmdCari.Default = True
End Sub
Private Sub txtCari_LostFocus()
cmdCari.Default = False
End Sub
7. Simpan lagi proyek dan form dengan nama sama
8. Jalankan program dengan klik tombol Start.
Penjelasan :
Baris-baris program di atas menunjukkan bahwa jika isian teks pencarian sedang focus, yang ditunjukkan dengan adanya kursor pada isisan teks pencarian , maka tombol cmdCari menjadi tombol default. Artinya, jika anda menekan tombol enter , maka akan dianggap mengklik tombol cmdCari (tombol yang berisi tulisan Cari).
Baris-baris program diatas menunjukkan bahwa jika teks pencarian kehilangan focus, maka setting default pada tombol cmdCari menjadi hilang.
Program diatas untuk mencari suatu data yang persis sama. Lalu bagaimana bila yang diketahui hanyalah sebagian data dari suatu field, misalnya unuk mencari data barang dengan nama “PENSIL” dan belum tentu nama tersebut adalah nama lengkap.
LATIHAN 2
1. Buka proyek Lat03 (latihan sebelumnya)
2. Simpan proyek dengan nama Lat04.vbp , dengan cara menu File lalu Save Project As.
3. Simpan form dengan nama baru Lat04.frm dengan cara menu File lalu Save Lat03.frm As.
4. Ubahlah properti Caption pada objek Label2 (label pencarian) menjadi tulisan “Nama Barang”
5. Tampilkan editor kode program dan tuliskan program berikut :
Dim Ada As Byte
Private Sub cmdCari_Click()
Dim MNama As String
MNama = UCase(Trim(xtCari.Text))
If Ada = 0 or dbPembelian.Recordset.EOF Then
dbPembelian.Recordset.MoverFirst
Else
dbPembelian.Recordset.MoveNext
End If
Ada = 0
Do While Not dbPembelian.Recordset.EOF
Ada = InStr(UCase (dbPembelian.Recordset.Fields(“Nama”)),
MNama)
If Ada > 0 Then
Exit Do
End If
dbPembelian.Recordset.MoveNext
Loop
If dbPembelian.Recordset.EOF Then
X = MsgBox ( “Data tidak ditemukan !” , vbOkOnly,
“Pencarian Nama Barang “ )
End If
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub Form_Activate()
txtCari.SetFocus
Ada = 0
End Sub
Private Sub txtCari_GotFocus()
cmdCari.Default = True
End Sub
Private Sub txtCari_LostFocus()
cmdCari.Default = False
End Sub
6. Simpan lagi proyek dan form dengan nama sama
7. Jalankan program dengan klik tombol Start.
Untuk melakukan pencarian data dengan index data, maka dapat menggunakan metode berikut ini :
object.recordset.Seek
sebagai contoh jika data mempunyai index dengan kunci pertama nomor faktur dan kunci ke dua tanggal faktur , maka anda dapat memberikan perintah ncarian seperti berikut :
object.recordset.Seek “=” , MNoFaktur , MTgFaktur
Perhatikan bahwa jika data mempunyai index dengan dua kunci field atau lebih, maka pencarian data harus ditulis lengkap sesuai dengan jumlah kunci indexnya. Untuk memahami pencarian dengan kunci index, lakukan langkah berikut ini :
LATIHAN 3
1. Buka proyek Lat03
2. Simpan proyek dengan nama Lat05.vbp , dengan cara menu File lalu Save Project As.
3. Simpan form dengan nama baru Lat05.frm dengan cara menu File lalu Save Lat03.frm As.
4. Karena objek Adodc tidak mempunyai metode pencarian data dengan index, maka kita akan menggantinya dengan objek Data. Untuk itu , hapus objek Adodc dengan cara menampilkan bentuk Form , lalu klik pada objek Adodc dan tekan Del
5. Klik ganda pada icon Data pada ejndela toolbar, lalu atur letak di tempat objek Adodc sebelumnya berada.
6. Ubahlah setting properti objek Data seperti :
Properti Setting
Name dbPembelian
Caption Database Pembelian
Connect Access
Database Name Database yg dipakai , misal C:\Vb\Pembelian.mdb
Recordset Type 0-Table (karena property index dan metode Seek
hanya dapat digunakan pada setting ini )
RecordSource Barang
7. Tampilkan editor kode program dan tuliskan program berikut :
Private Sub cmdCari_Click()
Dim MKode As String * 6
MKode = txtCari.Text
dbPembelian.Recordset.Index = “KodeBrg”
‘cari data pertama yang nomornya sama dengan MKode
dbPembelian.Recordset.Seek “=” , MKode
If dbPembelian.Recordset.NoMatch Then
X = MsgBox ( “Data tidak ditemukan !” , vbOkOnly,
“Pencarian kode barang “ )
End If
End Sub
Private Sub cmdExit_Click()
End
End Sub
Private Sub Form_Activate()
txtCari.SetFocus
End Sub
Private Sub txtCari_GotFocus()
cmdCari.Default = True
End Sub
Private Sub txtCari_LostFocus()
cmdCari.Default = False
End Sub
8. Simpan lagi proyek dan form dengan nama sama
9. Jalankan program dengan klik tombol Start.
Database dan Validasi Data
Pada modul sebelumnya , sudah dibahas cara mengaitkan dataset ke dalam program apliaksi menggunakan icon Data atau icon Adodc yang terdapat pada jendela toolbox. Setelah suatu database dikaitkan ke dalam suatu form , amka anda dapat menggunakan beberapa objek beserta propertinya untuk mengakses database tersebut. Tetapi, anda dapat mengakses lebih cepat dengan menggunakan kode program.
A. Membuka database dengan Kode Program
1. Deklarasikan sebuah variabel database. Level deklarasi variabel database bisa pada level form atau level lain , tetapi biasanya tidak pada level procedure.
bentuk : Dim
ex. Dim dbPembelian As Database
2. Jika perintah diatas tidak dikenal , maka dapat ditambahkan terlebih dahulu objek Data dari toolbox ke dalam form. Objek Data tersebut tidak perlu dikaitkan ke dalam database karena hanya sebagai syarat supaya anda dapat menggunakan perintah deklarasi variabel diatas. Setelah program dijalankansatu kali , maka objek Data tersebut dapat anda hapus
3. Deklarasikan sebuah variabel recordset. Level deklarasi variabel database bisa pada level form atau level lain , tetapi biasanya tidak pada level procedure.
bentuk : Dim
ex. Dim rsBarang As Recordset
4. Setelah anda mendeklarasikan variabel database dan recordset , anda dapat memberikan perintah membuka database pada suartu procedure , misalnya procedure Form_load.
bentuk : Set
ex. dbPemberlian = OpenDatabase (“c:\Pembelin.mdb”)
5. entuka recordset dari database yang telah dibuka. Penentuan recordset ini adalah untuk menentukan tabel data yang dibuka didalam file database yang telah dibuka.
bentuk :
Set
6. Samapi disini , berarti anda sudah membuka file database dan menentukan recordsetnya. Selanjutnya anda dapat mengakses sesuai keinginan. Setelah database dan recordset selesai diakses, sebaiknya anda menutup dengan memberikan perintah berikut ini :
bentuk :
ex. rsBarang.close
dbPembelian.close
Contoh lengkap penggunannya :
Dim dbPembelian As database
Dim rsBarang As Recordset
Private Sub cmdSelesai-click()
rsBarang.close
dbPembelian.close
End
End Sub
Private Sub Form_load()
Set dbPembelian = OpenDatabse (“C:Pembelian”)
Set rsBarang = dbPembelian.OpenRecordset (“BArang”)
‘selanjunya database dapat diakses
End Sub
B. Menambah , Mengisi dan Mengupdate Record
Untuk menambah record baru pada suatu tabel data, menggunakan :
ex. rsBarang.AddNew
Record yang ditambah tersebut masih kosong, untuk mengisinya :
ex. rsBarang!Kode = “PS.004”
rsBarangNama = txtNama.Text
Cara untuk mengedit :
ex. rsBarang.Edit
Cara untuk mengupdate :
ex. rsBarang.Update
Jika perintah Update tidak diberikan, maka penambahan , pengsian data atau pengeditan data akan hilang.
C. Menghapus Record
Untuk menghapus record digunakan perintah :
ex. rsBarang.Delete
Perhatikan bahwa record yang dihapus adalah record yang sekarang ditunjuk oleh penunjuk record , anda dapat menggunakan metode Move…., Find…., atau Seek …
D. Mengenal dan Menggunakan Validasi
Validasi yang dimaksud disini adalah proses pengujian data. Validasi dalam penanganan database, biasanya dilakukan pada saat pemasukan dan pengubahan data. Maksud validasi bisanya untuk menghindari kesalahan pada pemasukan atau pengubahan data , selain itu , validasi juga untuk memermudah pemasukan atau pengubahan data.
D.1. Validasi pada pemasukan data barang
Untuk mempelajari validasi data pemasukan data, akan dibahas validasi pada proses pemasukan data barang , dengan langkah sebagai berikut :
1. Buka proyek baru dan tambahkan beberapa objek sbb. :
2. Sesuaikan nama objek sesuai berikut :
Nama_objek Nama_baru
Text1 txtKode
Text2 txtNama
Text3 txtSatuan
Text4 txtHarga
Command1 cmdSimpan
Command2 cmdBatal
Command3 cmdSelesai
3. Tuliskan kode program seperti contoh berikut ini . Setelah itu simpan proyek dan form dengan nama Lat10 lalu jalankan program.
Dim dbPembelian As Database
Dim rsBarang As Recordset
Private Sub cmdBatal_click()
txtKode.SetFocus
TidakSiapIsi
WarnaTidakNormal
End Sub
Private Sub cmdSelesai_Click()
dbPembelian.Close
End
End Sub
Private Sub cmdSimpan_Click()
‘tambahkan satu record kosong
rsbarang.Addnew
‘isi record kosong dengan isi form
rsBarang!Kode = txtKode.Text
rsBarang!Nama = txtNama.Text
rsBarang!Satuan = txtSatuan.Text
rsBarang!Harga = Val (txtHarga.Text)
‘Update record
rsBarang.Update
‘kosongkan lagi Form
BlankForm
TidakSiapIsi
WarnaTidakNormal
txtKode.SetFocus
txtKode.Text = “”
End Sub
Private Sub Form_Load()
Set dbPembelian = Opendatabase(“C:\Pembelian.mdb”)
Set rsBarang = dbPembelian.OpenRecordSet(“Barang”)
‘pilih index yang dipakai
rsBarang.Index = “KodeBrg”
txtKode.Text = “”
BlankForm
TxtKode.Enabled = True
TidakSiapIsi
TxtKode.MaxLength = 6
TxtNama.MaxLength = 30
TxtSatuan.MaxLength = 5
TxtHarga.MaxLength = 10
WarnaTidakNormal
End Sub
Private Sub BlankForm()
txtNama.Text = “”
txtSatuan.Text = “”
txtHarga.Text = “”
End Sub
Private Sub WarnaTidakNormal()
txtNama.BackColor = &h80000004
txtaSatuan.BackColor = &h80000004
txtHarga.BackColor = &h80000004
‘Kode warna diatas dicopy dari properties
End Sub
Private Sub WarnaNormal()
txtNama.BackColor = &h80000005
txtSatuan.BackColor = &h80000005
txtHarga.BackColor = &h80000005
‘Kode warna diatas dicopy dari properties
End Sub
Private Sub txtHargaKeyPress(KeyAscii As Integer)
‘hanya boleh diisi angka atau backspace
If Not (KeyAscii >= Asc (“0”) And KeyAscii <= Asc (“9”)
Or KeyAscii = vbKeyBack) Then
Beep
KeyAscii = 0
End If
End Sub
Private Sub txtKode_Change()
Dim Panjang As Byte
Panjang = Len(txtKode.text)
If Panjang < 6 Then
Exit Sub
End If
‘ cari kode barang
rsBarang.Seek “=”, txtKdoe.Text
If rsBarang.Nomatch Then
‘ Jika tidak ditemukan boleh diisi
BlankForm
txtNama.Enabled = True
txtSatuan.Enabled = True
txtHarga.Enabled = True
cmdSimpan.Enabled = True
txtNama.SetFocus
WarnaNormal
Exit Sub
End If
'jika ditemukan, tampilkan data
WarnaTidakNormal
txtNama.Text = rsBarang!Nama
txtSatuan.Text = rsBarang!Satuan
txtHarga.Text = rsBarang!Harga
TidakSiapIsi
End Sub
Private Sub TidakSiapIsi()
txtNama.Enabled = False
txtSatuan.Enabled = False
txtHarga.Enabled = False
cmdSimpan.Enabled = False
End Sub
Private Sub txtKode_KeyPress(KeyAscii As Integer)
'mengubah huruf kecil jadi huruf besar
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub txtNama_KeyPress(KeyAscii As Integer)
'mengubah huruf kecil jadi huruf besar
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub txtSatuan_KeyPress(KeyAscii As Integer)
'mengubah huruf kecil jadi huruf besar
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Penjelasan validasi :
Private Sub txtKode_KeyPress(KeyAscii As Integer)
'mengubah huruf kecil jadi huruf besar
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Procedure diatas akan dijalankan jika anda menekan tombol keyboard (keypress) pada saat kursor berada pada kolom isian Kode Barang. Vaidasi ini tidak melakukan pengujian data , melainkan akan otomatis mengubah data yang diketikkan menjadi huruf besar, sehingga data menjadi seragam huruf besar.
Private Sub txtHargaKeyPress(KeyAscii As Integer)
‘hanya boleh diisi angka atau backspace
If Not (KeyAscii >= Asc (“0”) And KeyAscii <= Asc (“9”)
Or KeyAscii = vbKeyBack) Then
Beep
KeyAscii = 0
End If
End Sub
Procedure diatas akan otomatis dijalankan jika anda menekan tombol keyboard pada saat kursor berada pada kolom pengisian data harga barang. Jika yang ditekan adalah bukan tombol angka atau bukan tombol backspace , maka program akan membunyikan bel dan menolak masukan data Jadi, validasi di atas diperlukan untuk mencegah pamasukan data yang salah.
Private Sub txtKode_Change()
Dim Panjang As Byte
Panjang = Len(txtKode.text)
If Panjang < 6 Then
Exit Sub
End If
‘ cari kode barang
…
End Sub
Procedure diatas akan dijalankan jika anda melakukan perubahan saat kursor berada pada isian kode barang. Setiap kali anda melakukan perubahan, maka pertamtama program akan menguji apakah jumlah karakter dalam isian kode barang sudah mencapai 6 karakter. Jika belum, maka program akan keluar dari procedure dan menunggu lagi anda melakukan sesuatu. Jika jumlah karakter sama dengan 6 , barulah program akan melakukan pengujian terhadap isian kode barang.
D.2. Validasi pada Pemasukan Data Suplier
Pada modul sebelumnya anda telah membuat tabel data supplier dalam file data Pembelian. Karena tabel data Suplier belum mempunyai index data, maka buatlah dulu index data KodeSpl dengan kunci field Kode dan index data NamaSpl dengan kunci field Nama (lihat cara membuart index pada modul sebelumnya) . Setelah anda buat index datanya, selanjutnya lakukan langkah-langkah berikut :
1. Buka proyek baru dan tambahkan beberpa objek seperti berikut:
2. Sesuaikan nama objek sebagai berikut:
Nama Objek Nama Baru
Text1 txtKode
Text2 txtNama
Text3 txtAlamat
Text4 txtKota
Text5 txtHubungan
Text6 txtTelepon
Command1 cmdSimpan
Command2 cmdBatal
Command3 cmdSelesai
3. Tuliskan kode program seperti contoh berikut . Setelah itu simpan proyek dengan nama Lat11 dan jalankan program
Dim dbPembelian As Database
Dim rsSupplier As Recordset
Private Sub cmdBatal_Click()
txtKode.SetFocus
TidakSiapIsi
WarnaTidakNormal
End Sub
Private Sub cmdSelesai_Click()
dbPembelian.Close
End
End Sub
Private Sub cmdSimpan_Click()
'tambahkan satu record kosong
rsSupplier.AddNew
'isi record kosong dengan isi form
rsSupplier!Kode = txtKode.Text
rsSupplier!Nama = txtNama.Text
rsSupplier!Alamat = txtAlamat.Text
rsSupplier!Kota = txtKota.Text
rsSupplier!Hubungan = txtHubungan.Text
rsSupplier!Telepon = txtTelepon.Text
'update record
rsSupplier.Update
'kosongkan lagi form
BlankForm
TidakSiapIsi
WarnaTidakNormal
txtKode.SetFocus
txtKode.Text = ""
End Sub
Private Sub Form_Load()
Set dbPembelian = OpenDatabase("C:\CobaVB6\Pembelian.mdb")
Set rsSupplier = dbPembelian.OpenRecordset("Supplier")
'pilih index yang dipakai
rsSupplier.Index = "KodeSpl"
txtKode.Text = ""
BlankForm
txtKode.Enabled = True
TidakSiapIsi
txtKode.MaxLength = 5
txtNama.MaxLength = 30
txtAlamat.MaxLength = 30
txtKota.MaxLength = 10
txtHubungan.MaxLength = 30
txtTelepon.MaxLength = 20
WarnaTidakNormal
End Sub
Private Sub BlankForm()
txtNama.Text = ""
txtAlamat.Text = ""
txtKota.Text = ""
txtHubungan.Text = ""
txtTelepon.Text = ""
End Sub
Private Sub WarnaTidakNormal()
txtNama.BackColor = &H80000004
txtAlamat.BackColor = &H80000004
txtKota.BackColor = &H80000004
txtHubungan.BackColor = &H80000004
txtTelepon.BackColor = &H80000004
'kode warna di atas dicopy dari properti
End Sub
Private Sub WarnaNormal()
txtNama.BackColor = &H80000005
txtAlamat.BackColor = &H80000005
txtKota.BackColor = &H80000005
txtHubungan.BackColor = &H80000005
txtTelepon.BackColor = &H80000005
'kode warna di atas dicopy dari properti
End Sub
Private Sub txtKode_Change()
Dim Panjang As Byte
Panjang = Len(txtKode.Text)
If Panjang < 5 Then
Exit Sub
End If
'cari kode Supplier
rsSupplier.Seek "=", txtKode.Text
If rsSupplier.NoMatch Then
'jika tidak ditemukan, boleh diisi
BlankForm
txtNama.Enabled = True
txtAlamat.Enabled = True
txtKota.Enabled = True
txtHubungan.Enabled = True
txtTelepon.Enabled = True
cmdSimpan.Enabled = True
txtNama.SetFocus
WarnaNormal
Exit Sub
End If
'jika ditemukan, tampilkan data
WarnaTidakNormal
txtKode.Text = rsSupplier!Kode
txtNama.Text = rsSupplier!Nama
txtAlamat.Text = rsSupplier!Alamat
txtKota.Text = rsSupplier!Kota
txtHubungan.Text = rsSupplier!Hubungan
txtTelepon.Text = rsSupplier!Telepon
TidakSiapIsi
End Sub
Private Sub TidakSiapIsi()
txtNama.Enabled = False
txtAlamat.Enabled = False
txtKota.Enabled = False
txtHubungan.Enabled = False
txtTelepon.Enabled = False
cmdSimpan.Enabled = False
End Sub
Private Sub txtKode_KeyPress(KeyAscii As Integer)
'mengubah huruf kecil jadi huruf besar
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub txtNama_KeyPress(KeyAscii As Integer)
'mengubah huruf kecil jadi huruf besar
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub txtAlamat_KeyPress(KeyAscii As Integer)
'mengubah huruf kecil jadi huruf besar
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub txtKota_KeyPress(KeyAscii As Integer)
'mengubah huruf kecil jadi huruf besar
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub txtHubungan_KeyPress(KeyAscii As Integer)
'mengubah huruf kecil jadi huruf besar
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
Private Sub txtTelepon_KeyPress(KeyAscii As Integer)
'mengubah huruf kecil jadi huruf besar
KeyAscii = Asc(UCase(Chr(KeyAscii)))
End Sub
0 komentar:
Posting Komentar