Imports System.Text   
   
Imports Vintasoft.Barcode   
Imports Vintasoft.Barcode.BarcodeInfo   
Imports Vintasoft.Imaging   
   
''' <summary>
''' Test that shows how to create a 2D barcode image with text and binary data.
''' </summary>
Class ValueItemsExample   
   
    ''' <summary>
    ''' Runs the test.
    ''' </summary>
    Public Shared Sub Test()   
        ' generate binary data
        Dim data As Byte() = New Byte(15) {}   
        For i As Integer = 0 To data.Length - 1   
            data(i) = CByte(i * 16)   
        Next   
   
        ' create image with PDF417 barcode
        Using barcodeImage As VintasoftBitmap = CreateBarcodeWithTextAndBinaryData(BarcodeType.PDF417, data)   
            ' read barcode from image
            ReadBarcode(barcodeImage, BarcodeType.PDF417)   
        End Using   
   
        ' create image with Aztec barcode
        Using barcodeImage As VintasoftBitmap = CreateBarcodeWithTextAndBinaryData(BarcodeType.Aztec, data)   
            ' read barcode from image
            ReadBarcode(barcodeImage, BarcodeType.Aztec)   
        End Using   
   
        ' create image with DataMatrix barcode
        Using barcodeImage As VintasoftBitmap = CreateBarcodeWithTextAndBinaryData(BarcodeType.DataMatrix, data)   
            ' read barcode from image
            ReadBarcode(barcodeImage, BarcodeType.DataMatrix)   
        End Using   
   
        ' create image with QR barcode
        Using barcodeImage As VintasoftBitmap = CreateBarcodeWithTextAndBinaryData(BarcodeType.QR, data)   
            ' read barcode from image
            ReadBarcode(barcodeImage, BarcodeType.QR)   
        End Using   
    End Sub   
   
    ''' <summary>
    ''' Creates image with barcode, which contains text and binary data.
    ''' </summary>
    Private Shared Function CreateBarcodeWithTextAndBinaryData(barcodeType As BarcodeType, data As Byte()) As VintasoftBitmap   
        ' create text value item
        Dim textData As New TextValueItem("BINARY DATA: ")   
        ' create binary value item
        Dim binaryData As New BinaryValueItem(data)   
   
        ' create the barcode writer
        Using writer As New BarcodeWriter()   
            ' specify that writer must generate barcode of spefied type
            writer.Settings.Barcode = barcodeType   
   
            ' set the barcode value items
            writer.Settings.ValueItems = New ValueItemBase() {textData, binaryData}   
   
            ' create image with barcode
            Return writer.GetBarcodeAsVintasoftBitmap()   
        End Using   
    End Function   
   
    ''' <summary>
    ''' Reads barcode from image and shows the barcode value items.
    ''' </summary>
    Private Shared Sub ReadBarcode(image As VintasoftBitmap, barcode As BarcodeType)   
        ' create the barcode reader
        Using reader As New BarcodeReader()   
            ' specify that reader must search for barcodes of specified types
            reader.Settings.ScanBarcodeTypes = barcode   
   
            ' read barcode from image
            Dim barcodeInfo As IBarcodeInfo = reader.ReadBarcodes(image)(0)   
   
            ' for each found barcode
            For i As Integer = 0 To barcodeInfo.ValueItems.Length - 1   
                ' show the barcode value tems
   
                Dim itemValue As New StringBuilder()   
                If TypeOf barcodeInfo.ValueItems(i) Is BinaryValueItem Then   
                    Dim data As Byte() = DirectCast(barcodeInfo.ValueItems(i), BinaryValueItem).Value   
                    For j As Integer = 0 To data.Length - 1   
                        itemValue.Append(String.Format("{0} ", data(j)))   
                    Next   
                Else   
                    itemValue.Append(barcodeInfo.ValueItems(i).ToString())   
                End If   
                Console.WriteLine(String.Format("[{0}] {1}", barcodeInfo.ValueItems(i).[GetType]().Name, itemValue))   
            Next   
        End Using   
   
        Console.WriteLine()   
    End Sub   
   
