Jak odczytać kod kreskowy z kamery w VB .NET

Jak odczytać BarCode z kamery w VB .NET

1. Utwórz nowy projekt VB.NET w Visual Studio
2. Zainstaluj bibliotekę IronBarcode i zastosuj ją w swoim projekcie
3. Pobierz kod kreskowy z aparatu jako obraz przy użyciu biblioteki AForge
4. Odkoduj obraz kodu kreskowego za pomocą IronBarcode

Wymagania wstępne

1. Visual Studio: Upewnij się, że masz zainstalowane Visual Studio lub inne środowisko programistyczne VB.NET.
2. Kompatybilny aparat: Upewnij się, że aparat jest podłączony do urządzenia.
3. Menedżer pakietów NuGet: Upewnij się, że możesz używać NuGet do zarządzania pakietami w swoim projekcie.

Krok 1: Utwórz nowy projekt Visual Basic .NET w Visual Studio

Utwórz nową aplikację VB.NET Windows Forms (lub użyj istniejącego projektu), w której chcesz umieścić kod do odczytu BARCODE z aparatu.

W kolejnym kroku możesz podać nazwy rozwiązań i projektów.

Wybierz wersję .NET i kliknij przycisk "Utwórz".

Krok 2: Zainstaluj bibliotekę IronBarcode

Otwórz projekt VB.NET i zainstaluj bibliotekę IronBarcode za pomocą konsoli NuGet Package Manager:

Install-Package BarCode

Pakiet NuGet można również zainstalować za pomocą menedżera pakietów NuGet w programie Visual Studio, jak pokazano poniżej.

Krok 3: Odczytanie BarCODE z kamery

Aby zeskanować kanał i przechwycić obraz z kamery, potrzebujemy biblioteki AForge. Zainstaluj go zgodnie z poniższą instrukcją za pomocą menedżera pakietów NuGet.

Kolejnym krokiem jest dodanie kontrolki PictureBox z ToolBox do formularzy. Służy to do przechwytywania obrazu z kamery.

Następnie skopiuj poniższy kod do aplikacji formularzy i utwórz komponent czytnika kodów kreskowych VB .NET z biblioteki 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

W tym przykładowym kodzie skonfigurowaliśmy go do odczytu kodów QR i BarCODE-ów Code 128. Najpierw używamy PictureBox do przechwytywania obrazów BarCode z kamery internetowej lub dowolnego urządzenia fotograficznego poprzez skanowanie BarCode. Następnie tworzymy obraz bitmapowy, który jest następnie przekazywany jako dane wejściowe do klasy IronBarcode BarcodeReader. Ta aplikacja odczytuje kody kreskowe 2D z obrazów i je dekoduje. Jeśli po dekodowaniu uzyskany zostanie wynik pozytywny, zostanie on wyświetlony w oknie komunikatu.

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

Wnioski

Wdrożenie odczytu BarCode z kamery w VB.NET to potężna funkcja, która może wzbogacić różne aplikacje w różnych branżach. Wykorzystując biblioteki takie jak IronBarcode i integrując je z projektem VB.NET, można tworzyć wydajne i niezawodne aplikacje do skanowania kodów kreskowych, które spełniają wymagania dzisiejszego świata opartego na technologii. Niniejszy przewodnik stanowi punkt wyjścia, a programiści mogą dalej dostosowywać i optymalizować rozwiązanie w oparciu o swoje konkretne wymagania, typy BARCODE-ów i przypadki użycia.