Tugas2_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 Cmdkeluar_Click()
Unload Me
End Sub

Private Sub Cmdulang_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