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

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

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

How to decode EAN 2 in VB.NET and ByteScout BarCode Reader SDK

Tutorial on how to decode EAN 2 in VB.NET

These source code samples are listed and grouped by their programming language and functions they use. ByteScout BarCode Reader SDK: 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 decode EAN 2 in VB.NET.

VB.NET code samples for VB.NET developers help to speed up coding of your application when using ByteScout BarCode Reader SDK. Follow the instructions from the scratch to work and copy the VB.NET code. You can use these VB.NET sample examples in one or many applications.

Our website provides trial version of ByteScout BarCode Reader SDK for free. It also includes documentation and source code samples.

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 = "EAN2.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.EAN2 = True
        ' EAN-2 barcode is normally supplemental to EAN-13 so we should force the detection of standalone EAN-2 barcode.
        reader.AllowOrphanedSupplementals = 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(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