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

ビット演算子

さて、メインループの話からダイブずれてしまったようじゃな。そろそろＬＯＡＤ”ＳＡＭＰＬＥ３”でサンプルプログラムにモドるとするかの。

それにしたってよォ、ここで出てくるIF文はケッキョクまだココまででオボエたやり方じゃセツメイつかねェぞ！

いちばん多く使われてるのは、このタイプの文だね。

0058#. ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ　ＢＥＥＰ　５２

今まで習ったことのフンイキから、「上ボタンを押したら52番の音色でＢＥＥＰ」ということはわかるけど……

「ＩＦ　Ｂ　ＡＮＤ　１　ＴＨＥＮ」ってナンだよコンチクショー！　おかしいにもホドがあるじゃねえか！

これはリクツは気にせず丸ごとおぼえた方が早いかなあ。ＢＵＴＴＯＮ（）したバアイ、「ＩＦ　Ｂ　ＡＮＤ　１」と書くと、「Ｂの中に１がまじっている」というイミになるんだ。

「まじっている」？

とくに十字ボタンの入力なんかにベンリな使いかただね。たとえば押されたボタンが右上だったとしよう。すると変数に入る数字は１＋８で９だよね。

十字ボタン↑	1
十字ボタン↓	2
十字ボタン←	4
十字ボタン→	8

そうなるとコマるのは、「ＩＦ　Ｂ＝＝１」じゃヒットしないことだね。
ところが「ＩＦ　Ｂ　ＡＮＤ　１」や「ＩＦ　Ｂ　ＡＮＤ　８」と書くと、ちゃんとヒットするんだ。フシギだね。

これをセツメイするには、まず「ビット演算」についてセツメイせねばならん。ならんのじゃが、あんまりムズカしいのでヒトにオシエづらいのじゃあああああ

ショシンシャ向きのサンプルプログラムなのに、ちょくちょくフクザツなコトをしようとするよな。セツメイできねェなら、サイショからやるなよ！

まあまあ。こういうベンリな使いかたがあるんだから、ふかく考えずに使えばいいのさ。

テメーのワリキリもなんだかスゲエな……。

連続入力を止めるために

まだ57行目が残ってるね。

0057#. ＩＦ　ＯＬＤＢ！＝０　ＧＯＴＯ　＠ＤＳＫＩＰ

「ＩＦ～ＧＯＴＯ」っていうカタチも初めてだけど……

「ＩＦ～ＴＨＥＮ」のＧＯＴＯバージョンだと考えていいよ。そんなに違いはないよね。

それにしたって、イミがワカらねえぜ！　変数ＯＬＤＢがゼロじゃなければ＠ＤＳＫＩＰのある行に飛ぶ。そりゃナンのタメだ？

ソレならちょっと前までモドって55行を見るのじゃ。

0055#. ＯＬＤＢ＝Ｂ

変数Ｂはもちろん押されているボタンの番号じゃな。もしも十字ボタン上が押されておれば、変数Ｂはスナワチ１というコトになる。

ということは変数ＯＬＤＢにも、変数Ｂと同じ１が入るということですね。

さよう！　変数のナマエＯＬＤＢは、「OLD（オールド）（古い）」Ｂというイミで付けたのじゃよ。

今までは「変数＝数字」のカタチを使っていたけど、「変数＝変数」というように書いてもいいってコトだね。

フーム、変数もオクがフカいぜ……。
イヤ、ちょっと待て！　57行のイミがまだワカるようでワカらねえままだぜ！

そうだね、たとえば上ボタンを押したときで考えてみようよ。
はじめに55行に来たときには変数Ｂはまだゼロだから変数ＯＬＤＢもゼロのままだね。
そして56行のＢ＝ＢＵＴＴＯＮ（）で初めて変数Ｂに１が入ることになる。

オウ。ナンドもやったコトだから、ソコはまあワカるぜ。

ＯＬＤＢがゼロだから57行は飛ばしていい。58行でＩＦ　Ｂ　ＡＮＤ　１になってるから、ＢＥＥＰ　５２と音を鳴らすよね。

まあトウゼンだな。アトのIF文はひっかからねェからドンドンすっトバすぜ。

