OpenEuphoria

CAN ANYONE HELP ME PLEASE, IS A EUPHORIA ROBLEM

• Posted by hebert rangel <hebert_rangel at yahoo.com> Jun 01, 2005
• 725 views

Hello can anyone please help me i´m want to make a mathematical operation but i
don´t know how to doit i been trying for 3 day now and i still can´t do it i want
to get the % of something, and once i have it i want to send it to a file, this
is my code, please help e-mail me please hrangel at demet.com.mx
tahks for you help

include Win32lib.ew
without warning

--------------------------------------------------------------------------------
--  Window Window1
global constant Window1 = create( Window, "The Window", 0, Default, Default,
280, 80+ 19, 0 )
global constant OK = create( PushButton, "OK", Window1, 180, 20, 56, 28, 0 )
global constant cantidad = create( EditText, "", Window1, 28, 24, 116, 20, 0 )
--------------------------------------------------------------------------------
integer cienp
object tom
integer cinep2
procedure OK_onClick ()
cienp = open("\\ga.txt", "u")
tom = getText(cantidad)
cinep2 = (tom/10000)*100
puts(cienp, cinep2)
flush(cienp)
abort(1) 
end procedure
onClick[OK] = routine_id("OK_onClick")



WinMain( Window1, Normal )