Выбор пункта меню осуществляется с помощью нажатия клавиши с первой заглавной буквы пункта меню — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
DECLARE SUB Menu ()
DIM SHARED Vib%
CLS
Menu
PRINT "Punkt:"; Vib%
SUB Menu
GOSUB Renew
DO: kb$ = INKEY$
    IF kb$ <> "" THEN
        kb$ = UCASE$(kb$)
        SELECT CASE kb$
            CASE "A": Vib% = 0: CLS 2: GOSUB Renew
            CASE "B": Vib% = 1: CLS 2: GOSUB Renew
            CASE "C": Vib% = 2: CLS 2: GOSUB Renew
            CASE "D": Vib% = 3: CLS 2: GOSUB Renew
            CASE "E": Vib% = 4: CLS 2: GOSUB Renew
            CASE ELSE:
        END SELECT
    END IF
LOOP UNTIL kb$ = CHR$(13)
EXIT SUB
Renew:
LOCATE 5 + Vib%, 5: PRINT "=>"
LOCATE 5, 10: PRINT "Alfavit"
LOCATE 6, 10: PRINT "Blablabla"
LOCATE 7, 10: PRINT "Color"
LOCATE 8, 10: PRINT "Dnevnik"
LOCATE 9, 10: PRINT "Exit"
RETURN
END SUB

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment