主菜单制作在QBasic (QB64)?

Question

我很久以前制作了这个菜单，但是我大约2天前找到了这个文件，我想让它工作

CLS
FOR k = 10 TO 65
LOCATE 2, k: PRINT CHR$(222)
LOCATE 23, k: PRINT CHR$(222)
LOCATE 4, k: PRINT CHR$(222)
LOCATE 20, k: PRINT CHR$(222)
NEXT
FOR k = 2 TO 23
LOCATE k, 10: PRINT CHR$(222)
LOCATE k, 65: PRINT CHR$(222)
NEXT
LOCATE 3, 35: PRINT "M A I N   M E N U"
LOCATE 6, 15: PRINT "[1] First Option"
LOCATE 8, 15: PRINT "[2] Second Option"
LOCATE 10, 15: PRINT "[3] Third Option"
LOCATE 12, 15: PRINT "[4] Fourth Option"
LOCATE 14, 15: PRINT "[5] Exit"
LOCATE 21, 15: INPUT "Enter your option"; op

现在，我想让它工作，例如:如果我按1，它会自动转到那个选项，等等…

Answer 1

使用整型变量比使用浮点型变量要快。出于效率考虑，可以将k和op变量更改为k%和op%。

要在此菜单中吹一些活，您有许多可能性。按个人喜好排序:

使用SELECT CASE

DO
CLS
...             ' the instructions that build your menu
LOCATE 21, 15: INPUT "Enter your option"; op%
SELECT CASE op%
CASE 1
...         ' instructions belonging to 1st option
CASE 2
...         ' instructions belonging to 2nd option
CASE 3
...         ' instructions belonging to 3rd option
CASE 4
...         ' instructions belonging to 4th option
CASE 5
END
END SELECT
LOOP

使用IF

DO
CLS
...             ' the instructions that build your menu
LOCATE 21, 15: INPUT "Enter your option"; op%
IF op%=1 THEN
...           ' instructions belonging to 1st option
ELSEIF op%=2 THEN
...           ' instructions belonging to 2nd option
ELSEIF op%=3 THEN
...           ' instructions belonging to 3rd option
ELSEIF op%=4 THEN
...           ' instructions belonging to 4th option
ELSEIF op%=5 THEN
END
END IF
LOOP

使用ON GOSUB

DO
CLS
...             ' the instructions that build your menu
LOCATE 21, 15: INPUT "Enter your option"; op%
IF op%>0 AND op%<6 THEN
ON op% GOSUB one, two, three, four, five
ENDIF
LOOP
one:   ...        ' instructions belonging to 1st option
RETURN
two:   ...        ' instructions belonging to 2nd option
RETURN
three: ...        ' instructions belonging to 3rd option
RETURN
four:  ...        ' instructions belonging to 4th option
RETURN
five:  END

DO ... LOOP使程序运行，直到用户最终按5选择退出。任何无效的输入都将重新显示菜单。