PERHITUNGAN HARGA SETELAH DISKON 10%
MENGGUNAKAN KEYPRESS
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
Tidak ada komentar:
Posting Komentar