tugas 2.2 perhitungan harga setelah diskon 10% menggunakan keypress

Private Sub Cmdhitung_Click()

Txtdis = Val(Txtha) * 0.1

Txtak = Val(Txtha) - Val(Txtdis)

End Sub

Private Sub Cmdquit_Click()

End

End Sub

Private Sub Cmdulangi_Click()

Txtha = ""

Txtdis = ""

Txtak = ""

Txtha.SetFocus

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