途中ははぶくけど、79行でＧＯＴＯ　＠ＬＯＯＰしているから、また52行からのループになるね。

フム……？　すると55行でＯＬＤＢ＝Ｂするから、変数ＯＬＤＢは１になるな。

まだ上ボタンをはなさずに押しっぱなしだと考えるよ。56行でＢ＝ＢＵＴＴＯＮ（）してもやっぱり変数Ｂは１だね。

で、57行のＩＦ　ＯＬＤＢ！＝０がキいて、ＧＯＴＯ　＠ＤＳＫＩＰするワケだ……オイオイ、58行を飛ばしちまうってのか？

ソコじゃ！　もしこのまま58行に行くと、またもやＢＥＥＰ　５２するコトになるのう。ソレでは「ドン」と鳴る音がレンゾクして「ドドン」と鳴りっぱなしになってしまうじゃろ。

ソレはソレでロックじゃねェか？

そ……そういうモンダイじゃないんじゃないかな。

ためしに57行の先頭に「’」をつけてみよう。

0057#. ’ＩＦ　ＯＬＤＢ！＝０　ＧＯＴＯ　＠ＤＳＫＩＰ

これでこの行は使われなくなったよね。ＲＵＮしてドラムを鳴らしてごらん。

ウ……ウォオー！　コレはコレでロックだとしても、このプログラムでやりたかったのはこういうコトじゃねー！

そういうコトさ。カクニンできたらさっきの「’」は消しておこうね。

先頭に「’」をつけてとりあえずテストしてみる、というのはタンジュンじゃが、ダイジなテクニックじゃな。
プログラム用語では「コメントアウト」と言うのじゃが、このキカイにおぼえておくといいぞい。

INKEY$()命令

66行から、気になることが書いてあるね。

0066#. ’－－－　ＦＯＲ－ＮＥＸＴ　テ゛
0067#. ’－－－　トチュウカラヌケルト
0068#. ’－－－　ナイフ゛メモリカ゛ヘルノテ゛
0069#. ’－－－　ＧＯＴＯ　ヲツカッタル－フ゜

う、うむ。ソコはちょっとヤッカイなモンダイなのじゃが、ひとまずその先の72行から片づけてもらおうかの。

0072#. Ｋ＄＝ＩＮＫＥＹ＄（）

カタチはなんとなくＢＵＴＴＯＮ（）命令と似ているね。

そう！　ＩＮＫＥＹ＄（）命令は、ＢＵＴＴＯＮ（）命令のキーボードバージョンだと考えていいだろうね。「IN KEY（イン・キー）」つまりキー入力というコトだね。

ツマリ、72行だと変数Ｋ＄に押したキーの……ナニが入るんだ？

あ、それはＢＵＴＴＯＮ（）命令よりカンタンだね。押した文字がそのまま変数に入るんだ。Ａキーを押していたら、Ｋ＄にはＡという文字が入るよ。

チッ、フカヨミしすぎたか！　しかし、おかげで73行目のやってるコトはよくワカッたぜ。

0073#. ＩＦ　Ｋ＄＝＝””　ＧＯＴＯ　＠ＬＯＯＰ

変数Ｋ＄がカラ……つまりキーが押されてなければ、おなじみの＠ＬＯＯＰに飛んでくり返しってことだな！

FOR～NEXT文からの脱出とスタック溜まり

このあたりまではＢＵＴＴＯＮ（）命令と本当によく似ているね。問題はこの後だけど……

ゴホン。ここはヒトアシさきに、カンタンに書き直したプログラムの方を見てもらおうかの。

0074#. ＦＯＲ　Ｉ＝０　ＴＯ　ＫＣＮＴ－１
0075#. 　ＩＦ　Ｋ＄＝＝Ｎ＄（Ｉ）　ＧＯＴＯ　＠ＰＬＡＹ
0077#. ＮＥＸＴ

これを読めば、ナニをしとる行かはワカるはずじゃの？

……たしか配列変数Ｎ＄（）には（０）～（１９）まで、ケンバンに使う字が入ってたハズだな。

変数ＫＣＮＴ－１はケンバンの数をコンピューター風に数えて、１９のはずだよね。

