Jumat, 12 Oktober 2012

Cara Menggunakan Struktur Kontrol SELECT Visual Basic 6.0

Ketik Visual Basic! - Kesempatan kali ini, kita akan membahas mengenai cara menggunakan struktur kontrol SELECT visual basic 6.0, yang meru... thumbnail 1 summary
Ketik Visual Basic! - 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

Contoh program penggunaan struktur kontrol Select ... Case visual basic 6.0

1. Buatlah user interface (UI) seperti gambar berikut,

User interface aplikasi jual buah visual basic 6.0
user interface (UI) aplikasi jual buah-buahan
2. Aturlah property dan value masing-masing object seperti tabel berikut,

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 pertama
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.

6 komentar

  1. terima kasih penjelasan select casenya om. sangat bermanfaat bagi pemula dalam belajar bahasa pemograman visual basic

    BalasHapus
  2. saya baru pencet ok, langsuung kode error di jumlah = Text1.Text
    kenapa ya kak

    BalasHapus
  3. Error nya kayak apa ya. Bisa ditunjukin pesannya biar bisa didiskusikan

    BalasHapus
  4. Thankyou Indri, Post nya sangat membantu sebagai Refrensi saya :))

    BalasHapus
  5. Tutorialnya sudah jelas masih dijelaskan - luar biasa - matur nuwun

    BalasHapus
  6. punya saya di bagian ini error ya gan tolong ndah bantuin

    lblBarang.Caption = "Barang : " & List1.Text
    lblHarga.Caption = "Harga : " & Format(harga, "Currency") & "/" & satuan
    LblJumlah.Caption = "Jumlah : " & Text1.Text & " " & satuan

    BalasHapus