using System;
using System.Collections.Generic;
using BusinessRefinery.Barcode;
using BusinessRefinery.Barcode.RDLC;
public class Product
{
    private string m_name;
    private int m_price;
    private byte[] m_bit;
    public Product(string name, int price, string data)
    {
        m_name = name;
        m_price = price;
        Linear barcode = new Linear();
        barcode.Symbology = Symbology.UPCA;
        barcode.Code = data;
        m_bit = barcode.drawBarcodeAsBytes();
    }
    public byte[] Bit
    {
        get { return m_bit; }
    }
    public string Name
    {
        get
        {
            return m_name;
        }
    }
    public int Price
    {
        get
        {
            return m_price;
        }
    }
}
public class Merchant
{
    private List<Product> m_products;
    public Merchant()
    {
        m_products = new List<Product>();
        m_products.Add(new Product("00123456789", 25, "00123456789"));
        m_products.Add(new Product("01234567890", 30, "01234567890"));
        m_products.Add(new Product("12345678900", 15, "12345678900"));
    }
    public List<Product> GetProducts()
    {
        return m_products;
    }
}

Imports System.Collections.Generic
Imports BusinessRefinery.Barcode
Imports BusinessRefinery.Barcode.RDLC
Public Class Product
    Private m_name As String
    Private m_price As Integer
    Private m_bit As Byte()
    Public Sub New(name As String, price As Integer, data As String)
        m_name = name
        m_price = price
        Dim barcode As New Linear()
        barcode.Symbology = Symbology.UPCA;
        barcode.Code = data
        m_bit = barcode.drawBarcodeAsBytes()


        m_bit = barcode.drawBarcodeAsBytes()
    End Sub
    Public ReadOnly Property Bit() As Byte()
        Get
            Return m_bit
        End Get
    End Property
    Public ReadOnly Property Name() As String
        Get
            Return m_name
        End Get
    End Property
    Public ReadOnly Property Price() As Integer
        Get
            Return m_price
        End Get
    End Property
End Class
Public Class Merchant
    Private m_products As List(Of Product)
    Public Sub New()
        m_products = New List(Of Product)()
        m_products.Add(New Product("00123456789", 25, "00123456789"))
        m_products.Add(New Product("01234567890", 30, "01234567890"))
        m_products.Add(New Product("12345678900", 15, "12345678900"))
    End Sub
    Public Function GetProducts() As List(Of Product)
        Return m_products
    End Function
End Class