PEN - [UI] |
||||||
… ペン入力の状態の取得
PEN
次の数値で、ペンの入力状態を返します。
0: ペンは押されていません。
1: ペンが押され始めました。
2: ペンが押されています。
3: ペンが離されました。
ペン入力を認識できるようにするには、事前にSYNCを実行しておく必要があります。
ペンタッチし続けていても、PENが0を返す場合があります。これは、別のイベントを受信するための仕様です。
これを回避するには、EVENTNOを使用して、ペンイベントのみ認識するようにします(サンプル 2を参照)。
(サンプル 1)
REM 944BASIC 'PENサンプル'
HEADER 'ペンタッチ → PEN関数の値を表示'
*LOOP SYNC
P=PEN
LOCATE 10,10:PRINT P
WAIT 2
GOTO *LOOP
(サンプル 2)
REM 944BASIC 'PEN サンプル2 - 0を検出させない例'
REM ペン イベント160,161,162以外を無効にする
EVENT 100,159,0
EVENT 163,999,0
*LOOP SYNC
P=PEN
LOCATE 10,10: PRINT P
WAIT 1
GOTO *LOOP
PEN - [UI] |