HARGA SETELAH DISKON 10% TANPA KEYPRESS

TUGAS 2.1 

 

 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