Эта программа ожидает, пока вы нажмете клавишу, а затем отображает ASCII-код нажатой вами клавиши вместе с любыми начальными нулями и символом генерируется нажатой вами клавишей.
1 2 3 4 5 6 7 8 9 10 11 | CLSDO i$ = "" WHILE i$ = "" i$ = INKEY$ WEND LOCATE 1, 1 IF LEN(i$) = 1 THEN PRINT ASC(i$); IF LEN(i$) = 2 THEN PRINT "0 +" + STR$(ASC(RIGHT$(i$, 1))); PRINT i$ + SPACE$(10)LOOP UNTIL i$ = CHR$(27) |
Тестирование выполнено в программе QB64 ( Скачать )