По нажатию клавиши определить код ASCII- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
CLS
DO: Kb$ = INKEY$
  IF Kb$ <> "" THEN
    IF LEFT$(Kb$, 1) = CHR$(0) THEN
      LOCATE , 20
      PRINT "INKEY$ = CHR$(0) + CHR$(";
      PRINT LTRIM$(STR$(ASC(RIGHT$(Kb$, 1)))); ")"
      PRINT
    ELSE
      LOCATE , 20
      PRINT "INKEY$ = CHR$("; LTRIM$(STR$(ASC(Kb$))); ")"
      PRINT
    END IF
  END IF
LOOP UNTIL Kb$ = CHR$(27)

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment