TUGAS 2.1

APLIKASI PENGHITUNG DISKON

Private Sub cmdhitung_Click()

txtd.Text = Val(txtha.Text) * 0.1

txtak.Text = Val(txtha.Text) - Val(txtd.Text)

End Sub

private sub cmdulang_click()

txtha=""

txtd=""

txtha=""

txtha.setfocus

end sub

private sub cmdquit_()

unload me

end sub