在quickbasic中接受没有循环的密钥

Question

我正在开发一个程序，在QuickBasic 4.5中为每个不同的键打开不同的程序(用于游戏)。不幸的是，循环多个INKEY$命令会导致它大部分时间没有注册。

有什么库/方法可以绕过这个问题吗？

我要说的是：

DO    
IF INKEY$ = "n" GOTO 2000
IF INKEY$ = "y" GOTO 3000
IF INKEY$ = "e" GOTO 4000
LOOP

Answer 1

像这样的东西应该管用。但是我建议您从学习如何保存到变量开始，并且在Basic中不需要GOTO，还有其他方法可以使程序在将来更容易更改。

DIM KeyPressed AS STRING

INPUT "Please Enter A Key (y,n,e): ", KeyPressed

KeyPressed = LCASE$(KeyPressed)

SELECT CASE KeyPressed
  CASE "n"
     GOTO 2000
  CASE "y"
     GOTO 3000
  CASE "e"
     GOTO 4000
END SELECT