perhitungan harga pakai keypress
Private Sub cmdhitung_Click() txtha = "" txtdis = "" txtha = "" End Sub Private Sub cmdquit_Click() End End Sub Private Sub cmdulangi_Click() txtha = "" txtdis = "" txtha = "" 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