We use cookies to ensure that we give you the best user experience on our website. If you want to find out more about the cookies we use, you can access to our Privacy Policy here. By continuing your visit to our website, we'll assume you consent to our use of cookies.

DENSO DENSO WAVE

Close

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

If you have not registered

The services on this member site are available only for registered customers.

New member reg.