QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Pete on March 16, 2020, 07:38:20 pm

Title: SLEEP and INKEY$ don't play well together.
Post by: Pete on March 16, 2020, 07:38:20 pm

I know SLEEP holds key presses in the buffer, but this one surprised me in that it preserved CHR$(13), even though an arrow down key was the last key pressed before the  INKEY$ loop.

Code: QB64: [Select]

1. PRINT "Inkey$ test. Press Enter"
2. SLEEP
3. PRINT "Now press arrow down"
4. SLEEP
5.  
6. blocksize = 4
7. FOR k = 1 TO blocksize
8.     PRINT k
9. NEXT
10. PRINT: PRINT "[1] Delete database entry, [0] Delete established listing, [Enter] Allow both."
11. REM b$ = INKEY$ ' Clear buffer
12. DO
13.     _LIMIT 30
14.     b$ = INKEY$
15.     IF b$ = "1" OR b$ = "0" OR b$ = CHR$(13) THEN EXIT DO
16. LOOP
17.  
18. IF LEN(b$) = 2 THEN
19.     PRINT "The value of inkey$ is: "; ASC(MID$(b$, 1, 1)), ASC(MID$(b$, 2, 1))
20. ELSE
21.     PRINT "The value of inkey$ is: "; ASC(b$)
22. END IF

Of course you can remove the REM statement, so the b$ = INKEY$ can clear the buffer before the INKEY$ loop. I only posted this because I thought the SLEEP statement would return the down arrow character, the last key pressed, instead of the first key pressed,  the Enter key CHR$(13). It is probably the same in QBasic or is it not behaving correctly?

Thoughts?

Pete

Title: Re: SLEEP and INKEY$ don't play well together.
Post by: bplus on March 16, 2020, 08:55:40 pm

There is no clear of key buffer of keypress from SLEEP so you can create a chain of keypresses from a chain of SLEEP's.

checkout _KEYCLEAR

Text Only | Text with Attachments