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

［第２７回］



●ＧＯＴＯ　行番号

前回はダイレクトモードについて説明しました。
前回をお読みになってあるいは気付かれた方もいらっしゃったかもしれません。
下は前回の説明に使ったサンプルプログラムです。

このプログラムに対してダイレクトモードで　ｇｏｔｏ　＊ａｂｃ　と入力することでダイレクトにプログラムの途中の行から実行できるということを説明しました。
そこのところについては、いかにも苦しい説明だなあ、と思いつつ書きました。
このプログラムの中では＊ａｂｃにアクセスしている命令はありません。
実はダイレクトモードでｇｏｔｏ文を使う例として必要なため、プログラムに追加したのでした。
つまり。
現行の仕様ではあらかじめダイレクトモードでエントリするかもしれないと予想してその対象となるであろう行にラベルをつけておかなければならないのです。
それじゃあ事実上はダイレクトモードではｇｏｔｏ文は使えないことになります。

ということになりますと。
それはつまり　ｇｏｔｏ　行番号　の機能が必要だということになってしまいます。
そうなったら作らないわけにはまいりませんでしょう。
だからといってそれなら「ダイレクトモードだけに　ｇｏｔｏ　行番号　を使えるようにしました」なんて中途半端なことはできませんでしょう。
結局これも当初の仕様を変更して、プログラム中でもダイレクトモードでも　ｇｏｔｏ　行番号　を使えるようにしてしまいました。

以下はそのように機能を変更したＰＩＣ−ＵＳＢＩＯ用ＢＡＳＩＣの動作テストの様子です。
まずは前回のテストプログラムから＊ａｂｃラベルを外して念のためプログラムを実行しました。

ラベルを外しただけですからふつうに実行できました。

ここからが動作テストです。

ダイレクトモードで　ａ＝１０：ｇｏｔｏ　３０　と入力しました。
ここは前回　ａ＝１０：ｇｏｔｏ　＊ａｂｃ　と入力したところです。
ｇｏｔｏ　＊ａｂｃ　の代わりに　ｇｏｔｏ　３０　をダイレクト実行して正しく実行されることが確認できました。

上では　＊ａｂｃラベル　を外してから　ｇｏｔｏ　３０　をダイレクト実行しましたが、ラベルを外さなければならないということではありません。

前回の通り　＊ａｂｃ　をつけたままのプログラムに対して　ｇｏｔｏ　３０　をダイレクト実行してみました。
問題なく正しく実行できました。

ここまでは前回のテストと同様に行番号３０に対して　ｇｏｔｏ　３０　をダイレクト実行しましたが、　ｇｏｔｏ　ラベル　だけではなくて　ｇｏｔｏ　行番号　も実行できるようになりましたからどの行番号に対してもｇｏｔｏ文をダイレクト実行できます。
その例として　ｇｏｔｏ　４０　をダイレクト実行してみました。

ダイレクトモードではこの例のように変数に値を代入したりｇｏｔｏ文を実行したりするだけではなくて計算式を実行させることもできます。
またそのほかの命令文も１行で記述するならばプログラム中で実行するのと同じようにダイレクト実行することができます。

ここまでは　ｇｏｔｏ　行番号　をダイレクトモードで使いました。
上のほうに書きましたように今回の機能変更では　ｇｏｔｏ　行番号　はダイレクトモードだけではなくて通常のプログラムの中でも普通に使えるようにしました。
以下は　ｇｏｔｏ　行番号　をプログラム中で使った場合の動作テストです。
下でｌｏａｄしたプログラム（ｔｅｓｔ６７．ｔｘｔ）は［第１０回］で使いました。
ｇｏｔｏ　ラベル　の説明のためのプログラムです。

このプログラムの　ｇｏｔｏ　ラベル　をｇｏｔｏ　行番号　に書き換えます。

画面コピーを取らずに作業を先に進めてしまいましたので［ＰａｇｅＵｐ］キーでスクロールダウンしてから画面をコピーしました。
ＰＩＣ−ＵＳＢＩＯ用ＢＡＳＩＣにはこういう便利な機能もついているのです。

２０行の＊ｌｏｏｐ、６０行の＊ｅｎｄを外すとともに５０行の　ｇｏｔｏ　＊ｌｏｏｐ　を　ｇｏｔｏ　２０　に、４０行の　ｇｏｔｏ　＊ｅｎｄ　を　ｇｏｔｏ　６０　に書き換えました。

そのように変更したあと、／ｃｏｎｖを実行してからｒｕｎコマンドを実行しました。

プログラム中の　ｇｏｔｏ　ラベル　を　ｇｏｔｏ　行番号　に書き換えたプログラムも正しく実行できました。

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

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