Program Penjualan Perhiasan

KODE PADA KOLOM NAMA BARANG

Private Sub cbonamabarang_Click()
If cbonamabarang.Text = "CINCIN" Then
txtharga.Text = "150000"

ElseIf cbonamabarang.Text = "KALUNG" Then
txtharga.Text = "250000"
End If
txtjumlah.SetFocus
End Sub

KODE PADA TOMBOL BELANJA LAGI

Private Sub cmdbelanjalagi_Click()
txtno.Text = ""
txtnamapembeli.Text = ""
txtharga.Text = ""
txtjumlah.Text = ""
txtdiskon.Text = ""
txttotal.Text = ""
cbonamabarang.Text = ""
txtno.SetFocus
End Sub

KODE PADA TOMBOL HITUNG TOTAL BELANJA

Private Sub cmdhitung_Click()
txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text) - Val(txtdiskon.Text)
End Sub

KODE PADA TOMBOL KELUAR 

Private Sub cmdkeluar_Click()
Unload Me
End Sub

KODE MEMUNCULKAN NAMA BARANG

Private Sub Form_Load()
cbonamabarang.AddItem "CINCIN"
cbonamabarang.AddItem "KALUNG"
End Sub