変数Ｋ＄に入ってるのは押されたキー。つまり……20回ブンＮ＄（）を変えながらくり返しチェックして、どこかで押されたキーがケンバンのキーと同じだったら＠ＰＬＡＹに飛ぶ、ってコトだな！

おお……ワンパク君、すっかりリッパになったのう……。

そりゃいいんだけどよォ、ジッサイのサンプルはこうじゃねェよな。マズいコトでもやったのか？

おお……ズバズバ言うトコは変わっとらんのう……。

0074#. Ｉ＝０
0075#. ＠ＫＬＯＯＰ
0076#. 　ＩＦ　Ｋ＄＝＝Ｎ＄（Ｉ）　ＧＯＴＯ　＠ＰＬＡＹ
0077#. 　Ｉ＝Ｉ＋１
0078#. ＩＦ　Ｉ＜ＫＣＮＴ　ＧＯＴＯ　＠ＫＬＯＯＰ
0079#. ＧＯＴＯ　＠ＬＯＯＰ

よーく見なおしてもらえばワカると思うが、ココで書いているコトはFOR～NEXT文で書いたコトと同じなのじゃ。

77行目の「Ｉ＝Ｉ＋１」てのが初めて見るパターンだが……

変数のルールにそって考えると、なんとなく分かるね。バケツＩに、それまでのＩの中身プラス１を入れるってことでしょ？

そういうこと。こういうふうに変数の中では、同じ変数を使った計算もできるんだけど、なれないとピンとこないかもね。
もしも変数Ｉのナカミが０だったときにＩ＝Ｉ＋１すると、０＋１で１が変数Ｉのナカミになるね。

FOR～NEXT文も、変数に１ずつプラスしてくワケだしな。
よし、このブブンがFOR～NEXTと同じコトをやってるのはワカッた。で、なんでそんなコトすんだ？　FOR～NEXTの方がカンタンじゃねェか！

ココがムズカしいトコロでのう……。
押されたキーとケンバンのデータがマッチすれば＠ＰＬＡＹに飛ぶのはワカッとるな？
じゃがFOR～NEXTのくり返しが終わらないウチにトチュウで飛び出して、またFOR～NEXTをゼロからくり返しはじめて……、とやっておると、プログラムの中に「トチュウで止まったままのFOR文」がドンドンたまっていくのじゃよ。

つまり、いわゆるスタックがたまってメモリをアッパクするんですね。

？？？

まあモノはためしじゃ、サンプルをFOR～NEXT方式に書きかえて、ジャンジャンキーボードをたたいてみい。

ウオォー！　オレのレンシャが火をふくゼェー！

ゼエ、ゼエ……た、タシカにエラーが出たな。

メッタにないコトではあるんじゃが……。とにかくFOR～NEXTをトチュウで抜け出すのはあまりコンピューターにやさしくないというコトと、もし自作のプログラムでＯｕｔ　ｏｆ　ｍｅｍｏｒｙエラーが出たらコレをうたがってもいい、とはココロのスミでおぼえておいていいかもしれんのう。

BEEP命令で再生

さあ、ここまで来たらもうあとはキーボードどおりに音を鳴らすだけだね！

なんだかんだで、けっこう長かったなあ。

0082#. ＠ＰＬＡＹ
0083#. Ｐ＝Ｆ＊（Ｉ）－４０９６
0084#. ＢＥＥＰ　Ｖ，Ｐ
0085#. ＧＯＴＯ　＠ＬＯＯＰ

84行で使っている変数Ｖは最初のほうで出てきたＢＥＥＰ命令の音色、変数ＰはＢＥＥＰ命令の「ピッチ」だね。

その変数Ｐを決めてるのが83行目ってワケだな。もうずいぶんサカノボるが、変数Ｆは46行目で決めてたんだったか。

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

１音ずらす数字が「４０９６／１２」なんだったね。そして変数Ｉは０がキーボードの「’」、１がキーボードの「Ａ」、……と対応してるから……

Ａキーを押せばＦ＊１、つまりフダンより１音上のピッチになるってコトだ！

……あれ？　－４０９６って何だろう？

