Hmmm….Pemrograman Visual.
Sebenarnya sudah pernah belajar waktu kuliah, bahkan pernah ikut dalam UKM (Unit Kegiatan Mahasiswa) untuk mempelajari materi VB 5.0 waktu itu. Bareng teman-teman yang sekarang udah pada hebat-hebat. Setelah masuk jadi staff pengajar di STIKOM, aku pernah bertindak sebagai Koordinator untuk Praktikum Pemrograman Visual I dan Praktikum Pemrograman Terstruktur, yang semuanya pake VB 6.0. Selain itu sebagai koordinator materi untuk Pemrograman Basis Data, yang menggunakan Access 2003. Saat ini juga masih belajar untuk menggunakan VB . NET.
Definisi Pemrograman Visual kalo menurut aku seh, suatu bahasa pemrograman yang menyertakan juga objek visualnya. Sehingga programmer tidak akan kesulitan apabila akan membangun suatu aplikasi. Apalagi bila permintaan dari Client yang bermacam-macam.
Dari kuliah martikulasi Pemrograman Visual Basic, dosen aku, bapak Fajar Baskoro, memberikan 8 contoh program visual basic 6.0. Mulai dari pengenalan pemrograman sampai dengan penggunaan kontrol yang lumayan rumit. Juga disertakan source web yang menerangkan masalah tersebut, yaitu : www.vbtutor.net/vbtutor.html atau http://ilmukomputer.com/2006/10/14/tutorial-vb-60
Dari 8 contoh program yang diberikan itu, pak Fajar meminta kami semua (mahasiswanya) untuk mengambil satu program yang menurut kami unik dan kemudian dibahas. Aku ambil contoh yang keberapa ya enaknya ???
Aku ambil latihan 8, yang Online Shopper. Mungkin ada yang akan aku tambahin dikit untuk menyempurnakan.
Berikut ini adalah tampilan awal dan program dari latihan 8
Private Sub Check1_Click()
If Check1.Value = 1 Then
Image2.Picture = _
LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\Answmach.wmf”)
Image2.Visible = True
Else
Image2.Visible = False
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Image4.Picture = _
LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\calcultr.wmf”)
Image4.Visible = True
Else
Image4.Visible = False
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Image6.Picture = _
LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\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(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\dollar.wmf”)
Case 1
Image5.Picture = _
LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\check.wmf”)
Case 2
Image5.Picture = _
LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\pound.wmf”)
End Select
End Sub
Private Sub Command1_Click()
End
End Sub
Private Sub Form_Load()
Image1.Picture = _
LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\computer.wmf”)
List1.AddItem “Extra Harddisk”
List1.AddItem “Printer”
List1.AddItem “Satelit dish”
Combo1.AddItem “US Dollars”
Combo1.AddItem “Check”
Combo1.AddItem “English Pounds”
End Sub
Private Sub List1_Click()
Select Case List1.ListIndex
Case 0
Image3.Picture = _
LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\harddisk.wmf”)
Case 1
Image3.Picture = _
LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\printer.wmf”)
Case 2
Image3.Picture = _
LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\satedish.wmf”)
End Select
Image3.Visible = True
End Sub
Private Sub Option1_Click()
If Option1.Value = 1 Then
Image1.Picture = _
LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\computer.wmf”)
End If
End Sub
Private Sub Option2_Click()
If Option2.Value = 1 Then
Image1.Picture = _
LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\PCcomputr.wmf”)
End If
End Sub
Private Sub Option3_Click()
If Option3.Value = 1 Then
Image1.Picture = _
LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\laptop1.wmf”)
End If
End Sub
Pada Form yang bernama Form 1, terdapat beberapa kontrol yaitu :
- dua buah Label yang bertuliskan Online Shopper dan Product Order
- dua buah Frame, yang masing-masing frame berisi tiga buah option button dan tiga buah check box.
- enam buah image box
- satu buah list box
- satu buah combo box
- satu buah command button
Akan dibahas satu persatu mengenai masing-masing kontrol dan hubungannya dengan program yang ada.
Program tersebut bertujuan untuk menampilkan gambar kedalam image box apabila kita melakukan pilihan baik dari check box, option box ataupun dari combo box.
Apabila program dijalankan maka akan muncul gambar PC dan isian dari listbox dan combobox.
Dari potongan program dapat dilihat pada bagian Private Sub Form_Load(). Pada bagian ini dituliskan
Image1.Picture = _
LoadPicture(“c:\Program files\Microsoft Visual studio\Common\Graphics\Metafile\business\computer.wmf”)
yang berarti menampilkan gambar computer yang bertipe wmf kedalam image box yang bernama image1. Pada beberapa bagian program yang lain juga terdapat perintah yang hampir sama dengan potongan program diatas.
Masih pada bagian Form_Load, listbox dan combobox diisikan data sehingga pada saat form dijalankan sudah berisi data tersebut. Hal tersebut ditunjukkan pada metode namakontrol.Add Item.
Struktur Logika yang digunakan untuk pemilihan pada program ini adalah If…Then….Else dan Select Case… Case… Kedua struktur tersebut mempunyai fungsi sama yaitu untuk menentukan pilihan.
Jika menggunakan If…Then…Else… harus diakhiri dengan End If.
Syntax penulisan If…Then…Else adalah sebagai berikut :
If kondisi Then
pilihan 1
Else
pilihan2
End If
Jika pilihan lebih dari dua maka gunakan syntax berikut :
If kondisi Then
pilihan 1
ElseIf kondisi Then
pilihan2
End If
Pada contoh tersebut penggunaan If … Then…Else…masih belum selesai, masih ada pilihan lagi yang belum dicek.
Jika menggunakan Select Case…Case harus diakhiri dengan End Select.
Syntax penulisan Select Case…Case… adalah sebagi berikut :
Select Case variabel
Case syarat1
pilihan 1
Case syarat2
pilihan 2
Case syarat n
pilihan n
End Select.
Select Case dapat digunakan jika apabila menggunakan fungsi If…Then dirasa tidak efisien.
Nah jika dari program tersebut, apabila kita pilih Option Button Machintos (Private Sub Option2_Click() )program akan melakukan pengecekan apakah benar option button tersebut yang dipilih? Apabila benar maka nilai yang diberikan adalah 1. Dari program dilihat apakah benar nilai yang dicek adalah 1, jika benar nilai yang dicek adalah 1 maka program akan mencari gambar yang diinginkan dan akan ditampilkan pada tempat yang ditentukan.
Jika penggunaan Select Case pada program tersebut adalah untuk menampilkan gambar dari combobox yang mengecek index dari text yang dipilih. Index pada VB dimulai dari 0,1,2 ,dst. atau (n-1), n adalah banyaknya data. Jika memilih text “US Dollars”, maka VB akan mengecek ada pd index berapakah text tersebut. Jika berada index ke 0 maka program akan menampilkan gambar uang dolar kedalam imagebox yang telah ditentukan.
Untuk bagian lain dari program ini hampir sama dengan penjelasan diatas. Semoga dari penjelasan singkat ini dapat membantu Anda para pembaca untuk memahami sedikit tentang VB.
