在quickbasic中接受没有循环的键

Question

我正在开发一个程序，它可以为 QuickBasic 4.5 中的每个不同键打开不同的程序（用于游戏。）不幸的是，循环使用多个 INKEY$ 命令会导致它在大多数情况下无法注册。

有什么library/method可以解决这个问题吗？

这是我输入的内容：

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

在quickbasic中接受没有循环的键

accepting keys without loop in quickbasic

dos

quickbasic