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
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