Question

我正在开发一个程序，为QuickBasic 4.5（游戏）中的每个不同键打开不同的程序。不幸的是，循环多个INKEY $命令会导致它在大多数时间没有注册。 / p>

是否有任何库/方法可以解决这个问题？

这是我投入的内容：

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中接受没有循环的键

1 个答案: