ＰＩＣ−ＵＳＢＩＯ ｕｓｉｎｇ ＢＡＳＩＣ
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
ＵＳＢインターフェースを内蔵したＰＩＣを使ってＷｉｎｄｏｗｓパソコンで外部回路を制御するための各種Ｉ／Ｏ基板の製作記事です。
〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜〜
［第３６回］
●ＰＩＣＵＳＢＩＯ−０１（３） ルーレット、ＩＮＫＥＹ＄
ＰＩＣなどのプログラムの初歩的なサンプルでは出力にＬＥＤを接続してそれを点灯させてみましょうというようなものがよくあります。
でもそれは前回やってしまいました。
次によくあるのはたとえば８ビットの出力の全部にＬＥＤをつけてそれを順次点灯させながら入力に設定したポートをＧＮＤにショートさせてその入力を確認したらそこでＬＥＤ表示を停止するというようなものがあります。
電子ルーレットです。
今回はそれをやってみましょう。
前回は本当に簡単なプログラムでしたが今回はそれよりは少しマシなプログラムです。
今回もあらかじめ作ったプログラムをロードしました。
Ａポート〜Ｃポートの先につないだＬＥＤを最初は右端（ビット０）だけ点灯させます。
次に点灯させるビットを右から左に順に移動させていきます。
左端（ビット７）まできたら最初に戻って右端のビット０を点灯させます。
ビットデータをシフトさせるにはどうしたらよいか考えてしまいそうですが、１ビットだけの値を左にシフトさせるなら今回のプログラムのように元の値を２倍すればよいのです。
ＢＡＳＩＣは便利です！
このプログラムをそのまま繰り返すと速過ぎてＬＥＤが全点灯しているように見えるのでルーレートになりません。
８０行のＦＯＲ〜ＮＥＸＴ文で表示が見える程度にスローダウンさせています。
ちなみに同じプログラムをＮＤ８０Ｚ３．５でも試してみました。
ＮＤ８０Ｚ３．５のＢＡＳＩＣでは変数名がＡとかＣとかにすると実数型の演算になってしまうのでそれを整数型（Ａ％、Ｂ％、Ｃ％）に変えて、かつＩ／Ｏポートのアドレスも＄８０〜＄８３に変えて試してみました。
そのほかＮＤ８０Ｚ３．５の場合にはＩＮＫＥＹ＄がＵＳＢを介してＺ８０ＣＰＵに送られるため応答がよくありません。
そこで７０行はコメント文にしてテストしました。
さすがに８ビットＣＰＵでクロック６ＭＨｚですからＷｉｎｄｏｗｓマシンにはかないません。
８０行を
８０ ＦＯＲ Ｃ％＝０ ｔｏ １０００：ＮＥＸＴ Ｃ％
にして大体同じ速度になりました（それでもまだ少し遅いかなあというぐらいの速度です）。
それでも８ビット６ＭＨｚであることを考えるとＺＢ３ＢＡＳＩＣは結構高速だと思います。
というか逆に言えばＰＩＣＵＳＢＩＯ用ＢＡＳＩＣはそれほど速くないという印象です。
まあ「Ｃコンパイラで作ったＢＡＳＩＣ」ですからこんなものかなあと思います。
プログラムの説明に戻って、ビット表示をするごとに７０行のところでキーボードからの入力をチェックしていて［ｚ］キーが押されたらそこでブレークします。
ＩＮＫＥＹ＄はキーボードの状態をチェックしていて何かキーが押されたらその文字コードを持ってリターンします。
何もキーが押されていないときはコード００（ヌルコード）を持ってリターンします。
ＡＳＣＩＩコードの２０〜７Ｄに対応する文字キー以外は押しても００コードになります。
コード２０〜７Ｄは「ＳＰＡＣＥ」〜「｝」の文字コードです。
プログラムを実行しました。
いまどきですから動画にしてｙｏｕｔｕｂｅにでもＵＰすればよいのでしょうけれど、不慣れですしそんなことをやっている暇はありません。
静止画で勘弁願います。
実際は０．１秒ぐらいで右から左に表示が移動していきます。
「ｚ」キーを入力しました。
そのときのビット位置（ｂの値）を表示してブレークしました。
そのときのＬＥＤの表示です。
この状態で表示は停止しています。
ところで上のところでＮＤ８０Ｚ３．５のＺＢ３ＢＡＳＩＣでテストしていて気が付きました。
今回の場合にはＩＮＫＥＹ＄を使う必要はありませんでした。
７０行を削除してＩＮＫＥＹ＄を使わない状態でプログラムを実行しておいて、キー入力の代わりに［Ｃｔｒｌ］［ｂ］を入力すればそれでよかったのでした。
７０行をコメント文にしておいてスタート後に［Ｃｔｒｌ］［ｂ］を入力してブレークしました。
ＰＩＣＵＳＢＩＯ用ＢＡＳＩＣでは［Ｃｔｒｌ］［ｂ］を入力する（［Ｃｔｒｌ］キーを押した状態で［ｂ］キーを押す）とＲＵＮで実行中のユーザーのＢＡＳＩＣプログラムがブレークします。
なお［Ｃｔｒｌ］［ｃ］ではＢＡＳＩＣシステムそのものがブレークしてコマンドプロンプトに戻ります。
ＰＩＣ−ＵＳＢＩＯ ｕｓｉｎｇ ＢＡＳＩＣ［第３６回］
２０２２．８．１１ｕｐｌｏａｄ
前へ
次へ
ホームページトップへ戻る