Tugas 2.1 perhitungan harga setelah diskon 15% tampa menggunakan keypress

Tugas 2.1 perhitungan harga setelah diskon 15% tampa menggunakan keypress

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.15

txthk = Val(txtha) - (txtdis)

End Sub

Private Sub cmdulang_Click()

txtha = ""

txtdis = ""

txthk = ""

txtha.SetFocus

End Sub

Private Sub cmdquit_Click()

Unload Me

End Sub