OpenEuphoria

• Posted by Jun 01, 2005
• 1850 views

X-MimeOLE: Produced By Microsoft Exchange V6.0.6249.0
Subject: can anyone help me please.
Date: Wed, 1 Jun 2005 17:57:30 -0500
Message-ID: <CDC3E3C423472D4A8663242DE1AD5D0301291655 at demetexsf01.corp.deme=
t.com.mx>
X-MS-Has-Attach:=20
X-MS-TNEF-Correlator:=20
Thread-Topic: can anyone help me please.
Thread-Index: AcVnDk1pXc/e5tLDEdmXqQBQ2gYPqg==
From: "Rangel, Hebert Rogelio" <hrangel at demet.com.mx>
To: <EUforum at topica.com>
Return-Path: hrangel at demet.com.mx
X-OriginalArrivalTime: 01 Jun 2005 22:57:30.0860 (UTC) FILETIME=[4A4322C0=
:01C566FD]

Hello can anyone please help me i=B4m want to make a mathematical operation=
 but i don=B4t know how to doit i been trying for 3 day now and i still can=
=B4t do it i want to get the % of something, and once i have if i want to s=
end it to a file, this is my code, please help e-mail me please hrangel@dem=
et.com.mx
tahks for you help

include Win32lib.ew
without warning

---------------------------------------------------------------------------=
-----
--  Window Window1
global constant Window1 = create( Window, "The Window", 0, Default, Defau=
lt, 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/10)
puts(cienp, cinep2)
flush(cienp)
abort(1)=20
end procedure
onClick[OK] = routine_id("OK_onClick")



WinMain( Window1, Normal )