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

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

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

結論

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