バーコードを読み取って表示します。
'+===========================================================================+
'| 変数の定義 |
'+===========================================================================+
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