福野泰介の一日一創

会場は、江戸川区の子ども未来館。はんだづけ、プログラミング、電子工作まで、たっぷり楽しんでくれました！

「オルゴール風作曲プログラム on IchigoJam web」
今回のワークショップのテーマ、オルゴールに触発されて作ってみました、オルゴール風作曲プログラム！カーソル上下で動かし、スペースキーで音を配置し、エンターキーでループ再生します。何かキーを押したら作曲モードに戻ります。

プログラムは1画面に収まる手頃な長さ。

10 S=">C'>D'>E'>F'>G'>A'>B'C''D''E''F''G''A''B''<C'<D'<E'<F'<G'<A'<B'" 20 CLS:FORI=0TO41:?"････････････････";:NEXT 25 FORI=0TO31:IF[I]LCI,[I]-1:?CHR$(238);:NEXT ELSE NEXT 30 LCX,Y,1:K=INKEY() 35 X=X-(K=28)*(X>0)+(K=29)*(X<31):Y=Y-(K=30)*(Y>0)+(K=31)*(Y<20) 36 IF K=32 IF SCR()=238 ?"･";:[X]=0 ELSE ?CHR$(238);:LCX,[X]-1:?"･";:[X]=Y+1:PLAY S+(20-Y)*3:TEMPO1000 37 IF K=10 GSB50 40 GOTO30 50 X=0 51 IF[X]LCX,[X]-1:PLAYS+(20-[X]+1)*3 52 X=(X+1)&31:IF INKEY() RTN 60 WAIT20:GOTO51

文字列Sを3文字単位で21コに区切って、音の高さに合わせてPLAY文で鳴らしています。配列の0から31を使って高さを記憶。一度止めても配列に合わせて復元する機能付き（25行）
まるでハンダ！ツマグロヒョウモンのさなぎ！

日本での発見例がたった3例という超激レア、ワタゲクラゲの動体展示！
（参考、超激レアの「ワタゲクラゲ」が江戸川放水路にいた！　直径15ミリ、児童施設職員が網ですくって発見：東京新聞 TOKYO Web）

発泡スチロールと結束バンドと手頃な材料でとってもリアル、手作り昆虫お面！

なんと、ダンボールで組み立て＆持ち運び自在の手作りプラネタリウム！

惑星の位置関係が分かる、地球暦も飾ってありました！
（参考、太陽系時空間地図 地球暦 HELIO COMPASS）

宇宙、生物、工作、法学、プログラミングも！
東京都江戸川区、なんともステキな環境です！