Program post site for everyone
市販の電子工作のキットで、複数のLEDの点滅パターンを実行するものがあります。
IchigoJamは、本体のLED以外に追加で10個のLEDを接続しコントロールすることができます。
このプログラムでは4種類の点滅パターンを設定しました。
10個のLEDは、ブレッドボードやユニバーサル基板上で円形に並べることを前提としています。
IchigoJam web by jig.jp (https://fukuno.jig.jp/app/IchigoJam/)で実行すると、画面右上の7セグメントが反応します。
RUNすると「入力待ち状態」になります。
A：対抗する2個のLEDが時計回りに順次点滅
S：対抗する2個のLEDが逆時計回りに順次点滅
D：1個おきの5個のLEDが順次点滅
F：10個のLEDが同時に点滅
Q：「入力待ち状態」に戻る
なお、それぞれのキーは多少、長押しすると反応します。
10 '10 LED A S D F Q 20 CLS:?"A:2-> S:<-2 D:5-> F:1,0 Q:QUIT" 30 IF INKEY()=65 GOTO80 40 IF INKEY()=83 GOTO170 50 IF INKEY()=68 GOTO260 60 IF INKEY()=70 GOTO330 70 GOTO30 80 ?"A:2->" 90 OUT1,1:OUT6,1:WAIT6 100 OUT1,0:OUT6,0 110 FOR I=1 TO 4 120 OUTI+1,1:OUTI+7,1:WAIT6 130 OUTI+1,0:OUTI+7,0 140 NEXT 150 IF INKEY()=81 BEEP10,1:GOTO30 160 GOTO80 170 ?"S:<-2" 180 FOR I=1 TO 4 190 OUT6-I,1:OUT12-I,1:WAIT6 200 OUT6-I,0:OUT12-I,0 210 NEXT 220 OUT1,1:OUT6,1:WAIT6 230 OUT1,0:OUT6,0 240 IF INKEY()=81 BEEP10,1:GOTO30 250 GOTO170 260 ?"D:5->" 270 OUT1,1:OUT3,1:OUT5,1:OUT8,1:OUT10,1:WAIT12 280 OUT1,0:OUT3,0:OUT5,0:OUT8,0:OUT10,0 290 OUT2,1:OUT4,1:OUT6,1:OUT9,1:OUT11,1:WAIT12 300 OUT2,0:OUT4,0:OUT6,0:OUT9,0:OUT11,0 310 IF INKEY()=81 BEEP10,1:GOTO30 320 GOTO260 330 ?"F:1,0" 340 FOR I=1 TO 11 350 IF I=7 GOTO370 360 OUTI,1 370 NEXT 380 WAIT12 390 FOR I=1 TO 11 400 IF I=7 GOTO420 410 OUTI,0 420 NEXT 430 WAIT12 440 IF INKEY()=81 BEEP10,1:GOTO30 450 GOTO330
