Imports Vintasoft.Barcode
Imports Vintasoft.Barcode.BarcodeInfo
Imports Vintasoft.Barcode.SymbologySubsets

Class IATA_BCBP
    ''' <summary>
    ''' Testing recognize the IATA BCBP barcode from an image.
    ''' </summary>
    ''' <param name="filename">The barcode image.</param>
    Public Shared Sub TestRecognize(filename As String)
        ' create barcode reader
        Using reader As New BarcodeReader()
            ' specify that all IATA BCBP barcode must be recognized
            reader.Settings.ScanBarcodeSubsets.Add(BarcodeSymbologySubsets.IATABCBPAztec)
            reader.Settings.ScanBarcodeSubsets.Add(BarcodeSymbologySubsets.IATABCBPDataMatrix)
            reader.Settings.ScanBarcodeSubsets.Add(BarcodeSymbologySubsets.IATABCBPPDF417)
            reader.Settings.ScanBarcodeSubsets.Add(BarcodeSymbologySubsets.IATABCBPQRCode)

            ' recognize barcodes
            Dim infos As IBarcodeInfo() = reader.ReadBarcodes(filename)
            If infos.Length > 0 Then
                For Each info As IBarcodeInfo In infos
                    If TypeOf info Is IataBcbpBarcodeInfo Then
                        Dim iataBcbpInfo As IataBcbpBarcodeInfo = DirectCast(info, IataBcbpBarcodeInfo)
                        Console.WriteLine(iataBcbpInfo.BarcodeSubset.Name)
                        ' print some field values
                        Console.WriteLine("Passenger Name    = " & iataBcbpInfo.DecodedValue.PassengerName)
                        Console.WriteLine("Date Of Flight    = " & iataBcbpInfo.DecodedValue.DateOfFlight)
                        Console.WriteLine("From City Airport = " & iataBcbpInfo.DecodedValue.FromCityAirportCode)
                        Console.WriteLine("To City Airport   = " & iataBcbpInfo.DecodedValue.ToCityAirportCode)
                    Else
                        Console.WriteLine(Convert.ToString(info.BarcodeType) & ": " & info.Value)
                    End If
                Next
            End If
        End Using
    End Sub
End Class

using System;

using Vintasoft.Barcode;
using Vintasoft.Barcode.BarcodeInfo;
using Vintasoft.Barcode.SymbologySubsets;

class IATA_BCBP
{
    /// <summary>
    /// Testing recognize the IATA BCBP barcode from an image.
    /// </summary>
    /// <param name="filename">The barcode image.</param>
    public static void TestRecognize(string filename)
    {
        // create barcode reader
        using (BarcodeReader reader = new BarcodeReader())
        {
            // specify that all IATA BCBP barcode must be recognized
            reader.Settings.ScanBarcodeSubsets.Add(BarcodeSymbologySubsets.IATABCBPAztec);
            reader.Settings.ScanBarcodeSubsets.Add(BarcodeSymbologySubsets.IATABCBPDataMatrix);
            reader.Settings.ScanBarcodeSubsets.Add(BarcodeSymbologySubsets.IATABCBPPDF417);
            reader.Settings.ScanBarcodeSubsets.Add(BarcodeSymbologySubsets.IATABCBPQRCode);

            // recognize barcodes
            IBarcodeInfo[] infos = reader.ReadBarcodes(filename);
            if (infos.Length > 0)
            {
                foreach (IBarcodeInfo info in infos)
                {
                    if (info is IataBcbpBarcodeInfo)
                    {
                        IataBcbpBarcodeInfo iataBcbpInfo = (IataBcbpBarcodeInfo)info;
                        Console.WriteLine(iataBcbpInfo.BarcodeSubset.Name);
                        // print some field values
                        Console.WriteLine("Passenger Name    = " + iataBcbpInfo.DecodedValue.PassengerName);
                        Console.WriteLine("Date Of Flight    = " + iataBcbpInfo.DecodedValue.DateOfFlight);
                        Console.WriteLine("From City Airport = " + iataBcbpInfo.DecodedValue.FromCityAirportCode);
                        Console.WriteLine("To City Airport   = " + iataBcbpInfo.DecodedValue.ToCityAirportCode);
                    }
                    else
                    {
                        Console.WriteLine(info.BarcodeType + ": " + info.Value);
                    }
                }
            }
        }
    }    
}