Not so much a bug but inconsistent

[doppler]

This is not much of a bug like the subject line says.  It's part of the extended QB64 functions so we can just say.  "That's how it's gonna work."

If function "END" is use the program would ask to "Press any key to continue".

What's inconsistent:

$CONSOLE:ONLY
_ECHO "Hello"
END

The program ends with message "Press enter to continue".  And it really wants the enter key only.

At least the END does not multi-thread max the CPU out anymore.  That was an old ending bug.
And YES I want to use the END function, otherwise the window would just go whizzing on by too fast to
read and scrollback later.

So which one do we got here, is it a BUG or Feature ?

[FellippeHeitor]

Not a bug or feature, but a workaround. We can’t read inkey$ in the console, so the way to trigger a pause is to wait for input. ENTER marks the end of user input (notice you can still type while the message is displayed).

[doppler]

but a workaround

So,

"That's how it's gonna work."

[SMcNeill]

Not a bug or feature, but a workaround. We can’t read inkey$ in the console, so the way to trigger a pause is to wait for input. ENTER marks the end of user input (notice you can still type while the message is displayed).

Here's a way to read  inkey$ with console:

Step 1:  Copy the following and save it inside your QV64 folder as "Test.h":

Code: C++: [Select]

1. extern int32 ConsoleKeyhit (VOID);
2.  
3. int32 ConsoleKeyhit (VOID)
4. {
5.   HANDLE hStdin = GetStdHandle (STD_INPUT_HANDLE);
6.   INPUT_RECORD irInputRecord;
7.   DWORD dwEventsRead;
8.   CHAR cChar;
9.  
10.   while(ReadConsoleInputA (hStdin, &irInputRecord, 1, &dwEventsRead)) /* Read key press */
11.     if (irInputRecord.EventType == KEY_EVENT
12.         &&irInputRecord.Event.KeyEvent.wVirtualKeyCode != VK_SHIFT
13.         &&irInputRecord.Event.KeyEvent.wVirtualKeyCode != VK_MENU
14.         &&irInputRecord.Event.KeyEvent.wVirtualKeyCode != VK_CONTROL)
15.     {
16.       cChar = irInputRecord.Event.KeyEvent.uChar.AsciiChar;
17.         ReadConsoleInputA (hStdin, &irInputRecord , 1, &dwEventsRead); /* Read key release */
18.         return cChar;
19.     }
20.   return EOF;
21. }

Step 2: Make use of DECLARE LIBRARY to use the command, as such:

Code: QB64: [Select]

1. DECLARE LIBRARY "Test"
2.     FUNCTION ConsoleKeyhit
3. END DECLARE
4.  
5.  
6. $CONSOLE:ONLY
7. _DEST _CONSOLE
8. _ECHO "Hello"
9. DO
10.     a = ConsoleKeyhit
11.     IF a <> 0 THEN PRINT a
12. LOOP UNTIL a = 27
13. _DELAY 3
14. SYSTEM

Compile and run, and you should be able to read in the keycodes for keys one at a time as you press them, without having to wait and trap for the ENTER key for the end of input stream.

[FellippeHeitor]

Here's a way to read  inkey$ with console:

Thanks for sharing.

[SMcNeill]

Here's a way to read  inkey$ with console:

It's actually more of a way to get _KEYHIT style codes back from the console. 

Tweaking it a bit more, I find that this version of Test.h gives us better results to mimic what we'd expect to see from _KEYHIT better:

Code: C++: [Select]

1. extern int32 ConsoleKeyhit (VOID);
2.  
3. int32 ConsoleKeyhit (VOID)
4. {
5.   HANDLE hStdin = GetStdHandle (STD_INPUT_HANDLE);
6.   INPUT_RECORD irInputRecord;
7.   DWORD dwEventsRead;
8.   INT32 cChar;
9.  
10.   while(ReadConsoleInputA (hStdin, &irInputRecord, 1, &dwEventsRead)) /* Read key press */
11.     if (irInputRecord.EventType == KEY_EVENT
12.         &&irInputRecord.Event.KeyEvent.wVirtualKeyCode != VK_SHIFT
13.         &&irInputRecord.Event.KeyEvent.wVirtualKeyCode != VK_MENU
14.         &&irInputRecord.Event.KeyEvent.wVirtualKeyCode != VK_CONTROL)
15.     {
16.       cChar = irInputRecord.Event.KeyEvent.uChar.AsciiChar;
17.       if (cChar == 0) cChar = 256 * irInputRecord.Event.KeyEvent.wVirtualScanCode; //translate to an extended ASCII value, to match _KEYHIT codes.
18.       //NOTE: SHIFT and other modifier keys are still giving incorrect codes.  They need a little tweaking to work nicely.
19.       if (cChar>90) ReadConsoleInputA (hStdin, &irInputRecord , 1, &dwEventsRead); /* Read key release */
20.       if (cChar<65) ReadConsoleInputA (hStdin, &irInputRecord , 1, &dwEventsRead); /* Read key release */
21.           return cChar;
22.     }
23.   return EOF;
24. }

[Ashish]

Thanks Steve. This is helpful. Why not add this as new command to QB64.

[SMcNeill]

Thanks Steve. This is helpful. Why not add this as new command to QB64.

It doesn't work quite as expected by trying to return _KEYHIT codes (it's an issue with knowing when to read/clear the key up press either requiring a double keypress {such as if we try ti SHIFT-ENTER}, or else returning a false double press result.)  Instead, I've tweaked it so that it works as expected, (at least as I'd expect it to), with INP Scan Codes.

To find the newest (and hopefully glitch free) version, pop over to the new topic here: https://www.qb64.org/forum/index.php?topic=1535.0

[Pete]

Funny, Mike at The QB Forum had something similar to the recording key press and key release with INP(96)

https://www.tapatalk.com/groups/qbasic/returning-to-qbasic-after-so-many-years-t39527.html#p212907

Pete