Hatena::ブログ(Diary)

SHIROのモバイル日記 RSSフィード Twitter

2016-12-03

[]大砲ゲーム

IchigoJam Advent Calendar 2016」エントリー用に、簡単なプログラムを作ってみました。
放映中の大河ドラマ真田丸」にヒントを得た「大砲ゲーム」です。
f:id:shiro0922:20161201212959p:image:w360

f:id:shiro0922:20161201213030p:image:w360

  • 起動すると、画面下に大砲の弾、右下に大坂城が表示されます。ちなみに天守閣左側の「○」は、我らが真田丸です(^_^)
  • 弾の右側に、縦に移動する照準「+」が出ます。発射したい角度に来た所でスペースキーを押してください。
  • 弾が発射されて飛んでいきます。お城に当たるとスコアが1点加算されます。
  • 次は大砲が移動して、お城までの距離が変わります。再び狙ってください。
  • 弾を10発打つと戦いは終了です。あなたの徳川軍は、大坂城に何発当てられるでしょうか?

MixJuiceでもダウンロードできます。
? "MJ GET comich.net/ichigojam/taihou.txt"

10 CLV:FOR T=1 TO 10:CLS:?S
20 LC 27,21:?CHR$(159,143,158);
30 LC 28,22:?CHR$(143);
40 LC 26,23:?CHR$(232,159,143,158);
50 X=RND(20)+4:Y=23:LC X,Y:?CHR$(233);:V=0
60 V=(V+1)*(V<5):LC X+2,22-V:?"+":L=0
70 IF BTN(SPACE) GOTO 100
80 L=L+1:IF L<150 GOTO 70
90 LC X+2,22-V:?CHR$(0):GOTO 60
100 LC X+2,22-V:?CHR$(0):V=-V-1:BEEP
110 LC X,Y:?" ";
120 X=X+2:Y=Y+V:V=V+1:H=SCR(X,Y)
130 LC X,Y:?CHR$(233);:WAIT 10
140 IF Y<23 AND X<30 AND !H GOTO 110
150 IF H BEEP:LC X,Y:?"*";:S=S+1
160 LC 0,0:?S:WAIT 60:NEXT:END

2016-11-26

[]IchigoBell BIG

IchigoBellの機能強化版「IchigoBell BIG」を作ってみました。
f:id:shiro0922:20161126020904j:image:w360
サウンド出力に2SC1815一石アンプを付けて、スピーカー出力にしました。
スピーカーは100円ショップの小型スピーカーを分解して取り出し。
全体を大きめのお好み焼きコテに載せて、電池単3×3に強化しました。
スピーカーで出力すると、さすがに音が段違いに良いです。
回路図はこちら。
f:id:shiro0922:20161126155938p:image:w360
プログラムの方も、1曲しか入れないのはもったいないので、スロット0に曲セレクタープログラムを入れて、スロット1〜3の3曲を選べるようにしました。

曲セレクター

  • スイッチを入れて自動起動すると、「プー」と起動音が鳴ります。
  • 上下に1回振るとスロット1、2回振るとスロット2、3回振るとスロット3の曲を選択します。(マグマ大使方式 笑)
  • 4回以上振った場合はエラーになり、最初にもどります。

10 '*Music Selecter
20 CLV:VIDEO 0:WAIT 60
30 A=0:BEEP 30,60:WAIT 60
40 IF ANA(2)>530 GOTO 40
50 GOSUB 110
60 IF ANA(2)<530 GOSUB 110
70 IF TICK()<60 GOTO 60
80 IF A>3 GOTO 30
90 BEEP 10,5:WAIT 8:BEEP 10,5
100 LRUN A
110 A=A+1
120 LED 1:BEEP:WAIT 15:LED 0:WAIT 15
130 CLT:RETURN

2016-11-23

[]IchigoBell完成

これまで試作してきたIchigoJamハンドベル「IchigoBell」ですが、
(記事1)http://d.hatena.ne.jp/shiro0922/20161102
(記事2)http://d.hatena.ne.jp/shiro0922/20161122
12/17〜18に情報センターで開催するクリスマスイベント「St. Media Xmas 2016」用に、本製作しました。
f:id:shiro0922:20161123161638j:image:w360
コテを3本も揃えて、どこのお好み焼き屋だ?(笑)

  • お好み焼き用コテを、100円ショップで買ったプラスチック製に変更。プラスチックなので絶縁対策不要。
  • 裏面の電池も単4×3に変更して、全体を軽量化

内蔵メロディは「ジングルベル」「サンタが街にやってくる」「赤鼻のトナカイ」の3種類です。
リストは以下に載せます。
なお、IFでアナログ入力を判断している行を、

