ByteScout Barcode Reader SDK – VB.NET – Decode Damaged Code 128

Home
/
Articles
/
ByteScout Barcode Reader SDK – VB.NET – Decode Damaged Code 128

printable version:
ByteScout-BarCode-Reader-SDK-VB-NET-Decode-Damaged-Code-128.pdf

How to decode damaged code 128 in VB.NET and ByteScout BarCode Reader SDK

How to decode damaged code 128 in VB.NET

The sample source codes on this page shows how to decode damaged code 128 in VB.NET. ByteScout BarCode Reader SDK: the barcode decoder with support for code 39, code 128, QR Code, Datamatrix, GS1, PDF417 and all other popular barcodes. Can read barcodes from images, pdf, tiff documents and live web camera. Supports noisy and damaged documents, can split and merge pdf and tiff documents based on barcodes. Can export barcode decoder results to XML, JSON, CSV and into custom data structures. It can decode damaged code 128 in VB.NET.

This code snippet below for ByteScout BarCode Reader SDK works best when you need to quickly decode damaged code 128 in your VB.NET application. Follow the instructions from the scratch to work and copy the VB.NET code. Enjoy writing a code with ready-to-use sample VB.NET codes.

Free trial version of ByteScout BarCode Reader SDK is available for download from our website. Get it to try other source code samples for VB.NET.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

Program.vb

      Imports Bytescout.BarCodeReader

Module Program

    Sub Main()

        Try

            ' Create and activate Bytescout.BarCodeReader.Reader instance
            Using reader As Reader = New Reader("demo", "demo")

                ' Set barcode type to find
                reader.BarcodeTypesToFind.Code128 = True

                ' -----------------------------------------------------------------------
                ' NOTE: We can read barcodes from specific page to increase performance .
                ' For sample please refer to "Decoding barcodes from PDF by pages" program.
                ' ----------------------------------------------------------------------- 

                ' Read barcodes
                Dim barcodes() As FoundBarcode = reader.ReadFrom("corrupted_barcode_code128.png")

                For Each code As FoundBarcode In barcodes
                    Console.WriteLine("Found barcode with type '{0}' and value '{1}'", code.Type, code.Value)
                Next

            End Using

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        End Try

        Console.WriteLine()
        Console.WriteLine("Press any key to exit...")
        Console.ReadLine()

    End Sub

End Module