HOPE-2020の自動運転テスト3/19

19Mar - by Joe-90 - 0 - In HOPE2020 Maker Faire HOゲージ制御

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行目に戻る

◀ 前のページへ戻る

◀ 未来の投稿｜ 過去の投稿▶

Joe-90