Akzeptieren von Schlüsseln ohne Schleife in QuickBasic

Question

Ich arbeite an einem Programm, das verschiedene Programme für jeden einzelnen Schlüssel in QuickBasic 4.5 (für ein Spiel) öffnet. Leider mehr als einen INKEY $ -Befehl Schleife führt dazu, dass es meist nicht registriert die Zeit.

Gibt es eine Bibliothek/Methode, um dies zu umgehen?

Hier ist, was ich legte in:

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

Answer 1

So etwas wie dies funktionieren sollte. Aber ich schlage vor, Sie beginnen zu lernen, wie man in Variablen speichert, und Sie brauchen GOTO in Basic nicht, es gibt andere Möglichkeiten, die das Programm in der Zukunft leichter ändern lassen.

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