VB .NET'te Kameradan Bir Barkod Nasıl Okunur

VB .NET'te Kameradan Barkod Nasıl Okunur

1. Visual Studio'da yeni bir VB.NET Projesi oluşturun
2. IronBarcode Kütüphanesini kurun ve projenize uygulayın
3. AForge Kütüphanesi kullanarak kameradan barkodu görüntü olarak alın
4. IronBarcode kullanarak barkod görüntüsünü çözün

Gereksinimler

1. Visual Studio: Visual Studio veya başka bir VB.NET geliştirme ortamının kurulu olduğundan emin olun.
2. Uyumlu Kamera: Belirtilen kameranın cihazınıza bağlı olduğundan emin olun.
3. NuGet Paket Yöneticisi: Projenizde paketleri yönetmek için NuGet'i kullanabileceğinizden emin olun.

Adım 1: Visual Studio'da Yeni Bir Visual Basic .NET Projesi Oluşturma

Kameranızdan barkod okumak için kodu barındırmak istediğiniz yeni bir VB.NET Windows Forms uygulaması oluşturun (veya mevcut bir projeyi kullanın).

Bir sonraki adımda, çözüm ve proje adlarını belirtebilirsiniz.

.NET sürümünü seçin ve "Create" butonuna tıklayın.

Adım 2: IronBarcode Kütüphanesini Kurma

VB.NET projenizi açın ve NuGet Paket Yöneticisi Konsolu kullanarak IronBarcode kütüphanesini kurun:

Install-Package BarCode

NuGet paketi, aşağıda gösterildiği gibi Visual Studio'nun NuGet Paket Yöneticisi kullanılarak da kurulabilir.

Adım 3: Kameradan Barkodu Okuma

Kameradan yayınları taramak ve görüntüyü yakalamak için AForge Kütüphanesine ihtiyacımız var. NuGet paket yöneticisinden aşağıdaki gibi kurun.

Bir sonraki adım, formalarınıza Araç Kutusu'ndan PictureBox kontrolünü eklemektir. Bu, kameradan görüntü yakalamak için kullanılır.

Sonra aşağıdaki kodu formlar uygulamasına kopyalayın ve IronBarcode'dan VB .NET barkod okuyucu bileşeni oluşturun.

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

Bu örnek kodda, QR kodları ve Code 128 barkodlarını okumak için yapılandırdık. Öncelikle, bir PictureBox kullanarak bir web kamerası veya herhangi bir kamera cihazından barkod görüntülerini tarayarak yakalarız. Ardından bir bitmap görüntüsü oluştururuz, bu görüntü daha sonra IronBarcode BarcodeReader sınıfına giriş olarak sağlanır. Bu uygulama, 2D barkodları görüntülerden okur ve çözer. Çözümden sonra pozitif bir sonuç elde edilirse, sonuç bir mesaj kutusunda görüntülenir.

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

Sonuç

VB.NET'te kameradan barkod okuma uygulaması yapmak, çeşitli sektörlerdeki uygulamaları güçlendirebilecek güçlü bir özelliktir. IronBarcode gibi kütüphanelerden yararlanarak ve bunları VB.NET projenize entegre ederek, bugünün teknolojiye yönlendirilen dünyasının taleplerine uygun etkin ve güvenilir barkod tarama uygulamaları oluşturabilirsiniz. Bu kılavuz bir başlangıç noktası olarak hizmet eder ve geliştiriciler, belirli gereksinimlerine, barkod türlerine ve kullanım durumlarına göre çözümü daha fazla özelleştirip optimize edebilir.