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

［第４０回］



●ＩＮＰＵＴ＄

説明していない入力命令（正確に言うと命令ではなくて関数ですが）がもうひとつありました。
それが今回説明するＩＮＰＵＴ＄です。

ＩＮＰＵＴ＄の書式です。
ＩＮＰＵＴ＄（ｎ）

ｎは１〜４０の整数値で整数型の変数、配列を書くこともできます。
ＩＮＫＥＹ＄（［第３８回］参照）に似ていますがＩＮＫＥＹ＄は文字を１個入力するとすぐにリターンします。
それに対してＩＮＰＵＴ＄（ｎ）はキーボードからｎ個の文字を入力するまでリターンしません。
入力する文字は画面には表示されません（これはＩＮＫＥＹ＄と同じです）。
ＩＮＫＥＹ＄はＡＳＣＩＩコードの＄２０（１０進数の３２、ＳＰＡＣＥの文字コード）〜＄７Ｄ（１０進数の１２５、　｝　の文字コード）に対応する文字しか入力できませんが、ＩＮＰＵＴ＄（ｎ）はそれ以外の文字も入力できます。

まずは簡単な使用例です。

プログラムを実行していますが２０行のｉｎｐｕｔ＄（５）のところで入力待ちになっています。
このとき画面にはカーソルマークは表示されません。
指定した５文字を入力し終わるまでこの画面のままで次に進みません。

５文字（ａ　ｂ　ｃ　ｄ　ｅ）を入力しました。

指定した文字数だけ入力するとｉｎｐｕｔ＄は終了して次の命令の実行に移ります。
ｉｎｐｕｔ＄は最後に［Ｅｎｔｅｒ］を入力する必要はありません。
［Ｅｎｔｅｒ］を入力するとそれも１文字に数えられます。

コード＄２０〜＄７Ｄ以外の文字コードに対応する文字キーの入力例です。

入力する文字キーによってはそのまま前のプログラムのようにＰＲＩＮＴ文で表示すると画面の制御に異常が出る可能性がありますからプログラムを変えて１文字ずつ文字コードで表示するようにしました。
４、５、６、８、１３
と表示されました。
［Ｃｔｒｌ］［ｄ］、［Ｃｔｒｌ］［ｅ］、［Ｃｔｒｌ］［ｆ］、［Ｂａｃｋ　Ｓｐａｃｅ］、［Ｅｎｔｅｒ］を入力した結果の表示です。
［Ｂａｃｋ　Ｓｐａｃｅ］はコード０８で［Ｅｎｔｅｒ］はコード０Ｄ（１０進数では１３）です。
なお［Ｃｔｒｌ］［ｂ］を入力すると実行中のＢＡＳＩＣプログラムがブレークしてしまいます。
また［Ｃｔｒｌ］［ｃ］を入力するとＢＡＳＩＣシステムが終了してコマンドプロンプトに戻ります。
ここではたまたま最後に［Ｅｎｔｅｒ］を入力しましたが上に書きましたようにＩＮＰＵＴ＄では最後に［Ｅｎｔｅｒ］を入力する必要はありません。
誤解されそうな実行例になってしまいましたのでもうひとつ実行例をお見せします。
今度は最初に［Ｅｎｔｅｒ］を入力しました。

［Ｅｎｔｅｒ］、［！］、［”］、［＃］、［＄］を入力しました。
１３は１６進コードでは０Ｄです。
３３はコード２１
３４はコード２２
３５はコード２３
３６はコード２４です。
この例のように［Ｅｎｔｅｒ］も１文字に数えられています。

そうでした。
ＰＩＣ−ＵＳＢＩＯ用ＢＡＳＩＣには１６進数で表示することのできる関数ＨＥＸ＄（）がありますから、それを使えばよかったのでした。
今度はもう一度同じことをＨＥＸ＄（）を使ってやってみます。

６０行を変更しました。
今度は１６進数で表示されました。

ＩＮＰＵＴ＄（ｎ）の書式の説明のところで「ｎには整数型の変数も書くことができる」と説明しました。
下はｎに整数型の変数を使った例です。

ＩＮＰＵＴ＄（ｎ）のｎに変数名として「ｍｏｊｉｓｕ］を使いました。

なおキーの入力例として［Ｃｔｒｌ］［ｄ］、［Ｃｔｒｌ］［ｅ］、［Ｃｔｒｌ］［ｆ］や［Ｅｎｔｅｒ］、［ＢａｃｋＳｐａｃｅ］などを使いましたがどんなキーでも入力できるということではありません。
フルキーボードの特殊キーは入力できないものがほとんどです。
フルキーボードの［１］〜［ＢａｃｋＳｐａｃｅ］から［ｚ］〜［／］の範囲にあるキー以外のキーのキーコードにはコード００を含むものや２バイトのものなどが多く、それらのキーをＩＮＰＵＴ＄（）で入力しようとしても応答しなかったりエラーになったりします。

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

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