Friday, November 2, 2012

SMK WIRA BUANA (PROGRAM VISUAL BASIC BELANJA BARANG)

   BUAT SINTAK VISUAL BASIC

Sewaktu saya kemarin melakukan tapa brata di dalam goa yang pengap selama beberapa hari, ternyata masih tetap ada yang mencoba mengajukan pertanyaan melalui kotak komentar. Salah satunya adalah seperti ini :
bang ahmad,tanya nih, cara buat sintak visual basic belanja barang gimana ? misal :

Jawabannya tentu saja bisa, dan untuk melakukan ini anda tidak harus mengeluarkan keringat yang banyak karena hanya dengan menulis sintaknya , maka keinginan anda akan segera tercapai. Caranya adalah seperti ini :

proivate sub cmdhitung_clik()
'deklarasi variabel
dim harga,jumlah as integer
dim total,diskon,bayar as double
dim bonus as string
'deklarasi input harga dan jumlah
harga = txtharga.txt
jumlah = txtjumlah.txt
'perhitungan total harga
total = harga * jumlah
'penentuan diskon dan bonus
if total >=5000000 then
  diskon = 0.2 * total
  bonus = "payung"
elseif total >=200000 then
  diskon = 0.15 * total
  bonus = "kaos"

elseif total >=100000 then
  diskon = 0.17 * total
  bonus = "pena"
elseif total >=50000 then
  diskon = 0.5 * total
  bonus = "hp"
else
 diskon = 0
  bonus ="tidak ada"

end if
'perhitungan total bayar
bayar=total-diskon
'deklarasi keluar total harga,diskon,total bayar,dan bonus

txttotal.tex t= total
txtdiskon.tex t= diskon
txtbayar.tex t= bayar
txtbonus.tex t= bonus

end sub

private sub cmdkeluar_click()
unload me
end sub

private sub cmdulang_click()
'membersihkan isi textbox
txtnama.text = ""
txtharga.text = ""
txtjumlah.text = ""
txttotal.text = ""
txtdiskon.text = ""
txtbayar.text = ""
txtbonus.text = ""
txtnama.text = ""
end sub


Apabila anda sudah melakukan langkah di atas, maka dapat di pastikan program visualbasicnya jalan

Selamat mencoba !

0 comments:

Post a Comment

Share

Twitter Delicious Facebook Digg Stumbleupon Favorites More