console program halt (or is there a one key input function?)

[blueznl]

can you 'halt' a console program in such a way, that it waits for a keypress but releases all available time to other programs on the machine?

the loop:

repeat
k.s=inkey()
until k>""

... does cost computing power, and waitwindowevent doesn't work because there's no window ... the only thing i could come up with is:

repeat
k.s=inkey()
if k=""
delay(300)
endif
until k>""

any smart alternatives? or is inkey handling it well enough that i shouldn't bother with the delay()?

[Dreglor]

there is input()
but thats only if you hit enter

try this:

Code: Select all

stop=0
repeat
  if inkey()=#PB_Key_Any
    stop=1
  endif
until stop=1

i didn't cheak it or anything but you get the idea
I know for certain that there is a build in constant for "any key"

[Proteus]

there is input()
but thats only if you hit enter

try this:

Code: Select all

stop=0
repeat
  if inkey()=#PB_Key_Any
    stop=1
  endif
until stop=1

i didn't cheak it or anything but you get the idea
I know for certain that there is a build in constant for "any key"

Yes, but the constant is a numerical value (I DID test it ).

Code: Select all

This works:
stop=0
repeat
  if inkey()<>""
    stop=1
  endif
until stop=1

But that's basicly the same as what Blueznl put in his first post...

A loop like this doesn't really seem to cost any computing power, but that could be because of my P4.

[blueznl]

i'm just anal retentive when it comes to loops

it probably doesn't matter much on winxp / nt / 2k these days, but i just hate the feeling of loosing computing power doing nothing

[LarsG]

there is input()
but thats only if you hit enter

try this:

Code: Select all

stop=0
repeat
  if inkey()=#PB_Key_Any
    stop=1
  endif
until stop=1

i didn't cheak it or anything but you get the idea
I know for certain that there is a build in constant for "any key"

Yes, but the constant is a numerical value (I DID test it ).

Code: Select all

This works:
stop=0
repeat
  if inkey()<>""
    stop=1
  endif
until stop=1

But that's basicly the same as what Blueznl put in his first post...

A loop like this doesn't really seem to cost any computing power, but that could be because of my P4.

Smack a Delay() in there as well, and it will hog less resources..
Like this:

Code: Select all

stop=0
repeat
  if inkey()<>""
    stop=1
  endif
  Delay(2)
until stop=1

[Proteus]

Yeah, I could've done that, but the process had used about 0 seconds of CPU-time after a minute (according to the window that pops up on XP when you press CRTL-ALT-DELETE), so I figured it wasn't necessary.

[blueznl]

well i guess my first guess was right then, thx guys