End Class

using System;
using System.Text;

using Vintasoft.Barcode;
using Vintasoft.Barcode.BarcodeInfo;
using Vintasoft.Imaging;

/// <summary>
/// Test that shows how to create a 2D barcode image with text and binary data.
/// </summary>
class ValueItemsExample
{

    /// <summary>
    /// Runs the test.
    /// </summary>
    public static void Test()
    {
        // generate binary data
        byte[] data = new byte[16];
        for (int i = 0; i < data.Length; i++)
            data[i] = (byte)(i * 16);

        // create image with PDF417 barcode
        using (VintasoftBitmap barcodeImage = CreateBarcodeWithTextAndBinaryData(BarcodeType.PDF417, data))
        {
            // read barcode from image
            ReadBarcode(barcodeImage, BarcodeType.PDF417);
        }

        // create image with Aztec barcode
        using (VintasoftBitmap barcodeImage = CreateBarcodeWithTextAndBinaryData(BarcodeType.Aztec, data))
        {
            // read barcode from image
            ReadBarcode(barcodeImage, BarcodeType.Aztec);
        }

        // create image with DataMatrix barcode
        using (VintasoftBitmap barcodeImage = CreateBarcodeWithTextAndBinaryData(BarcodeType.DataMatrix, data))
        {
            // read barcode from image
            ReadBarcode(barcodeImage, BarcodeType.DataMatrix);
        }

        // create image with QR barcode
        using (VintasoftBitmap barcodeImage = CreateBarcodeWithTextAndBinaryData(BarcodeType.QR, data))
        {
            // read barcode from image
            ReadBarcode(barcodeImage, BarcodeType.QR);
        }
    }
    
    /// <summary>
    /// Creates image with barcode, which contains text and binary data.
    /// </summary>
    static VintasoftBitmap CreateBarcodeWithTextAndBinaryData(BarcodeType barcodeType, byte[] data)
    {
        // create text value item
        TextValueItem textData = new TextValueItem("BINARY DATA: ");
        // create binary value item
        BinaryValueItem binaryData = new BinaryValueItem(data);

        // create the barcode writer
        using (BarcodeWriter writer = new BarcodeWriter())
        {
            // specify that writer must generate barcode of spefied type
            writer.Settings.Barcode = barcodeType;

            // set the barcode value items
            writer.Settings.ValueItems = new ValueItemBase[] { textData, binaryData };

            // create image with barcode
            return writer.GetBarcodeAsVintasoftBitmap();
        }
    }

    /// <summary>
    /// Reads barcode from image and shows the barcode value items.
    /// </summary>
    static void ReadBarcode(VintasoftBitmap image, BarcodeType barcode)
    {
        // create the barcode reader
        using (BarcodeReader reader = new BarcodeReader())
        {
            // specify that reader must search for barcodes of specified types
            reader.Settings.ScanBarcodeTypes = barcode;

            // read barcode from image
            IBarcodeInfo barcodeInfo = reader.ReadBarcodes(image)[0];

            // for each found barcode
            for (int i = 0; i < barcodeInfo.ValueItems.Length; i++)
            {
                // show the barcode value tems

                StringBuilder itemValue = new StringBuilder();
                if (barcodeInfo.ValueItems[i] is BinaryValueItem)
                {
                    byte[] data = ((BinaryValueItem)barcodeInfo.ValueItems[i]).Value;
                    for (int j = 0; j < data.Length; j++)
                        itemValue.Append(string.Format("{0} ", data[j]));
                }
                else
                {
                    itemValue.Append(barcodeInfo.ValueItems[i].ToString());
                }
                Console.WriteLine(
                    string.Format("[{0}] {1}", barcodeInfo.ValueItems[i].GetType().Name, itemValue));
            }
        }

        Console.WriteLine();
    }

}