【Keyence BT_W】QR code, Barcode Scan VB Example

Keyence QR code, Barcode Scan VB Example
Imports System.Runtime.InteropServices
Imports System.Data.SQLite

Public Class frmRegisterItem
<DllImport("coredll.dll", EntryPoint:="DeleteObject")> _
Public Shared Function DeleteObject(ByVal hObject As IntPtr) As Boolean
End Function
Public Shared ScanMode As Int32 = 0
Private MsgWin As MsgWindow2


Public Sub New()
InitializeComponent()

' メッセージウインドウインスタンス作成
Me.MsgWin = New MsgWindow2(ScanResult)
End Sub


Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
Application.Exit()
End Sub

Private Sub MenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem1.Click
Dim home As Home = New Home
home.Show()
Me.Hide()
End Sub

Private Sub btnStartScan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartScan.Click
Dim ret As Int32 = 0
Dim disp As [String] = ""

Try
' スキャンモード=「個別」にセット
ScanMode = 1

ret = Bt.ScanLib.Control.btScanEnable()
If ret <> LibDef.BT_OK Then
disp = "btScanEnable error ret[" & ret & "]"
MessageBox.Show(disp, "エラー")
Return
End If

ret = Bt.ScanLib.Control.btScanSoftTrigger(1)
If ret <> LibDef.BT_OK Then
disp = "btScanSoftTrigger error ret[" & ret & "]"
MessageBox.Show(disp, "エラー")
Return
End If
Catch ex As Exception
MessageBox.Show(ex.ToString())
End Try
End Sub


Public Class MsgWindow2
Inherits Microsoft.WindowsCE.Forms.MessageWindow
Private txtBox As TextBox
Public Sub New(ByRef txtBox As TextBox)
Me.txtBox = txtBox
End Sub

Protected Overrides Sub WndProc(ByRef msg As Microsoft.WindowsCE.Forms.Message)
Select Case msg.Msg
Case CType(LibDef.WM_BT_SCAN, Int32)
' 読み取り成功の場合
If msg.WParam.ToInt32() = CType(LibDef.BTMSG_WPARAM.WP_SCN_SUCCESS, Int32) Then
If ScanMode = 1 Then
' 読み取り(個別)
ScanData_kobetu()
ElseIf ScanMode = 2 Then
' 読み取り(一括)
ScanData_ikkatu()
End If
End If
Exit Select
End Select
MyBase.WndProc(msg)
End Sub

'*******************************************************************************
' * 機能 :読み取りコードを個別に取得します。
' * API :btScanGetResultCount, btScanGetDataSize, btScanGetData, btScanGetOCRData
'*******************************************************************************

Public Sub ScanData_kobetu()

Dim ret As Int32 = 0
Dim disp As [String] = ""

Dim resultCount As Int32 = 0
Dim codedataGet As [Byte]()
Dim codeLen As Int32 = 0
Dim stReportGet As New LibDef.BT_SCAN_REPORT()
Dim stQrReportGet As New LibDef.BT_SCAN_QR_REPORT()

Try
resultCount = Bt.ScanLib.Control.btScanGetResultCount()
If resultCount <= 0 Then
disp = "btScanGetResultCount error ret[" & resultCount & "]"
MessageBox.Show(disp, "エラー")
GoTo L_END
End If

' コード読み取りされた場合
If resultCount > 0 Then
'-----------------------------------------------------------
' 読み取り(個別)
'-----------------------------------------------------------
For i As UInt32 = 0 To resultCount - 1
codeLen = 0
codeLen = Bt.ScanLib.Control.btScanGetDataSize(i)
If codeLen <= 0 Then
disp = "btScanGetDataSize error ret[" & codeLen & "]"
MessageBox.Show(disp, "エラー")
GoTo L_END
End If
codedataGet = New [Byte](codeLen - 1) {}

' btScanGetData
stReportGet = New LibDef.BT_SCAN_REPORT()
stQrReportGet = New LibDef.BT_SCAN_QR_REPORT()

