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

［第２８回］



●ＲＥＮ（リナンバー）

前回は　ｇｏｔｏ　ラベル　に加えて　ｇｏｔｏ　行番号　の機能も追加しました。
しかし　ｇｏｔｏ　行番号　の機能追加をするためにはどうしても考えなければならない問題をクリアする必要があります。
それはＲＥＮ（リナンバー）の機能です。
ＲＥＮは行番号を付け変える機能です。
行番号付きのプログラムを作成していると、その途中で行の削除や追加が必要になることがあります。
行の削除は対象になる行の行番号だけを入力すればその行全体を削除することができます。
これに対して行を追加したい場合には行番号の並びに合わせて間の行番号をつけた行を作成します。
たとえば行番号が１０、２０、３０…と続いているときに行番号２０の行と３０の行の間に１行追加したい場合には、その行の行番号を２５にすれば追加することができます。
この場合にはもちろん２５ではなくても２１〜２９のいずれの数でも構わないのですがさらに追加が必要になったときのことを考えると２５にするのが妥当だといえます。
とにかくそのようにすると最初は１０、２０、３０というようにきれいに並んでいた行番号がだんだん不揃いになってきます。
上の例では１０、２０、２５、３０…というようになります。
それではいかんということではありませんがきれいに並べ直したいと思うのが人情です。
あるいは特定のところにたくさんの行を追加する必要が出てきてどうしても並べ直さなければならないということもあるかもしれません。
たとえば１０、２０、２１、２２、２３、２４、２５、３０…と追加をしてきてさらに２０と２１との間に追加が必要になってしまった場合などは行番号を付け直すしかほかに方法はありません。
そのようなときに使うのがＲＥＮコマンドです。
上の例でＲＥＮコマンドを使うと１０、２０、２１、２２、２３、２４、２５、３０…だったものが１０、２０、３０、４０、５０、６０、７０、８０…のように行番号が付け直されます。

以上ＲＥＮについて簡単に説明をしましたので、あらためて今回の書き出しのところに戻ります。
今回の書き出しのところでは　ｇｏｔｏ　行番号　を使えるようにした場合にＲＥＮが問題になる、と書きました。
それがどういうことなのか。
今までと同様、プログラム例で説明をします。
下は前回　ｇｏｔｏ　行番号　の説明に使ったプログラムです。

プログラムの先頭に１行追加しました。
このプログラムに対してＲＥＮコマンドを使うと先頭に追加した行番号５が１０になるため、その次の１０が２０に２０が３０にというように行番号が１０ずつずれて付け直されます。
すると何が問題になるのかおわかりになりますでしょうか。
５０行の　ｇｏｔｏ　２０　は　ｇｏｔｏ　３０　に直さなければなりません。
４０行の　ｇｏｔｏ　６０　は　ｇｏｔｏ　７０　に直さなければなりません。
それをあとから手作業で直す、なんてわけにはいきませんでしょう。
当然ＲＥＮコマンドの機能として、影響がある部分の　ｇｏｔｏ　行番号　も同時に直すことが要求されます。
そうしなければならないということがわかっていましたので、当初の仕様では　ｇｏｔｏ　行番号　ではなくて　ｇｏｔｏ　ラベル　でいくことにしたのです。
ラベルならばＲＥＮの問題はおきません。
行番号ではなくてラベルにすると決めたのはテキストエディタを使ってプログラムを作成する場合には行番号は邪魔になるだけだから、という理由も勿論ありました。
まあしかし、気持ちとしては　ｇｏｔｏ　行番号　にするとＲＥＮが面倒だなあと思ったことがより大きかったのも事実です。
しかししかし、今更引き返すわけにはいきません。
覚悟を決めてＲＥＮもそのように直してしまいました。
なるべく簡単で手間のかからない（私にとっての意味です）ＢＡＳＩＣを作ろうと考えていたのですけれど、もうめちゃめちゃ手間のかかるＢＡＳＩＣになってしまいました。
と過去形で書きましたけれど、正しくは現在進行形なのです（ただでさえ暑い夏ですのにもう暑いったらありませぬ。暑い！）。
下はそのように直したＲＥＮコマンドを使ったところです。

行番号が付け直されるとともに　ｇｏｔｏ文のところも番号が付け直されています。

念のためそのように直したプログラムを実行してみました。

もとのプログラムと同じように正しく実行されました。

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

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