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

Menghitung luas dan keliling segiempat

Cara kerja program ini adalah : pada saat tombol HITUNG diklik, maka hasil LUAS dan KELILING akan muncul secara bersamaan. (PANJANG dan LEBAR harus diisi terlebih dahulu)

Pada jendela kode tuliskan koding di bawah ini : 

Private Sub CmdHAPUS_Click()

TxtPanjang.Text = ""

TxtLebar.Text = ""

TxtLuas.Text = ""

TxtKeliling.Text = ""

End Sub

Private Sub CmdHITUNG_Click()

TxtLuas.Text = Val(TxtPanjang.Text) * Val(TxtLebar.Text)

TxtKeliling.Text = 2 * (Val(TxtPanjang.Text) + Val(TxtLebar.Text))

End Sub

Private Sub CmdKeluar_Click()

End

End Sub