tugas 2.2 harga setelah discon 10% menggunakan keypress

Private Sub cmdhitung_Click()

txtdis = Val(txtha) * 0.1

txtak = Val(txtha) - Val(txtdis)

End Sub

Private Sub cmdlagi_Click()

txtha = ""

txtdis = ""

txtak = ""

End Sub

Private Sub cmdquit_Click()

End

End Sub

Private Sub txtha_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then

txtdis = Val(txtha) * 0.1

txtak = Val(txtha) - Val(txtdis)

End If

End Sub