![Bab 2
Penggunaan Struktur Kontrol SELECT
1.1 Mengenal Struktur Kontrol
Struktur kontrol di dalam bahasa pemrograman adalah perintah dengan bentuk (struktur) tertentu yang
digunakan untuk mengatur (mengontrol) jalannya program.
Visual Basic 6 mengenal dua jenis struktur kontrol, yaitu :
1. Struktur kontrol keputusan - digunakan untuk memutuskan kode program mana yang akan
dikerjakan berdasarkan suatu kondisi. Akan dibahas pada bab ini.
2. Struktur kontrol pengulangan - digunakan untuk melakukan pengulangan kode program. Akan dibahas
pada bab selanjutnya.
Ada dua bentuk struktur kontrol keputusan, yaitu :
1. Struktur IF…THEN. Sudah dibahas pada bab yang lalu.
2. Struktur SELECT…CASE. Akan dibahas pada bab ini.
1.2 Struktur Kontrol Select…Case
Bentuk penulisan (syntax) struktur SELECT…CASE :
SELECT CASE <pilihan>
CASE <pilihan 1>
<blok kode program 1>
CASE <pilihan 2>
<blok kode program 2>
CASE <pilihan n>
<blok kode program n>
[CASE ELSE
<blok kode program x>]
END SELECT](https://image.slidesharecdn.com/tutorial-130518210614-phpapp01/85/Tutorial-Visual-Basic-Aplikasi-Kasir-5-320.jpg)
Tutorial Visual Basic "Aplikasi Kasir"
- 1. “Visual Basic : Aplikasi Kasir” Nama : Eval Daenuri Kelas : Xrpl2 Sekolah : SMK Negeri 1 Depok
- 2. Bab 1 Pendahuluan 1.1 Mengenal Visual Basic (VB) Visual Basic adalah salah satu bahasa pemrograman komputer. Bahasa pemrograman adalah perintahperintah yang dimengerti oleh komputer untuk melakukan tugas-tugas tertentu. Bahasa pemrograman Visual Basic, yang dikembangkan oleh Microsoft sejak tahun 1991, merupakan pengembangan dari pendahulunya yaitu bahasa pemrograman BASIC (Beginner’s All-purpose Symbolic Instruction Code) yang dikembangkan pada era 1950-an. Visual Basic merupakan salah satu Development Tool yaitu alat bantu untuk membuat berbagai macam program komputer, khususnya yang menggunakan sistem operasi Windows. Visual Basic merupakan salah satu bahasa pemrograman komputer yang mendukung object (Object Oriented Programming = OOP). 1.2 Mengenal Integrated Development Environment (IDE) VB 6 Aktifkan VB 6 melalui tombol Start > Programs > Microsoft Visual Studio 6.0 > Microsoft Visual Basic 6.0. Tunggulah beberapa saat hingga muncul tampilan berikut :
- 3. Pilih Standard EXE dan klik tombol Open. Anda akan melihat tampilan area kerja atau IDE VB 6. Kenali bagian-bagian utama di dalam IDE VB 6 berikut ini : Keterangan : -Menubar -Toolbar -Toolbox Bila Toolbox tidak muncul klik tombol Toolbox ( ) pada bagian Toolbar atau klik menu View > Toolbox. -Jendela From Bila Jendela Form tidak muncul klik tombol View Object ( ) pada bagian Project Explorer atau klik menu View > Object. -Jendela Code Bila Jendela Code tidak muncul klik tombol View Code ( ) di pada bagian Project Explorer atau klik menu View > Code.
- 4. -Project Explorer Bila Project Explorer tidak muncul klik tombol Project Explorer ( ) pada bagian Toolbar atau klik menu View > Project Explorer. -Jendela Properties Bila Jendela Properties tidak muncul klik tombol Properties Window ( ) pada bagian Toolbar atau klik menu View > Properties Window. 1.3 Memahami Istilah Object, Property, Method dan Event Dalam pemrograman berbasis obyek (OOP), anda perlu memahami istilah object, property, method dan event sebagai berikut : Object : komponen di dalam sebuah program Property : karakteristik yang dimiliki object Method : aksi yang dapat dilakukan oleh object Event : kejadian yang dapat dialami oleh object Sebagai ilustrasi anda dapat menganggap sebuah mobil sebagai obyek yang memiliki property, method dan event. Perhatikan gambar berikut : Object : From Method : -Hide -Move -Show Event : -Click -Load -Resize Property : -Backcolor -Borderstyle -Caption
- 5. Bab 2 Penggunaan Struktur Kontrol SELECT 1.1 Mengenal Struktur Kontrol Struktur kontrol di dalam bahasa pemrograman adalah perintah dengan bentuk (struktur) tertentu yang digunakan untuk mengatur (mengontrol) jalannya program. Visual Basic 6 mengenal dua jenis struktur kontrol, yaitu : 1. Struktur kontrol keputusan - digunakan untuk memutuskan kode program mana yang akan dikerjakan berdasarkan suatu kondisi. Akan dibahas pada bab ini. 2. Struktur kontrol pengulangan - digunakan untuk melakukan pengulangan kode program. Akan dibahas pada bab selanjutnya. Ada dua bentuk struktur kontrol keputusan, yaitu : 1. Struktur IF…THEN. Sudah dibahas pada bab yang lalu. 2. Struktur SELECT…CASE. Akan dibahas pada bab ini. 1.2 Struktur Kontrol Select…Case Bentuk penulisan (syntax) struktur SELECT…CASE : SELECT CASE <pilihan> CASE <pilihan 1> <blok kode program 1> CASE <pilihan 2> <blok kode program 2> CASE <pilihan n> <blok kode program n> [CASE ELSE <blok kode program x>] END SELECT
- 6. Bila <pilihan> sesuai dengan <pilihan 1> maka <blok kode program 1> akan dikerjakan, dst. Tetapi bila <pilihan> tidak ada yang sesuai dengan <pilihan 1> s/d <pilihan n> maka <blok kode program x> yang akan dikerjakan. 1.2 Contoh Program : Struktur SELECT…CASE Aktifkan VB 6 melalui tombol Start. Pada Jendela Form buatlah UI seperti ini : (Gunakan komponen Label, ListBox, TextBox dan CommandButton) 1.3 Contoh Program : Struktur SELECT…CASE Aktifkan VB 6 melalui tombol Start. Pada Jendela Form buatlah UI seperti ini : (Gunakan komponen Label, ListBox, TextBox dan CommandButton) Pengaturan property setiap object-nya adalah sebagai berikut : Object Properties Value From 6 Caption StartUpPosition Struktur SELECT…CASE 2 – CenterScreen Label1 Caption Pilih Barang : List1 - - Label2 Caption Jumlah :
- 7. Text1 Text <kosong> Command1 Caption OK Label3-7 Name BackColor Caption lblBarang, lblHarga, lblJumlah, lblDiskon, lblTotal Palette : <putih> <kosong> 1.3 Menulis Kode Program : Property Test Buka Jendela Code dan kenali bagian-bagian di dalamnya : Program yang berbasis Windows bersifat event-driven, artinya program bekerja berdasarkan event yang terjadi pada object di dalam program tersebut. Misalnya, jika seorang user meng-klik sebuah tombol maka program akan memberikan “reaksi” terhadap event klik tersebut. Program akan memberikan “reaksi” sesuai dengan kode-kode program yang dibuat untuk suatu event pada object tertentu. Pilih object Command1 pada bagian Object Selector. Secara otomatis pada bagian Code Editor akan muncul blok kode program berikut : Private Sub Command1_Click() End Sub Event Click merupakan event default (standar) dari object Command1, Anda bisa melihat event lainnya pada bagian Event Selector. Object Selector Event Selector Code Editor
- 8. Pada bagian Code Editor ketikkan kode programnya sebagai berikut : Private Sub Form_Load() List1.AddItem "Disket" List1.AddItem "Buku" List1.AddItem "Kertas" List1.AddItem "Pulpen" End Sub Private Sub Command1_Click() Dim harga As Currency, total As Currency Dim jumlah As Integer Dim diskon As Single Dim satuan As String If List1.Text = "" Then MsgBox "Anda belum memilih barang !!" List1.ListIndex = 0 Exit Sub End If If Text1.Text = "" Then MsgBox "Anda belum mengisi jumlah barang !!" Text1.SetFocus Exit Sub End If Select Case List1.Text Case "Disket" harga = 35000 satuan = "Box" Case "Buku" harga = 20000 satuan = "Lusin" Case "Kertas" harga = 25000 satuan = "Rim" Case "Pulpen" harga = 10000 satuan = "Pak" End Select lblBarang.Caption = "Barang : " & List1.Text lblHarga.Caption = "Harga : " & Format(harga, "Currency") & "/" & satuan lblJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuan
- 9. jumlah = Text1.Text Select Case jumlah Case Is < 10 diskon = 0 Case 10 To 20 diskon = 0.15 Case Else diskon = 0.2 End Select total = jumlah * (harga * (1 - diskon)) lblDiskon.Caption = "Diskon : " & Format(diskon, "0 %") lblTotal.Caption = "Total Bayar : " & Format(total, "Currency") End Sub Simpan Project1 (nama file : Latihan.vbp) dan Form1 (nama file : Lat1.frm). VB 6 akan menyimpan program yang Anda buat ke dalam beberapa file yang saling terkait, antara lain : file project (*.vbp), file form (*.frm) dan file module (*.bas). Coba jalankan Project1 dengan meng-klik tombol Start ( ) pada bagian Toolbar atau tekan tombol F5 pada keyboard. �List1 akan terisi nama-nama barang. �Klik tombol OK akan muncul kotak pesan "Anda belum memilih barang !!". �Klik OK, nama barang pertama akan terpilih secara otomatis. Anda boleh memilih nama barang yang lainnya. �Klik tombol OK akan muncul kotak pesan "Anda belum mengisi jumlah barang !!". �Klik OK, text1 akan menjadi focus. Isi jumlah barangnya, misalnya : 10. �Klik tombol OK akan tampil : nama barang, harga barang (per-satuannya), jumlah barang (dengan satuannya), diskon dan total bayar. �Coba ganti pilihan nama barang (pada List1) dan jumlah barang (pada Text1) lalu klik lagi tombol OK. Penjelasan kode program : Select Case List1.Text Case "Disket"
- 10. harga = 35000 bila barang = Disket satuan = "Box" Case "Buku" harga = 20000 bila barang = Buku satuan = "Lusin" Case "Kertas" harga = 25000 bila barang = Kertas satuan = "Rim" Case "Pulpen" harga = 10000 bila barang = Pulpen satuan = "Pak" End Select lblBarang.Caption = "Barang : " & List1.Text lblHarga.Caption = "Harga : " & Format(harga, "Currency") & "/" & satuan Tampilan Hasinya lblJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuan Catatan : �Bila jumlah barang diisi dengan selain angka akan muncul pesan error. �Untuk mengecek isi Text1 angka atau bukan, tambahkan kode program berikut : If Not IsNumeric(Text1.Text) Then MsgBox "Isi jumlah barang harus angka !!" Text1.SetFocus Exit Sub End If