拡大文字


PEEK で容易にキャラクターの取り出しが

できるようになったので、それを応用して

大きな文字を表示するプログラムを作ってみました。

 

実行すると3度 ? を表示します。

横4文字×縦3文字の12文字をここで入力して下さい。

すると右下から順々に入力した文字が大きく表示されます。

表示が行われた後はキー入力待ちとなります。

 

わざわざ 140 を POKE で線画しているのは、

一番下の座標 23 を PRINT で線画すると

スクロールしてしまうため、POKE を使用しています。

そのため、130 で出力場所を計算しています。

 

改良を行う場合、IchigoJam の FOR〜NEXT は

4重までになっていて、これを使いきっているため

これ以上ループを増やせない事にご注意下さい。

また、このプログラムでは

#900〜#BFF を POKE で書き込んでいますが、

#C00 以降はプログラム領域となっているため、

最悪プログラムを破損させます。

実行前の SAVE を忘れないで下さい。


MixJuice ダウンロード ?"MJ GET kidspod.club/mj/597

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


配列版

入力の代わりに予め配列 [0]〜[11] に入れておき、実行ですぐに表示を行うようにしたバージョンです。
左上が [0] 右へ4文字ずつ下に向かって表示し [11] が右下となります。

直接配列にコードを入れます。ASC で表示する文字を入れる事も可能です。

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/598

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


文字列版

1.2 より対応した文字列を使用したバージョンです。

40 にある D の文字列は必ず 12 文字にして下さい。満たない場合は空白を入れて下さい。  

MixJuice ダウンロード ?"MJ GET kidspod.club/mj/599

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


PanCake 版

出力を PanCake で行うバージョンを作成してあります。


IchigoJam 拡大表示 (PanCake/PanCake+IchigoJam PROGRAM 内)


VIDEO コマンドによる拡大

IchigoJam BASIC 1.2.2(1.2 beta 34-5)および IchigoJam BASIC 1.2.5RPi(1.2beta17RPi) より

VIDEO コマンドが拡張され、最新版では簡単に拡大文字を表示できるようになっています。

 

10 VIDEO 7

20 PRINT"Ichi go Jam";

30 IF !INKEY() GOTO 30

40 VIDEO 1