HOPE-2020の自動運転テスト(駅は2つ)

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

HOPE-2020に磁気センサーを使った駅を二つ接続し、その間を往復するようにしました。
IF文を二つ重ねると分かりにくくなるので、GOTO文を使って二つに分けました。

下にあるプログラムの言語はZB3BASICです。

10 OUT $E3,$82
20 A%=IN($E2)
30 IF A%=127 THEN OUT $E2,3 ELSE GOTO 50
40 GOTO 20
50 IF A%=197 THEN OUT $E2,0
60 GOTO 20

その次は、三つの駅をセットして、二つ目の駅で一旦停止するようにしました。
WAIT文がなかったので5000回ループさせて2秒ほど停止させています。
CPUの速度は10M㎐にしています。2M㎐にすると10秒ほど動きませんでした。

10 OUT $E3,$82
20 OUT $E0,254
30 A%=IN($E1)
40 PRINT A%
50 IF A%=95 THEN OUT $E2,0
60 IF A%=159 THEN OUT $E2,3
70 IF A%=63 THEN GOSUB 90
80 GOTO 30
90 FOR B%=1 TO 5000 STEP 1
100 OUT $E0,0
110 NEXT B%
120 OUT $E0,254
130 RETURN

◀ 前のページへ戻る

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

,
Joe-90