サンプルプログラム３（前）

SYSBEEP変数

サンプルプログラム３は、まあちょっとした楽器プログラムじゃな。

これを読んでいるPCなどの前のみんなも、サンプルをＲＵＮしてためしてみよう！　前も言ったけど。
今回はプログラムリストをDSiで見ながら読むとわかりやすいよ！

ピアノ風のキーボードが１オクターブと、ドラムが４音使えるんだね。

ツーバスやハイハットを考えてねェあたり好感がもてるぜ。だがピアノなんざ資産階級のオモチャじゃねえか！　いただけねえな！

ワンパク君はいささか音楽的にかたよったエイキョウばかり受けている気がするんじゃが、まあピアノがイヤならプログラムを改造するというコトもできるぞい。

プログラムをサイショから見ていこうか。まず気になるのはどこかな？

１～21行まではだいたいおなじみの画面表示だね。７行目が引っかかるなあ。

0007#. ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ

「＝」を使ってるってことは、変数？

いいところに気がついたね。このＳＹＳＢＥＥＰは「システム変数」という、変数の一種なんだ。システム変数はプチコンの動作にかかわるデータが入るようになっているよ。

ウンザリだぜ！　配列変数をやっとオボえたってのに、また変数のバリエーションかよ！

今はこんがらがりそうだから変数のことは考えずに、命令として丸暗記しておいた方が早いかもしれないね。
「ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ」と書くと、プチコンのシステム音が鳴らなくなるんだよ。

オボエるのがそれだけなら、まあカンタンかな。このプログラムでキーボードを打っても、いつもの「ポツッ」ていう音が出なかったのはＳＹＳＢＥＥＰを使ったからなんだね。

そういやＢＥＥＰはサウンドを鳴らす命令だったな。ＳＹＳＢＥＥＰの「SYS（シス）」ってのはシステムの「シス」ってコトか？

「FALSE（フォールス）」は「まちがった」って意味だと思ったけど……

プログラムの世界ではちょっと意味が変わって「偽（ぎ）」などと言うのじゃが、どう見てもイッパンテキではないのう。おおざっぱなオボエかたじゃが、アリ・ナシの「ナシ」がFALSE、とオボエると今後なにかとワカりやすいぞい。

システムのBEEPが「ナシ」、つまりシステム音を鳴らさない、ってコトか……ワカりやすいが、じゃあ鳴らすようにモドすにはどうすりゃイイんだ？

イッキにプログラムのサイゴになるが、89行で使っておるな。

0089#. ＳＹＳＢＥＥＰ＝ＴＲＵＥ

「TRUE（トゥルー）」は「真（しん）」と言うが、これも「アリ」とオボエておけばよかろう。

ワカモノコトバをムリに使ってるカンジもするが、ワカりやすいことはタシカだな！

それ、ワシに言っとるのかの……？

インデント

23～43行は、配列とFOR～NEXT、READ・DATAを使ったおなじみのプログラムだね。

配列変数Ｎ＄（）にキーボードを左からジュンに入れてるのはだいたいワカったゼ。たぶん、そのウチこの変数を使うんだろ。

40行で使っている変数ＫＣＮＴは何なんだろう？

0040#. ＫＣＮＴ＝２０
0041#. ＦＯＲ　Ｉ＝０　ＴＯ　ＫＣＮＴ－１

ケンバンの数、すなわち20コと考えてもらえばいいかの。「Kenban（ケンバン）」の「CouNT（カウント）」じゃからＫＣＮＴじゃ。変数の名前を決めるのはけっこうナヤむところじゃわい。

おっと待った、こういうコトにはオレはうるさいゼ！　わざわざ変数にしなくても、ＦＯＲ　Ｉ＝０　ＴＯ　１９でいいんじゃねェか!?

う、ウム。このアトにも１回しか使っておらんし、そうとも言えるのう。じゃが、コレはケンバンの数をふやす改造をするトキにベンリなように作っておるのじゃよ。

39行でＤＩＭ　Ｎ＄（２０）と変数を使わずに配列宣言をしているから、カンペキじゃないけどね。

0039#. ＫＣＮＴ＝２０
0040#. ＤＩＭ　Ｎ＄（ＫＣＮＴ）

となっていればもっと良かったんじゃないかな。

インテリ君のレイセイなシテキは、ときどきワシの心をスルドクえぐるぞい……。

まァそのヘンはいいとしてもよォ、42行で１文字スペースがあいてんのはナンかイミあんのか？

0041#. ＦＯＲ　Ｉ＝０　ＴＯ　ＫＣＮＴ－１
0042#. 　ＲＥＡＤ　Ｎ＄（Ｉ）
0043#. ＮＥＸＴ　Ｉ

これはプログラム用語で「インデント」というヤツじゃな。カンタンに言えば、FORやGOTOで「くり返しているナカミ」のブブンだけ、１文字スペースを空けておるのじゃ。
これはまだ１行じゃからあまりイミはないが、ナカミが何行もあったりFORの中にFORがあったりするトキには、なかなか見やすくなっててイイものじゃぞい。

「’」のコメントもそうだけど、プログラムがどう動いているのか、リストを他人が見てもすぐわかるように書くのはダイジだよね。
そのわりに次の46～47行の変数のイミが分かりづらいけど……

0046#. Ｆ＝４０９６／１２
0047#. Ｖ＝２２

インテリ君は上げてから落とすのがウマいのう……。

BEEP命令のピッチ

この変数のイミを教えるには、まずＢＥＥＰ命令についてもっとクワしく説明がヒツヨウじゃな。
ＢＥＥＰ　２２でピアノの音を鳴らす、ココまでは知っておるハズじゃな？

このプログラムでも使っている音色ですね。

その先はボクが説明しようか。ＢＥＥＰ命令にはもっとフクザツな使い方があって、ピッチを決めることもできるんだ。

ビ……？

「PITCH（ピッチ）」は「音高」とも言うんだけど、カンタンに言えば音の高さのことだね。

音の……タカ……？

ワンパク君は音楽系のキャラだと思っていただけに、さすがにその反応にはオドロキを隠せないよ。
たとえばドレミの「ミ」の音は「ド」より「高い」という言い方をするよね。ドからレ、レからミ、ファソラシド……と先に行くほどピッチが高くなる、と思えばだいたいマチガイじゃないよ。

音楽リロンを気にしてるようじゃパンクじゃねーゼ！　もっとストレートにセツメイしやがれ！

たとえばＢＥＥＰ　２２，０はピアノのドの音が鳴って、ＢＥＥＰ　２２，６８２でレの音になると言えば実感できるかな？

「，」の後の数字がピッチになっているんだね。

ちょっとセンモン的な話になるけど、ピッチが－８１９２だと２オクターブ下、８１９２で２オクターブ上になるよ。つまり半音は4096÷12という……

それイジョウ難しいコトをさえずるようなら、オレのベースが火をふくゼ！

ワンパク君にとってのベースギターは人をナグる武器だからなあ。

うーん、じゃあこう説明しよう。ドレミをセイカクに言うと「ド・ド＃・レ・レ＃・ミ・ファ・ファ＃・ソ・ソ＃・ラ・ラ＃・シ」だね。最初の「ド」がピッチ０だと考えて、ひとつ右に行くごとにピッチの数字が４０９６／１２ずつ増えるとおぼえるといいんじゃないかな。

フーム……まったくリクツがワカった気はしねえが、そういうモンだとわりきってオボエればいいってコトだな！

（ワンパク君のロックと、ボクらが知ってるロックは少しちがうのかもしれない……）

ハナシはワカったようじゃな。そこで46行目にモドるが、Ｆ＝４０９６／１２というのはまさにピッチを増やすキジュンの数、Ｖ＝２２はピアノの音色の番号というワケじゃ。あとあとＢＥＥＰ命令でこの変数を使っておるからオボエておいてくれい。

つまり変数Ｖの数を変えればピアノ以外の音も出せるってワケだな。Ｖ＝２０なんかロックでいいんじゃねェか？

ここを読んでるみんなも数字を変えてＲＵＮしてみよう！

BUTTON()命令

プログラムリストは50行からメインループに入るね。

その「メインループ」ってのはナンだ？　メインなのはなんとなくオレにもワカるけどよォ、ループするってコトは無限ループになったりすんのか？

そうマチガっとるワケでもないぞい。じゃが、やってはならない無限ループとちがって、これはヒツヨウなループなのじゃ。

ちょっと実感がわかないけど、先を読むとわかってくるのかな。

まずドラムが、54～63行目か。

0054#. ’－－－　ト゛ラム
0055#. ＯＬＤＢ＝Ｂ
0056#. Ｂ＝ＢＵＴＴＯＮ（）
0057#. ＩＦ　ＯＬＤＢ！＝０　ＧＯＴＯ　＠ＤＳＫＩＰ
0058#. ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＢＥＥＰ　５２
0059#. ＩＦ　Ｂ　ＡＮＤ　２　ＴＨＥＮ　ＢＥＥＰ　５３
0060#. ＩＦ　Ｂ　ＡＮＤ　４　ＴＨＥＮ　ＢＥＥＰ　６２
0061#. ＩＦ　Ｂ　ＡＮＤ　８　ＴＨＥＮ　ＢＥＥＰ　２５
0062#. ＩＦ　Ｂ＝＝６４　ＧＯＴＯ　＠ＥＸＩＴ
0063#. ＠ＤＳＫＩＰ

