Technical Information

Application Development Manual | Creating a menu

Function

Display a menu and select menu items with the numerical keypad.

Sample Program

'+===========================================================================+
'|  Declaration variables                                                    |
'+===========================================================================+
    private tempkey$
    private ver$

 
'+===========================================================================+
'|  Initial Settings                                                         |
'+===========================================================================+
    ver$ = "1.00"
    out &h6080,1                 ' Set to small-size font

 
'+===========================================================================+
'|  Main menu                                                                |
'+===========================================================================+
main:
    while 1
        beep 3,1,1,1
       '【Display】
        cls
        screen 1,1
        print " Sample ";ver$
        screen 1,0
        print "1:Stock"
        print "2:Send"
        print "3:Check"
        print "F4:End";

 
       'Go to each process
        wait 0,&h01
        tempkey$ = inkey$
        beep 1,1,1,1
        select tempkey$
            case "1":
                gosub proc1:
            case "2":
                gosub proc2:
            case "3":
                gosub proc3:
            case "D":
                power 0
        end select
    wend

 
'+---------------------------------------------------------------------------+
'|  Process 1                                                                   |
'+---------------------------------------------------------------------------+
proc1:
    cls
    screen 1,1
    print "* Stock *"
    screen 1,0
    wait 0,&h01
    tempkey$ = inkey$
    return

 
'+---------------------------------------------------------------------------+
'|  Process 2                                                                   |
'+---------------------------------------------------------------------------+
proc2:
    cls
    screen 1,1
    print "* Send *"
    screen 1,0
    wait 0,&h01
    tempkey$ = inkey$
    return

 
'+---------------------------------------------------------------------------+
'|  Process 3                                                                   |
'+---------------------------------------------------------------------------+
proc3:
    cls
    screen 1,1
    print "* Check *"
    screen 1,0
    wait 0,&h01
    tempkey$ = inkey$
    return

Contact us

QBdirect