OpenEuphoria

Re: get_key problem in DOS fullscreen

• Posted by DB James <larches at comcast.net> Jun 18, 2007
• 501 views

Donald wrote:
> 
> Does anyone know what the problem may be with the following?
> It may be my system but wondering if anyone else has had anything similar or
> can help.
> 
> This code works fine when run in a window but if I go to fullscreen (using
> Alt-enter
> before running) it seems to hang.
> I have to use alt-enter which minimises the window and then close the window
> 
> }}}
<eucode>
> integer c,i
> i=0
>     
>  while (1) do
> 	c = get_key()
> 	if c=' ' then
> 	    exit
> 	else if c!=-1 then
> 		i=i+1
> 	    end if
> 	end if
>  end while
> 
> ? {i,c}
> </eucode>
{{{


Hi Donald,

I moved one of your lines and it works in either a window or fullscreen:

integer c,i
i=0
    
 while (1) do
  c = get_key()
  if c=' ' then
      exit
  else if c!=-1 then
          i=i+1
          ? {i,c}
      end if
  end if
end while

To keep the window from disappearing immediately, put something like
while get_key()=-1 do end while
as the last line.

--Quark