Comment lire un code-barres depuis la caméra en VB.NET

Comment lire un code-barres à partir d'une caméra en VB .NET

1. Créez un nouveau projet VB.NET dans Visual Studio
2. Installez la bibliothèque IronBarcode et appliquez-la à votre projet
3. Obtenez le code-barres de la caméra en tant qu'image en utilisant la bibliothèque AForge
4. Décodez l'image du code-barres en utilisant IronBarcode

Prérequis

1. Visual Studio : Assurez-vous que Visual Studio ou tout autre environnement de développement VB.NET est installé.
2. Caméra compatible : Assurez-vous que ladite caméra est connectée à votre appareil.
3. NuGet Package Manager : Assurez-vous que vous pouvez utiliser NuGet pour gérer les packages dans votre projet.

Étape 1 : Créer un nouveau projet Visual Basic .NET dans Visual Studio

Créez une nouvelle application Windows Forms VB.NET (ou utilisez un projet existant) là où vous souhaitez héberger le code pour lire le code-barres depuis votre caméra.

À l'étape suivante, vous pouvez fournir les noms de solution et de projet.

Sélectionnez la version de .NET et cliquez sur le bouton "Créer".

Étape 2 : Installer la bibliothèque IronBarcode

Ouvrez votre projet VB.NET et installez la bibliothèque IronBarcode en utilisant la Console du gestionnaire de packages NuGet :

Install-Package BarCode

Le package NuGet peut également être installé en utilisant le Gestionnaire de packages NuGet de Visual Studio, comme indiqué ci-dessous.

Étape 3 : Lecture du code-barres depuis la caméra

Pour scanner le flux et capturer l'image de la caméra, nous avons besoin de la bibliothèque AForge. Installez-la comme ci-dessous depuis le gestionnaire de packages NuGet.

L'étape suivante consiste à ajouter le contrôle PictureBox depuis la Boîte à outils vers les formulaires. Ceci est utilisé pour capturer l'image de la caméra.

Ensuite, copiez le code ci-dessous dans l'application de formulaires et créez le composant de lecteur de codes-barres VB .NET à partir de IronBarcode.

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

Dans cet exemple de code, nous l'avons configuré pour lire les QR codes et les codes-barres Code 128. Tout d'abord, nous utilisons un PictureBox pour capturer les images de code-barres à partir d'une webcam ou de tout appareil photo en scannant le code-barres. Ensuite, nous créons une image bitmap, qui est ensuite fournie en entrée à la classe BarcodeReader de IronBarcode. Cette application lit le code-barres 2D à partir d'images et les décode. Si un résultat positif est obtenu après le décodage, alors le résultat est affiché dans la boîte de message.

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

Conclusion

La mise en œuvre de la lecture de code-barres à partir d'une caméra dans VB.NET est une fonctionnalité puissante qui peut améliorer diverses applications dans différentes industries. En utilisant des bibliothèques comme IronBarcode et en les intégrant dans votre projet VB.NET, vous pouvez créer des applications de numérisation de codes-barres efficaces et fiables répondant aux exigences du monde technologique d'aujourd'hui. Ce guide sert de point de départ, et les développeurs peuvent personnaliser et optimiser davantage la solution en fonction de leurs besoins spécifiques, types de codes-barres et cas d'utilisation.