我正在開發一個程序,爲QuickBasic 4.5內部的每個不同的鍵打開不同的程序(對於遊戲)。不幸的是,循環多個INKEY $命令會導致它不能註冊大部分時間。 是否有任何庫/方法來解決這個問題? 這是我放: DO
IF INKEY$ = "n" GOTO 2000
IF INKEY$ = "y" GOTO 3000
IF INKEY$ = "e" GOTO 4000
LOOP
我有一個使用標籤,它的一個例子是下面的一些代碼: SUB occupy (x)
occupied(x) = 0
FOR i = 1 TO 40
IF armyloc(i) = x THEN
occupied(x) = i
GOTO holdup
ELSE
END IF
NEXT i
holdup:
END SUB
正如你所看到的,它使用了標籤滯留跳出FOR.
我在QuickBasic逆向工程,我有這樣的代碼: FOR i = star TO fin
IF a < 1 THEN
CALL clrbot
COLOR 15
PRINT force$(side); " army in "; city$(armyloc(i)); " is CUT OFF !";
TICK turbo!
GOTO alo
我的代碼看起來像這樣: IF INKEY$ <> "" THEN CALL notitle
PLAY "MST170o1e8o0b8o1e8"
IF INKEY$ <> "" THEN CALL notitle
PLAY "e8e4f#8g4f#8"
IF INKEY$ <> "" THEN CALL notitle
PLAY "g4