ByteScout Barcode Reader SDK – VB.NET – Decode EAN-128

Home
/
Articles
/
ByteScout Barcode Reader SDK – VB.NET – Decode EAN-128

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

How to decode EAN 128 in VB.NET with ByteScout BarCode Reader SDK

How to decode EAN 128 in VB.NET

The sample source code below will teach you how to decode EAN 128 in VB.NET. ByteScout BarCode Reader SDK is the SDK for reading of barcodes from PDF, images and live camera or video. Almost every common type like Code 39, Code 128, GS1, UPC, QR Code, Datamatrix, PDF417 and many others are supported. Supports noisy and defective images and docs. Includes optional documents splitter and merger for pdf and tiff based on found barcodess. Batch mode is supported for superior performance using multiple threads. Decoded values are easily exported to JSON, CSV, XML and to custom format. It can be used to decode EAN 128 using VB.NET.

You will save a lot of time on writing and testing code as you may just take the VB.NET code from ByteScout BarCode Reader SDK for decode EAN 128 below and use it in your application. In order to implement the functionality, you should copy and paste this code for VB.NET below into your code editor with your app, compile and run your application. Code testing will allow the function to be tested and work properly with your data.

Trial version of ByteScout BarCode Reader SDK is available for free. Source code samples are included to help you with your VB.NET app.

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

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

Module1.vb

      Imports System.IO
Imports Bytescout.BarCodeReader

Module Module1

    Sub Main()

        Const imageFile As String = "EAN128.png"

        Console.WriteLine("Reading barcode(s) from image {0}", Path.GetFullPath(imageFile))

        Dim reader As New Reader()
        reader.RegistrationName = "demo"
		reader.RegistrationKey = "demo"

        ' Set barcode type to find
        reader.BarcodeTypesToFind.Code128 = True ' "EAN-128" symbology is the same as "Code 128"

        ' -----------------------------------------------------------------------
        ' 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(imageFile)

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

        ' Cleanup
        reader.Dispose()

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

    End Sub

End Module