Contoh Pemrograman Form Penjualan Barang

Pemrograman untuk pembuatan formulir Penjualan barang.

• Combo kode barang diisi dengan mengisi list pada property list.

KT001="Buku Tulis Kiki"
KG002="Buku Gambar Kiki"
PJ005="Pensil Joyko"


Listing:


Private sub Combo1_click()

if Combo1.text="KT001" then
text1.text="Buku Tulis Kiki"
text2.text=3000
if Combo1.text="PJ005" then
text1.text="Pensil Joyko"
text2.text=2500

End if

End sub

• Jumlah Barang diinput sendiri

• Total Harga :

Private sub text4_click()

text4.text=val(text3.text)*val(text2.text)

End sub

• Discount :

Private sub text5_click()

if text3.text>10 then
text5.text=0.01
if text3.text>20 then
text5.text=0.02

End if

End sub

• PPN 10% :
  

Private sub text6_click()

text6.text=(val(text4.text)+val(text5.text))*0.01

End sub

• Total Bayar :

Private sub command hitung_click()

text7.text=val(text4.text)+val(text6.text)

End sub

• Jumlah Bayar diinput sendiri

• Kembali :

Private sub text9_click()

text9.text=val(text8.text)-val(text7.text)

End sub