---

１．一定の水量を入れる自動給水機

水が不足したら、一定時間給水ポンプを動かして水やりをする方法を考えます。
このページの説明は応用編ですので、給水プログラムの基本についてはこちらを参照してください。

◆チャレンジ１◆
もし、水量が100mlより少なくなったら、30秒間給水します
ただし、30秒経たなくても、150mlを超えたらすぐ給水を停止します

10 ‘P19 Challenge版
20 CLS:T=0:OUT 5,0:LED 0

30 @MAIN 40 GSB @Measure
50 IF W<300 GSB @Watering: GOTO @MAIN
60 LED 1:WAIT30:LED 0:WAIT30
70 GOTO @MAIN 80

@Measure
90 LET W,1000-ANA(2)
100 LC0,0: ? “W=”;W,”T=”;T,T/3600;”:”;T/60%60,
110 RTN

120 @Watering
130 OUT 5,1:BEEP 50,-1:CLT
140 @Run_pump:GSB @Measure
150 IF W>630 THEN BEEP 5,60:GOTO @Rest_pump
160 T=TICK() 170 IF T<60＊30 THEN GOTO @Run_pump
180 @Rest_pump:OUT 5,0
190 WAIT 60:BEEP0
200 RTN

プログラム説明

つづく・・

---

---

この教材は「Creative Commons — CC BY-SA 4.0」の下に提供されています。