Selasa, 14 Juli 2009

Contoh Program Input Penjualan Barang


Contoh Program: Input Penjualan Barang

1.Pada Program datanya yang diinput adalah : Kode dan QTY dengan Flow sebagai berikut :

~ Jika User entri kode maka Nama Barang, Satuan, Harga akan tampil otomatis dan kursor langsung pindah ke Field/isian QTY dengan ketentuan :

Kode Nama Barang Satuan Harga Rp

001 Monitor Samsung 14 Inc Unit 700000

002 Monitor Samsung 15 Inc Unit 750000

003 Monitor Samsung 17 Inc Unit 850000

004 Monitor Hp 14 Inc Unit 725000

Jika kode tidak ada dalam Daftar diatas muncul pesan “Kode tidak ada”

~ Jika User entri QTY maka akan melakukan proses sebagai berikut :

a. Menghitung Total Harga dengan rumus :

TXTTOTHAR.TEXT= TXTHARGA.TEXT * TXTQTY.TEXT

b. Menghitung PPN 10% dengan rumus :

TXTPPN.TEXT=TXTTOTHAR.TEXT*0.1

c. Kontrol Bonus :

Jika Jumlah Bayar >=1000000 maka Bonus “Handuk”

Jika Jumlah Bayar >=2000000 maka Bonus “USB Flash Disk”


Event/kode programnya :

  1. Event pada Object TXTKODE
    1. Klik 2 kali pada Object TXTKODE lalu Ubah Eventnya menjadi Keypress
    2. Ketik Kode program / eventnya

If KeyAscii <> 13 Then Exit Sub

Select Case TXTKODE.Text

Case "001"

TXTNAMA = " Monitor Samsung 14 Inc"

TXTSATUAN = "Unit"

TXTHARGA = 700000

Case "002"

TXTNAMA = " Monitor Samsung 15 Inc"

TXTSATUAN = "Unit"

TXTHARGA = 750000

Case "003"

TXTNAMA = " Monitor Samsung 17 Inc"

TXTSATUAN = "Unit"

TXTHARGA = 850000

Case "004"

TXTNAMA = " Monitor h 14 Inc"

TXTSATUAN = "Unit"

TXTHARGA = 720000

Case Else

MsgBox "Kode barang tidak dikenal…, kasian deh lho", vbInformation, "Perhatian"

End Select

SendKeys "{TAB}"

  1. Event pada Object TXTQTY
    1. Klik 2 kali pada Object TXTQTY ubah eventnya menjadi Keypress
    2. Ketik kode program/Event

'Kontrol Tombol yang ditekan pada Keyboard

If KeyAscii <> 13 Then Exit Sub

'HITUNG TOTAL HARGA

TXTTOTHAR.Text = Val(TXTHARGA.Text) * Val(TXTQTY.Text)

'HITUNG PPN 10%

TXTPPN.Text = Val(TXTTOTHAR.Text) * 0.1

'HITUNG JUMLAH HARGA SETELAH PPN 10%

TXTJUMLAH.Text = Val(TXTTOTHAR.Text) + Val(TXTPPN.Text)

'KONTROL BONUS

If Val(TXTJUMLAH.Text) = 2000000 Then

TXTBONUS.Text = "USB Flash Disk 128 MB"

ElseIf Val(TXTJUMLAH.Text) >= 1000000 Then

TXTBONUS.Text = "Handuk"

Else

TXTBONUS.Text = "Stiker Koperasi"

End If

'Pindah ke Entri selanjutnya

SendKeys "{TAB}"

  1. Jalankan Program Tekan F5 atau Klik Menu Run lalu klik Start
  2. Bila program anda sudah berjalan dengan baik, simpan Form dan Program.



Tidak ada komentar: