ＰＩＣ−ＵＳＢＩＯ　ｕｓｉｎｇ　ＢＡＳＩＣ
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
ＵＳＢインターフェースを内蔵したＰＩＣを使ってＷｉｎｄｏｗｓパソコンで外部回路を制御するための各種Ｉ／Ｏ基板の製作記事です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜

［第２４回］



●ＤＡＴＡ、ＲＥＡＤ、ＲＥＳＴＯＲＥ

前回は「ＴＥＸＴ型のＢＡＳＩＣインタプリタから中間言語型のＢＡＳＩＣインタプリタへの変更に至った理由のうちのひとつがマルチステートメント機能でした」と書きました。
今回のテーマ、ＤＡＴＡ文も大きな理由のひとつでした。
ＤＡＴＡ文は実行文ではありません。
ＲＥＡＤ文で読み取るためのデータをカンマで区切って定義するための文です。
ＲＥＡＤ文はＤＡＴＡ文で定義されたデータを先頭から順に読み取って変数に格納します。
ＤＡＴＡ文はプログラムのどこにでも複数置くことができます。
当然そのデータを読み込むＲＥＡＤ文からみるとＤＡＴＡ文はプログラムの先頭から最後までのどこかにあってしかもそれをプログラムの先頭に近い位置にあるＤＡＴＡ文のデータから順番に読んでいかなければなりません。
前回のマルチステートメントよりももっと負荷のかかる厄介な機能です。
当初はこんな面倒な機能は作らないでおこうと思っていたのですけれど（というよりハナから考えていなかったのですが）やっぱりあったほうがいいだろうなあと考えるようになってきてしまいました。
かくして機能はどんどんと肥大化していってしまいます。
ともかく。
そういうＤＡＴＡ文、ＲＥＡＤ文をプログラムに組み込むということになりますと、これはもう覚悟を決めて中間言語型のＢＡＳＩＣでいくしかありません。
ということで前回のマルチステートメントに続いてＤＡＴＡ文、ＲＥＡＤ文も中間言語型のＰＩＣ−ＵＳＢＩＯ用ＢＡＳＩＣインタプリタに組み込んでしまいました。
下はテストプログラムとその実行結果です。

ＤＡＴＡ文はデータをカンマで区切って複数個定義することができます。
今回の例ではデータは数値のみですが文字型のデータも書くことができ、数値型と文字型を混載させることもできます。
ＲＥＡＤ文はＤＡＴＡ文のデータを読み取るための文でこちらもカンマで区切って複数個の変数を書くことができます。
ＲＥＡＤ文はプログラムの先頭に近いところにあるＤＡＴＡ文のデータから順に読み込んでいきますが、読み込む順番を変えることもできます。
ＲＥＳＴＯＲＥ文を使うとＲＥＡＤ文で読み込む順番を変更することができます。
行番号５０のＲＥＳＴＯＲＥ文のようになにもつけない場合にはＲＥＡＤ文の読み込み順はリセットされてポインタがプログラムの先頭に一番近い位置にあるＤＡＴＡ文にセットされます。
行番号７０のようにＲＥＳＴＯＲＥ文でラベルを指定するとＲＥＡＤ文が読み込むためのポインタはそのラベル位置のＤＡＴＡ文にセットされます。
上の例では４０行のＲＥＡＤ文で変数ａ、ｂ、ｃに行番号１０のＤＡＴＡ文の１２３、４５６、７８９がそれぞれ読み込まれたあと、ｄ、ｅ、ｆに行番号２０のＤＡＴＡ文の１、２、３が読み込まれ、そのあとｇに行番号３０のＤＡＴＡ文の４が読み込まれます。
そのあと行番号５０のＲＥＳＴＯＲＥ文でＲＥＡＤ文の読み込み順はクリアされ、ポインタは行番号１０のＤＡＴＡ文に再セットされます。
その後の行番号６０のＲＥＡＤ文では変数ｈに１２３が読み込まれます。
その次の行番号７０のＲＥＳＴＯＲＥ文で行番号２０（ラベル＊ａｂｃ）のＤＡＴＡ文にポインタがセットされるためその次の行番号８０のＲＥＡＤ文で変数ｉ、ｊ、ｋには１、２、３が読み込まれます。

ＲＥＡＤ文には変数だけではなくて配列も書くことができます。
下は上のプログラムの変数の代わりに配列を使った例です。

／ＣＯＮＶの表示でプログラムの先頭がスクロールされてしまったのでスクリーンエディタのページモードで消えた部分を呼び戻しています。
［ＰａｇｅＵｐ］キーでスクロール画面の上方向を見ることができます。
［ＰａｇｅＤｏｗｎ］ではその逆の動きになります。
［Ｅｎｄ］で現在の画面に戻ります。

ＲＵＮコマンドでプログラムを実行しました。

さきほどのプログラムの変数を配列に置き換えただけなので、プログラムを実行した結果は同じになりました。

今度はＤＡＴＡ文に数値だけではなくて文字列も混載したプログラム例です。

ＤＡＴＡ文に文字列を書くときは”　”では囲まず文字列のみを記述します。
”　”で囲むと”　”も文字列の一部とみなされます。
上のプログラムはテストのためわざと最初のプログラムのＤＡＴＡ文の一部を書き換えただけでＲＥＡＤ文はもとのままにしました。
プログラムを実行した結果です。

まだＢＡＳＩＣインタプリタは作成中なのでデバッグのためのデータも表示されています。
プログラムの実行中にエラーが発生するとそこでブレイクして、エラーコードとエラーが発生したプログラム行が表示されます。
エラーコード（ｅｒｃ）は２９と表示されています。
ＲＥＡＤ文の変数とＤＡＴＡ文の型が合わないときに表示されます（ｅｒｃ＝２９はそのほかの場合にも表示されることがあります）。

エラーにならないようにＲＥＡＤ文を変更しました。

文字型の変数名は名前の最後に＄をつけて表します。

実行しました。

今度はエラーにならずに正しく実行されました。
数値型の変数に文字型のデータを読み込むとエラーになりますが逆に文字型の変数に数値型のデータを読み込んでもエラーにはなりません。
数値を文字として読み込むからです。

今度もテストのためＲＥＡＤ文を追加しました。

８５行のｒｅａｄ　ｐです。
その前の８０行のＲＥＡＤ文でＤＡＴＡ文のデータはちょうど最後まで読み終わります。
ＲＥＳＴＯＲＥ文を使わないで、そのあとにさらにＲＥＡＤ文を置いたらどうなるかというテストプログラムです。

プログラムを実行しました。

今回もｅｒｃ＝２９が表示されました。
ＲＥＡＤ文の変数とＤＡＴＡ文のデータの型が合わないときだけではなくて、今回の例のようにＲＥＡＤ文で読み込むためのＤＡＴＡ文が存在しないときにもｅｒｃ＝２９が表示されます。

ＰＩＣ−ＵＳＢＩＯ　ｕｓｉｎｇ　ＢＡＳＩＣ［第２４回］
２０２２．７．１７ｕｐｌｏａｄ

前へ
次へ
ホームページトップへ戻る