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 :
- Event pada Object TXTKODE
- Klik 2 kali pada Object TXTKODE lalu Ubah Eventnya menjadi Keypress
- 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}"
- Event pada Object TXTQTY
- Klik 2 kali pada Object TXTQTY ubah eventnya menjadi Keypress
- 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}"
- Jalankan Program Tekan F5 atau Klik Menu Run lalu klik Start
- Bila program anda sudah berjalan dengan baik, simpan Form dan Program.
Tidak ada komentar:
Posting Komentar