ab.com コミュニティ

[quote]> こんにちは、こうきです。
> バージョンを書き忘れていてすみませんでした。
> ABのバージョンは4.13と4.20と4.21と3.13で確認しました。
> 私の操作できる環境にあるWindows98のパソコンでは同じような現象（キーの状態にかかわらず常に１もしくは０）がでます。[/quote]

常に0か1が返るということはGetKeyStateが全く働いてないと言うことですね。
そもそも、これらの関数はWindowsが提供しているものですからABのバグということは考えられないんですけど、こちらには98が無いので他の方にチェックしてもらうほかないです。

[quote]> Sleep()関数を入れても同様です。
> 同じプログラムでも表示が０になったり、１になったりします。
> やはりプログラムを実行してからはキーを押してもまるで反応しません。
> よろしくお願いします。[/quote]

兎に角、動かないのであれば、GetAsyncKeyStateの方を使わないとしょうがないでしょう。

ついでなので２つ関数の違いを書いておきます。

GetKeyState関数　メッセージキュー内に入っているキーの状態を取得

GetAsyncKeyState関数　キーボード上のキーの状態を取得


問題の原因を突き止めるヒントになればいいんですが、、、




[b]P.S.[/b]
そういえば95使ってたときに同じようにGetKeyStateが動かなかったような
記憶がおぼろげながらあります。
その時はAB2.55くらいだったと思いますが。。。

こんにちは、こうきです。
バージョンを書き忘れていてすみませんでした。
ABのバージョンは4.13と4.20と4.21と3.13で確認しました。
私の操作できる環境にあるWindows98のパソコンでは同じような現象（キーの状態にかかわらず常に１もしくは０）がでます。
Sleep()関数を入れても同様です。
同じプログラムでも表示が０になったり、１になったりします。
やはりプログラムを実行してからはキーを押してもまるで反応しません。
よろしくお願いします。

#N88BASIC
While 1
 cls
 Locate0,0:Print GetKeyState(VK_LEFT)
 Sleep(5)
Wend

[quote]> こんにちは、こうきです。
> AB側のバグではないのかもしれませんが、
> 現在、自宅（WindowsXp）と職場（Windows98,NT4.0Server）で
> プログラミングを行っているのですが、
> キー入力によって動作を分けるプログラムを組んでいたところ
> 職場のパソコンで実行させるときのみ
> API関数のGetKeyState()が正常な値を返しません。[/quote]

バグ報告ということで
最低でもActiveBasicのバージョンを書きましょうね。

私の方ではWindowsMeとXP、AB4.21の組み合わせて調べてみましたが、
問題の症状は出ませんでした。

[quote]> 次のプログラムで左のキーを押しても値が１しか返って（表示で）きません。[/quote]

GetKeyStateで1や0が返ってくるのは”トグル”と呼ばれる仕様ですね。
GetKeyStateが呼ばれる以前にキーが押されていた状態だと1が、
押されていない状態だと0が返ります。

[quote]> ところが次のようにCLS文とlocate文を同時に挿入すると
> 0しか返ってこなくなります。[/quote]

[code]
#N88BASIC
While 1
cls
Locate0,0:Print GetKeyState(VK_LEFT)
Sleep(5)
Wend
[/code]

待機関数を入れてみてはどうでしょうか？
テストしてみてください。

#N88BASIC
While 1
 Print GetKeyState(VK_LEFT)
Wend

#N88BASIC
While 1
 cls
 Locate0,0:Print GetKeyState(VK_LEFT)
Wend

こんにちは、こうきです。
AB側のバグではないのかもしれませんが、
現在、自宅（WindowsXp）と職場（Windows98,NT4.0Server）で
プログラミングを行っているのですが、
キー入力によって動作を分けるプログラムを組んでいたところ
職場のパソコンで実行させるときのみ
API関数のGetKeyState()が正常な値を返しません。
次のプログラムで左のキーを押しても値が１しか返って（表示で）きません。

[code]
#N88BASIC
While 1
Print GetKeyState(VK_LEFT)
Wend
[/code]

ところが次のようにCLS文とlocate文を同時に挿入すると
0しか返ってこなくなります。

[code]
#N88BASIC
While 1
cls
Locate0,0:Print GetKeyState(VK_LEFT)
Wend
[/code]

家のＸＰマシンでは正常に動くのでプログラム自体にはエラーはないと思われます。

GetAsyncKeyState()関数の方は正常に動作しているので
こちらを使えばいいのですが、どうも気になるので、
ここに報告いたします。
どなたか同じような結果になったかたいっらっしゃいますでしょうか？