2.2 Perhitungan harga setelah diskon 10% menggunakan keypress

 2.2

Private Sub hitung_Click()

TXTDN = Val(TXTHA) * 0.1

TXTHR = Val(TXTHA) - Val(TXTDN)

End Sub

Private Sub reset_Click()

TXTHA = ""

TXTDN = ""

TXTHR = ""

TXTHA.SetFocus

End Sub

Private Sub quit_Click()

Unload Me

End Sub

Private Sub TXTHA_keypress(keyascii As Integer)

If keyascii = 13 Then

TXTDN = Val(TXTHA) * 0.1

TXTHR = Val(TXTHA) - (TXTDN)

End If

End Sub