HOPE-2020の自動運転テスト3/19
HOLEIC.TXT
10 DEFIN%=0
20 OUT $E3,$82
30 EOIN%=IN($E1)
40 IF EOIN%=DEFIN% GOTO 30
50 PRINT EOIN%
60 DEFIN%=EOIN%
70 GOTO 30
このプログラムは、HOLEICセンサーを使ったプログラムを組むためにそのHOLEICの入力信号を数字として表示してくれるプログラムです。
プログラムの説明
10 DEFIN%=0
‘>関数″DEFIN%″を0にする
20 OUT $E3,$82
‘>PPIポートからの入出力を設定(A・Cポートは出力、Bポートは入力)
30 EOIN%=IN($E1)
‘>関数″EOIN%″をCポートからの入力にする。
40 IF EOIN%=DEFIN% GOTO 30
‘>関数″DEFIN%″が関数″EOIN%″なら30行目に戻る(入力が大量に出るのを防ぐため)
50 PRINT EOIN%
‘>関数″EOIN%″ をプリントする
60 DEFIN%=EOIN%
‘>関数″DEFIN%″を関数″EOIN%″にする(入力が大量に出るのを防ぐため)
70 GOTO 30
‘>30行目に戻る