Tugas2_1

PERHITUNGAN HARGA SETELAH DISKON 10%

Private Sub Cmdhitung_Click()
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