VB .NET'te Kameradan Çizgikodu Nasıl Okunur

VB .NET'te Kameradan Barkod Nasıl Okunur

1. Visual Studio'da yeni bir VB.NET Projesi oluşturun
2. IronBarcode Kutuphanesi'ni yukleyin ve projenize uygulayin
3. AForge Kutuphanesi'ni kullanarak kameradan barkodu resim olarak alin
4. IronBarcode kullanarak barkod resmini cozumleyin

Ön Koşullar

1. Visual Studio: Visual Studio'ya veya herhangi bir VB.NET geliştirme ortamı yuklenmis oldugundan emin olun.
2. Uyumlu Kamera: Kameranın cihazınıza bağlı oldugundan emin olun.
3. NuGet Paket Yoneticisi: Projenizde NuGet'i kullanarak paketleri yonetebileceginizden emin olun.

Adim 1: Visual Studio'da Yeni Bir Visual Basic .NET Projesi Oluşturun

Kameradan barkod okumak icin kodu barindirmak istediginiz bir VB.NET Windows Forms uygulamasi (veya mevcut bir projeyi) oluşturun.

Sonraki adımda çözüm ve proje isimleri tanımlayabilirsiniz.

.NET surumunu secin ve "Oluştur" butonuna tiklayin.

Adim 2: IronBarcode Kutuphanesini Yukleyin

VB.NET projenizi acin ve NuGet Paket Yonetim Konsolunu kullanarak IronBarcode kutuphanesini yukleyin:

Install-Package BarCode

NuGet paketi, Visual Studio'nun NuGet Paket Yonetici'si kullanilarak asagida göstermedigi gibi de yuklenebilir.

Adim 3: Kameradan Barkod Okuma

Akışı taramak ve kameradan görüntü almak için AForge Kutuphanesine ihtiyaçimiz var. Asagida NuGet paket yoneticisinden yukleyin.

Bir sonraki adım, ToolBox'tan Formlara PictureBox kontrolunu eklemektir. Bu, kameradan görüntü elde etmek için kullanılır.

Daha sonra asagidaki kodu form uygulamasina kopyalayin ve IronBarcode ile 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

Bu örnek kodda, QR kodlari ve Kod 128 barkodlarini okumak icin yapılandırilmiştir. Öncelikle, barkodları tarayarak bir web kamerası veya herhangi bir kamera cihazından barkod görüntüleri elde etmek için bir PictureBox kullanıyoruz. Ardından bir bitmap görsel oluştururuz, bu daha sonra IronBarcode BarcodeReader sınıfına girdi olarak sağlanır. Bu uygulama görüntülerden 2D barkodları okur ve onları çözer. Çözümlemeden sonra pozitif bir sonuç alındığında, sonuç mesaj kutusunda görüntülenir.

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

Sonuç

VB.NET'te kameradan barkod okuma işlemini gerçekleştirmek çeşitli endüstrilerdeki uygulamaları geliştirebilecek güçlü bir özelliktir. Kütüphanelerden IronBarcode yararlanarak ve bunları VB.NET projenize entegre ederek günümüz teknolojisiyle uyumlu etkili ve güvenilir barkod tarama uygulamaları oluştabilirsiniz. Bu klavuz bir başlangıç noktasıdır, ve geliştiriciler kendi özel gereksinimler, barkod türleri ve kullanım senaryoları temelinde çözümü daha da özelleştirebilir ve optimize edebilir.