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

［第２５回］



●ＯＮ　ＥＲＲＯＲ　ＧＯＴＯ、ＲＥＳＵＭＥ、ＥＲＣ、ＥＲＬ

ソフトウェアを作っていますと、あれもあるといいのでは、とかこれも入れておくべきでは、などと考えてどんどん機能が増えていってしまいます。
機能が増えることは決して悪いことではありません。
むしろ望ましいことなのでしょうけれどそんなことばかりしているといつになってもハードウェアの紹介に入れません。
いいかげんに区切りをつけなければと思っています。
機能的にもかなり充実してきましたので、もうこの辺りでけりをつけてハードウェアの紹介に入るべきと思います。
ところがこうしてソフトウェアの機能追加などをしていますと、それに付随してどうしても直しておかなければならないところなどが出てきて、それがもとでまた当初考えていた仕様が大きく変わってしまいます。
なかなかに悩ましいところです。
ま、しかし大体のところは固まってきたと思いますからソフトウェアについては一旦この辺りで一時休止してぼちぼちハードウェアのほうにかかりたいと思います。
その前にあと２、３の機能について簡単に説明をしておきたいと思います。
それからハードウェアの紹介に入る予定です。

ということで今回のテーマはＯＮ　ＥＲＲＯＲ　ＧＯＴＯ文です。
プログラムを実行するとさまざまなエラーが発生します。
たとえばＷｉｎｄｏｗｓなどですと、なんじゃこりゃあ？なんて意味不明のエラーメッセージが表示されることがあります。
一般ユーザーにとっては全く対処のしようがないエラーです。
ＢＡＳＩＣインタプリタの場合にはそんなことはなくてプログラムのどの行でどんなエラーかということを表示してくれます。
プログラムのデバッグ中のエラーについてはそれなりに都合がよいエラーメッセージなのですが、プログラムが完成したあとでも実行中にエラーが発生することがあります。
エラーが発生するとプログラムの実行はそこで打ち切られてエラーメッセージを表示するとともにブレークしてしまいます。
たとえば長時間のデータのサンプリングなどをおこなっているときに突然エラーでブレークしてしまうとそれ以後のデータ取得ができないためデータの連続性が失われてしまいます。
エラーの内容によってはとりあえずエラーは無視してデータの取得を続けたいという場合も多いかと思います。
そういう場合にはＯＮ　ＥＲＲＯＲ　ＧＯＴＯ文は必須の機能となります。

いつものようにプログラム例で説明をします。

ＯＮ　ＥＲＲＯＲ　ＧＯＴＯ文はプログラムのどこに置いても構いませんがプログラム中にはただ１つだけしか置くことはできません。
間違いを避けるためなるべくプログラムの先頭に置くようにしたほうがよいでしょう。
ＯＮ　ＥＲＲＯＲ　ＧＯＴＯ文はエラーが発生したときに実行したい行をラベルで指定します。
上の例はエラーが発生したときにエラーコードとエラーが発生した行を表示させるだけのプログラムです。
エラー処理対策にはなっていませんがＯＮ　ＥＲＲＯＲ　ＧＯＴＯ文の働きを理解するためのサンプルプログラムです。
ＥＲＣはエラーコードを格納するシステム変数です。
ＥＲＬはエラーの発生した行を記録するシステム変数です。
上のプログラムを実行すると＊ｅｒｒの行（行番号５０）にジャンプしてＥＲＣ＝１２、ＥＲＬ＝３が表示されます。
ＥＲＣ＝１２は除数０の割り算が行なわれたことを示しています。
ＥＲＬ＝３は３番目の行でそのエラーが発生したことを示しています。
ＥＲＬについては本来は行番号そのものを示すとよいのですがＰＩＣ−ＵＳＢＩＯ用ＢＡＳＩＣインタプリタは行番号がないプログラムでも実行することができるため、行番号ではなくて先頭からの行数で示すようにしました。
上から３番目の行は
３０　ｃ＝ａ／ｂ
です。
行番号２０でｂ＝０を実行しますから除数０での除算が実行されてしまいます。

今度はエラー対策をしたサンプルプログラムです。

これもサンプルのためのサンプルで実用的な例ではありません。
エラー処理プログラムの最後にＲＥＳＵＭＥ文があります。
ＲＥＳＵＭＥはエラーが発生してエラー処理プログラムが実行されたあと通常のプログラムに戻るための戻り先を指定する命令文です。
この例のようになにも指定しないＲＥＳＵＭＥ文が実行されるとエラーの発生した行に戻ります。

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

７０行でｂ＝２になったあと４０行に戻ります。
ｃ＝１２３４５／２
が実行されたあと５０行でｃの値を表示してブレークします。

今度はＲＥＳＵＭＥ　ＮＥＸＴの例です。

ＲＥＳＵＭＥ　ＮＥＸＴを実行するとエラー処理後にエラーが発生した行の次の行に戻ります。

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

先ほどのＲＥＳＵＭＥ文のテストではｂ＝ｂ＋２を実行したあと４０行に戻ってｃ＝ａ／ｂの計算を再度実行しましたが今回は４０行には戻らず次の５０行に戻ります。
ｃ＝ａ／ｂは計算されませんからｃの値は当初の４５６のままで終ります。

今度はＲＥＳＵＭＥ　ラベルの例です。

７０行でＲＥＳＵＭＥ　＊ｌ３０を実行します。
英小文字が見にくくてｌ（Ｌ）が数字の１に見えてしまいます。
＊１３０ではなくて＊Ｌ３０です。
エラー処理後に＊ｌ３０の行（行番号３０）に戻ります。

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

エラー処理後に＊ｌ３０の行（行番号３０）に戻ります。
その行のｐｒｉｎｔ文を実行してからｃ＝ａ／ｂ以下の命令が実行されます。
その流れでプログラムが実行され最後にｃ＝６１７２を表示してブレークしました。

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

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