VB .NETでカメラからバーコードを読む方法

VB .NETでカメラからバーコードを読み取る方法

1. Visual Studioで新しいVB.NETプロジェクトを作成します
2. IronBarcodeライブラリをインストールしてプロジェクトに適用します
3. AForgeライブラリを使用してカメラから画像としてバーコードを取得します
4. IronBarcodeを使用してバーコード画像をデコードします

前提条件

1. Visual Studio: Visual Studioまたは他のVB.NET開発環境がインストールされていることを確認してください。
2. 互換性のあるカメラ: そのカメラがデバイスに接続されていることを確認してください。
3. NuGetパッケージマネージャー: プロジェクトでNuGetを使用してパッケージを管理できることを確認してください。

ステップ1: Visual Studioで新しいVisual Basic .NETプロジェクトを作成する

カメラからバーコードを読み取るコードをホストしたいところで新しいVB.NET Windowsフォームアプリケーション（または既存のプロジェクト）を作成します。

次のステップでは、ソリューションとプロジェクト名を提供できます。

.NETバージョンを選択して「作成」ボタンをクリックします。

ステップ2: IronBarcodeライブラリをインストールする

VB.NETプロジェクトを開き、NuGetパッケージマネージャーコンソールを使用してIronBarcodeライブラリをインストールします。

Install-Package BarCode

NuGet パッケージは、以下に示すように Visual Studio の NuGet パッケージ マネージャーを使用してインストールすることもできます。

ステップ3: カメラからバーコードを読み取る

フィードをスキャンし、カメラから画像をキャプチャするには、AForgeライブラリが必要です。 NuGetパッケージマネージャーから以下の方法でインストールします。

次のステップは、ToolBoxからPictureBoxコントロールをフォームに追加することです。 これは、カメラから画像をキャプチャするために使用されます。

次に、以下のコードをフォームアプリケーションにコピーして、IronBarcodeのVB.NETバーコードリーダーコンポーネントを作成します。

Imports IronBarCode
Imports AForge.Video
Imports AForge.Video.DirectShow

Public Class Form1
    Private videoDevices As FilterInfoCollection
    Private videoSource As VideoCaptureDevice

    ' Event handler for form load
    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        videoDevices = New FilterInfoCollection(FilterCategory.VideoInputDevice)
        If videoDevices.Count > 0 Then
            videoSource = New VideoCaptureDevice(videoDevices(0).MonikerString)
            AddHandler videoSource.NewFrame, AddressOf VideoSource_NewFrame
            videoSource.Start()
        Else
            MessageBox.Show("No video devices found.")
            Close()
        End If
    End Sub

    ' Event handler for capturing and processing new frame from the video source
    Private Sub VideoSource_NewFrame(sender As Object, eventArgs As NewFrameEventArgs)
        pictureBoxCamera.Image = DirectCast(eventArgs.Frame.Clone(), Bitmap)

        ' Process each frame for barcode recognition
        Dim image = DirectCast(pictureBoxCamera.Image, Bitmap)
        Dim result = BarcodeReader.QuicklyReadOneBarcode(image, BarcodeEncoding.QRCode Or BarcodeEncoding.Code128)

        If result IsNot Nothing Then
            ' Barcode found, handle the new result (e.g., display the barcode value)
            Dim barcodeValue As String = result.Text
            ShowBarcodeResult(barcodeValue)
        End If
    End Sub

    ' Method to display the barcode result
    Private Sub ShowBarcodeResult(barcodeValue As String)
        ' Invoke on UI thread to update UI controls
        If InvokeRequired Then
            Invoke(New Action(Of String)(AddressOf ShowBarcodeResult), barcodeValue)
        Else
            ' Display the barcode value in a MessageBox or any other UI element
            MessageBox.Show("Barcode Value: " & barcodeValue, "Barcode Detected")
        End If
    End Sub

    ' Event handler for form closing
    Private Sub MainForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        If videoSource IsNot Nothing AndAlso videoSource.IsRunning Then
            videoSource.SignalToStop()
            videoSource.WaitForStop()
        End If
    End Sub
End Class

Imports IronBarCode
Imports AForge.Video
Imports AForge.Video.DirectShow

Public Class Form1
    Private videoDevices As FilterInfoCollection
    Private videoSource As VideoCaptureDevice

    ' Event handler for form load
    Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        videoDevices = New FilterInfoCollection(FilterCategory.VideoInputDevice)
        If videoDevices.Count > 0 Then
            videoSource = New VideoCaptureDevice(videoDevices(0).MonikerString)
            AddHandler videoSource.NewFrame, AddressOf VideoSource_NewFrame
            videoSource.Start()
        Else
            MessageBox.Show("No video devices found.")
            Close()
        End If
    End Sub

    ' Event handler for capturing and processing new frame from the video source
    Private Sub VideoSource_NewFrame(sender As Object, eventArgs As NewFrameEventArgs)
        pictureBoxCamera.Image = DirectCast(eventArgs.Frame.Clone(), Bitmap)

        ' Process each frame for barcode recognition
        Dim image = DirectCast(pictureBoxCamera.Image, Bitmap)
        Dim result = BarcodeReader.QuicklyReadOneBarcode(image, BarcodeEncoding.QRCode Or BarcodeEncoding.Code128)

        If result IsNot Nothing Then
            ' Barcode found, handle the new result (e.g., display the barcode value)
            Dim barcodeValue As String = result.Text
            ShowBarcodeResult(barcodeValue)
        End If
    End Sub

    ' Method to display the barcode result
    Private Sub ShowBarcodeResult(barcodeValue As String)
        ' Invoke on UI thread to update UI controls
        If InvokeRequired Then
            Invoke(New Action(Of String)(AddressOf ShowBarcodeResult), barcodeValue)
        Else
            ' Display the barcode value in a MessageBox or any other UI element
            MessageBox.Show("Barcode Value: " & barcodeValue, "Barcode Detected")
        End If
    End Sub

    ' Event handler for form closing
    Private Sub MainForm_FormClosing(sender As Object, e As FormClosingEventArgs) Handles MyBase.FormClosing
        If videoSource IsNot Nothing AndAlso videoSource.IsRunning Then
            videoSource.SignalToStop()
            videoSource.WaitForStop()
        End If
    End Sub
End Class

このサンプルコードでは、QRコードとCode 128バーコードを読み取るように設定しています。 まず、PictureBoxを使用してウェブカメラまたは任意のカメラデバイスからバーコード画像をキャプチャし、バーコードをスキャンします。 その後、ビットマップ画像を作成し、それをIronBarcodeのBarcodeReaderクラスの入力として提供します。 このアプリケーションは、画像から2Dバーコードを読み取り、デコードします。 デコード後にポジティブな結果が得られた場合、メッセージボックスに結果が表示されます。

{
    "IronBarcode.LicenseKey": "MYLICENSE.KEY.TRIAL"
}

結論

VB.NETでカメラからのバーコード読み取りを実装することは、異なる業界でさまざまなアプリケーションを強化する強力な機能です。 IronBarcodeのようなライブラリを活用し、VB.NETプロジェクトに統合することで、今日の技術主導の世界の要求を満たす効率的で信頼性の高いバーコードスキャンアプリケーションを作成できます。 このガイドは出発点として機能し、開発者は特定の要件、バーコードの種類、使用事例に基づいてソリューションをさらにカスタマイズおよび最適化することができます。