OpenEuphoria

• Posted by Jun 03, 2005
• 1808 views

X-MimeOLE: Produced By Microsoft Exchange V6.0.6249.0
Subject: ERROR, PLEASE HELP!
Date: Fri, 3 Jun 2005 11:54:54 -0500
Message-ID: <CDC3E3C423472D4A8663242DE1AD5D0301291FB4 at demetexsf01.corp.deme=
t.com.mx>
X-MS-Has-Attach:=20
X-MS-TNEF-Correlator:=20
Thread-Topic: Digest for EUforum at topica.com, issue 4933
Thread-Index: AcVnYLANT40qpojRSby7gxOArRsKqgBDRv9Q
From: "Rangel, Hebert Rogelio" <hrangel at demet.com.mx>
To: <EUforum at topica.com>
Return-Path: hrangel at demet.com.mx
X-OriginalArrivalTime: 03 Jun 2005 16:54:54.0684 (UTC) FILETIME=[F765A1C0=
:01C5685C]

HELLO IT=B4S ME AGAIN ASKING FOR YOU HELP I BEEN TRYING TO ENTER A NUMBER A=
ND SEND IT TO A FILE BUT INSTEAD IT WRITES LETTERS I TRY WHAT Don Cole SAY =
IN A MESSAGE, BUT NOW WHEN I TYPE THE NUMBER IN THE EDIT-TEXT BOX AND PRESS=
 OK, IT SEND AN ERROR, THE ERROR IS THE NEXT ONE AND THE EUPHORIA CODE IS A=
FTER THE ERROR, IN THE ERROR WHERE IT SAY tom2 is 25, I TYPED 25 IN THE EDI=
TTEXT BOX IF YOU TYPE ANY OTHER NUMBER IN THE EDIT TEXT BOX, IT WILL CHANGE=
 THE 25 FOR THAT NUMBER.
THANK FOR YOU HELP AND HOPE I CAN UNDERSTAND HOW TO DOIT.
THANKS



------------------------------------ERROR------------------------
D:\euphoria\rfb\trytry.exw:32 in procedure OK_onClick()
type_check failure, tom2 is 25
... called from \EUPHORIA\include\Win32lib.ew:12185 in function wmCommand()=

... called from \EUPHORIA\include\Win32lib.ew:12429 in function WndProc()

^^^ call-back from Windows
... called from \EUPHORIA\include\Win32lib.ew:12911 in function SubProc()

^^^ call-back from Windows
... called from \EUPHORIA\include\Win32lib.ew:13074 in procedure WinMain()
... called from D:\euphoria\rfb\trytry.exw:41
--> see ex.err


Press Enter...
--------------------END OF THE ERROR CODE----------------------------------=
----

-----------------------------------EUPHORIA CODE---------------------------=
------

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 )
-----------------------------------------------------------------------
global function getdec(sequence seq) --returns a decimal given a sequence
atom de
sequence value_string
  value_string=value(seq[1..length(seq)])
 de = value_string[2]
return de
end function


---------
integer cienp
sequence tom
sequence tom2
integer de
sequence value_string
procedure OK_onClick ()
cienp = open("\\ga.txt", "u")
tom = getText(cantidad)
value_string = value(tom[1..length(tom)])
de = value_string[2]
tom2 = de
puts(cienp, de)
flush(cienp)
abort(1)=20
end procedure
onClick[OK] = routine_id("OK_onClick")



WinMain( Window1, Normal )