Menghitung Diskon Dengan Visual Basic (VB)

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 CmdHitungDiskon_Click()
TxtHargaSekarang = Val(TxtHargaAsli) * Val(100 - TxtBesarDiskon) / 100
TxtHemat = (Val(TxtHargaAsli) * Val(TxtBesarDiskon) / 100)
End Sub

Private Sub CmdKeluar_Click()
End
End Sub

Private Sub CmdReset_Click()
TxtHargaAsli = " "
TxtBesarDiskon = " "
TxtHargaSekarang = " "
TxtHemat = " "
End Sub