Inkey$ と Input

[佐藤 寛]

#prompt
Dim a As String
Do
a=Inkey$()
Loop While Len(a)=0
Input "",a
のようにすると、Inkey$のときに押したキーがInputに表示されてしまいます。
ＢＳすればいいのですが、なにかいい方法はないでしょうか？

[Sinryow]

私のほうではそのような問題は起きませんでした（AB4.03.00）。
バージョンは何でしょうか？

[佐藤 寛]

バージョンはAB4.04.00です。

[Sinryow]

佐藤さんのバージョンの方が上ですし，バージョンの問題ではなさそうですね・・・。
※4.04で試してみましたが，こちらでは問題は起きませんでした

可能性として以下のことを考えたのですが

１）キーボードの特性。
２）ひょっとしたらですが，Inkey$でカーソルが表示されるものだと思ってらっしゃいませんか？Inkey$では出ません（出るのはInput$）。

[佐藤 寛]

> 佐藤さんのバージョンの方が上ですし，バージョンの問題ではなさそうですね・・・。
> ※4.04で試してみましたが，こちらでは問題は起きませんでした
>
> 可能性として以下のことを考えたのですが
>
> １）キーボードの特性。
> ２）ひょっとしたらですが，Inkey$でカーソルが表示されるものだと思ってらっしゃいませんか？Inkey$では出ません（出るのはInput$）。
今日コンパイルして実行してみたら、なんとおっしゃると売りカーソルの点滅だけになっていました。
ただ、実行した直後にキーを押すと、何回か無反応のときと、すぐカーソルが表示されるときと、
いろいろです。
パソコンの反応か、おっしゃるようにキーボードの問題かもしれません。
とにかくおさわがせしました。ありがとうございます。

[佐藤 寛]

> パソコンの反応か、おっしゃるようにキーボードの問題かもしれません。
> とにかくおさわがせしました。ありがとうございます。

私は、弱視なので画面読み上げソフトを併用していることが多いのです。
キーを入力すると、そのキーを音声で読み上げます。
それがバッファにはいっていて・・・
読み上げを停止してじっこうすれば、正常に動作するようです。
再度ありがとうございました。