MENGHITUNG DISKON DENGAN VISUAL BASIC (VB6)

0

Apa sih yang paling dicari setiap orang saat berbelanja?
Ya, DISKON!
Barang semahal apa pun kalau diberi label “DISKON!!!”
pasti dilirik orang.
Permasalahannya tidak semua orang dapat menghitung harga setelah dipotong diskon
dengan cepat.
Inilah ide sederhana untuk membuat aplikasi DISKON!.

Disediakan 2 buah edit teks untuk memasukkan harga awal dan besar diskon.
Selanjutnya jika mengklik button “Hitung Diskon” , maka akan muncul nilai harga
setelah dipotong. Dan jika mengklik button reset, maka semua data akan terhapus dan dapat menginput lagi.

Private Sub CmdKeluar_Click() 
End 
End Sub 

Private Sub CmdHitungDiskon_Click() 
TxtHargaSekarang = Val(TxtHargaAsli) * Val(100 - TxtBesarDiskon) / 100 
TxtHemat = (Val(TxtHargaAsli) * Val(TxtBesarDiskon) / 100) 
End Sub 
Private Sub CmdReset_Click() 
TxtHargaAsli = " " 
TxtBesarDiskon = " " 
TxtHargaSekarang = " " 
TxtHemat = " " 
End Sub

Semoga bermanfaat.

Sumber : http://mellyputrid.blogspot.co.id/2013/01/menghitung-diskon-dengan-visual-basic.html