Translate

Senin, 31 Desember 2012

Struktur Select


Penggunaan Struktur Kontrol SELECT

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

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.

 Contoh Program : Struktur SELECT…CASE
Aktifkan VB 6 melalui tombol Start.
Buka kembali project Latihan.vbp.
Tambahkan Form baru ke dalam Project.
Pada Jendela Form buatlah UI seperti ini :
(Gunakan komponen Label, ListBox, TextBox dan CommandButton)
 
Pengaturan property setiap object-nya adalah sebagai berikut :

Opject
Properties
Value
Form6
Caption
StartUpPosition
Struktur SELECT…CASE
2 – CenterScreen
Label1
Caption
Pilih Barang :
List1
-
-
Label2
Caption
Jumlah
Text1
Text
<kosong>
Command1
Caption
OK
Label3-7
Name
BackColor

Caption
lblBarang, lblHarga, lblJumlah,
lblDiskon, lblTotal
Palette : <putih>
<kosong>

Buka Jendela Code dan 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
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 Form6 (nama file : Lat6.frm).

Catatan :
Anda bisa men-download file Lat6.frm dan file latihan-latihan sebelumnya.
Klik menu Project > Project1 Properties lalu klik tab General. Gantilah Startup Object-nya menjadi
Form6.

Coba jalankan Project1 :
·         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"
harga = 35000               bila barang = Disket
satuan = "Box"
Case "Buku"
harga = 20000               bila barang = Buku
satuan = "Lusin"
Case "Kertas"
harga = 25000                bila barang = Buku
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  tampilkan hasilnya
lblJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuan

jumlah = Text1.Text

Select Case jumlah       cek jumlah barang :
Case Is < 10
diskon = 0                    bila jumlah < 10 ô€ƒ† diskon = 0%
Case 10 To 20
diskon = 0.15               bila jumlah 10-20 ô€ƒ† diskon = 15%
Case Else
diskon = 0.2                 bila jumlah > 20 ô€ƒ† diskon = 20%
End Select

total = jumlah * (harga * (1 - diskon))
lblDiskon.Caption = "Diskon : " & Format(diskon, "0 %")                  Hitung total bayar dan tampilkan hasilnya
lblTotal.Caption = "Total Bayar : " & Format(total, "Currency")


Tidak ada komentar:

Posting Komentar