風船


ふっ、ふっ、ふうせんぅ〜〜〜 🎈😍 ←風船大好き

 

実行すると風船がいっぱい飛んでいきます。

無限ループなので Esc キーで止めて下さい。

単に上スクロールしているだけのプログラムです。

 

IchigoJam BASIC 0.9.8 RC2 以降になります。

IchigoJam BASIC 0.9.8 RC1 以前は非表示になります。

以前からこのアイデアはあったのですが、

風船の糸・リボン(ヒモ)を表現できずにいたのです。
IchigoJam BASIC の英数は左に偏っているのがその原因。

(IchigoJam BASIC 1.2 より右に 1 ドットずれています)

でも、IchigoJam BASIC 0.9.8 から
新たに加わったキャラクター、

シューティングのタマを想定したそうなのですが、

もうどうみても風船の糸・リボンにしか見えない! 😆

これは作れるぞ!! と早速形にしてみました。

 

現在はいくつか派生プログラムも生まれ、運営者にとって
IchigoJam BASIC 代表作となりつつあるプログラムです。



BASIC 0.9.9〜

5 'フウセン
10 CLS:CLV:CLP
20 X=RND(31)
30 LOCATE X,23:PRINT CHR$(232)
40 WAIT 7
50 LOCATE X,23:PRINT CHR$(242);
60 GOTO 20

IchigoJam web でプログラムを実行します。

このQRコードはアクセス解析のためにCookieを使用しています。

アクセス解析は匿名で収集されており、個人を特定するものではありません。

この機能はCookieを無効にすることで収集を拒否することができますので、
お使いのデバイスのブラウザの設定をご確認ください。

MixJuice ダウンロード ?"MJ GET 15J.IN/593

MicJack ダウンロード ?"MJ GKP 593


 

次のように追加・変更すると、2色の風船になります。

25 I=RND(2)
30 LOCATE X,23:PRINT CHR$(232+I)

BASIC 0.9.8

10 CLS:CLV
20 X=RND(35)
30 LOCATE X,26:PRINT CHR$(232)
40 WAIT 7
50 LOCATE X,26:PRINT CHR$(242);
60 GOTO 20

IchigoJam BIG・BASIC 1.2.2~ 版

10 'フウセン
15 IF VER()>12233 VIDEO 3
20 CLS:CLV
30 X=RND(15)
40 LOCATE X,11:PRINT CHR$(232)
50 WAIT 7
60 LOCATE X,11:PRINT CHR$(242);
70 GOTO 30

IchigoJam web でプログラムを実行します。

このQRコードはアクセス解析のためにCookieを使用しています。

アクセス解析は匿名で収集されており、個人を特定するものではありません。

この機能はCookieを無効にすることで収集を拒否することができますので、
お使いのデバイスのブラウザの設定をご確認ください。

MixJuice ダウンロード ?"MJ GET 15J.IN/594

MicJack ダウンロード ?"MJ GKP 594



C 言語 IchigoJam BASIC 1.3.2b12~ 版

C language for IchigoJam (c4ij) を用いた C 言語で風船を作りました。
コンパイルしたプログラムは完全マシン語での動作になります。

 

1.3.2b12~1.3.2b14 で .hex ファイルからファームウェアを更新した場合、API 部分が存在せず、実行できない事が分かっています。

.bin ファイルで正常に動作可能です。1.3.2b15 より .hex ファイルからの更新でも正常に動作します。

 

地味なC言語がなぜ楽しいのか? | 福野泰介の一日一創 - create every day

 

IchigoJam BASIC プログラム

表示結果は BASIC 0.9.9~ 版と同じになります。

どこかキーを押してプログラムを終了できます。

 

ARM 系 (2020 年まで発売の IchigoJam 向け)

IchigoJam R は CPU が異なるので動作しません。

10 'Balloons C-Language
20 POKE #800,248,181,204,35,27,136,152,71,192,39,206,38,59,136,31,32
30 POKE #810,152,71,196,36,23,33,51,136,5,0,152,71,35,136,232,32
40 POKE #820,152,71,35,136,10,32,152,71,202,35,27,136,152,71,67,28
50 POKE #830,11,209,214,35,8,48,27,136,152,71,51,136,40,0,23,33
60 POKE #840,152,71,35,136,242,32,152,71,224,231,0,32,248,189
70 CLP:U=USR(#800,0)

MixJuice ダウンロード ?"MJ GET 15J.IN/854

MicJack ダウンロード ?"MJ GKP 854

C 言語 ソース

コンパイルには C language for IchigoJam および
GNU Embedded Toolchain for Arm が必要です。

Windows では Visual Studiomake も必要な場合があります。

make write は lpc21isp (-sector 対応版) も必要です。

他の OS でも gcc・make などを含む開発ツールが必要です。

 

Makefile の BIN2BAS 項目は #800 または #D00 にして下さい。

CHR$(232)・CHR$(242) のキャラクターを使っているため、 

その領域を用いている #700 からの出力(デフォルト状態)では
意図しない表示になります。



Ruby IchigoJam BASIC 1.4.0b9~版

Ruby for IchigoJam (ruby4ij) で風船を作りました。

IchigoJam 本体のプログラム番号 0~3 が使われます。
実行プログラムの配布ができず、ソースからのビルド必須です。
ビルドのためには次が必要になります。

IchigoJam BASIC を ISP モードにし、シリアル接続した状態で
VM のインストール (make write) と
プログラムビルド・転送 (make mrbc) を行います。

 

その後普通に IchigoJam の電源を入れる事で自動起動します。

キーを押してプログラムを終了できます。



他のバージョン