IF !BTN() GOTO 〜
に変えれば、通常のIchigoJamでもボタンを押して演奏できます。

ジングルベル(11/26修正)

10 '*Jingle Bell 2
20 LET[0],"C;","A;","G;","F;","C;","C;","C;","R;"
30 LET[8],"C;","A;","G;","F;","D;","D;","D;","R;"
40 LET[16],"D;","A#;","A;","G;","E;","E;","E;","R;"
50 LET[24],"<C;","<C;","A#;","G;","A;","A;","A;","R;"
60 LET[32],"D;","A#;","A;","G;","<C;","<C;","<C;","<C;"
70 LET[40],"<D;","<C;","A#;","G;","F;","R;","<C;","R;"
80 LET[48],"A;","A;","A;","R;","A;","A;","A;","R;"
90 LET[56],"A;","<C;","F;","F8G8;","A;","A;","A;","R;"
100 LET[64],"A#;","A#;","A#;","A#;","A#;","A;","A;","A;"
110 LET[72],"A;","G;","G;","F;","G;","R;","<C;","R;"
120 LET[80],"A#;","A#;","A#;","A#;","A#;","A;","A;","A;"
130 LET[88],"<C;","<C;","A#;","G;","F;","F;","F;","R;"
140 A=0:B=16:C=32:D=48:E=64:F=80:VIDEO0
150 FORX=ATOA+15:GSB240:NEXT
160 FORX=BTOB+15:GSB240:NEXT
170 FORX=ATOA+15:GSB240:NEXT
180 FORX=CTOC+15:GSB240:NEXT
190 FORX=DTOD+15:GSB240:NEXT
200 FORX=ETOE+15:GSB240:NEXT
210 FORX=DTOD+15:GSB240:NEXT
220 FORX=FTOF+15:GSB240:NEXT
230 GOTO150
240 IFANA(2)>530GOTO240
250 LED1:PLAY[X]:WAIT20:LED0:RTN

サンタが街にやってくる(11/26修正)

10 '*Santa ga Machi ni Yattekuru
20 LET [0],"E8F8;","G;","G;","R;","A8B8;","<C;","<C;","R;"
30 LET [8],"E8F8;","G;","G;","G;","A8G8;","F;","F;","R;"
40 LET [16],"E;","G;","C;","E;","D;","F;","R;",">B;"
50 LET [24],"C;","C;","C;","C;","C;","C;","C;","R;"
60 LET [32],"<C;","<D;","<C;","B;","<C;","A;","A;","R;"
70 LET [40],"<C;","<D;","<C;","B;","<C;","A;","A;","R;"
80 LET [48],"<D;","<E;","<D;","<C#;","<D;","B;","B;","R;"
90 LET [56],"B8<C8;","<D;","<C;","B;","A;","G;","G;","R;"
100 A=0:B=32:VIDEO 0
110 FOR X=A TO A+31
120 GOSUB 210
130 NEXT
140 FOR X=B TO B+31
150 GOSUB 210
160 NEXT
170 FOR X=A TO A+31
180 GOSUB 210
190 NEXT
200 GOTO 110
210 IF ANA(2)>530 GOTO 210
220 LED 1:PLAY [X]:WAIT 20:LED 0
230 RETURN

赤鼻のトナカイ(11/26修正)

10 '*Akahana no Tonakai
20 LET [0],"G;","A8G8;","E;","<C;","A;","G;","G;","R;"
30 LET [8],"G8A8;","G8A8;","G;","<C;","B;","B;","B;","R;"
40 LET [16],"F;","G8F8;","D;","B;","A;","G;","G;","R;"
50 LET [24],"G8A8;","G8A8;","G;","A;","E;","E;","E;","R;"
60 LET [32],"G8A8;","R8G8;","E;","<C;","A;","G;","G;","R;"
70 LET [40],"G8A8;","G8A8;","G;","<C;","B;","B;","B;","R;"
80 LET [48],"F8G8;","R8F8;","D;","B;","A;","G;","G;","R;"
90 LET [56],"G8A8;","G8A8;","G;","<D;","<C;","<C;","<C;","R;"
100 LET [64],"A;","A;","<C;","A;","G;","E;","G;","R;"
110 LET [72],"F;","A;","G;","F;","E;","E;","E;","R;"
120 LET [80],"D;","E;","G;","A;","B;","B;","B;","R;"
130 LET [88],"<C;","<C;","B;","A;","G;","F8D8;","D;","R;"
140 A=0:B=32:C=64:VIDEO 0
150 FOR X=A TO A+31
160 GOSUB 280
170 NEXT
180 FOR X=B TO B+31
190 GOSUB 280
200 NEXT
210 FOR X=C TO C+31
220 GOSUB 280
230 NEXT
240 FOR X=B TO B+31
250 GOSUB 280
260 NEXT
270 GOTO 150
280 IF ANA(2)>530 GOTO 280
290 LED 1:PLAY [X]:WAIT 20:LED 0
300 RETURN

