有什么好办法禁止键盘的使用

游戏之家站长

我在三个循环里使用三次按ESC
下面这个程序的问题是，按一次ESC键直接到了结束程序，而显示画面2没有被执行，
请帮我添加一两个命令，让第一次按下ESC后键盘就失效，而按两次ESC才到结束程序

private sub program1()
do
IF 按下ESC then  program2:exit do
显示画面1
loop

end sub

private sub program2()
do
IF 按下ESC then  program3:exit do
显示画面2
loop
end sub

private sub program3()
do
IF 按下ESC then 结束程序 :exit do
loop
end sub

我是一个玩家

占个沙发
exit do 放在显示画面2后边

游戏之家站长

你的方法好象不行，我现在的方法是，我寻求更简单方法。

ZD=10   '子弹数量
private sub program1()
do
IF 按下ESC then  program2:exit do
显示画面1
loop

end sub

private sub program2()
do
如果开枪zd = zd - 1
IF zd < 10  and 按下ESC then  program3:exit do    '开一枪后才执行
显示画面2
loop
end sub

private sub program3()
do
IF 按下ESC then 结束程序 :exit do
loop
end sub

happyking

Dim BolESC as Boolean

KeyDown中 BolESC=True
KeyUp中  BolESC=False

private sub program1()
do
IF BolESC then  BolESC=False:program2:exit do
显示画面1
loop

end sub

private sub program2()
do
IF BolESC then  BolESC=False:program3:exit do
显示画面2
loop
end sub

private sub program3()
do
IF BolESC then BolESC=False:结束程序 :exit do
loop
end sub

happyking

游戏之家很有趣,从一个小循环,跑另一个小循环.
应该设标志量,有一个总循环就行了.
不然,你会晕的.

Devil

大侠，你应该相应 KEY_UP 事件。 不是 KEY DOWN

执着小子

4楼正解，不过TV3D中好像没有KEYDOWN和KEYUP事件

我的方法是记录上次循环时ESC按键状态
dim OldESC as Boolean

private sub program1()
do
IF 按下ESC and not OldESC then OldESC=TRUE:program2:exit do
显示画面1
loop

end sub

private sub program2()
do
IF 按下ESC and not OldESC then OldESC=TRUE:program3:exit do
显示画面2
loop
end sub

private sub program3()
do
IF 按下ESC and not OldESC then OldESC=TRUE:结束程序 :exit do
loop
end sub

OldESC= 按下ESC

Devil

一定有 buffered input 和 unbuffered input 之分，不然这个引擎就不要出来混了。

游戏之家站长

我这样做多个循环有特别意义，因为每个循环里都有一组独立的代码，谢谢各位解答。

游戏之家站长

同志们！！ 你们的方法好象不灵，
如果我在同一个循环里有多次按下ESC怎么办，如何禁止ESC，程序如下

private sub program()
do
IF 按下ESC then
做第一件事
end if

IF 按下ESC then
做第二件事
end if

IF 按下ESC then
做第三件事
end if

LOOP
end sub

但现在这样的问题是，按下ESC不是做第一件事就是第三，我需要只做一件事，上面的代码只是举例，其实我想实现的还是楼顶那贴。