Re: Keyboard Polling Solution

[Bruce or Tracy Jacobs <bljacobs2@mchsi.com>]

As I get deeper in to my application implementation, there is a good
chance
I will have to take a look into tasking.  Thank you.  

Bruce 


Preben Randhol wrote:
> 
> On 2004-02-18, Me <me@me.org> wrote:
> > Yes, "Get_Immediate" seems to do the trick.  Thanks for the tip.
> >
> > Test Example :
> >
> >
> >
> >
> > with Text_IO;  use Text_IO;
> >
> > procedure Test is
> >
> >   My_Char          : CHARACTER := ' ';
> >   Character_Exists : BOOLEAN   := FALSE;
> >   Loop_Counter     : INTEGER   := 0;
> >
> > procedure Take_A_Break is begin put_line ("Taking a break from
> > polling..."); end Take_A_Break;
> >
> > begin
> >
> >   loop
> >     Loop_Counter := Loop_Counter + 1;
> >     for X in 1..10000 loop
> >       Get_Immediate (Item      => My_Char,
> >                      Available => Character_Exists);
> >       if (Character_Exists) then
> >         put_line ("Character entered.  Done.");
> >         return;
> >       end if;
> >     end loop;
> >     Take_A_Break;
> >   end loop;
> >
> > end;
> >
> >
> 
> Hmm, to me this looks like you want to read about tasks in Ada.
> 
> --
> "Saving keystrokes is the job of the text editor, not the programming
>  language."