主题:按键
在qb45的提示下 做了这个程序
可以检测8个按键同时按下
DIM state(127) AS INTEGER
DO
keyin = INP(&H60)
IF keyin < 128 THEN
state(keyin) = 1
ELSE
state(keyin - 128) = 0
END IF
FOR i = 1 TO 127
IF state(i) <> 0 THEN PRINT i;
NEXT i
PRINT
LOOP UNTIL keyin = 1 'ESC
END
可以检测8个按键同时按下
DIM state(127) AS INTEGER
DO
keyin = INP(&H60)
IF keyin < 128 THEN
state(keyin) = 1
ELSE
state(keyin - 128) = 0
END IF
FOR i = 1 TO 127
IF state(i) <> 0 THEN PRINT i;
NEXT i
LOOP UNTIL keyin = 1 'ESC
END