HARGA SETELAH DISKON 10% MENGUNAKAN KEYPRESS

TUGAS 2.2

Private Sub Command4_Click()

TxtDis = Val(Txtha) * 0.1
TxtHak = Val(Txtha) - Val(TxtDis)

End Sub
Private Sub Command5_Click()
Txtha = ""
TxtDis = ""
TxtHak = ""
Txtha.SetFocus
End Sub

Private Sub Command6_Click()
End
End Sub


Private Sub Txtha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
TxtDis = Val(Txtha) * 0.1
TxtHak = Val(Txtha) - Val(TxtDis)
End If
End Sub