Kesempatan kali ini, kita akan membahas mengenai cara menggunakan struktur kontrol SELECT visual basic 6.0, yang merupakan lanjutan dari pembahasan sebelumnya yaitu cara menggunakan struktur kontrol IF.
Struktur kontrol SELECT ... CASE mempunyai bentuk penulisan (syntax) seperti berikut
SELECT CASE <pilihan>
CASE <pilihan 1>
<pernyataan 1>
CASE <pilihan 2>
<pernyataan 2>
CASE <pilihan x>
<pernyataan x>
CASE ELSE
<pernyataan y>
END SELECT
2. Aturlah property dan value masing-masing object seperti tabel berikut,
3. Buka jendela kode (code editor) seperti berikut,
4. Copy dan paste kode program berikut kedalam jendela kode (code editor)
Private Sub Form_Load()
List1.AddItem "Mangga"
List1.AddItem "Rambutan"
List1.AddItem "Manggis"
List1.AddItem "Pepaya"
List1.AddItem "Apel"
List1.AddItem "Jeruk"
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 buah coy !!"
List1.ListIndex = 0
Exit SubEnd If
If Text1.Text = "" Then
MsgBox "Anda belum mengisi jumlah buah yang ingin dibeli !!"
Text1.SetFocus
Exit Sub
End If
Select Case List1.Text
Case "Mangga"
harga = 35000
satuan = "Kg"
Case "Rambutan"
harga = 20000
satuan = "Kg"
Case "Manggis"
harga = 25000
satuan = "Kg"
Case "Pepaya"
harga = 10000
satuan = "Kg"
Case "Apel"
harga = 10000
satuan = "Kg"
Case "Jeruk"
harga = 10000
satuan = "Kg"
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 25
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
2. Silahkan pilih buah-buahan dan masukkan jumlahnya
3. Tekan tombol OK
4. Maka akan ditampilkan nama barang, harga, jumlah, diskon dan total yang harus dibayar
Private Sub Form_Load()
List1.AddItem "Mangga"
List1.AddItem "Rambutan"
List1.AddItem "Manggis"
List1.AddItem "Pepaya"
List1.AddItem "Apel"
List1.AddItem "Jeruk"
End Sub
Ketika aplikasi dijalankan (tekan F5) maka secara langsung akan ditambahkan beberapa item pada object List1 yaitu daftar buah-buahan
Blok kedua
Private Sub Command1_Click()
Dim harga As Currency, total As Currency
Dim jumlah As Integer
Dim diskon As Single
Dim satuan As String
Ketika tombol OK ditekan maka pertama kali akan dilakukan deklarasi variabel antara lain adalah harga, total, jumlah, diskon, dan satuan
Blok ketiga
If List1.Text = "" Then
MsgBox "Anda belum memilih buah coy !!"
List1.ListIndex = 0
Exit SubEnd If
If Text1.Text = "" Then
MsgBox "Anda belum mengisi jumlah buah yang ingin dibeli !!"
Text1.SetFocus
Exit Sub
End If
Jika kita belum memilih buah-buahan tetapi sudah menekan tombol OK maka akan muncul pesan peringatan "Anda belum memilih buah coy!!"
Jika kita belum memasukkan jumlah buah tetapi sudah menekan tombol OK maka akan muncul pesan peringatan "Anda belum mengisi jumlah buah yang ingin dibeli !!"
Blok keempat
Select Case List1.Text
Case "Mangga"
harga = 35000
satuan = "Kg"
Case "Rambutan"
harga = 20000
satuan = "Kg"
dst...
End Select
Pada blok program ini digunakan struktur kontrol SELECT yang digunakan untuk melakukan pemilihan jenis buah-buahan. Jika yang dipilih adalah ":Mangga" maka variabel "harga" akan diisi nilai "35000" dan variabel "satuan" diisi nilai "Kg" begitu juga dengan buah yang lain.
Blok kelima
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
dst...
End Select
total = jumlah * (harga * (1 - diskon))
lblDiskon.Caption = "Diskon : " & Format(diskon, "0 %")
lblTotal.Caption = "Total Bayar : " & Format(total, "Currency")
Pada blok program yang kelima ini mulai ditampilkan data yang perlu disampaikan kepada pembeli buah-buahan yang dimulai dari: Barang, harga, jumlah, diskon, dan total bayar. Dan di dalam blok ini digunakan juga struktur kontrol SELECT pada pemilihan variabel jumlah yang akan menentukan jumlah persen diskon.
Struktur kontrol SELECT ... CASE mempunyai bentuk penulisan (syntax) seperti berikut
SELECT CASE <pilihan>
CASE <pilihan 1>
<pernyataan 1>
CASE <pilihan 2>
<pernyataan 2>
CASE <pilihan x>
<pernyataan x>
CASE ELSE
<pernyataan y>
END SELECT
Contoh program penggunaan struktur kontrol Select ... Case visual basic 6.0
1. Buatlah user interface (UI) seperti gambar berikut,user interface (UI) aplikasi jual buah-buahan |
Object | Property | Value |
---|---|---|
Form1 | Caption | Aplikasi Beli Buah-Buahan |
Label1 | Caption | Silahkan pilih buah segarnya |
Label2 | Caption | Jumlah |
Label3 | Name BackColor | lblBarang &H80000005& |
Label4 | Name BackColor | lblHarga &H80000005& |
Label5 | Name BackColor | lblJumlah &H80000005& |
Label6 | Name BackColor | lblDiskon &H80000005& |
Label7 | Name BackColor | lblTotal &H80000005& |
Text1 | - | - |
List1 | - | - |
Command1 | Caption | OK |
3. Buka jendela kode (code editor) seperti berikut,
Code editor aplikasi jual buah-buahan |
4. Copy dan paste kode program berikut kedalam jendela kode (code editor)
Private Sub Form_Load()
List1.AddItem "Mangga"
List1.AddItem "Rambutan"
List1.AddItem "Manggis"
List1.AddItem "Pepaya"
List1.AddItem "Apel"
List1.AddItem "Jeruk"
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 buah coy !!"
List1.ListIndex = 0
Exit SubEnd If
If Text1.Text = "" Then
MsgBox "Anda belum mengisi jumlah buah yang ingin dibeli !!"
Text1.SetFocus
Exit Sub
End If
Select Case List1.Text
Case "Mangga"
harga = 35000
satuan = "Kg"
Case "Rambutan"
harga = 20000
satuan = "Kg"
Case "Manggis"
harga = 25000
satuan = "Kg"
Case "Pepaya"
harga = 10000
satuan = "Kg"
Case "Apel"
harga = 10000
satuan = "Kg"
Case "Jeruk"
harga = 10000
satuan = "Kg"
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 25
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
Penjelasan aplikasi jual buah-buahan visual basic 6.0
1. Untuk menjalankan aplikasi yang sedang dibuat tekan tombol F5,Aplikasi beli buah-buahan |
2. Silahkan pilih buah-buahan dan masukkan jumlahnya
3. Tekan tombol OK
4. Maka akan ditampilkan nama barang, harga, jumlah, diskon dan total yang harus dibayar
Penjelasan kode program aplikasi beli buah-buahan
Blok pertamaPrivate Sub Form_Load()
List1.AddItem "Mangga"
List1.AddItem "Rambutan"
List1.AddItem "Manggis"
List1.AddItem "Pepaya"
List1.AddItem "Apel"
List1.AddItem "Jeruk"
End Sub
Ketika aplikasi dijalankan (tekan F5) maka secara langsung akan ditambahkan beberapa item pada object List1 yaitu daftar buah-buahan
Blok kedua
Private Sub Command1_Click()
Dim harga As Currency, total As Currency
Dim jumlah As Integer
Dim diskon As Single
Dim satuan As String
Ketika tombol OK ditekan maka pertama kali akan dilakukan deklarasi variabel antara lain adalah harga, total, jumlah, diskon, dan satuan
Blok ketiga
If List1.Text = "" Then
MsgBox "Anda belum memilih buah coy !!"
List1.ListIndex = 0
Exit SubEnd If
If Text1.Text = "" Then
MsgBox "Anda belum mengisi jumlah buah yang ingin dibeli !!"
Text1.SetFocus
Exit Sub
End If
Jika kita belum memilih buah-buahan tetapi sudah menekan tombol OK maka akan muncul pesan peringatan "Anda belum memilih buah coy!!"
Jika kita belum memasukkan jumlah buah tetapi sudah menekan tombol OK maka akan muncul pesan peringatan "Anda belum mengisi jumlah buah yang ingin dibeli !!"
Blok keempat
Select Case List1.Text
Case "Mangga"
harga = 35000
satuan = "Kg"
Case "Rambutan"
harga = 20000
satuan = "Kg"
dst...
End Select
Pada blok program ini digunakan struktur kontrol SELECT yang digunakan untuk melakukan pemilihan jenis buah-buahan. Jika yang dipilih adalah ":Mangga" maka variabel "harga" akan diisi nilai "35000" dan variabel "satuan" diisi nilai "Kg" begitu juga dengan buah yang lain.
Blok kelima
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
dst...
End Select
total = jumlah * (harga * (1 - diskon))
lblDiskon.Caption = "Diskon : " & Format(diskon, "0 %")
lblTotal.Caption = "Total Bayar : " & Format(total, "Currency")
Pada blok program yang kelima ini mulai ditampilkan data yang perlu disampaikan kepada pembeli buah-buahan yang dimulai dari: Barang, harga, jumlah, diskon, dan total bayar. Dan di dalam blok ini digunakan juga struktur kontrol SELECT pada pemilihan variabel jumlah yang akan menentukan jumlah persen diskon.
0 komentar:
Posting Komentar