Kode program Penjualan

 Kode Nama Prodak

Private Sub cbonamaprodak_Click()

If cbonamaprodak.Text = "lcd" Then

txthargaprodak.Text = "5000000"

ElseIf cbonamaprodak.Text = "mouse" Then

txthargaprodak.Text = "1000000"

ElseIf cbonamaprodak.Text = "keyboard" Then

txthargaprodak.Text = "500000"

End If

txtjumlahpembelian.SetFocus

End Sub

Kode Hitung Lagi

Private Sub cmdbelilagi_Click()

txtidpembeli.Text = " "

txtnamapembeli.Text = " "

txtalamat.Text = " "

txtnopembelian.Text = " "

txthargaprodak.Text = " "

txtjumlahpembelian.Text = " "

txtuangyangdibayarkan.Text = " "

txttotalkembalian.Text = " "

txtidpembeli.SetFocus

End Sub

Kode Hitung

Private Sub cmdhitung_Click()

txttotalkembalian.Text = Val(txtuangyangdibayarkan.Text) - Val(txthargaprodak.Text) * Val(txtjumlahpembelian.Text)

End Sub

Kode Selesai

Private Sub cmdselesai_Click()

Unload Me

End Sub

Kode Menampilkan Nomor Prodak

Private Sub Form_Load()

cbonamaprodak.AddItem "lcd"

cbonamaprodak.AddItem "mouse"

cbonamaprodak.AddItem "keyboard"

End Sub