技術情報

アプリケーション開発ガイド | メニューをつくる

機能

メニューを表示します。
テンキーで、各メニューを選択します。

サンプル

'+===========================================================================+
'|  変数の定義                                                               |
'+===========================================================================+
    private tempkey$
    private ver$

 
'+===========================================================================+
'|  初期設定                                                                 |
'+===========================================================================+
    ver$ = "1.00"
    out &h6080,1                    ' 小フォントに設定

 
'+===========================================================================+
'|  メインメニュー                                                           |
'+===========================================================================+
main:
    while 1
        beep 3,1,1,1
       '【画面表示】
        cls
        screen 1,1
        print " サンプル ";ver$
        screen 1,0
        print "1:棚卸"
        print "2:送信"
        print "3:確認"
        print "F4:終了";

 
       '【押されたキーに応じて、メニューを実行】
        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

 
'+---------------------------------------------------------------------------+
'|  業務 1                                                                   |
'+---------------------------------------------------------------------------+
proc1:
    cls
    screen 1,1
    print "* 棚卸 *"
    screen 1,0
    wait 0,&h01
    tempkey$ = inkey$
    return

 
'+---------------------------------------------------------------------------+
'|  業務 2                                                                   |
'+---------------------------------------------------------------------------+
proc2:
    cls
    screen 1,1
    print "* 送信 *"
    screen 1,0
    wait 0,&h01
    tempkey$ = inkey$
    return

 
'+---------------------------------------------------------------------------+
'|  業務 3                                                                   |
'+---------------------------------------------------------------------------+
proc3:
    cls
    screen 1,1
    print "* 確認 *"
    screen 1,0
    wait 0,&h01
    tempkey$ = inkey$
    return

お問合せ

QBdirect