1. Help

Hi,

I have a sequence like this:
{"a-b-c-d-"}
and I want to take the first two items and make them one like this:
"a-"
and do that all the way through till the end.
Here is the part of the program that I figured would work:

global procedure play(sequence notes)
atom notelen, num
sequence tempnote
notelen = length(notes[1])
for junk = 1 to notelen by 2 do
tempnote = notes[1][junk] & notes[1][junk+1]
num = match(tempnote, scale)
?scale
end for
end procedure

This didn't work so I went through it with trace and this line isn't doing
what it is supposed to do:

tempnote = notes[1][junk] & notes[1][junk+1]


Thanks,
Albert

new topic     » topic index » view message » categorize

2. Re: Help

Albert Brauneis wrote:
>
> for junk = 1 to notelen by 2 do
> tempnote = notes[1][junk] & notes[1][junk+1] <--replace this one
> num = match(tempnote, scale)

You can use this line instead of the one above:

tempnote = notes[1][junk..junk+1]

If notes = "a-b-c-d-" then you would use

tempnote = notes[junk..junk+1]

I think.

new topic     » goto parent     » topic index » view message » categorize

3. Re: Help

In a message dated 11/8/98 11:57:24 PM !!!First Boot!!!, candk at TICNET.COM
writes:

<< If notes = "a-b-c-d-" then you would use

 tempnote = notes[junk..junk+1]

 I think. >>

The reason I have notes[1][something] is because all the notes are in the
first sequence element. notes only has one element and multiple elements in
side it so I need the notes[1][something] Thanks for you suggestion I will
test it out.

Albert

new topic     » goto parent     » topic index » view message » categorize

4. Re: Help

That didn't work, tempnote is still {a,-} and not {a-}

Albert

new topic     » goto parent     » topic index » view message » categorize

5. Re: Help

So, your sequence is as follows:

        notes = { "a1", "b1", "c2", "d3", ...}

Correct?

To extract "b1" into a variable, you would use

        b1 = notes[2][1..2]

or simply

        b1 = notes[2]

unless notes[2] = "b123", in which case the first one above would be
needed.


Albert Brauneis wrote:
>
> In a message dated 11/8/98 11:57:24 PM !!!First Boot!!!, candk at TICNET.COM
> writes:
>
> << If notes = "a-b-c-d-" then you would use
>
>  tempnote = notes[junk..junk+1]
>
>  I think. >>
>
> The reason I have notes[1][something] is because all the notes are in the
> first sequence element. notes only has one element and multiple elements in
> side it so I need the notes[1][something] Thanks for you suggestion I will
> test it out.
>
> Albert

new topic     » goto parent     » topic index » view message » categorize

6. Re: Help

In a message dated 11/9/98 1:45:53 AM !!!First Boot!!!, candk at TICNET.COM
writes:

No I pass notes to the procedure and notes looks like this:
{"a-b-c-d-e-"}
I want it to take pairs of 2 like
"a-"
then
"b-"

Thanks,
Albert

<< So, your sequence is as follows:

         notes = { "a1", "b1", "c2", "d3", ...}

 Correct?

 To extract "b1" into a variable, you would use

         b1 = notes[2][1..2]

 or simply

         b1 = notes[2]

 unless notes[2] = "b123", in which case the first one above would be
 needed. >>

new topic     » goto parent     » topic index » view message » categorize

7. Re: Help

Albert Brauneis wrote:
>
> That didn't work, tempnote is still {a,-} and not {a-}
>
> Albert
there is no data structure or technique that will give you
that result.  even "a-" is *still* {a,-}, no matter the
language of programming, a string is a list of individual
characters that are incongrous.
the program is actually doing what you 1>want and what you
2>need it to do...
it's all about how you access data, how you order data,
how you think about data, and how you process data.
in euphoria, these 4 things are truly childs play.

let's suppose that we have a list of notes
that are in order that represent a scale.
now, i'm not a sheet music reader, and i don't
remember the scale.
let's just say that its:
constant scale
scale = "c#c-c+d#d-d+e#e-e+f#f-f+g#g-g+a#a-a+b#b-b+"
# is flat and + is sharp...not that it matters here
now lets suppose that you have a song, composed
of notes that need to be within this scale...
sequence song
song = "f#c-a#g+e+d#b-b-c-a+"
at this point i'm assuming that you have many sets of
scales and somehow you're attempting to determine an
octave... once again, that is no matter...
to determine if each note in song is within
the allowable notes in scale, do the following:

