Penggunaan combobox untuk struk sederhana

Ini adalah contoh struk sederhana pembelian satu macam barang.

Nama barang terdapat pada kolom combobox

Jika nama barang sudah dipilih, maka harga barang tersebut otomatis akan muncul pada kolom harga. Untuk bisa menghitung jumlah yang harus dibayarkan, kolom jumlah (barang) harus diisi terlebih dahulu.

Koding pada jendela kode :

Dim Namabarang(0 To 3), Harga(0 To 3)

Private Sub Combo1_Click()

TxtHarga.Text = Harga(Combo1.ListIndex)

End Sub

Private Sub HapusData_Click()

TxtJumlah.Text = ""

TxtHarga.Text = ""

TxtHitung.Text = ""

End Sub

Private Sub HitungBayar_Click()

TxtHitung.Text = TxtJumlah.Text * TxtHarga.Text

End Sub

Private Sub Form_Load()

Dim A

AutoSize = True

Namabarang(0) = "Pilih Namabarang:": Namabarang(1) = "Pantene 200 ml":

Namabarang(2) = "Rinso 1 kg": Namabarang(3) = "Susu bendera 400g"

Harga(0) = ""

Harga(1) = 15000

Harga(2) = 19000

Harga(3) = 24000

For A = 0 To 3

Combo1.AddItem Namabarang(A)

Next A

Combo1.ListIndex = 0

End Sub