Keyence Bt Application Design Tool

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
          

Keyence Bt Application Design Tool

Source: https://www.ndchinh.com/2020/11/keyence-btwqr-code-barcode-scan-vb.html

Posted by: blairroyes1951.blogspot.com

Share this post