技術情報

アプリケーション開発ガイド | バーコードを読み取る

機能

バーコードを読み取って表示します。

サンプル

'+===========================================================================+
'|  変数の定義                                                               |
'+===========================================================================+
    const FileBar = 1

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

 
'+===========================================================================+
'|  ユーザ定義関数                                                           |
'+===========================================================================+
'+---------------------------------------------------------------------------+
'|                                                                           |
'|  【機能】バーコード読み取りを待つ関数                                     |
'|     [in]  なし                                                            |
'|     [out] 読み込んだバーコード                                            |
'|                                                                           |
'|  【処理内容】                                                             |
'|    ・バーコード読み取りを待ち、バーコードが読み取られた場合、             |
'|      そのバーコードデータを戻り値とします。                               |
'|                                                                           |
'+---------------------------------------------------------------------------+
    function readbar$[255]
        private barlen%
        open "BAR:B" as #FileBar code "A"   'JANを指定してオープン
                                            '読み取るコードに応じて、
                                            'codeを設定します。
'      <例>
'     --open "BAR:B" as #FileBar code "K"   'CODE128を指定してオープン
'     --open "BAR:B" as #FileBar code "Q"   'QRを指定してオープン

 
        wait 0,&h02                         'バーコードが読まれるまで待つ
        barlen% = loc(#FileBar)
        if barlen% > 0 then                 'バッファにデータが有る場合、
            readbar$ = input$(barlen%, #FileBar)
                                            'バーコードデータを読み出す
        endif
        close #FileBar
    end function

 
'+===========================================================================+
'|  メインメニュー                                                           |
'+===========================================================================+
main:
    private bardata$[255]           '255文字の文字列変数を宣言
    private tempkey$

 
    screen 1
    print "バーコードを"
    print "読んでください"
    bardata$ = readbar$             'バーコード読み取り関数を呼び出し
    print bardata$

 
    wait 0,&h01
    tempkey$ = inkey$
    power off

お問合せ

QBdirect