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.CODE39;
        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("code128", 25, "code128"));
        m_products.Add(new Product("code39", 30, "code39"));
        m_products.Add(new Product("qrcode", 15, "qrcode"));
    }
    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 WebLinearBarcode ()
        barcode. Symbology = Symbology.CODE39
        barcode. Code = data
        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("code128", 25, "code128"))
        m_products.Add(New Product("code39", 30, "code39"))
        m_products.Add(New Product("qrcode", 15, "qrcode"))
    End Sub
    Public Function GetProducts() As List(Of Product)
        Return m_products
    End Function
End Class