ret = Bt.ScanLib.Control.btScanGetData(i, codedataGet, stReportGet, stQrReportGet)
If ret <> LibDef.BT_OK Then
disp = "btScanGetData error ret[" & ret & "]"
MessageBox.Show(disp, "エラー")
GoTo L_END
End If



If stReportGet.codetype = LibDef.BT_SCAN_CODE_JAN Then
Dim result() As Byte = New [Byte](Bt.ScanLib.Control.btScanGetDataSize(0)) {}
Dim objJAN As LibDef.BT_SCAN_REPORT = New LibDef.BT_SCAN_REPORT()
ret = Bt.ScanLib.Control.btScanGetData(0, result, objJAN, Nothing)
'MessageBox.Show(System.Text.Encoding.ASCII.GetString(result, 0, result.Length) & vbCr & vbLf, "JANコード")
Me.txtBox.Text = System.Text.Encoding.ASCII.GetString(result, 0, result.Length)
End If


If stReportGet.codetype = LibDef.BT_SCAN_CODE_OCR Then
Dim objOcr As LibDef.BT_SCAN_OCR_REPORT = New LibDef.BT_SCAN_OCR_REPORT()
Dim objOcrImg As LibDef.BT_SCAN_OCR_REPORT_IMAGE = New LibDef.BT_SCAN_OCR_REPORT_IMAGE()
ret = Bt.ScanLib.Control.btScanGetOCRData(objOcr, objOcrImg)
If ret <> LibDef.BT_OK Then
disp = "btScanGetOCRData error"
MessageBox.Show(disp, "エラー")
DeleteObject(objOcrImg.bitmap)
GoTo L_END
End If
Dim strAtt As String = ""
For j As UInt32 = 0 To objOcr.SourceDataLen - 1
strAtt = strAtt & objOcr.CharAttention(j)
Next
disp = _
"OCR認識パターン:" & objOcr.DataFormat & vbCr & vbLf & _
"誤認識アラート情報:" & objOcr.AlertType & vbCr & vbLf & _
"フォーマット登録番号:" & objOcr.FormatNumber & vbCr & vbLf & _
"認識文字列の長さ:" & objOcr.SourceDataLen & vbCr & vbLf & _
"認識文字列:" & System.Text.Encoding.ASCII.GetString(objOcr.SourceData, 0, objOcr.SourceDataLen) & vbCr & vbLf & _
"文字信頼情報:" & strAtt & vbCr & vbLf

MessageBox.Show(disp, "読み取り(個別)")
DeleteObject(objOcrImg.bitmap)
'Else
' disp = "データサイズ :" & codeLen & vbCr & vbLf & "[Report]" & vbCr & vbLf & "桁数 :" & stReportGet.keta & vbCr & vbLf & "コード種別 :" & stReportGet.codetype & vbCr & vbLf & "コンポジットであるか :" & stReportGet.composite & vbCr & vbLf & "品質 :" & stReportGet.quality & vbCr & vbLf & "詳細情報 :" & stReportGet.extraType & vbCr & vbLf & "コード合成 :" & stReportGet.codelink & vbCr & vbLf & "[QR]" & vbCr & vbLf & "読み取り結果位置 :" & stQrReportGet.pos & vbCr & vbLf & "パリティ :" & stQrReportGet.parity & vbCr & vbLf & "トータル連結数 :" & stQrReportGet.count & vbCr & vbLf
' MessageBox.Show(disp, "読み取り(個別)")
End If

Next
End If
L_END:

ret = Bt.ScanLib.Control.btScanDisable()
If ret <> LibDef.BT_OK Then
disp = "btScanDisable error ret[" & ret & "]"
MessageBox.Show(disp, "エラー")
End If
Catch mmex As MissingMethodException
MessageBox.Show("本端末では使用できないAPIを含んでいます。")
Catch e As Exception
MessageBox.Show(e.ToString())
End Try
End Sub

'*******************************************************************************
' * 機能 :読み取りコードを一括で取得します。
' * API :btScanGetStringSize, btScanGetString
'*******************************************************************************

Public Sub ScanData_ikkatu()

Dim ret As Int32 = 0
Dim disp As [String] = ""

