プチコンmkII 初心者講座サンプルプログラム３（後）
プログラマーからひとこと
サンプルプログラム３を見ていくのも後半になりました。と言っても、前回までで難しいところはだいたいおさえたので、今回はわりとスルスルいくような気がします。
中にはかなりおおざっぱな説明も出てきますが、リクツ付けはそのうち、レベルが上がってきたころにやるので、それまでは「こーゆーもんなんだな」という感じでおぼえてください。
ないしょですが、プログラマーでもそうやっておぼえた事というのは、けっこうあります。
ちなみに私も前回ここで指摘されるまで、「フォールス」または「フォルス」と読む「False」を「ファルス」と間違って読みつづけていました。あんがいそういうものです。
ビット演算子
ハカセ「さて、メインループの話からダイブずれてしまったようじゃな。そろそろＬＯＡＤ”ＳＡＭＰＬＥ３”でサンプルプログラムにモドるとするかの。
前回は、ドラムを鳴らすこのあたりで止まっていたんじゃったな。
前回は、ドラムを鳴らすこのあたりで止まっていたんじゃったな。
0054#. ’－－－ ト゛ラム
0055#. Ｂ＝ＢＴＲＩＧ（）
0056#. ＩＦ Ｂ ＡＮＤ １ ＴＨＥＮ ＢＥＥＰ ５２
0057#. ＩＦ Ｂ ＡＮＤ ２ ＴＨＥＮ ＢＥＥＰ ５３
0058#. ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＢＥＥＰ ６２
0059#. ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＢＥＥＰ ２５
0060#. ＩＦ Ｂ＝＝６４ ＧＯＴＯ ＠ＥＸＩＴ
」0055#. Ｂ＝ＢＴＲＩＧ（）
0056#. ＩＦ Ｂ ＡＮＤ １ ＴＨＥＮ ＢＥＥＰ ５２
0057#. ＩＦ Ｂ ＡＮＤ ２ ＴＨＥＮ ＢＥＥＰ ５３
0058#. ＩＦ Ｂ ＡＮＤ ４ ＴＨＥＮ ＢＥＥＰ ６２
0059#. ＩＦ Ｂ ＡＮＤ ８ ＴＨＥＮ ＢＥＥＰ ２５
0060#. ＩＦ Ｂ＝＝６４ ＧＯＴＯ ＠ＥＸＩＴ
ワンパク「ケッキョク、ここに出てくるIF文の使い方はワカんねえまんまだぜ！」
インテリ「いちばん多く使われてるのは、このタイプの文だね。
0058#. ＩＦ Ｂ ＡＮＤ １ ＴＨＥＮ ＢＥＥＰ ５２
」神崎「今まで習ったことのフンイキから、「上ボタンを押したら52番の音色でＢＥＥＰ」ということはわかるけど……」
ワンパク「「ＩＦ Ｂ ＡＮＤ １ ＴＨＥＮ」ってナンだよコンチクショー！ おかしいにもホドがあるじゃねえか！」
インテリ「これはリクツは気にせず丸ごとおぼえた方が早いかなあ。ＢＵＴＴＯＮ（）したバアイ、「ＩＦ Ｂ ＡＮＤ １」と書くと、「Ｂの中に１がまじっている」というイミになるんだ。」
神崎「「まじっている」？」
インテリ「とくに十字ボタンの入力なんかにベンリな使いかただね。たとえば押されたボタンが右上だったとしよう。すると変数に入る数字は１＋８で９だよね。
そうなるとコマるのは、「ＩＦ Ｂ＝＝１」じゃヒットしないことだね。
ところが「ＩＦ Ｂ ＡＮＤ １」や「ＩＦ Ｂ ＡＮＤ ８」と書くと、ちゃんとヒットするんだ。フシギだね。」
| 十字ボタン↑ | 1 |
|---|---|
| 十字ボタン↓ | 2 |
| 十字ボタン← | 4 |
| 十字ボタン→ | 8 |
ところが「ＩＦ Ｂ ＡＮＤ １」や「ＩＦ Ｂ ＡＮＤ ８」と書くと、ちゃんとヒットするんだ。フシギだね。」
ハカセ「これをセツメイするには、まず「ビット演算」についてセツメイせねばならん。ならんのじゃが、あんまりムズカしいので人に教えづらいのじゃあああああ」
ワンパク「初心者向きのサンプルプログラムなのに、ちょくちょくフクザツなコトをしようとするよな。セツメイできねェなら、サイショからやるなよ！」
インテリ「まあまあ。こういうベンリな使いかたがあるんだから、ふかく考えずに使えばいいのさ。」
ワンパク「テメーのワリキリもなんだかスゲエな……。」
連続入力を止めるために
神崎「まだ61行目が残ってるね。
0061#. ＶＳＹＮＣ １
前の章でおぼえた命令だね。」ワンパク「ツマリ、ＢＴＲＩＧ（）命令をマトモに動かすために……エート……60分の１秒だけプログラムを止めてるんだったか。」
インテリ「もっとくわしく言うと、ＶＳＹＮＣで止まっている間でも、ＢＥＥＰの音は鳴りつづけるのがポイントだね。」
神崎「ということは、ＶＳＹＮＣの直前で鳴らしたＢＥＥＰの音が、60分の１秒間は何があっても鳴りつづける……？」
ワンパク「言い方はスゴそうでも、イマイチたいしたことが起きてねえぞ？」
インテリ「実際にためしてみるのが早いかな。ためしに61行の先頭に「’」をつけてみよう。
」
0060#. ’ＶＳＹＮＣ １
これでＶＳＹＮＣ命令は使われなくなったよね。ＲＵＮしてドラムを一度に鳴らしてごらん。」
ワンパク「ウォオー！ 鳴らしまくってやるゼェー！」
インテリ「みんなもワンパク君と一緒にためしてみてね！」
神崎「ワンパク君のロックはデタラメに音をならせばとにかくロックだからなあ。……あれ？ なんだか今までより音が大きいような……？」
インテリ「そうなんだよね。ＶＳＹＮＣがないと、ＢＴＲＩＧ（）が「何度もボタンを押してる」ようなことになるのはおぼえてるかな？ つまり、人間に出せないようなスピードで何度もＢＥＥＰが鳴ってるってコトさ。」
ワンパク「格闘ゲームっぽく言うと技を出した瞬間に、同じ技でキャンセルしてるってコトか。ナルホド……「ドカーン」の「ド」だけくり返し聞こえると、なんだか大きな音に感じるワケだな。」
インテリ「ワンパク君らしいけど、ナカナカわかりやすいたとえだね。じゃあ、さっきの「’」は消して、フツウに鳴るようにしておこう。」
ハカセ「先頭に「’」をつけてとりあえずテストしてみる、というのはタンジュンじゃが、ダイジなテクニックじゃな。
プログラム用語では「コメントアウト」と言うのじゃが、このキカイにおぼえておくといいぞい。」
プログラム用語では「コメントアウト」と言うのじゃが、このキカイにおぼえておくといいぞい。」
INKEY$()命令
神崎「64行から、気になることが書いてあるね。
0064#. ’－－－ ＦＯＲ－ＮＥＸＴ テ゛
0065#. ’－－－ トチュウカラヌケルト
0066#. ’－－－ ナイフ゛メモリカ゛ヘルノテ゛
0067#. ’－－－ ＧＯＴＯ ヲツカッタル－フ゜
」0065#. ’－－－ トチュウカラヌケルト
0066#. ’－－－ ナイフ゛メモリカ゛ヘルノテ゛
0067#. ’－－－ ＧＯＴＯ ヲツカッタル－フ゜
ハカセ「う、うむ。ソコはちょっとヤッカイなモンダイなのじゃが、ひとまずその先の70行から片づけてもらおうかの。
0070#. Ｋ＄＝ＩＮＫＥＹ＄（）
」神崎「カタチはなんとなくＢＵＴＴＯＮ（）命令と似ているね。」
インテリ「そう！ ＩＮＫＥＹ＄（）命令は、ＢＵＴＴＯＮ（）命令のキーボードバージョンだと考えていいだろうね。「IN KEY 」つまりキー入力というコトだね。」
ワンパク「ツマリ、70行だと変数Ｋ＄に押したキーの……ナニが入るんだ？」
インテリ「あ、それはＢＵＴＴＯＮ（）命令よりカンタンだね。押した文字がそのまま変数に入るんだ。キーボードの「Ａ」を押していたら、Ｋ＄にはＡという文字が入るよ。」
ワンパク「チッ、フカヨミしすぎたか！ しかし、おかげで71行目のやってるコトはよくワカッたぜ。
」
0071#. ＩＦ Ｋ＄＝＝”” ＧＯＴＯ ＠ＬＯＯＰ
変数Ｋ＄がカラ……つまりキーが押されてなければ、おなじみの＠ＬＯＯＰに飛んでくり返しってことだな！」
FOR～NEXT文からの脱出とスタック溜まり
神崎「このあたりまではＢＵＴＴＯＮ（）命令と本当によく似ているね。問題はこの後だけど……」
ハカセ「ゴホン。ここはヒトアシさきに、カンタンに書き直したプログラムの方を見てもらおうかの。
」
0072#. ＦＯＲ Ｉ＝０ ＴＯ ＫＣＮＴ－１
0073#. ＩＦ Ｋ＄＝＝Ｎ＄（Ｉ） ＧＯＴＯ ＠ＰＬＡＹ
0074#. ＮＥＸＴ
これを読めば、ナニをしとる行かはワカるはずじゃの？0073#. ＩＦ Ｋ＄＝＝Ｎ＄（Ｉ） ＧＯＴＯ ＠ＰＬＡＹ
0074#. ＮＥＸＴ
」
ワンパク「……たしか配列変数Ｎ＄（）には（０）～（１９）まで、ケンバンに使う字が入ってたハズだな。」
神崎「変数ＫＣＮＴ－１はケンバンの数をコンピューター風に数えて、１９のはずだよね。」
ワンパク「変数Ｋ＄に入ってるのは押されたキー。つまり……20回ブンＮ＄（）を変えながらくり返しチェックして、どこかで押されたキーがケンバンのキーと同じだったら＠ＰＬＡＹに飛ぶ、ってコトだな！」
ハカセ「おお……ワンパク君、すっかりリッパになったのう……。」
ワンパク「そりゃいいんだけどよォ、ジッサイのサンプルはこうじゃねェよな。またしくじったのか？」
ハカセ「おお……ズバズバ言うトコは変わっとらんのう……。
」
0072#. Ｉ＝０
0073#. ＠ＫＬＯＯＰ
0074#. ＩＦ Ｋ＄＝＝Ｎ＄（Ｉ） ＧＯＴＯ ＠ＰＬＡＹ
0075#. Ｉ＝Ｉ＋１
0076#. ＩＦ Ｉ＜ＫＣＮＴ ＧＯＴＯ ＠ＫＬＯＯＰ
0077#. ＧＯＴＯ ＠ＬＯＯＰ
よーく見なおしてもらえばワカると思うが、ココで書いているコトはFOR～NEXT文で書いたコトと同じなのじゃ。0073#. ＠ＫＬＯＯＰ
0074#. ＩＦ Ｋ＄＝＝Ｎ＄（Ｉ） ＧＯＴＯ ＠ＰＬＡＹ
0075#. Ｉ＝Ｉ＋１
0076#. ＩＦ Ｉ＜ＫＣＮＴ ＧＯＴＯ ＠ＫＬＯＯＰ
0077#. ＧＯＴＯ ＠ＬＯＯＰ
」
ワンパク「75行目の「Ｉ＝Ｉ＋１」てのが初めて見るパターンだが……」
神崎「変数のルールにそって考えると、なんとなく分かるね。バケツＩに、それまでのＩの中身プラス１を入れるってことでしょ？」
インテリ「そういうこと。こういうふうに変数の中では、同じ変数を使った計算もできるんだけど、なれないとピンとこないかもね。
もしも変数Ｉのナカミが２だったときにＩ＝Ｉ＋１すると、Ｉ＝２＋１というわけで、３が変数Ｉのナカミになるね。」
もしも変数Ｉのナカミが２だったときにＩ＝Ｉ＋１すると、Ｉ＝２＋１というわけで、３が変数Ｉのナカミになるね。」
ワンパク「FOR～NEXT文も、変数に１ずつプラスしてくワケだしな。
よし、このブブンがFOR～NEXTと同じコトをやってるのはワカッた。で、なんでそんなコトすんだ？ FOR～NEXTの方がカンタンじゃねェか！」
よし、このブブンがFOR～NEXTと同じコトをやってるのはワカッた。で、なんでそんなコトすんだ？ FOR～NEXTの方がカンタンじゃねェか！」
ハカセ「ココがムズカしいトコロでのう……。
押されたキーとケンバンのデータがマッチすれば＠ＰＬＡＹに飛ぶのはワカッとるな？
じゃがFOR～NEXTのくり返しが終わらないウチにトチュウで飛び出して、またFOR～NEXTをゼロからくり返しはじめて……、とやっておると、プログラムの中に「トチュウで止まったままのFOR文」がドンドンたまっていくのじゃよ。」
押されたキーとケンバンのデータがマッチすれば＠ＰＬＡＹに飛ぶのはワカッとるな？
じゃがFOR～NEXTのくり返しが終わらないウチにトチュウで飛び出して、またFOR～NEXTをゼロからくり返しはじめて……、とやっておると、プログラムの中に「トチュウで止まったままのFOR文」がドンドンたまっていくのじゃよ。」
インテリ「つまり、いわゆるスタックがたまってメモリをアッパクするんですね。」
ワンパク「？？？」
ハカセ「まあモノはためしじゃ、サンプルをFOR～NEXT方式に書きかえて、ジャンジャンキーボードをたたいてみい。」
ワンパク「ウオォー！ オレのレンシャが火をふくゼェー！」
Ｏｕｔ ｏｆ ｍｅｍｏｒｙ （７２， ＦＯＲ）
ＯＫ
ＯＫ
ワンパク「ゼエ、ゼエ……た、タシカにエラーが出たな。」
ハカセ「メッタにないコトではあるんじゃが……。とにかくFOR～NEXTをトチュウで抜け出すのはあまりコンピューターにやさしくないというコトと、もし自作のプログラムでＯｕｔ ｏｆ ｍｅｍｏｒｙエラーが出たらコレをうたがってもいい、とはココロのスミでおぼえておいていいかもしれんのう。」
BEEP命令で再生
インテリ「さあ、ここまで来たらもうあとはキーボードどおりに音を鳴らすだけだね！」
神崎「なんだかんだで、けっこう長かったなあ。
」
0080#. ＠ＰＬＡＹ
0081#. Ｐ＝Ｆ＊（Ｉ）－４０９６
0082#. ＢＥＥＰ Ｖ，Ｐ
0083#. ＧＯＴＯ ＠ＬＯＯＰ
82行で使っている変数Ｖは最初のほうで出てきたＢＥＥＰ命令の音色、変数ＰはＢＥＥＰ命令の「ピッチ」だね。0081#. Ｐ＝Ｆ＊（Ｉ）－４０９６
0082#. ＢＥＥＰ Ｖ，Ｐ
0083#. ＧＯＴＯ ＠ＬＯＯＰ
」
ワンパク「その変数Ｐを決めてるのが81行目ってワケだな。もうずいぶんサカノボるが、変数Ｆは46行目で決めてたんだったか。
0046#. Ｆ＝４０９６／１２
」インテリ「１音ずらす数字が「４０９６／１２」なんだったね。そして変数Ｉは０がキーボードの「’」、１がキーボードの「Ａ」、……と対応してるから……」
ワンパク「Ａキーを押せばＦ＊１、つまりフダンより１音上のピッチになるってコトだ！」
神崎「……あれ？ －４０９６って何だろう？
0081#. Ｐ＝Ｆ＊（Ｉ）－４０９６
」ハカセ「ウム。Ｐ＝Ｆ＊（Ｉ）のままじゃと、ちょっと音がカルいかと思ってのう。－４０９６してちょうど１オクターブだけ下げておいたのじゃ。」
ワンパク「重低音……ってホドじゃねェが、そこはワカるぜ。いっそ－４００００くらいにしたらどうなるんだ？」
Ｏｕｔ ｏｆ ｒａｎｇｅ （８２， ＢＥＥＰ）
ＯＫ
ＯＫ
ハカセ「ウウ……ＢＥＥＰ命令のピッチは-8192～8192までがゲンカイなのじゃよ……。」
インテリ「「Out of range 」というのは「ハンイからはずれた」という意味のエラーメッセージだね。」
ハカセ「インテリ君のすばやい進行は、ときにザンコクじゃ……。」
ループ脱出とEND命令
神崎「86行目からは、ラベル＠ＥＸＩＴだね。
0086#. ＠ＥＸＩＴ
0087#. ＳＹＳＢＥＥＰ＝ＴＲＵＥ
0088#. ＥＮＤ
」0087#. ＳＹＳＢＥＥＰ＝ＴＲＵＥ
0088#. ＥＮＤ
ワンパク「＠ＥＸＩＴ……。そんなラベル、どっかで見たような……見てねェような……」
インテリ「ははは。ＢＵＴＴＯＮ（）命令を使ったところで、ボタン判定をしていたじゃないか。
0060#. ＩＦ Ｂ＝＝６４ ＧＯＴＯ ＠ＥＸＩＴ
」ワンパク「オゥ、これだ！ そういやあの時はドラムのコトばっかり考えてて、このＧＯＴＯのコトはすっかり忘れてたぜ！ オレとしたことが！」
神崎「ＢＵＴＴＯＮ（）命令で６４が入ったということは、たしかＸボタンを押したってことだったよね。」
ハカセ「さよう。このプログラムでは、Ｘボタンでプログラム終了じゃったな。と言えばあとはワカるじゃろう？」
ワンパク「さすがにラクショーだぜ！ 87行でＳＹＳＢＥＥＰ＝ＴＲＵＥして音を元にモドして、88行でＥＮＤだな！」
神崎「ポイントは、Ｘボタンを押すことで、50～77行目の間をグルグル回っていたメインループからぬけ出しているコトだね。」
インテリ「そういうコト！ ハッキリ言えば88行目のＥＮＤはなくてもいいんだけど、ループから飛びだしてプログラムを終わらせるにはピッタリだね。」
ハカセ「それはモチロンじゃし、この後にラベルを増やして新しいキノウを増やすときにはますますＥＮＤがダイジになるじゃろうな。
」
0086#. ＠ＥＸＩＴ
0087#. ＳＹＳＢＥＥＰ＝ＴＲＵＥ
0088#. ＥＮＤ
0089#. ＠ＵＳＯ
0090#. ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ
たとえばこういうプログラムじゃと、88行目にＥＮＤがなければ89行から先まで勝手に進んでしまうわい。0087#. ＳＹＳＢＥＥＰ＝ＴＲＵＥ
0088#. ＥＮＤ
0089#. ＠ＵＳＯ
0090#. ＳＹＳＢＥＥＰ＝ＦＡＬＳＥ
」
ワンパク「フーム……。ラベルでループを使ったプログラムじゃ、ループを抜け出すのと、そこでＥＮＤするのがダイジになるワケだな……。」
ハカセ「ワ、ワンパク君！ どうしたんじゃそのリッパなまとめぶりは……！」
ワンパク「さすがに長びいたからよォ、このヘンでＥＮＤっぽく終わらせるのがイイ気がしたんだゼ。ノーフューチャー！」
神崎「いつも通りだったね。」
- コメントアウト
- 行の先頭に「’」と書くだけで（あたりまえですが）その行がなかったことになります。プログラムの動作テストのときなどに便利です。
- INKEY$()命令
- （文字変数）＝ＩＮＫＥＹ＄（）
変数に押されたキーが入ります。 - ビット演算子
- むずかしいので、使い方だけおぼえましょう。BTRIG()命令やBUTTON()命令で使う変数なら、この形が使えます。
ＩＦ （変数） ＡＮＤ （数） ＴＨＥＮ （命令）
変数がボタンに対応した数を含んでいるときだけ、命令を実行します。
BTRIG()命令やBUTTON()命令以外でもこれが使えると思ったら大まちがいです。 - FOR～NEXT文からの脱出とスタック溜まり
- くわしいことをはぶくと、FOR～NEXT文の中からGOTOで飛び出して、またFOR～NEXT文の中から……とくり返すのは、あんまりコンピューターに優しくなく、激しくやりすぎると「Ｏｕｔ ｏｆ ｍｅｍｏｒｙ」エラーが出ることもあります。めったにないことですが、このサンプルプログラムの方法で回避はできますよ。