0083#. Ｐ＝Ｆ＊（Ｉ）－４０９６

ウム。Ｐ＝Ｆ＊（Ｉ）のままじゃと、ちょっと音がカルいかと思ってのう。－４０９６してちょうど１オクターブだけ下げておいたのじゃ。

重低音……ってホドじゃねェが、そこはワカるぜ。いっそ－４０９６０くらいにしたらどうなるんだ？

ウウ……ＢＥＥＰ命令のピッチは-8192～8192までがゲンカイなのじゃよ……。

「Out of range（アウト・オブ・レンジ）」というのは「ハンイからはずれた」という意味のエラーメッセージだね。

インテリ君のすばやい進行は、ときにザンコクじゃ……。

ループ脱出とEND命令

88行目からは、ラベル＠ＥＸＩＴだね。

0088#. ＠ＥＸＩＴ
0089#. ＳＹＳＢＥＥＰ＝ＴＲＵＥ
0090#. ＥＮＤ

＠ＥＸＩＴ……。そんなラベル、どっかで見たような……見てねェような……

ははは。ＢＵＴＴＯＮ（）命令を使ったところで、ボタン判定をしていたじゃないか。

0062#. ＩＦ　Ｂ＝＝６４　ＧＯＴＯ　＠ＥＸＩＴ

オゥ、これだ！　そういやあの時はドラムのコトばっかり考えてて、このＧＯＴＯのコトはすっかり忘れてたぜ！　オレとしたことが！

ＢＵＴＴＯＮ（）命令で６４が入ったということは、たしかＸボタンを押したってことだったよね。

さよう。このプログラムでは、Ｘボタンでプログラム終了じゃったな。と言えばあとはワカるじゃろう？

さすがにラクショーだぜ！　89行でＳＹＳＢＥＥＰ＝ＴＲＵＥして音を元にモドして、90行でＥＮＤだな！

ポイントは、Ｘボタンを押すことで、50～80行目の間をグルグル回っていたメインループからぬけ出しているコトだね。

そういうコト！　ハッキリ言えば90行目のＥＮＤはなくてもいいんだけど、ループから飛びだしてプログラムを終わらせるにはピッタリだね。

それはモチロンじゃし、この後にラベルを増やして新しいキノウを増やすときにはますますＥＮＤがダイジになるじゃろうな。

0088#. ＠ＥＸＩＴ
0089#. ＳＹＳＢＥＥＰ＝ＴＲＵＥ
0090#. ＥＮＤ
0091#. ＠ＵＳＯ
0092#. ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ

たとえばこういうプログラムじゃと、90行目にＥＮＤがなければ91行から先まで勝手に進んでしまうわい。

フーム……。ラベルでループを使ったプログラムじゃ、ループを抜け出すのと、そこでＥＮＤするのがダイジになるワケだな……。

ワ、ワンパク君！　どうしたんじゃそのリッパなまとめぶりは……！

さすがに長びいたからよォ、このヘンでＥＮＤっぽく終わらせるのがイイ気がしたんだゼ。ノーフューチャー！

いつも通りだったね。

今回のまとめ

コメントアウト

行の先頭に「’」と書くだけで（あたりまえですが）その行がなかったことになります。プログラムの動作テストのときなどに便利です。

INKEY$()命令

（文字変数）＝ＩＮＫＥＹ＄（）
変数に押されたキーが入ります。

ビット演算子

むずかしいので、使い方だけおぼえましょう。BUTTON()命令で使う変数なら、この形が使えます。
ＩＦ　（変数）　ＡＮＤ　（数）　ＴＨＥＮ　（命令）
変数がボタンに対応した数を含んでいるときだけ、命令を実行します。
BUTTON()命令以外でもこれが使えると思ったら大まちがいです。

FOR～NEXT文からの脱出とスタック溜まり

くわしいことをはぶくと、FOR～NEXT文の中からGOTOで飛び出して、またFOR～NEXT文の中から……とくり返すのは、あんまりコンピューターに優しくなく、激しくやりすぎると「Ｏｕｔ　ｏｆ　ｍｅｍｏｒｙ」エラーが出ることもあります。めったにないことですが、このサンプルプログラムの方法で回避はできますよ。