function IsInScale(sequence note)
--returns 0 if the note is not in the constant scale
--returns the place within scale if it is
   for i = 1 to length(scale) by 2 do
        if compare(note,scale[i..i+1) = 0
          then return i
        end if
   end for
   return 0
end function
the above function is the methodology of how
the find() and match() functions operate,
and it's important that you see this.  Why?
how can you expect to understand that which
you cannot see? if you don't know the underlying
algorithm behind a function, you cannot ask that
function to do things for you...
so now we push forwards, safe in our new knowledge,
and we can then see how simple it will be to
go through an entire song, replete with this
armada of fresh understanding...

to check an entire song, we need only do the
following:
   for i = 1 to length(song) by 2
      if IsInScale(song[i..i+1]) then
        --we can do what ever we like here,
        --including actually saving the value returned
        --by the above function, if need be
      else puts(1,"invalid note detected in song")
      end if
    end for

voila, data has succumbed to our whim...

hope this helps--Hawke'

new topic     » goto parent     » topic index » view message » categorize

8. Re: Help

Albert Brauneis wrote:
> No I pass notes to the procedure and notes looks like this:
> {"a-b-c-d-e-"}
my first hint for you...
lose the {} surrounding the "string"...
it's redundant and makes thing harder than they are...
i did the same thing...
"abcdefg"
is the same thing as
{a,b,c,d,e,f,g}
but i think the former is easier to deal with,
don't you?

new topic     » goto parent     » topic index » view message » categorize

9. Re: Help

>That didn't work, tempnote is still {a,-} and not {a-}


Dear Albert:

"a-" wil ALWAYS be {a,-}... they are 2 elements in that sequence.

A sequence is composed of atoms (and nested sequences). A
character is represented by its ASCII value... so the sequence of
characters "a-" will always be represented as a 2 element
sequence.

Regards,
    Daniel   Berstein
    daber at pair.com

new topic     » goto parent     » topic index » view message » categorize

10. Re: Help

------=_NextPart_000_005A_01C00066.1DFF2AE0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

i would strongly suggest the Beginners Guide To Euphoria tutorial...
reading refman.doc and library.doc are also good things to begin with...
--Hawke'

  ----- Original Message -----=20
  From: Asif Masood Baloch=20
  To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
  Sent: Tuesday, August 07, 2007 11:30 PM
  Subject: Re: Help


  Dear friends/users,

  I am new to Euphoria and i love what it promises. I need help getting =
started, please let me know what to do.

  Thank You

------=_NextPart_000_005A_01C00066.1DFF2AE0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>i would strongly suggest the Beginners =
Guide To=20
Euphoria tutorial...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>reading refman.doc and library.doc are =
also good=20
things to begin with...</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>--Hawke'</FONT></DIV>
<DIV>&nbsp;</DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV=20
  style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
  <A href=3D"mailto:cyberego at QTA.PAKNET.COM.PK"=20
  title=3Dcyberego at QTA.PAKNET.COM.PK>Asif Masood Baloch</A> </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
  href=3D"mailto:EUPHORIA at LISTSERV.MUOHIO.EDU"=20
  title=3DEUPHORIA at LISTSERV.MUOHIO.EDU>EUPHORIA at LISTSERV.MUOHIO.EDU</A> =
</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Tuesday, August 07, 2007 =
11:30=20
  PM</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Subject:</B> Re: Help</DIV>
  <DIV><BR></DIV>
  <DIV><FONT face=3DArial size=3D2>Dear friends/users,</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>I am new to Euphoria and i love what =
it promises.=20
  I need help getting started, please let me know what to =
do.</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>Thank =

------=_NextPart_000_005A_01C00066.1DFF2AE0--

new topic     » goto parent     » topic index » view message » categorize

11. Re: Help

On 7 Aug 2007, at 23:30, Asif Masood Baloch wrote:

> Dear friends/users,
>
> I am new to Euphoria and i love what it promises. I need help getting started,
> please let
> me know what to do.
>

Think of something you want your puter to do, read the Eu help files on how to
do it,
then write a program to do that.  smile

Kat

new topic     » goto parent     » topic index » view message » categorize

12. Re: Help

------=_NextPart_000_0021_01C0009A.4B073120
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

My recommendation is to start small, creating programs that do simple =
things, like accept your name and then print your name back as part of a =
greeting message, like "Hello, Asif". Stick to DOS programming in =
Euphoria for starters. DOS programming is easier than Windows =
programming. Use the sample programs provided by Robert Craig. Read my =
tutorial (at the risk of shameless plugging) which is available at RDS's =
web page.=20

As you get more proficient in programming, write larger programs that =
will actually do useful things, like keep track of your friends' =
telephone numbers. And if you get stuck, come here and ask questions.

Welcome aboard

David Gay

----- Original Message -----=20
  From: Asif Masood Baloch=20
  To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
  Sent: Wednesday, August 08, 2007 2:30 AM
  Subject: Re: Help


  Dear friends/users,

  I am new to Euphoria and i love what it promises. I need help getting =
started, please let me know what to do.

  Thank You

------=_NextPart_000_0021_01C0009A.4B073120
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4134.600" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>My recommendation is to start small,=20
creating&nbsp;programs that do simple things, like accept your name and =
then=20
print your name back as part of a greeting message, like "Hello, Asif". =
Stick to=20
DOS programming in Euphoria for starters. DOS programming is easier than =
Windows=20
programming. Use the sample programs provided by Robert Craig. Read my =
tutorial=20
(at the risk of shameless plugging) which is available at RDS's web =
page.=20
</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>As you get more proficient in =
programming, write=20
larger programs that will actually do useful things, like keep track of =
your=20
friends' telephone numbers. And if you get stuck, come here and ask=20
questions.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Welcome aboard</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>David Gay</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV>----- Original Message ----- </DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV=20
  style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
  <A title=3Dcyberego at QTA.PAKNET.COM.PK=20
  href=3D"mailto:cyberego at QTA.PAKNET.COM.PK">Asif Masood Baloch</A> =
</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A =
title=3DEUPHORIA at LISTSERV.MUOHIO.EDU=20
  =
</A>=20
  </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Wednesday, August 08, =
2007 2:30=20
  AM</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Subject:</B> Re: Help</DIV>
  <DIV><BR></DIV>
  <DIV><FONT face=3DArial size=3D2>Dear friends/users,</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>I am new to Euphoria and i love what =
it promises.=20
  I need help getting started, please let me know what to =
do.</FONT></DIV>
  <DIV>&nbsp;</DIV>
  <DIV><FONT face=3DArial size=3D2>Thank =

------=_NextPart_000_0021_01C0009A.4B073120--

new topic     » goto parent     » topic index » view message » categorize

13. Re: Help

Asif Masood Baloch wrote:
>
>    Part 1.1    Type: Plain Text (text/plain)
>            Encoding: quoted-printable

Hi Asif,
did you succeed in installing Euphoria? Could you start the editor
ed.ex? This is essential to start. Let me know.
Have a nice day, Rolf

new topic     » goto parent     » topic index » view message » categorize

14. Re: Help

--------------7BEF7D3CA60D557743DA846F

Asif Masood Baloch wrote:
>
> Hi Rolf,
> Yeah, i suceeded in installing EUPHORIA and made some programs myself like
> "Hello World" and "addition, Substraction, Division,etc". I have problem
> understanding the concepts of append() and prepend(). Also, can you tell me
> what would be the basic concepts that i should understand/study now?
> EUPHORIA is really promisiong and i believe it will help me a lot if i work
> on it. Thank you so much for help.
>
> -Regards
>
> Asif

Hello Asif,
I attached a short example 'tst.ex' which you could run under ed.ex
under DOS or in the cmd-window of win32. Let me know if this helps to
explain append() and prepend().
Under ed, press ESC+h, l (help library) and then ESC+f, searching
for:<append . It will lead you to the explanation for append(). Look
there for the examples.

Have a nice day, Rolf
--------------7BEF7D3CA60D557743DA846F
 name="Tst.ex"
Content-Disposition: inline;
 filename="Tst.ex"

-- Examples of append() and prepend()

    sequence s1, s2     -- define sequences s1 and s2
    atom     a1, a2     -- define atoms a1 and a2

    s1 = { 1, 2, 3, 4}  -- initializing . . .
    s2 = "Hello"        -- this is also {72,101,108,108,111}
    a1 = 987
    a2 = 3.14

    puts(1,"s1            : ") ? s1
    puts(1,"s1 & s2       : ") ? s1 & s2        -- concatenation
    puts(1,"append(s1,s2) : ") ? append(s1,s2)
    puts(1,"prepend(s1,s2): ") ? prepend(s1,s2)
    puts(1,"append(s1,a1) : ") ? append(s1,a1)
    puts(1,"prepend(s1,a1): ") ? prepend(s1,a1)
    puts(1,"a1            : ") ? a1
    puts(1,"s1 & a1       : ") ? s1 & a1        -- concatenation
    puts(1,"a1 & a2       : ") ? a1 & a2        -- concatenation





--------------7BEF7D3CA60D557743DA846F--

new topic     » goto parent     » topic index » view message » categorize

15. Re: Help

------=_NextPart_000_000A_01C7D94A.F71DC880
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Dear friends/users,

I am new to Euphoria and i love what it promises. I need help getting =
started, please let me know what to do.

Thank You

------=_NextPart_000_000A_01C7D94A.F71DC880
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2920.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Dear friends/users,</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>I am new to Euphoria and i love what it =
promises. I=20
need help getting started, please let me know what to do.</FONT></DIV>
<DIV>&nbsp;</DIV>

------=_NextPart_000_000A_01C7D94A.F71DC880--

new topic     » goto parent     » topic index » view message » categorize

16. Re: Help

Hi Rolf,
Yeah, i suceeded in installing EUPHORIA and made some programs myself like
"Hello World" and "addition, Substraction, Division,etc". I have problem
understanding the concepts of append() and prepend(). Also, can you tell me
what would be the basic concepts that i should understand/study now?
EUPHORIA is really promisiong and i believe it will help me a lot if i work
on it. Thank you so much for help.

-Regards

Asif

new topic     » goto parent     » topic index » view message » categorize

17. Re: Help

Hi Rolf,

Thanks so much for clearing my copncepts for append() and prepend(). Its so
clear now and simmply means the joining of sequence-sequence or
sequence-atom in forward and reverse form respectively. I feel satisfied.
Thanks again.

-Best Regards

Asif

P.S: Wht should i do now in EUPHORIA programming?

new topic     » goto parent     » topic index » view message » categorize

18. Re: Help

Asif Masood Baloch wrote:
>...
> P.S: Wht should i do now in EUPHORIA programming?

Hi Asif,
what are your interests? I, for example, used Eu to solve data reduction
problems. Momentarily I'm just creating, better to say calculating, GIF
images. That means, I use the graphics capabilities of Euphoria to
calculate a sequence of BMP-images. Then I use a special software
(independent from Eu) to convert the sequence of BMP-images
into an animated GIF. Game programming, as lot of people do, is not my
interest (though I like some games to play). My homepage is in German,
but with Netscape browser you may watch the animated gifs at:
http://home.t-online.de/home/r.schr/ .
Let me know and have a nice day, Rolf

new topic     » goto parent     » topic index » view message » categorize

19. Help

------=_NextPart_000_0005_01C003E2.3E115770
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Dear Coders,

I tried making the mouse available in graphics_mode but i failed and i =
knew I would cuz i started using EU few days back. I am so fascinated =
that i want to learn it and try all that i could. I read the ".e" file =
and went through lines of code and was able to understand a few lines. I =
know it would sound silly what i copied from the mouse.e file but i =
tried it anyways cuz i thought maybe it would work and the pointer would =
be seen running as i move the mouse on the pad.
So, what is the legal way to do it?

include mouse.e         --For mouse availibility, I tried, Phew!
include graphics.e      --For graphics mode 640x480 with 16 colors
clear_screen()          --Would be good
object kyo
kyo =3D graphics_mode(18)
position(7,29)          --For text position
puts(1, "Lets see how it works. ;)")
constant M_GET_MOUSE =3D 14       --Have no idea what i am doing.
  M_MOUSE_EVENTS =3D 15    --Saw this in mouse.e file and
  M_MOUSE_POINTER =3D 25   --thought it would do
global function get_mouse()     --No idea what im doing
return machine_function(M_GET_MOUSE, 0) -- No idea
end function        --Oh dear, still no idea.

Best wished for all coders

-Asif

------=_NextPart_000_0005_01C003E2.3E115770
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2920.0" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Dear Coders,</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>I tried making the mouse available in =
graphics_mode=20
but i failed and i knew I would cuz i started using EU few days back. I =
am so=20
fascinated that i want to learn it and try all that i could. I read the =
".e"=20
file and went through lines of code and was able to understand a few =
lines. I=20
know it would sound silly what i copied from the mouse.e file but i =
tried it=20
anyways cuz i thought maybe it would work and the&nbsp;pointer would be =
seen=20
running as i move the mouse on the pad.</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>So, what is the legal way to do =
it?</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>include=20
mouse.e&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; --For mouse=20
availibility, I tried, Phew!<BR>include =
graphics.e&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
--For graphics mode 640x480 with 16=20
nbsp;=20
--Would be good<BR>object kyo<BR>kyo =3D=20
bsp;&nbsp;&nbsp;=20
--For text position<BR>puts(1, "Lets see how it works. ;)")<BR>constant=20
M_GET_MOUSE =3D 14&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; --Have no idea =
what i am=20
doing.<BR>&nbsp; M_MOUSE_EVENTS =3D 15&nbsp;&nbsp;&nbsp; --Saw this in =
mouse.e=20
file and<BR>&nbsp; M_MOUSE_POINTER =3D 25&nbsp;&nbsp; --thought it would =

do<BR>global function get_mouse()&nbsp;&nbsp;&nbsp;&nbsp; --No idea what =
im=20
doing<BR>return machine_function(M_GET_MOUSE, 0) -- No idea<BR>end=20
function&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; --Oh dear, still no=20
idea.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Best wished for all coders</FONT></DIV>
<DIV>&nbsp;</DIV>

------=_NextPart_000_0005_01C003E2.3E115770--

new topic     » goto parent     » topic index » view message » categorize

20. Re: Help

------=_NextPart_000_003B_01C00398.C8E5F580
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Asif,

Here is an example which should help you.

Colin

-- start code

include mouse.e         --For mouse availibility, I tried, Phew!
include graphics.e      --For graphics mode 640x480 with 16 colors
clear_screen()          --Would be good
object kyo
kyo =3D graphics_mode(18)
position(7,29)          --For text position
puts(1, "Lets see how it works. ;)")
-- you were okay to here...
mouse_pointer(1)
-- now you have a working mouse pointer

-- if you want to know the mouse state...
object m_event
integer mx, my, lb, rb
mx =3D 0
my =3D 0
lb =3D 0
rb =3D 0
sequence state
state =3D {"no ", "yes"}

position(29, 31)       =20
puts(1, "press a key to exit...")

while 1 do
    m_event =3D get_mouse()
    if sequence(m_event) then
 mx =3D m_event[2]  -- mouse x coordinate
 my =3D m_event[3]  -- mouse y coordinate
 if and_bits(m_event[1], LEFT_DOWN) then  -- left button press
     lb =3D 1
 elsif and_bits(m_event[1], LEFT_UP) then  -- left button release
     lb =3D 0
 end if
 if and_bits(m_event[1], RIGHT_DOWN) then  -- right button press
     rb =3D 1
 elsif and_bits(m_event[1], RIGHT_UP) then  -- right button release
     rb =3D 0
 end if
 -- print out some info
 position(1, 1)
 mouse_pointer(0)  -- its best to turn off the pointer when printing
 printf(1, "mouse x pos =3D %d  \n", mx)
 printf(1, "mouse y pos =3D %d  \n", my)
 printf(1, "left button? %s  \n", {state[lb+1]})
 printf(1, "right button? %s  \n", {state[rb+1]})
 mouse_pointer(1)  -- back on
    end if
    if get_key() !=3D -1 then
 exit  -- if key press then exit from the while loop
    end if
end while

-- end code
  Asif wrote:
  >I tried making the mouse available in graphics_mode but i failed

------=_NextPart_000_003B_01C00398.C8E5F580
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Asif,</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Here is an example which should help=20
you.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>Colin</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>-- start code</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>include=20
mouse.e&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; --For mouse=20
availibility, I tried, Phew!<BR>include =
graphics.e&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;=20
--For graphics mode 640x480 with 16=20
nbsp;=20
--Would be good<BR>object kyo<BR>kyo =3D=20
bsp;&nbsp;&nbsp;=20
--For text position<BR>puts(1, "Lets see how it works. ;)")<BR>-- you =
were okay=20
to here...<BR>mouse_pointer(1)<BR>-- now you have a working mouse=20
pointer</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>-- if you want to know the mouse =
state...<BR>object=20
m_event<BR>integer mx, my, lb, rb<BR>mx =3D 0<BR>my =3D 0<BR>lb =3D =
0<BR>rb =3D=20
0<BR>sequence state<BR>state =3D {"no ", "yes"}</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>position(29,=20
31)&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <BR>puts(1, "press a key =
to=20
exit...")</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT face=3DArial size=3D2>while 1 do<BR>&nbsp;&nbsp;&nbsp; =
m_event =3D=20
get_mouse()<BR>&nbsp;&nbsp;&nbsp; if sequence(m_event) then<BR>&nbsp;mx =
=3D=20
m_event[2]&nbsp; -- mouse x coordinate<BR>&nbsp;my =3D m_event[3]&nbsp; =
-- mouse y=20
coordinate<BR>&nbsp;if and_bits(m_event[1], LEFT_DOWN) then&nbsp; -- =
left button=20
press<BR>&nbsp;&nbsp;&nbsp;&nbsp; lb =3D 1<BR>&nbsp;elsif =
and_bits(m_event[1],=20
LEFT_UP) then&nbsp; -- left button release<BR>&nbsp;&nbsp;&nbsp;&nbsp; =
lb =3D=20
0<BR>&nbsp;end if<BR>&nbsp;if and_bits(m_event[1], RIGHT_DOWN) =
then&nbsp; --=20
right button press<BR>&nbsp;&nbsp;&nbsp;&nbsp; rb =3D 1<BR>&nbsp;elsif=20
and_bits(m_event[1], RIGHT_UP) then&nbsp; -- right button=20
release<BR>&nbsp;&nbsp;&nbsp;&nbsp; rb =3D 0<BR>&nbsp;end if<BR>&nbsp;-- =
print out=20
some info<BR>&nbsp;position(1, 1)<BR>&nbsp;mouse_pointer(0)&nbsp; -- its =
best to=20
turn off the pointer when printing<BR>&nbsp;printf(1, "mouse x pos =3D =
%d&nbsp;=20
\n", mx)<BR>&nbsp;printf(1, "mouse y pos =3D %d&nbsp; \n", =
my)<BR>&nbsp;printf(1,=20
"left button? %s&nbsp; \n", {state[lb+1]})<BR>&nbsp;printf(1, "right =
button?=20
%s&nbsp; \n", {state[rb+1]})<BR>&nbsp;mouse_pointer(1)&nbsp; -- back=20
on<BR>&nbsp;&nbsp;&nbsp; end if<BR>&nbsp;&nbsp;&nbsp; if get_key() !=3D =
-1=20
then<BR>&nbsp;exit&nbsp; -- if key press then exit from the while=20
loop<BR>&nbsp;&nbsp;&nbsp; end if<BR>end while<BR></FONT></DIV>
<DIV><FONT face=3DArial size=3D2>-- end code</DIV></FONT>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV><FONT face=3DArial size=3D2>
  <DIV><FONT face=3DArial size=3D2>
  <DIV style=3D"FONT: 10pt arial">Asif wrote:</DIV>
  <DIV><FONT face=3DArial size=3D2>&gt;I tried making the mouse =
available in=20
  graphics_mode but i=20

------=_NextPart_000_003B_01C00398.C8E5F580--

new topic     » goto parent     » topic index » view message » categorize

21. Re: Help

Asif Masood Baloch wrote:

> Dear Coders,
>
> I tried making the mouse available in graphics_mode but i failed and i knew I
> would cuz i started using EU few days back. I am so fascinated that i want to
> learn it and try all that i could. I read the ".e" file and went through lines of
> code and was able to understand a few lines. I know it would sound silly what i
> copied from the mouse.e file but i tried it anyways cuz i thought maybe it would
> work and the pointer would be seen running as i move the mouse on the pad.
> So, what is the legal way to do it?
>
> include mouse.e         --For mouse availibility, I tried, Phew!
> include graphics.e      --For graphics mode 640x480 with 16 colors
> clear_screen()          --Would be good
> object kyo
> kyo = graphics_mode(18)
> position(7,29)          --For text position
> puts(1, "Lets see how it works. ;)")
> constant M_GET_MOUSE = 14       --Have no idea what i am doing.
>   M_MOUSE_EVENTS = 15    --Saw this in mouse.e file and
>   M_MOUSE_POINTER = 25   --thought it would do
> global function get_mouse()     --No idea what im doing
> return machine_function(M_GET_MOUSE, 0) -- No idea
> end function        --Oh dear, still no idea.
>
> Best wished for all coders
>
> -Asif
>
>   ------------------------------------------------------------------------
>                Name: FILE.HTM
>    FILE.HTM    Type: Hypertext Markup Language (text/html)
>            Encoding: 7bit

You don't need to redefine get_mouse etc. Just include mouse.e.

Jeff Fielding

new topic     » goto parent     » topic index » view message » categorize

22. Help

------=_NextPart_000_0019_01C00591.D2065100
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hi !
Someone is puting bad stuff about me on the internet . I know what his =
email address is . What can I do to stop him ! I can send him a virus , =
but I am only gonna do that if I don`t have any other choice . Any ideas =
? Please , this is very serios . Thanks !!!!!!!!!!!!!!!!

Ferdinand
mwfch at mweb.co.za

------=_NextPart_000_0019_01C00591.D2065100
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2614.3500" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV>Hi !</DIV>
<DIV>Someone is puting bad stuff about me on the internet . I know what =
his=20
email address is . What can I do to stop him ! I can send him a virus , =
but I am=20
only gonna do that if I don`t have any other&nbsp;choice . Any ideas ? =
Please ,=20
this is very serios . Thanks !!!!!!!!!!!!!!!!</DIV>
<DIV>&nbsp;</DIV>
<DIV>Ferdinand</DIV>
<DIV><FONT face=3DArial><A=20
</HTML>

------=_NextPart_000_0019_01C00591.D2065100--

new topic     » goto parent     » topic index » view message » categorize

23. Re: Help

------=_NextPart_000_0010_01C0075E.1176EA20
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Not that this is the proper forum for this... but what the hey?

First off, sending a virus to someone doesn't guarantee they'll be =
infected. Not once in my entire history of computing have I ever been =
infected with a virus... simply because I know how to guard against =
infection.

If the bad stuff consists of "Ferdinand is ugly," then I would assume it =
falls under the protection of free speech, unless it is originating from =
a country where free speech is against the law <cough>. If it's more =
along the lines of, "Ferdinand is a drug-addicted child abuser," then =
you should contact your local pigs- I mean police, sorry- or even a =
federal/national authority.

It's rarely wise to take these matters into your own hands, unless you =
know the culprit and he's (or she's) someone you can beat up. heh. just =
kiddin' 'bout that.
  ----- Original Message -----=20
  From: =BC=20
  To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
  Sent: Sunday, August 13, 2000 6:49 PM
  Subject: Help


  Hi !
  Someone is puting bad stuff about me on the internet . I know what his =
email address is . What can I do to stop him ! I can send him a virus , =
but I am only gonna do that if I don`t have any other choice . Any ideas =
? Please , this is very serios . Thanks !!!!!!!!!!!!!!!!

  Ferdinand
  mwfch at mweb.co.za

------=_NextPart_000_0010_01C0075E.1176EA20
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2722.2800" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT size=3D2>Not that this is the proper forum for this... but =
what the=20
hey?</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>First off, sending a virus to someone doesn't =
guarantee=20
they'll be infected. Not once in my entire history of computing have I =
ever been=20
infected with a virus... simply because I know how to guard against=20
infection.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>If the bad stuff consists of "Ferdinand is ugly," =
then I would=20
assume it falls under the protection of free speech, unless it is =
originating=20
from a country where free speech is against the law &lt;cough&gt;. If =
it's more=20
along the lines of, "Ferdinand is a drug-addicted child abuser," then =
you should=20
contact your local pigs- I mean police, sorry- or even a =
federal/national=20
authority.</FONT></DIV>
<DIV>&nbsp;</DIV>
<DIV><FONT size=3D2>It's rarely wise to take these matters into your own =
hands,=20
unless you know the culprit and he's (or she's) someone you can beat up. =
heh.=20
just kiddin' 'bout that.</FONT></DIV>
<BLOCKQUOTE=20
style=3D"BORDER-LEFT: #000000 2px solid; MARGIN-LEFT: 5px; MARGIN-RIGHT: =
0px; PADDING-LEFT: 5px; PADDING-RIGHT: 0px">
  <DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV=20
  style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
  <A href=3D"mailto:mwfch at MWEB.CO.ZA" title=3Dmwfch at MWEB.CO.ZA>=BC</A> =
</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A=20
  href=3D"mailto:EUPHORIA at LISTSERV.MUOHIO.EDU"=20
  title=3DEUPHORIA at LISTSERV.MUOHIO.EDU>EUPHORIA at LISTSERV.MUOHIO.EDU</A> =
</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Sunday, August 13, 2000 =
6:49=20
  PM</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Subject:</B> Help</DIV>
  <DIV><BR></DIV>
  <DIV>Hi !</DIV>
  <DIV>Someone is puting bad stuff about me on the internet . I know =
what his=20
  email address is . What can I do to stop him ! I can send him a virus =
, but I=20
  am only gonna do that if I don`t have any other&nbsp;choice . Any =
ideas ?=20
  Please , this is very serios . Thanks !!!!!!!!!!!!!!!!</DIV>
  <DIV>&nbsp;</DIV>
  <DIV>Ferdinand</DIV>
  <DIV><FONT face=3DArial><A=20
  =

------=_NextPart_000_0010_01C0075E.1176EA20--

new topic     » goto parent     » topic index » view message » categorize

24. Help

Staring out with this code

atom buff_a, buff_b

buff_a = allocate_low(500)
buff_b = allocate_low(500)

I need to to how to write the following code in Euphoria. ( its in C )
The structure has to be a binary block of memory in machine code format.

struct {
       int seg_of_buff_a;
       int offset_of_buff_a;
       int seg_of_buff_b;
       int offset_of_buff_b;
       } my_struct;

my_struct.seg_of_buff_a = FP_SEG(buff_a);
my_struct.offset_of_buff_a = FP_OFF(buff_a);
my_struct.seg_of_buff_b = FP_SEG(buff_b);
my_struct.offset_of_buff_b = FP_OFF(buff_b);

Thanks in advance
Bernie

new topic     » goto parent     » topic index » view message » categorize

25. Help

I have one computer that reads a blob table from MySql using Matt's ODBC stuff
correctly. I have another one running the same stuff which pulls up a blob row
that is just a long list of numbers. The EU software is identical. I've copied
all the stuff from the working puter to the not working one but that didn't 
solve the problem.

I've had this blob problem before and fixed it but for the life of me I can't
remember what I did.

Does anyone have a hint??

new topic     » goto parent     » topic index » view message » categorize

26. Re: Help

Well, after I gave up and posted this help, I upgraded the MySql ODBC driver
to 3.51 and that fixed the problem. Geez what a waste of brain burn.

new topic     » goto parent     » topic index » view message » categorize

27. Re: Help

Exotica uses some GDI calls for text output, but not for
bitmaps. GDI is very slow. 
 
> Why wouldn't it make sense? :)
> 
> Explain GDI vs. API vs. DX.

GDI is graphical interface for Window GUI programs.
DirectX is quick and dirty multimedia interface for
games. (GDI games are really slow - see pretend.exw
in win32lib package)


    Martin

new topic     » goto parent     » topic index » view message » categorize

28. Help

This may sound like I know nothing(and I don't botu programing) but I can't 
get Euphoria to start. I have Windows XP and I do not know where to begin. 
Can someone help me???

new topic     » goto parent     » topic index » view message » categorize

29. Re: Help

Kakura wrote:

> This may sound like I know nothing(and I don't botu programing) but I can't 
> get Euphoria to start. I have Windows XP and I do not know where to begin. 
> Can someone help me???

Check here: http://uboard.proboards32.com/index.cgi?board=Pupils

Links to tutorials, plus some one-on-one mentoring if desired.

-=ck
"Programming in a state of EUPHORIA."
http://www.cklester.com/euphoria/

new topic     » goto parent     » topic index » view message » categorize

30. Help

------=_NextPart_000_000F_01C03B4B.1D694C80
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

In Euphoria Win32 what is the syntax to launch MSAccess and run a .mdb =
database?           =20


------=_NextPart_000_000F_01C03B4B.1D694C80
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4207.2601" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>In Euphoria Win32 what is the syntax to =
launch=20
MSAccess and run a .mdb=20
p;=20

------=_NextPart_000_000F_01C03B4B.1D694C80--

new topic     » goto parent     » topic index » view message » categorize

31. Re: Help

------=_NextPart_000_05D5_01C03BCC.62AAC5E0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Try
    shellExecute("open", "mydatabase.MDB", SW_SHOWNORMAL)

------
Derek Parnell
Melbourne, Australia
(Vote [1] The Cheshire Cat for Internet Mascot)

  ----- Original Message -----=20
  From: Dean James=20
  To: EUPHORIA at LISTSERV.MUOHIO.EDU=20
  Sent: Sunday, October 22, 2000 1:38 AM
  Subject: Help


  In Euphoria Win32 what is the syntax to launch MSAccess and run a .mdb =
database?           =20


------=_NextPart_000_05D5_01C03BCC.62AAC5E0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=3DContent-Type content=3D"text/html; =
charset=3Diso-8859-1">
<META content=3D"MSHTML 5.50.4207.2601" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Try</FONT></DIV>
<DIV><FONT face=3DArial size=3D2>&nbsp;&nbsp;&nbsp; shellExecute("open", =

"mydatabase.MDB", SW_SHOWNORMAL)</FONT></DIV>
<DIV><FONT face=3DArial size=3D2></FONT>&nbsp;</DIV>
<DIV>------<BR>Derek Parnell<BR>Melbourne, Australia<BR>(Vote [1] The =
Cheshire=20
Cat for Internet Mascot)<BR></DIV>
<BLOCKQUOTE dir=3Dltr=20
style=3D"PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; =
BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
  <DIV style=3D"FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV=20
  style=3D"BACKGROUND: #e4e4e4; FONT: 10pt arial; font-color: =
black"><B>From:</B>=20
  <A title=3Ddjames at CETLINK.NET href=3D"mailto:djames at CETLINK.NET">Dean =
James</A>=20
  </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>To:</B> <A =
title=3DEUPHORIA at LISTSERV.MUOHIO.EDU=20
  =
</A>=20
  </DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Sent:</B> Sunday, October 22, 2000 =
1:38=20
  AM</DIV>
  <DIV style=3D"FONT: 10pt arial"><B>Subject:</B> Help</DIV>
  <DIV><BR></DIV>
  <DIV><FONT face=3DArial size=3D2>In Euphoria Win32 what is the syntax =
to launch=20
  MSAccess and run a .mdb=20
  =
p;=20

------=_NextPart_000_05D5_01C03BCC.62AAC5E0--

new topic     » goto parent     » topic index » view message » categorize

32. Re: Help

------=_NextPart_000_0027_01C044AE.212BF0E0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hi Asif,

I think thats something these News-Groups are made for,
that the people who "feel they know the right way"=20
can say it.
I feel the right way is to hear "the childrens voice".
Not when its going into details, but to see the weakpoints.

If you share my opinion, make it public in the list, as it may change=20
something if many people agree AND SAY that in the list.

Till next
THEO

PS: Success =3D a good inside + a good outside=20

-----Original Message-----
From: Asif Masood Baloch [mailto:cyberego at qta.paknet.com.pk]
Sent: Wednesday, November 01, 2000 10:00 AM
To: Gottwald, IT-IS T500, Fa. Compaq, DA
Subject: Re: Repaint


ITs good to know that there are some poeple who give a damn about other =
ppl.
Thanks a lot.

Asif Masood Baloch
BBA Honors
MBA (Information Technology)



------=_NextPart_000_0027_01C044AE.212BF0E0
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content=3D"text/html; charset=3Diso-8859-1" =
http-equiv=3DContent-Type>
<META content=3D"MSHTML 5.00.2314.1000" name=3DGENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT face=3DArial size=3D2>Hi Asif,<BR><BR>I think thats something =
these=20
News-Groups are made for,<BR>that the people who "feel they know the =
right way"=20
<BR>can say it.<BR>I feel the right way is to hear "the childrens =
voice".<BR>Not=20
when its going into details, but to see the weakpoints.<BR><BR>If you =
share my=20
opinion, make it public in the list, as it may change <BR>something if =
many=20
people agree AND SAY that in the list.<BR><BR>Till =
next<BR>THEO<BR><BR>PS:=20
Success =3D a good inside + a good outside <BR><BR>-----Original=20
Message-----<BR>From: Asif Masood Baloch [<A=20
.pk</A>]<BR>Sent:=20
Wednesday, November 01, 2000 10:00 AM<BR>To: Gottwald, IT-IS T500, Fa. =
Compaq,=20
DA<BR>Subject: Re: Repaint<BR><BR><BR>ITs good to know that there are =
some=20
poeple who give a damn about other ppl.<BR>Thanks a lot.<BR><BR>Asif =
Masood=20
Baloch<BR>BBA Honors<BR>MBA (Information=20

------=_NextPart_000_0027_01C044AE.212BF0E0--

new topic     » goto parent     » topic index » view message » categorize

33. Help

Hello,

How to change a sequence to name of control.

for example...

I've a sequence "button1, button2, button3" and I want put som text in control
with the same name as a part of sequence..

setText(button1, "Test")

Bye Vlado

new topic     » goto parent     » topic index » view message » categorize

34. Re: Help

> Hello,
>
> How to change a sequence to name of control.
>
> for example...
>
> I've a sequence "button1, button2, button3" and I want put som text in 
> control with the same name as a part of sequence..
>
> setText(button1, "Test")
>
> Bye Vlado

This can not be done directly, but there are ways to do this:

---------- START CODE
constant
	button1 = create(PushButton, ...),
	button2 = create(PushButton, ...),
	button3 = create(PushButton, ...),
	...

constant lookup_table = {
	{"button1", button1},
	{"button2", button2},
	{"button3", button3},
	...
}

function getControlFromString(sequence string)
	for i = 1 to length(lookup_table) do
		if equal(lookup_table[i][1], string) then
			return lookup_table[i][2]
		end if
	end for
	return 0 -- no control found
end function

integer ctl
ctl = getControlFromString("button1")
if ctl != 0 then
	setText(ctl, "Test")
end if
---------- END CODE

If there are a lot of controls, you could speed it up by using a 
hash-table instead of a simple lookup-table. Or make sure the lookup-table 
is sorted alphabetically, and use an optimized search algorithm.

If you want to split the string "button1, button2, button3" into 
{"button1", "button2", "button3"}, you could use Kat's Strtok 
(http://www.tiggrbox.info/program/Euphoria.html).

-- 

Tommy Carlier
tommy online: http://users.pandora.be/tommycarlier

new topic     » goto parent     » topic index » view message » categorize

35. Help

--0-2008854464-1012484856=:49974


Hi I'v asked before with no responce please can someone HELP?

Question: Does anyone know how to stretch a bitman (zoom in zoom out) with not
too much flicker?

Please someone help me Thanks Jor.



---------------------------------
Do You Yahoo!?
Yahoo! Auctions Great stuff seeking new owners! Bid now!
--0-2008854464-1012484856=:49974

<P>Hi I'v asked before with no responce please can someone HELP?</P>
<P>Question: Does anyone know how to stretch a bitman (zoom in zoom out) with
not too much flicker?</P>
<P>Please someone help me Thanks Jor.</P><p><br><hr size=1><b>Do You
Yahoo!?</b><br>
<a href="http://rd.yahoo.com/mail_us/tag/?http://auctions.yahoo.com">Yahoo!
Auctions</a> Great stuff seeking new owners! <a
href="http://rd.yahoo.com/mail_us/tag/?http://auctions.yahoo.com">Bid now!</a>
--0-2008854464-1012484856=:49974--

new topic     » goto parent     » topic index » view message » categorize

36. Re: Help

There's no one way to stretch a bitmap. It also depends on if you're using a
prepackaged graphics library or whittlin' one of your own.

Could be as easy as converting each row of your sequence:

{0,1,2,3,4,5} becomes {0,0,1,1,2,2,3,3,4,4,5,5}

But I don't really know.

I'm using the ExoticaX package and it makes graphics handling easy (once you
know how!). There are commands in there that stretch and shrink bitmaps for
you automagically. Maybe it could be exactly what you need.


----- Original Message -----
From: "jordah ferguson" <jorfergie03 at yahoo.com>
To: "EUforum" <EUforum at topica.com>
Sent: Thursday, January 31, 2002 7:47 AM
Subject: Help


>
>
> Hi I'v asked before with no responce please can someone HELP?
>
> Question: Does anyone know how to stretch a bitman (zoom in zoom out) with
not too much flicker?
>
> Please someone help me Thanks Jor.
>
>
> ---------------------------------
> Do You Yahoo!?
> Yahoo! Auctions Great stuff seeking new owners! Bid now!
>
>
>

new topic     » goto parent     » topic index » view message » categorize

37. Re: Help

>Hi I'v asked before with no responce please can someone HELP?
>Question: Does anyone know how to stretch a bitman (zoom in zoom out) with not
>too much
flicker?
>Please someone help me Thanks Jord

Don't know if you mean DOS,Windows, or some DX app,
but there's a function for it in the WIN32API :

BOOL StretchBlt(

    HDC hdcDest, // handle of destination device context
    int nXOriginDest, // x-coordinate of upper-left corner of dest. rect.
    int nYOriginDest, // y-coordinate of upper-left corner of dest. rect.
    int nWidthDest, // width of destination rectangle
    int nHeightDest, // height of destination rectangle
    HDC hdcSrc, // handle of source device context
    int nXOriginSrc, // x-coordinate of upper-left corner of source rectangle
    int nYOriginSrc, // y-coordinate of upper-left corner of source rectangle
    int nWidthSrc, // width of source rectangle
    int nHeightSrc, // height of source rectangle
    DWORD dwRop  // raster operation code
   );

int SetStretchBltMode(

    HDC hdc, // handle of device context
    int iStretchMode  // bitmap stretching mode
   );

some other functions are in dos graphical toolkits and in exotica.

    Martin

new topic     » goto parent     » topic index » view message » categorize

38. Re: Help

>From: jordah ferguson <jorfergie03 at yahoo.com>
>Subject: Help
>
>Hi I'v asked before with no responce please can someone HELP?
>
>Question: Does anyone know how to stretch a bitman (zoom in zoom out) >with 
>not too much flicker?
>
>Please someone help me Thanks Jor.

I'm currently working on V1.1 of a graphics library that will be able to do 
zooming of bitmaps and the like.... I'll post it up either tomorrow or the 
day after....

If you give me some more details of what you need then I can tailor it to 
suit you, or give an explanation of how to using this lib.
=====================================================
.______<-------------------\__
/ _____<--------------------__|===
||_    <-------------------/
\__| Mr Trick

new topic     » goto parent     » topic index » view message » categorize

39. Help

------=_NextPart_000_0027_01BDBFBA.A17BA860
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

Hello.

Is anyone setting up something like: www.euphoria.ca? Hey Rob, it's free =
to have a Canadian domain.

Anyways, my tutorial is coming along nicely. Could any people who speak =
a foreign language to English help me with the translation?

- Nate


------=_NextPart_000_0027_01BDBFBA.A17BA860
        charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE HTML PUBLIC "-//W3C//DTD W3 HTML//EN">
<HTML>
<HEAD>

<META content=3Dtext/html;charset=3Diso-8859-1 =
http-equiv=3DContent-Type>
<META content=3D'"MSHTML 4.72.2106.6"' name=3DGENERATOR>
</HEAD>
<BODY bgColor=3D#ffffff>
<DIV><FONT color=3D#000000 size=3D2>Hello.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>Is anyone setting up something like: =
<A=20
href=3D"http://www.euphoria.ca">www.euphoria.ca</A>? Hey Rob, it's free =
to have a=20
Canadian domain.</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT color=3D#000000 size=3D2>Anyways, my tutorial is coming along =
nicely.=20
Could any people who speak a foreign language to English help me with =
the=20
translation?</FONT></DIV>
<DIV><FONT color=3D#000000 size=3D2></FONT>&nbsp;</DIV>
<DIV><FONT size=3D2>- Nate</FONT></DIV>

------=_NextPart_000_0027_01BDBFBA.A17BA860--

new topic     » goto parent     » topic index » view message » categorize

40. Help

I need a tutorial on EUPHORIA.

Albert

new topic     » goto parent     » topic index » view message » categorize

41. Re: Help

You will find an excellent tutorial at

Hope it will help,

Pierre Beaulieu

Albert Brauneis wrote:
>
> I need a tutorial on EUPHORIA.
>
> Albert

new topic     » goto parent     » topic index » view message » categorize

42. Help

Hello,

I am very very new to Euphoria and I am trying to make a simple program that
opens a file and inputs it line by line and prints it to the screen line by
line. I can open files and read and write to them but looping until eof I have
trouble with. I don't think there is an eof but I tried some things and I
can't get it to work. So if you can post this simple program for me that would
be great. Also say I want someone to type in a filename and they type in
c:\windows\temp.dat is there a function or do I have to make my own that
converts that to c:\\windows\\temp.dat??

Thanks for any help,
Albert

new topic     » goto parent     » topic index » view message » categorize

43. Re: Help

EU>Hello,

EU>I am very very new to Euphoria and I am trying to make a simple program that
EU>opens a file and inputs it line by line and prints it to the screen line by
EU>line. I can open files and read and write to them but looping until eof I ha
EU>trouble with. I don't think there is an eof but I tried some things and I
EU>can't get it to work. So if you can post this simple program for me that wou
EU>be great. Also say I want someone to type in a filename and they type in
EU>c:\windows\temp.dat is there a function or do I have to make my own that
EU>converts that to c:\\windows\\temp.dat??

EU>Thanks for any help,
EU>Albert

object line     -- For the line input
integer f       -- For the file number
f = open(filename,"r")  -- Open the file
if f = -1 then -- Couldn't open
        puts(1,"Couldn't open " & filename)     -- Display error message
        abort(1)                                -- End program
end if
line = gets(f)          -- Get first line
while sequence(line) do -- While not eof (gets will return -1 at eof)
        puts(1,line)    -- Display it
        line = gets(f)  -- Get next line
end while
close(f)                -- Close the file

Just replace filename with the name of the file, and this will display
the file on the screeen.

Jeffrey Fielding
JJProg at cyberbury.net

new topic     » goto parent     » topic index » view message » categorize

44. Re: Help

>I am very very new to Euphoria and I am trying to make a simple program
that
>opens a file and inputs it line by line and prints it to the screen line by
>line. I can open files and read and write to them but looping until eof I
have
>trouble with. I don't think there is an eof but I tried some things and I
>can't get it to work. So if you can post this simple program for me that
would
>be great. Also say I want someone to type in a filename and they type in
>c:\windows\temp.dat is there a function or do I have to make my own that
>converts that to c:\\windows\\temp.dat??


Im not going to list another program example.
Jeffrey Fielding already did that.
However I am going to explain why you dont need to convert file names.

The euphoria interpreter ex.exe reads in your code and pre-compiles it. At
this stage it parses all your strings and values, and validates your code.
The escape characters are handles in this fase. The existence for escape
characters is to serve the programmer: Otherwise we would need to type
something like: "hello
" to make it jump to the next line. SOmething that is btw illegal, since the
number of spaces, etc. isnt clear and it is thus *bad* style. Instead ex.exe
handles the '\' as the escape character. But the parsing of escape
characters only occurs with strings that are actually typed inside your
program. It would be a hell, if we would have to convert every input. So,
the general rule is, the parsing of escape characters is part of notation
within Euphoria. Like 34873# means a heximal value. The '#' is not part of
the value it represents, it only there to tell Euphoria it is an hex-value,
it is thus part of the notation, just like escape values.

Ralf Nieuwenhuijsen
nieuwen at xs4all.nl

new topic     » goto parent     » topic index » view message » categorize

45. Re: Help

>>Also say I want someone to type in a filename and they type in
>>c:\windows\temp.dat is there a function or do I have to make my own
>>that converts that to c:\\windows\\temp.dat??

Why the "\\", that's too dificult.
Why not "/" ? That's the same and easier.
You only have to replace the "\" in "/".
But you have to read the c:\....... sequence out of a file.
You probably don't understand me, but let me give you this example:

---- file.txt ------
c:\windows\temp.dat
---- end -----------
( only write the c:\..... in the file "file.txt" )

---- CONV.EX -------

sequence line
integer handler

handler=open("file.txt","r")
 line=gets(handler)
 line=line[1..length(line)]
close(handler)

for a=1 to length(line) do
 if line[a]='\\' then
  line[a]='/'
 end if
end for

--------------------------------

That's it, I think..........

PQ
(quistnet at yahoo.com)


______________________________________________________
Get Your Private, Free Email at http://www.hotmail.com

new topic     » goto parent     » topic index » view message » categorize

46. Re: Help

On Wed, 28 Oct 1998 21:56:40 EST, Albert Brauneis <Dajawu36 at AOL.COM> wrote:

>Hello,
>
>I am very very new to Euphoria and I am trying to make a simple program that
>opens a file and inputs it line by line and prints it to the screen line by
>line. I can open files and read and write to them but looping until eof I have
>trouble with. I don't think there is an eof but I tried some things and I
>can't get it to work. So if you can post this simple program for me that would
>be great. Also say I want someone to type in a filename and they type in
>c:\windows\temp.dat is there a function or do I have to make my own that
>converts that to c:\\windows\\temp.dat??
>
Proving only that there is more than one way to program anything,
I submit the following fairly simple way to do what you want:

object file,line -- line *must* be declared as an object
atom fn

puts(1,"Filename:")      -- display a prompt
file = gets(0)           -- read input
file[length(file)] = ' ' -- kill l/f character appended to the input

-- if you want to hard-code a filename within your program
-- do replace the 3 lines above with the following line:
-- file = "C:\\EUPHORIA\\READ_ME.TXT"

clear_screen()
fn = open(file,"r")
if fn = -1 then puts(1,"File not found")
end if

while 1 do
   line = gets(fn)
   if atom(line) then exit -- eof
   end if
   puts(1,line)
end while

--  Regards,
--  Irv
Buses stop at bus stations,
Trains stop at train stations;
on my desk is a work station....

new topic     » goto parent     » topic index » view message » categorize

Search



Quick Links

User menu

Not signed in.

Misc Menu