Dim codedataGet As [Byte]()
Dim strCodedata As [String] = ""
Dim codeLen As Int32 = 0
Dim symbolGet As UInt16 = 0

Try
'-----------------------------------------------------------
' 読み取り(一括)
'-----------------------------------------------------------
codeLen = Bt.ScanLib.Control.btScanGetStringSize()
If codeLen <= 0 Then
disp = "btScanGetStringSize error ret[" & codeLen & "]"
MessageBox.Show(disp, "エラー")
GoTo L_END
End If
codedataGet = New [Byte](codeLen - 1) {}

ret = Bt.ScanLib.Control.btScanGetString(codedataGet, symbolGet)
If ret <> LibDef.BT_OK Then
disp = "btScanGetString error ret[" & ret & "]"
MessageBox.Show(disp, "エラー")
GoTo L_END
End If
strCodedata = System.Text.Encoding.GetEncoding(932).GetString(codedataGet, 0, codeLen)
disp = "データサイズ :" & codeLen & vbCr & vbLf & "コード種別 :" & symbolGet & vbCr & vbLf & "コード文字列 :" & strCodedata & vbCr & vbLf
MessageBox.Show(disp, "読み取り(一括)")
L_END:

ret = Bt.ScanLib.Control.btScanDisable()
If ret <> LibDef.BT_OK Then
disp = "btScanDisable error ret[" & ret & "]"
MessageBox.Show(disp, "エラー")
End If
Catch e As Exception
MessageBox.Show(e.ToString())
End Try
End Sub
End Class

Private Sub btnRegisterItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegisterItem.Click
Dim connection As New SQLiteConnection()
Dim query As SQLiteCommand

connection.ConnectionString = "Data Source=Sales.db;"
query = connection.CreateCommand()
query.CommandText = "CREATE TABLE IF NOT EXISTS Items (id integer primary key AUTOINCREMENT, jan varchar(20), title varchar(20), price integer, count integer)"
connection.Open()
connection.Close()

connection.Open()
query = connection.CreateCommand()
query.CommandText = "INSERT INTO Items(jan, title, price, count) VALUES (@1, @2, @3, @4)"

Dim jan As SQLiteParameter = query.CreateParameter()
jan.ParameterName = "@1"
jan.Value = ScanResult.Text
query.Parameters.Add(jan)

Dim title As SQLiteParameter = query.CreateParameter()
title.ParameterName = "@2"
title.Value = tbxItemTitle.Text
query.Parameters.Add(title)

Dim price As SQLiteParameter = query.CreateParameter()
price.ParameterName = "@3"
price.Value = tbxItemPrice.Text
query.Parameters.Add(price)

Dim count As SQLiteParameter = query.CreateParameter()
count.ParameterName = "@4"
count.Value = tbxItemCount.Text
query.Parameters.Add(count)

query.ExecuteNonQuery()
connection.Close()

MessageBox.Show("商品登録しました")
ScanResult.Text = ""
tbxItemTitle.Text = ""
tbxItemPrice.Text = ""
tbxItemCount.Text = ""
End Sub

Private Sub tbxItemCount_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbxItemCount.KeyPress
If Not Char.IsDigit(e.KeyChar) And Not Char.IsControl(e.KeyChar) Then
e.Handled = True
End If
End Sub

Private Sub tbxItemPrice_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles tbxItemPrice.KeyPress
If Not Char.IsDigit(e.KeyChar) And Not Char.IsControl(e.KeyChar) Then
e.Handled = True
End If
End Sub

Private Sub btnClearForm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearForm.Click
ScanResult.Text = ""
tbxItemTitle.Text = ""
tbxItemPrice.Text = ""
tbxItemCount.Text = ""
End Sub
End Class


1 nhận xét:

  1. Harrah's Casino and Hotel - Mapyro
    HARRAH'S 아산 출장안마 CASINO AND 양주 출장마사지 HOTEL in San 공주 출장안마 Jose, 서울특별 출장안마 CA - Find reviews, hours, directions, and contact information for Harrah's Casino and Hotel in San Jose, 구리 출장샵

    Trả lờiXóa

Được tạo bởi Blogger.