ワカらねえコトだらけで、ドコから手をつければいいのかもワカらねえぜ！

そういうことなら、まず56行目のＢ＝ＢＵＴＴＯＮ（）がポイントだね。こう書くと、押されたボタンの情報が変数Ｂに入るようになっているんだ。

ボタンっていうと、DSiのＡボタンみたいな？

DSiのボタンはひととおり全部だね。この表を見てごらん。

十字ボタン↑	1		Aボタン	16		Lボタン	256
十字ボタン↓	2		Bボタン	32		Rボタン	512
十字ボタン←	4		Xボタン	64		START	1024
十字ボタン→	8		Yボタン	128		SELECT	2048

たとえば十字ボタンの上を押したときは、変数Ｂには１が入る。右ボタンなら４だね。

ナンだってこんなハンパな数なんだ？　２の次は３でいいじゃねェか！　ジュンバンに数字をふれば１～12ですむハナシだろ？

じゃあ十字ボタンの左上を押したときを考えてごらん。左は４、上は１だね。だから４＋１で、変数には５が入ることになるんだ。

同時押しされた時を考えて、わざと数字に間をあけてるってコト？

フツウはまずないことだけど、上と下が同時に押されれば１＋２で３、さらに左も押せば３＋４で７だね。こういうふうにどんな組み合わせで何個ボタンを押しても、同じ数字が出てこないようにできてるんだよ。もともとはビット演算という考えかたが……

おっと、ヤヤコシそうなハナシはゴメンだぜ！　とにかくシクミはワカッたぜ。タブンその後のIF文で変数Ｂにあわせた音を鳴らしたりしてんだろ？

たしかにほぼそのトオリじゃ。ワンパク君のいろいろすっとばしたリカイリョクには、野生のたくましさを感じるのう。

メインループ

このままプログラムリストの先に進んでもいいけど、その前にさっきもちらっと出てきた「ループ」の考え方を知っておくほうがよさそうだね。

ナンだかフクザツなハナシのヨカンを感じるぜ。

いやいや、フクザツにならないための予習さ。ちょっと実行モードでＮＥＷと打ってごらん。

これがナンだってんだ？

あ、編集モードにすると……

プ、プログラムリストがゼンブ消えてるじゃねェか！

プログラムリストを消すのがＮＥＷ命令なのか……マチガって使ったらコワいね。

サンプルプログラムはまたＬＯＡＤしなおせばいいけど、自分のプログラムは消す前にＳＡＶＥを忘れずにね！
じゃあループの話にもどって、このプログラムを打ってみよう。プログラムのイミは分かるかな？

0001#. ＩＮＰＵＴ”ニュウリョク”；Ａ
0002#. ＰＲＩＮＴ”コタエハ”；Ａ

またずいぶんシンプルな……。

オレをバカにしてんのか？　ヨウするにＩＮＰＵＴで変数Ａを入れさせて、それをＰＲＩＮＴしてるだけじゃねェか！

その通り。じゃあ、ＢＵＴＴＯＮ（）命令を使って同じことをするにはどうすればいいかな？

１行ふえちまうが、こういうコトだな？

0001#. ＰＲＩＮＴ”ニュウリョク”
0002#. Ａ＝ＢＵＴＴＯＮ（）
0003#. ＰＲＩＮＴ”コタエハ”；Ａ

あれ？　なにもしないうちにプログラムが終わっちゃったよ。

どういうコトだチクショー！　ボタンを押してねェんだからそりゃ「コタエハ０」だろうぜ！

そこだよ！　ＩＮＰＵＴ命令とちがって、ＢＵＴＴＯＮ（）命令では「ボタンを押してない」ことも入力のウチなんだ。だからＲＵＮしたとたんに終わっちゃうんだね。

じゃあどうすりゃボタンを押すまで待ってもらえるってんだ、ナットクできねえぞ！

何回でもＢＵＴＴＯＮ（）命令をやり直すってことだよね。こうすればいいのかな？

0001#. ＰＲＩＮＴ”ニュウリョク”
0002#. ＠ＬＯＯＰ
0003#. Ａ＝ＢＵＴＴＯＮ（）
0004#. ＰＲＩＮＴ”コタエハ”；Ａ
0005#. ＧＯＴＯ　＠ＬＯＯＰ

……あ、これじゃダメだ……。

やっぱり。ＰＲＩＮＴ文もループの中に入ってるからどんどん書き続けちゃう……

