CARA MEMBUAT APLIKASI PENJUALAN BARANG

LANGKAH PERTAMA seperti biasabuka terlebih dulu VB 6.0

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

LANJUT kodenya seperti ini

KODE PROGRAM COMBO BOX 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 PROGRAM 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 PROGRAM TOMBOL HITUNG
Private Sub cmdhitung_Click()
txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text) - Val(txtdiskon.Text)
End Sub
KODE PROGRAM TOMBOL KELUAR
Private Sub cmdkeluar_Click()
Unload Me
End Sub
KODE PROGRAMSUB FORM LOAD
Private Sub Form_Load()
cbonamabarang.AddItem "CINCIN"
cbonamabarang.AddItem "KALUNG"
End Sub
KODE PROGRAM TOMBOL TOTAL
Private Sub txttotal_Change()
txttotal.Text = Val(txtharga.Text) * Val(txtjumlah.Text) - Val(txtdiskon.Text)
End Sub 

 TERAKHIR... coba jalankan programnya seperti ini