もろびとこぞりて(11/25追加)

10 '*Morobito Kozorite
20 LET [0],"<C;","<C;","B;","B8A8","G;","G;","G8R8;","F;"
30 LET [8],"E;","E;","D;","D;","C;","C;","C8R8;","G;"
40 LET [16],"A;","A;","A8R8;","A;","B;","B;","B8R8;","B;"
50 LET [24],"<C;","<C;","<C;","<C;","<C;","<C;","R;","<C;"
60 LET [32],"<C;","B;","A;","G;","G;","G8F8;","E8R8;","<C;"
70 LET [40],"<C;","B;","A;","G;","G;","G8F8;","E8R8;","E;"
80 LET [48],"E;","E;","E;","E8F8;","G;","G;","G8R8;","F8E8;"
90 LET [56],"D;","D;","D;","D8E8;","F;","F;","F8R8;","E8D8;"
100 LET [64],"C;","<C;","<C;","A;","G;","G8F8;","E;","F;"
110 LET [72],"E;","E;","D;","D;","C;","C;","C;","R;"
120 L=79:VIDEO 0
130 FOR X=0 TO L
140 IF ANA(2)>530 GOTO 140
150 LED 1:PLAY [X]:WAIT 20:LED 0
160 NEXT
170 GOTO 130

→さらに機能強化した「IchigoBell BIG」はこちら。
http://d.hatena.ne.jp/shiro0922/20161126

2016-11-22

[]IchigoBellその後

こちらで作ったIchigoJamハンドベル「IchigoBell」のその後です。
http://d.hatena.ne.jp/shiro0922/20161102
クリスマスイベント用の品を試作してみました。
f:id:shiro0922:20161122103419j:image:w360

f:id:shiro0922:20161122103429j:image:w360
お好み焼き用のコテの両面に、IchigoLatte基板と電池両面テープで貼り付けました。
(コテが金属なので、ショートしないように基板裏面を絶縁テープで保護しています)
いかにも手作り感あふれる品に仕上がりました(笑)
プログラムの方も、メロディを奏でられるように変更しました。
テスト曲は、お馴染みの「かえるのうた」です。

10 LET [0],"C;","D;","E;","F;","E;","D;","C;","R;"
20 LET [8],"E;","F;","G;","A;","G;","F;","E;","R;"
30 LET [16],"C;","R;","C;","R;","C;","R;","C;","R;"
40 LET [24],"C;","D;","E;","F;","E;","D;","C;","R;"
50 L=31:VIDEO 0
60 FOR C=0 TO L
70 IF ANA(2)>530 GOTO 70
80 LED 1:PLAY [C]:WAIT 20:LED 0
90 NEXT
100 GOTO 60
これを振っていると、「お好み焼きを返す練習か?」という雰囲気(笑)
子どもの腕力にはちょっと重い感じなので、本番用は電池を単4×3本に変える予定です。

→その後の本製作はこちら。
http://d.hatena.ne.jp/shiro0922/20161123

2016-11-02

[]IchigoBell

Java Scriptが動くIchigoJam互換基板「IchigoLatte」のβ版が発売されています。
https://hello002.stores.jp/items/57ecb32f00d331f667000d44
この基板には「Latteキャンバス」というフリーエリア(5×6マス)があって、いろいろな活用法が試されています。
今回はそこに加速度センサモジュールとブザーをつけて、ハンドベル「IchigoBell」にしてみました。
f:id:shiro0922:20161102155145j:image:w360

f:id:shiro0922:20161102155156j:image:w360
加速度センサーは、秋月電子販売している「3軸加速度センサモジュール KXSC7-2050」(500円)です。
http://akizukidenshi.com/catalog/g/gK-07243/
X,Y,Z方向の加速度がアナログ電圧で出力されます。
今回はハンドベルとして作ったので、基板の表裏方向(Z方向)加速度の出力のみを、IchigoJamのIN2端子につないでいます。
回路図はこちら。
f:id:shiro0922:20161123074430p:image:w360
とりあえず動作テストしたプログラムはこちら。

10 A=ANA(2):?A
20 IF A<530 BEEP 20,20:WAIT 20
30 GOTO 10
下へ振るとBEEP音が鳴ります。
あとはプログラム次第で、いろいろな音階が鳴らせるハンドベルになるはずです。

→その後の工作記事はこちら。
http://d.hatena.ne.jp/shiro0922/20161122

ダウンロード
リンク集
アクセスカウンター