先週、
カセットテープ風のオリジナルユニバーサル基板を使って「
光るカセットケース x IchigoJam」を作りましたが、それに傾斜スイッチを追加してみました。
傾きを検知して光の動きを変えられます。動画をご覧ください。
回路実装はこんな感じです。
BASICのプログラム。なお、別途、マシン語部分のコードは
こちらの福野さんのブログより使わせていただきました。
30 CLV:V=100:A=#700:U=USR(A,0):
50 S=IN(4)-IN(1)
60 IF S=0 GOSUB 100
70 IF S>0 GOSUB 200
80 IF S<0 GOSUB 300
90 GOTO 50
100 FOR I=0 TO 35:[I]=RND(V):NEXT
110 U=USR(A,0):WAIT10
120 RETURN
200 LET[33],RND(V),RND(V),RND(V):LET[15],0,0,0:U=USR(A,0):WAIT10
220 LET[30],RND(V),RND(V),RND(V),0,0,0:LET[0],RND(V),RND(V),RND(V):U=USR(A,0):WAIT10
230 FOR I=0 TO 12 STEP3:LET[I],0,0,0,RND(V),RND(V),RND(V):LET[27-I],RND(V),RND(V),RND(V),0,0,0:U=USR(A,0):WAIT10:NEXT
240 RETURN
300 LET[15],RND(V),RND(V),RND(V):LET[33],0,0,0:U=USR(A,0):WAIT10
320 FOR I=15 TO 27 STEP3:LET[I],0,0,0,RND(V),RND(V),RND(V):LET[27-I],RND(V),RND(V),RND(V),0,0,0:U=USR(A,0):WAIT10:NEXT
330 LET[30],0,0,0,RND(V),RND(V),RND(V):LET[0],0,0,0:U=USR(A,0):WAIT10
340 RETURN
注：10行、20行に、別途、WS2812B(フルカラーLED＋コントローラー)制御のマシン語部分のコードが必要です。（
こちらの福野さんの記事をご参照ください。）
ケース内には、まだまだスペースがあるので、センサーを追加したりして、いろいろ試してみようと思います。
なお、後日になりますが、この基板の回路図を描いてアップしようと思っています。
#自作室 #IchigoJam
PR
