tugas 1 perhitungan harga diskon 10%

private sub txtha_keypress (keyasci as integer)
if keyasci = val (txtha)*0.1
txtak = val (txtha)- val (txtdis)
end if
end sub
private sub cmd hitung click ()
if keyasci = val (txtha)*0.1
txtak = val (txtha)- val (txtdis)
end sub