Como ler um código de barras da câmera em VB .NET

Como Ler um Código de Barras da Câmera no VB .NET

1. Crie um novo Projeto VB.NET no Visual Studio
2. Instale a Biblioteca IronBarcode e aplique-a ao seu projeto
3. Obtenha o código de barras da câmera como uma imagem usando a Biblioteca AForge
4. Decodifique a imagem do código de barras usando IronBarcode

Pré-requisitos

1. Visual Studio: Certifique-se de ter o Visual Studio ou qualquer outro ambiente de desenvolvimento VB.NET instalado.
2. Câmera Compatível: Certifique-se de que a referida câmera esteja conectada ao seu dispositivo.
3. Gerenciador de Pacotes NuGet: Certifique-se de poder usar o NuGet para gerenciar pacotes no seu projeto.

Passo 1: Criar um Novo Projeto Visual Basic .NET no Visual Studio

Crie um novo aplicativo Windows Forms em VB.NET (ou use um projeto existente) onde você deseja hospedar o código para ler o código de barras da sua câmera.

Na próxima etapa, você pode fornecer os nomes da solução e do projeto.

Selecione a versão do .NET e clique no botão "Criar".

Passo 2: Instalar a Biblioteca IronBarcode

Abra seu projeto VB.NET e instale a biblioteca IronBarcode usando o Console de Gerenciador de Pacotes NuGet:

Install-Package BarCode

O pacote NuGet também pode ser instalado usando o Gerenciador de Pacotes NuGet do Visual Studio, como mostrado abaixo.

Passo 3: Lendo o Código de Barras da Câmera

Para escanear o fluxo e capturar a imagem da câmera, precisamos da Biblioteca AForge. Instale-a como abaixo no gerenciador de pacotes NuGet.

O próximo passo é adicionar o controle PictureBox do ToolBox aos formulários. Isso é usado para capturar a imagem da câmera.

Em seguida, copie o código abaixo para o aplicativo de formulários e crie o componente leitor de código de barras VB .NET do 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

Neste código exemplo, configuramos para ler códigos QR e códigos de barras Code 128. Primeiro, usamos um PictureBox para capturar imagens de código de barras de uma webcam ou qualquer dispositivo de câmera, escaneando o código de barras. Em seguida, criamos uma imagem bitmap, que é então fornecida como entrada para a classe IronBarcode BarcodeReader. Este aplicativo lê o código de barras 2D de imagens e os decodifica. Se for obtido um resultado positivo após a decodificação, o resultado é exibido na caixa de mensagem.

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

Conclusão

Implementar leitura de código de barras a partir de uma câmera no VB.NET é um recurso poderoso que pode aprimorar vários aplicativos em diferentes indústrias. Aproveitando bibliotecas como IronBarcode e integrando-as ao seu projeto VB.NET, você pode criar aplicativos de escaneamento de código de barras eficientes e confiáveis que atendem às demandas do mundo orientado por tecnologia de hoje. Este guia serve como ponto de partida, e os desenvolvedores podem personalizar e otimizar ainda mais a solução com base em seus requisitos específicos, tipos de código de barras e casos de uso.