INKEY - [UI] |
||||||
… 1文字キー入力
INKEY
1文字のキー入力値を取得します。
値は10進値で返ります。キー入力のない状態では、0が返ります。
この関数は式の中で使用します。変数のように値は代入できません。
繰り返し処理でINKEYを使う場合は、事前にSYNCを実行してください。
(サンプル 1)
REM 944BASIC 'キー入力値の値を表示'
*LOOP
SYNC
K=INKEY
LOCATE 3,10
PRINT ' '
LOCATE 3,10
PRINT K
WAIT 3
GOTO *LOOP
(サンプル 2)
REM 944BASIC 'INKEY サンプル2'
HEADER 'INKEY サンプル - PUSH KEY'
DIM A(25)
B='ABCDEFGHIJKLMNOPQRSTUVWXYZ'
FOR I=0 TO 25
A(I)=MID(B,I+1,1)
NEXT I
Y=2:LOCATE 0,Y
*LOOP SYNC
K=INKEY
IF (K>=65)*(K<=25+65) THEN PRINT A(K-65);
IF (K=13) THEN Y=Y+1:LOCATE 0,Y
GOTO *LOOP
INKEY - [UI] |