VB : Contoh program penjualan barang (helm

Contoh program penjualan barang (helm)

1.       Data input :

A.        Kode barang (menggunakan combo box)

B.         Nama barang

C.         Harga barang

D.        Banyak barang

E.         Discount (menggunakan option button)

·         10 buah sampai 19 buah discount 5%

·         20 buah sampai 29 buah discount 7,5%

·         30 buah sampai 40 buah discount 10%

2.       Data output

A.         Total pembayaran

B.         Jumlah discount

3.       Data proses

A.         Kode barang (menggunakan combo box)

Kode program di ketik pada combo box :

If Combo1 = "kodebarang" Then

       Text2 = "namabarang"

       Text3 = “hargabarang”

Else

Dst….

Endif

Contoh gambar :

B.      Discount menggunakan option button

Kode program di ketik  pada data proses :

If Option1.Value = True Then

    Text5 = “jumlah discount” 

Else

If Option2.Value = True Then

    Text5 = “jumlah discount” 

Else

    Text5 = “jumlah discount” 

End If

End If

Contoh gambar :

Kode program untuk clear all :

Text1 = clear

Dst….

Kode program untuk exit :

MsgBox "terima kasih"

End