」（Amazon）の56ページにあるプログラムを改変して、LOCATE命令で好きな位置に表示できるようにしました。当サイト関連記事：
・プチコンmkIIでプログラムを作るときの役立ちサイト自分用メモ
・石焼き芋屋さんの売り声を3DS・DSiにしゃべらせるプログラムを作りました。
・ヤマハ音楽教室CMのレッスン曲をニンテンドーDSiに歌わせるプログラムを作りました。（プチコンmkII）
プチコンmkIIを起動して編集モードでテキスト文字拡大表示サブルーチンを表示したところです。下画面はソフトウェアキーボードとなっていて、タッチでプログラムを入力します。
実行モードでRUN［Enter］としてテキスト文字拡大表示サブルーチンを実行すると、下のようになります。
1文字入力して［Enter］を押すと、画面の中央に入力した文字が拡大して表示されます。この画像の場合は、ア［Enter］と入力しました。拡大された文字は「■」とスペースを組み合わせたテキストで構成されています。
2文字以上入力しても先頭の1文字のみ表示されます。何も入力しないで［Enter］を押すと「？Redo from start」と出るので、改めて1文字入力してください。
入力できる文字は何でも拡大して表示します。このように、記号入力モードで絵文字を入力しても大きく表示します。これはUFOですね。
実行モードで「ア」の文字のキャラクタ定義情報を調べるとこのようになります。
ASC("ア")のところで「ア」のアスキーコードが返されてCHRREAD命令によって変数A$の中に入れられます。
それをPRINT A$［Enter］とすると、0とFが64個つながった羅列が表示されます（画面の右端で折り返して表示されますが、つながっています）。文字キャラクタは横8×縦8ドットで表わされているから64個なわけですね。そして0が空白、Fが1ドットを表わしているようです。
BGF0というのは、BGフォントキャラクタ（テキスト文字）が格納されるキャラ名です。このように記述するもののようですので、意味は分からずとも呪文のようなものと考えれば良いと思います（僕もよく分かってないんですけどね…）。
【QRコード】
テキスト文字拡大表示サブルーチンのQRコードです。QRコードを読み込むモードでDSiまたは3DSのカメラを向けて読み込みます。
文字をいろいろ入力してテスト出来る仕様にしたのでINPUT命令を使いましたが、このテキスト文字拡大表示サブルーチンを汎用的に使うには、プログラムの先頭の「ツカイカタ」に記載してある通り、A$="ア" など、拡大表示したい文字をA$に入れて、X=10:Y=10 など表示したい座標を入れて、GOSUB @MAIN で呼び出します。
そんなわけで、そのほかにこのプログラムで必要な部分は「カクダイモジ @MAIN」から下の部分です。
プログラムの最後から3行目の「 IF (I%8)==7 THEN 」のところでは、Iの数値を8で割って余りが7になるときにY=Y+1で改行しています。僕が改変して付け足したのは、この Y=Y+1:LOCATE X,Y と、@MAIN の次の行の LOCATE X,Y だけで、ほとんどはプチコン公式活用テクニック 56ページにあるプログラムそのままです。
このテキスト文字拡大表示サブルーチンの使い道としては、インパクトある大きな文字でメッセージを表示したり、タイマーや時計のプログラムを作るときの時間表示に使ったり、記号文字を大きなキャラクタとしてゲームに登場させるなど、いろいろあると思います。
テキスト文字拡大表示サブルーチンのプログラムリストです。
’────────────────────
’テ゛カモシ゛ＳＵＢ
’カイヘン ｂｙ ｕｒｏｎｐｏｉ
’２０１４．３
’
’Ｘ，Ｙ＝ １モシ゛ヒョウシ゛スル サ゛ヒョウ
’ツカイカタ
’Ａ＄＝”ア”
’Ｘ＝１０：Ｙ＝１０
’ＧＯＳＵＢ ＠ＭＡＩＮ
’ＥＮＤ
’────────────────────
’─── ショキセッテイ
ＶＩＳＩＢＬＥ １，１，１，１，１，１
ＣＬＥＡＲ：ＣＬＳ：ＧＣＬＳ：ＳＰＣＬＲ
’─── モシ゛ニュウリョク
＠ＩＮＰＵＴ
ＣＯＬＯＲ ０
Ｘ＝１２：Ｙ＝１０
ＩＮＰＵＴ ”１モシ゛ニュウリョク［Ｅｎｔｅｒ］”；Ｂ＄
Ａ＄＝ＭＩＤ＄（Ｂ＄，０，１）
’─── １モシ゛カクタ゛イヒョウシ゛シテ クリカエシ
ＣＯＬＯＲ ９
ＧＯＳＵＢ ＠ＭＡＩＮ
ＣＯＬＯＲ ０
ＷＡＩＴ １８０
ＣＬＳ
ＧＯＴＯ ＠ＩＮＰＵＴ
’─── カクタ゛イモシ゛＠ＭＡＩＮ
＠ＭＡＩＮ
ＬＯＣＡＴＥ Ｘ，Ｙ
ＣＨＲＲＥＡＤ（”ＢＧＦ０”，ＡＳＣ（Ａ＄）），ＢＦ＄
ＦＯＲ Ｉ＝０ ＴＯ ６３
Ｖ＝ＶＡＬ（”＆Ｈ”＋ＭＩＤ＄（ＢＦ＄，Ｉ，１））
ＩＦ Ｖ＝＝０ ＴＨＥＮ ＰＲＩＮＴ ” ”；
ＩＦ Ｖ！＝０ ＴＨＥＮ ＰＲＩＮＴ ”■”；
ＩＦ （Ｉ％８）＝＝７ ＴＨＥＮ Ｙ＝Ｙ＋１：ＬＯＣＡＴＥ Ｘ，Ｙ
ＮＥＸＴ Ｉ
ＲＥＴＵＲＮ
■プチコンmkII
近々、プチコン3号（仮称）が公開されるそうですが、今回ご紹介したプログラムが必要ないぐらい、簡単なコマンドで拡大縮小が出来るようになるのではないかと予想しています。楽しみですね。
- 関連記事
