CARA MEMBUAT APLIKASI PENJUALAN ACCESSORIES KOPUTER MENGGUNAKAN ComboBox

LANGKAH PERTAMA seperti biasabuka terlebih dulu VB 6.0

SELANJUTNYA desain sesuai dengan kebutuhan, contohnya seperti gambar ini

LANJUT kodenya seperti ini

KODE TOMBOL PROGRAM COMBO BOX PILIH ITEM

Private Sub CboPilih_Click()

If CboPilih.Text = "Mouse" Then

TxtHarga.Text = "15000"

ElseIf CboPilih.Text = "Keyboard" Then

TxtHarga.Text = "30000"

ElseIf CboPilih.Text = "CPU" Then

TxtHarga.Text = "10000"

End If

TxtJumlah.SetFocus

End Sub

KODE TOMBOL PROGRAM HITUNG

Private Sub CmdHitung_Click()

TxtTotal.Text = Val(TxtUang.Text) - Val(TxtHarga.Text) * Val(TxtJumlah.Text)

End Sub

KODE TOMBOL PROGRAM BELI LAGI

Private Sub CmdLagi_Click()

TxtID.Text = ""

TxtNama.Text = ""

TxtAlamat.Text = ""

TxtNo.Text = ""

TxtNamaProduk.Text = ""

TxtHarga.Text = ""

TxtJumlah.Text = ""

TxtUang.Text = ""

TxtTotal.Text = ""

TxtID.SetFocus

End Sub

KODE TOMBOL PROGRAM SELESAI

Private Sub CmdSelesai_Click()

Unload Me

End Sub

KODE TOMBOL PROGRAM SUB FORM LOAD

Private Sub Form_Load()

CboPilih.AddItem "Mouse"

CboPilih.AddItem "Keyboard"

CboPilih.AddItem "CPU"

End Sub

TERAKHIR... coba jalankan programnya seperti ini

Selamat mencoba..