tugas2.1 harga setelah discont 10%
Private Sub cmdhitung_Click() txtdis = Val(txtha) * 0.1 txtak = Val(txtha) - Val(txtdis) End Sub Private Sub cmdlagi_Click() txtha = "" txtdis = "" txtak = "" End Sub Private Sub cmdquit_Click() End End Sub