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

［第１９２回］



●ＰＩＣＵＳＢＩＯ用ＢＡＳＩＣ説明書（６）ＢＡＳＩＣ命令（３）ＩＦ．．．ＴＨＥＮ

今回は説明書の訂正です。
［第１９０回］の「ＩＦ文」の説明のところで
ＩＦ．．．ＴＨＥＮ、ＩＦ．．．ＴＨＥＮ．．．ＥＬＳＥはありません。
ＩＦ．．．ＧＯＴＯだけです。
と書きました。
確かに少し前まではその通りだったのですが…。

「ＩＦ　ＴＨＥＮ」はプログラムとしてはちょいと面倒な作業を必要とします。
ＰＩＣＵＳＢＩＯ用のＢＡＳＩＣについてはなるべく簡単に仕上げたいという思いがあって「ＩＦ　ＴＨＥＮ」については見送ることにしたという経緯があります。
そうだったのですが先日たまたまプログラムの構成を見直していて、「ＥＬＳＥ」まではちょっとしんどいけれど「ＩＦ．．．ＴＨＥＮ」だけならなんとかなりそうだというプログラムの変更方法を思いつきました。
突然のひらめきです。
それでそのひらめきに従ってプログラムを追加変更したところ「ＩＦ．．．ＴＨＥＮ」も使えるようになりました。
それはまだつい２週間ほど前のことだったのですが、悲しいことにもうすっかり完全に忘れてしまっておりました。
さすがにわれながらひどいものだと思います。
ノートを整理していてたまたまその変更について記録しているところをみつけました。
当然その時点でプログラムも変更していたのですがそのことをすっかり忘れてしまっておりましたので［第１９０回］の説明を書くときに変更前のプログラムでテストをしてしまいました。
その結果として
「やっぱりＩＦ．．．ＴＨＥＮはできないな」
ということで間違った説明文を書いてしまいました。

そこで訂正です。
ＩＦ．．．ＴＨＥＮ．．．ＥＬＳＥはできませんがＩＦ．．．ＴＨＥＮはできるようになりました。
下はテストプログラムの実行画面です。

ＴＨＥＮの後ろには　：　を使って複数の文を書くことができます。
ＩＦ．．．ＴＨＥＮ　ＧＯＴＯ
は
ＩＦ．．．ＧＯＴＯ
と書くこともできます。

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

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