在quickbasic中接受沒有循環的鍵

我正在開發一個程序，爲QuickBasic 4.5內部的每個不同的鍵打開不同的程序（對於遊戲）。不幸的是，循環多個INKEY $命令會導致它不能註冊大部分時間。在quickbasic中接受沒有循環的鍵

是否有任何庫/方法來解決這個問題？

這是我放：

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

來源

2017-06-04 Mark

將關鍵字保存到變量中，然後進行比較。每一次使用'INKEY $'都會讀取另一個字符。 –

我該怎麼做？（我是一個noob在這。） – Mark

這樣的事情應該工作。但我建議你從學習如何保存變量開始，並且不需要基本的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

來源

2017-06-05 16:12:40

您的UCASE $應改爲LCASE $ – eoredson

@eoredson，正確。我現在改變了它。感謝您的注意。 –

在quickbasic中接受沒有循環的鍵

回答

相關問題