tugas 2 harga setelah diskon 10% menggunakan keypress

Private Sub cmdhitung_Click() Dim A, B, C As Double TxtB.txt = Val(TxtA.txt) * 0.1 TxtC.txt = Val(TxtA.txt) - Val(TxtB.txt) End Sub Private Sub cmdquit_Click() End If End Sub Private Sub cmdulangi_Click() TxtA = "" TxtB = "" TxtC = "" End Sub Private Sub TxtA_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then TxtB = Val(TxtA) * 0.1 TxtC = Val(TxtA) - Val(TxtB) End If 
End Sub