PERHITUNGAN DATA SETELAH DISKON 10% DENGAN KEPRESS

Private Sub cmdhitung_Click()
textdis = Val(textha) * 0.1
texthk = Val(textha) - Val(textdis)
End Sub

Private Sub cmdquit_Click()
Unload Me
End Sub

Private Sub cmdulangi_Click()
textha = ""
textdis = ""
texthk = ""
End Sub


Private Sub textdis_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
texthk = Val(textha) - Val(textdis)
texthk.SetFocus
End If
End Sub

Private Sub textha_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textdis = Val(textha) * 0.1
textdis.SetFocus
End If
End Sub


Private Sub texthk_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
textha.SetFocus
End If
End Sub