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

［第３１回］



●ＯＮ　ＥＲＲＯＲ　ＧＯＴＯ　行番号

前回までのところでＧＯＴＯ文、ＧＯＳＵＢ文、ＲＥＳＴＯＲＥ文を行番号に対応するように機能を拡張しました。
今回はＯＮ　ＥＲＲＯＲ　ＧＯＴＯ文です。
ＧＯＴＯ文の仲間ですが使い方が特殊です。
ＯＮ　ＥＲＲＯＲ　ＧＯＴＯ文が書かれている行は通常は実行されません（ＥＲＲＯＲが発生したときのためにＧＯＴＯ文が指定している行を読み込んで記録しておくだけです）。
その意味ではＲＥＭＡＲＫ文やＤＡＴＡ文に近いといえます。
もしもプログラムの実行中にエラーが発生するとＯＮ　ＥＲＲＯＲ　ＧＯＴＯ文がどこに書かれていても、そのＯＮ　ＥＲＲＯＲ　ＧＯＴＯ文が指定する行が実行されます。
ＯＮ　ＥＲＲＯＲ　ＧＯＴＯ文も現行ではエラーが発生したときに実行される行をラベルで指定するようになっています。
今回はそこのところを行番号で指定することができるように機能を拡張しました。
以下はそのように機能拡張したＯＮ　ＥＲＲＯＲ　ＧＯＴＯ文の動作テストです。

下のプログラムは［第２５回］でテストに使ったサンプルプログラムです。

もとのプログラムでは最初の１０行にＯＮ　ＥＲＲＯＲ　ＧＯＴＯ　＊ｅｒｒ　があります。
そして５０行に　＊ｅｒｒラベル　があります。
この５０行がエラーが発生したときに実行される行です。
そこのところを　ＯＮ　ＥＲＲＯＲ　ＧＯＴＯ　行番号　に対応するように書き換えます。

今までと同様にスクリーンエディタの機能を使うことで簡単にプログラムの変更ができます。
カーソルを１０行に移動してそこで　＊ｅｒｒ　を　５０　に書き換えて［Ｅｎｔｅｒ］を入力しました。
５０行はこれもスクリーンエディタの機能を使ってカーソルを５０行まで移動してそこで　＊ｅｒｒラベル　を削除して［Ｅｎｔｅｒ］を入力しました。

そのように変更したあと／ｃｏｎｖを実行し中間言語型に変更しました。
そのあとｒｕｎコマンドを入力してプログラムを実行しました。

［第２５回］と同じ結果になりました。
これで　ＯＮ　ＥＲＲＯＲ　ＧＯＴＯ　行番号　が正しく実行されることが確認できました。

ＧＯＴＯ文、ＧＯＳＵＢ文、ＲＥＳＴＯＲＥ文ではダイレクトモードについてのテストも行ないました。
しかしＯＮ　ＥＲＲＯＲ　ＧＯＴＯ文は特殊なのでダイレクトモードでは実行できません。
ＯＮ　ＥＲＲＯＲ　ＧＯＴＯ文はプログラムの中にだけ書くことができます。

ＧＯＴＯ文、ＧＯＳＵＢ文、ＲＥＳＴＯＲＥ文と同じようにＲＥＮで行番号が正しく変更されるかどうかを確認してみました。
今までと同じようにプログラムの先頭に
５’
を追加したあと、ＲＥＮコマンドを実行してからＬＩＳＴコマンドを実行しました。

もとのプログラムでは
１０　ｏｎ　ｅｒｒｏｒ　ｇｏｔｏ　５０
だったところがＲＥＮ実行後は
２０　ｏｎ　ｅｒｒｏｒ　ｇｏｔｏ　６０
に変更されました。

念のため／ｃｏｎｖを実行して中間言語型に翻訳したあとｒｕｎコマンドを実行しました。

プログラムが正しく実行されたことが確認できました。
ＲＥＮを実行する前のプログラムではエラーが発生したときの行Ｎｏ．が３でしたが、１行を追加してＲＥＮを実行しましたからエラーが発生したときの行Ｎｏ．が４になりました。

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

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