dos - 在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