でもなかなか悪くないよ。ボタン入力の結果をＰＲＩＮＴするのはデキてるからね。

タシカに、ボタンを押してるアイダは「コタエハ」のアトにちゃんと数字が入ってるな。

ダイジなのは、このタイプの命令では何回もくり返さないと思ったように動かないってコトさ。そのためにはＧＯＴＯでループを作らないとね。

さよう。こういうリアルタイムで入力を待つプログラムは、入力を待っているとアッというまに終わってしまうので、ループを作って入力を待ち続けるのがキホンじゃな。

ハハーン、そこで「メインループ」のできあがりってワケか！

ジッサイにはこれ以外にもすぐ通りすぎちゃう命令や、くり返さないとイミがないコトもプログラムにはたくさんあって、そういうのをまとめてひとつのループにするのが「メインループ」になるね。
まあ、プログラムをおぼえていくうちに自然に身につくハズさ。

今つくったプログラムは無限ループだったけど、本当にやりたかったように作るとどうなるの？

まだ見おぼえのない書き方もまじるけど、これでいいんじゃないかな。

0001#. ＰＲＩＮＴ”ニュウリョク”
0002#. ＠ＬＯＯＰ
0003#. Ａ＝ＢＵＴＴＯＮ（）
0004#. ＩＦ　Ａ！＝０　ＴＨＥＮ　ＰＲＩＮＴ”コタエハ”；Ａ：ＥＮＤ
0005#. ＧＯＴＯ　＠ＬＯＯＰ

みんなも打ってみてね！

ウゥ……マジで見たことねェ書き方しやがって、ヨウシャのねえヤロウだぜ！

比較演算子

この行がモンダイなんだね。

0004#. ＩＦ　Ａ！＝０　ＴＨＥＮ　ＰＲＩＮＴ”コタエハ”；Ａ：ＥＮＤ

今までの話から、これが「もしも変数Ａがゼロじゃなければ～する」ってIF文だとはなんとなく分かるんだけど……

気になるのは「変数！＝数字」のカタチだよね。

「＝＝」もビックリだったけど、「！＝」だって初めて見るよ！

ほっほっほ。ソコはそうムズカシいモノでもないぞ。いわゆる「≠（ノットイコール）（等号否定）」と同じイミで、まあ右と左が「ちがう」というくらいのことじゃな。

まさか、またムカシのコンピューターに「≠」の字がなかったから「！＝」と書いたとか、そんなことじゃねェだろうな……。

それでだいたい合っておるそうじゃ。

コ、コンピューターにタイするゲンソウがどんどんウシナわれていくぜェ……。

ほかにも「＜（小なり）」「＞（大なり）」を使うこともあるが、「≦（小なりイコール）」は「＜＝」、「≧（大なりイコール）」は「＞＝」と書くのじゃ。

そんなのばっかりか！　なんかもう、コンカイはオレもいろいろダキョウしてる気がするぜェ……。

今回のまとめ

インデント

行の先頭に空白スペースを入れることを「インデント」といいます。プログラムの動作には関係ありませんが、リストを見やすくするのに使います。FOR～NEXTの中に使うのがいちばん一般的ですね。

NEW命令

ＮＥＷ
実行モードで使います。プログラムが消去されます。

SYSBEEP変数

ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ
ＳＹＳＢＥＥＰ＝ＴＲＵＥ
ＦＡＬＳＥならシステム音を消し、ＴＲＵＥならシステム音が鳴るようになります。

BEEP命令のピッチ

ＢＥＥＰ　（音色），（ピッチ）
ピッチ０が基本の音、－８１９２だと２オクターブ下、８１９２で２オクターブ上になります。おおざっぱに「ドレミで半音上げるには、ピッチを４０９６／１２だけ増やす」とおぼえておくといいでしょう。

BUTTON()命令

変数＝ＢＵＴＴＯＮ（）
変数に押されたボタンの情報が入ります。

十字ボタン↑	1	Aボタン	16	Lボタン	256
十字ボタン↓	2	Bボタン	32	Rボタン	512
十字ボタン←	4	Xボタン	64	START	1024
十字ボタン→	8	Yボタン	128	SELECT	2048

たとえば左上に押せば4+1で５が、何も押さなければ０が入ります。

比較演算子

IF～THEN命令の条件文で使います。

変数AとBを比べる場合

A==B	AとBの内容が同じ
A!=B	AとBの内容が違う
A<B	AよりBが大きい
A<=B	AよりBが大きいか、同じ
A>B	AよりBが小さい
A>=B	AよりBが小さいか、同じ

ＩＦ　（変数）！＝（数）　ＴＨＥＮ　（命令）
変数と数が一致しないときだけ命令を実行します。