EAN-13,CODE39,UPC,CODE128 Code Bar Generator

Here is a code to produce a bar code which complies with EAN13 specifications. I adapted It from a JS Script by Ghislain Lavoie I found on this web site.

VB Code:

Public Class EAN13
        Private bitsCode As ArrayList
 
        Public Sub New()
            bitsCode = New ArrayList
            bitsCode.Add(New String(3) {"0001101", "0100111", "1110010", "000000"})
            bitsCode.Add(New String(3) {"0011001", "0110011", "1100110", "001011"})
            bitsCode.Add(New String(3) {"0010011", "0011011", "1101100", "001101"})
            bitsCode.Add(New String(3) {"0111101", "0100001", "1000010", "001110"})
            bitsCode.Add(New String(3) {"0100011", "0011101", "1011100", "010011"})
            bitsCode.Add(New String(3) {"0110001", "0111001", "1001110", "011001"})
            bitsCode.Add(New String(3) {"0101111", "0000101", "1010000", "011100"})
            bitsCode.Add(New String(3) {"0111011", "0010001", "1000100", "010101"})
            bitsCode.Add(New String(3) {"0110111", "0001001", "1001000", "010110"})
            bitsCode.Add(New String(3) {"0001011", "0010111", "1110100", "011010"})
        End Sub
 
        Public Function Generate(ByVal Code As String) As Image
            Dim a As Integer = 0
            Dim b As Integer = 0
            Dim imgCode As Image
            Dim g As Graphics
            Dim i As Integer
            Dim bCode As Byte()
            Dim bitCode As Byte()
            Dim tmpFont As Font
 
            If Code.Length <> 12 Or Not IsNumeric(Code.Replace(".", "_").Replace(",", "_")) Then Throw New Exception("Le code doit être composé de 12 chiffres")
 
            ReDim bCode(12)
            For i = 0 To 11
                bCode(i) = CInt(Code.Substring(i, 1))
                If (i Mod 2) = 1 Then
                    b += bCode(i)
                Else
                    a += bCode(i)
                End If
            Next
 
            i = (a + (b * 3)) Mod 10
            If i = 0 Then
                bCode(12) = 0
            Else
                bCode(12) = 10 - i
            End If
            bitCode = getBits(bCode)
 
            tmpFont = New Font("times new roman", 14, FontStyle.Regular, GraphicsUnit.Pixel)
            imgCode = New Bitmap(110, 50)
            g = Graphics.FromImage(imgCode)
            g.Clear(Color.White)
 
            g.DrawString(Code.Substring(0, 1), tmpFont, Brushes.Black, 2, 30)
            a = g.MeasureString(Code.Substring(0, 1), tmpFont).Width
 
            For i = 0 To bitCode.Length - 1
                If i = 2 Then
                    g.DrawString(Code.Substring(1, 6), tmpFont, Brushes.Black, a, 30)
                ElseIf i = 48 Then
                    g.DrawString(Code.Substring(7, 5) & bCode(12).ToString, tmpFont, Brushes.Black, a, 30)
                End If
 
                If i = 0 Or i = 2 Or i = 46 Or i = 48 Or i = 92 Or i = 94 Then
                    If bitCode(i) = 1 Then 'noir
                        g.DrawLine(Pens.Black, a, 0, a, 40)
                        a += 1
                    End If
                Else
                    If bitCode(i) = 1 Then 'noir
                        g.DrawLine(Pens.Black, a, 0, a, 30)
                        a += 1
                    Else 'blanc
                        a += 1
                    End If
                End If
            Next
            g.Flush()
            Return imgCode
        End Function
 
        Private Function getBits(ByVal bCode As Byte()) As Byte()
            Dim i As Integer
            Dim res As Byte()
            Dim bits As String = "101"
            Dim cle As String = bitsCode(bCode(0))(3)
            For i = 1 To 6
                bits &= bitsCode(bCode(i))(CInt(cle.Substring(i - 1, 1)))
            Next
            bits &= "01010"
            For i = 7 To 12
                bits &= bitsCode(bCode(i))(2)
            Next
            bits += "101"
            ReDim res(bits.Length - 1)
            For i = 0 To bits.Length - 1
                res(i) = Asc(bits.Chars(i)) - 48
            Next
            Return res
        End Function
 
    End Class

I didn't actually checked if it was really compliant with EAN13 but I trust Ghislain Lavoie when he says it is, I tested It now and it works.
For UPC, it's just a EAN13 code bar starting with a 0

I added 2 classes : 1 for Code39 And 1 for Code128 (CharacterSetB)

I found Code39 on a French VB Forum and I updated It

I coded Code128 from the specifications which can be found there

Here is the code :

VB Code:

Public Class Code39
        Public Function Generate(ByVal Code As String) As Image
            Dim bmp As Image
            Dim ValidInput As String = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ-. $/+%"
            Dim ValidCodes As String = "4191459566472786097041902596264733841710595784729059950476626106644590602984801043246599624767444602600464775861090446866032248034439186013047842447705803036526582823575858090365863556658042365383495434978353624150635770"
            Dim i As Integer
 
            If Code = "" Then Throw New Exception("Le code est incorrect")
            For i = 0 To Code.Length - 1
                If ValidInput.IndexOf(Code.Substring(i, 1)) = -1 Then Throw New Exception("Le code est incorrect")
            Next
            Code = "*" & Code & "*"
            ValidInput &= "*"
 
            bmp = New Bitmap(Code.Length * 16, 58)
            Dim g As Graphics = Graphics.FromImage(bmp)
            g.FillRectangle(New SolidBrush(Color.White), 0, 0, Code.Length * 16, 58)
            Dim p As New Pen(Color.Black, 1)
            Dim BarValue, BarX As Integer
            Dim BarSlice As Short
 
            ' Create font and brush.
            Dim drawFont As New Font("Arial", 8)
            Dim drawBrush As New SolidBrush(Color.Black)
            ' Create point for upper-left corner of drawing.
            Dim x As Single = (Code.Length * 16) / 3
            Dim y As Single = 42
            ' Set format of string.
            Dim drawFormat As New StringFormat
            drawFormat.FormatFlags = StringFormatFlags.NoWrap
 
            For i = 0 To Code.Length - 1
                Try
                    BarValue = Val(ValidCodes.Substring(ValidInput.IndexOf(Code.Substring(i, 1)) * 5, 5))
                    If BarValue = 0 Then BarValue = 36538
                    For BarSlice = 15 To 0 Step -1
                        If BarValue >= 2 ^ BarSlice Then
                            g.DrawLine(p, BarX, 0, BarX, 40)
                            BarValue = BarValue - (2 ^ BarSlice)
                        End If
                        BarX += 1
                    Next
                Catch
                End Try
            Next
            g.DrawString(Code, drawFont, drawBrush, x, y, drawFormat)
 
            Return bmp
        End Function
    End Class
 
    Public Class Code128_CharacterSetB
        Private bitsCode As ArrayList
 
        Public Sub New()
            bitsCode = New ArrayList
            bitsCode.Add("11011001100")
            bitsCode.Add("11001101100")
            bitsCode.Add("11001100110")
            bitsCode.Add("10010011000")
            bitsCode.Add("10010001100")
            bitsCode.Add("10001001100")
            bitsCode.Add("10011001000")
            bitsCode.Add("10011000100")
            bitsCode.Add("10001100100")
            bitsCode.Add("11001001000")
            bitsCode.Add("11001000100")
            bitsCode.Add("11000100100")
            bitsCode.Add("10110011100")
            bitsCode.Add("10011011100")
            bitsCode.Add("10011001110")
            bitsCode.Add("10111001100")
            bitsCode.Add("10011101100")
            bitsCode.Add("10011100110")
            bitsCode.Add("11001110010")
            bitsCode.Add("11001011100")
            bitsCode.Add("11001001110")
            bitsCode.Add("11011100100")
            bitsCode.Add("11001110100")
            bitsCode.Add("11101101110")
            bitsCode.Add("11101001100")
            bitsCode.Add("11100101100")
            bitsCode.Add("11100100110")
            bitsCode.Add("11101100100")
            bitsCode.Add("11100110100")
            bitsCode.Add("11100110010")
            bitsCode.Add("11011011000")
            bitsCode.Add("11011000110")
            bitsCode.Add("11000110110")
            bitsCode.Add("10100011000")
            bitsCode.Add("10001011000")
            bitsCode.Add("10001000110")
            bitsCode.Add("10110001000")
            bitsCode.Add("10001101000")
            bitsCode.Add("10001100010")
            bitsCode.Add("11010001000")
            bitsCode.Add("11000101000")
            bitsCode.Add("11000100010")
            bitsCode.Add("10110111000")
            bitsCode.Add("10110001110")
            bitsCode.Add("10001101110")
            bitsCode.Add("10111011000")
            bitsCode.Add("10111000110")
            bitsCode.Add("10001110110")
            bitsCode.Add("11101110110")
            bitsCode.Add("11010001110")
            bitsCode.Add("11000101110")
            bitsCode.Add("11011101000")
            bitsCode.Add("11011100011")
            bitsCode.Add("11011101110")
            bitsCode.Add("11101011000")
            bitsCode.Add("11101000110")
            bitsCode.Add("11100010110")
            bitsCode.Add("11101101000")
            bitsCode.Add("11101100010")
            bitsCode.Add("11100011010")
            bitsCode.Add("11101111010")
            bitsCode.Add("11001000010")
            bitsCode.Add("11110001010")
            bitsCode.Add("10100110000")
            bitsCode.Add("10100001100")
            bitsCode.Add("10010110000")
            bitsCode.Add("10010000110")
            bitsCode.Add("10000101100")
            bitsCode.Add("10000100110")
            bitsCode.Add("10110010000")
            bitsCode.Add("10110000100")
            bitsCode.Add("10011010000")
            bitsCode.Add("10011000010")
            bitsCode.Add("10000110100")
            bitsCode.Add("10000110010")
            bitsCode.Add("11000010010")
            bitsCode.Add("11001010000")
            bitsCode.Add("11110111010")
            bitsCode.Add("11000010100")
            bitsCode.Add("10001111010")
            bitsCode.Add("10100111100")
            bitsCode.Add("10010111100")
            bitsCode.Add("10010011110")
            bitsCode.Add("10111100100")
            bitsCode.Add("10011110100")
            bitsCode.Add("10011110010")
            bitsCode.Add("11110100100")
            bitsCode.Add("11110010100")
            bitsCode.Add("11110010010")
            bitsCode.Add("11011011110")
            bitsCode.Add("11011110110")
            bitsCode.Add("11110110110")
            bitsCode.Add("10101111000")
            bitsCode.Add("10100011110")
            bitsCode.Add("10001011110")
            bitsCode.Add("10111101000")
            bitsCode.Add("10111100010")
            bitsCode.Add("11110101000")
            bitsCode.Add("11110100010")
            bitsCode.Add("10111011110")
            bitsCode.Add("10111101110")
            bitsCode.Add("11101011110")
            bitsCode.Add("11110101110")
            bitsCode.Add("11010000100")
            bitsCode.Add("11010010000")
            bitsCode.Add("11010011100")
            bitsCode.Add("1100011101011")
        End Sub
        Public Function Generate(ByVal Code As String) As Image
            Dim bmp As Image
            Dim ValidInput As String = " !""#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~"
            Dim CheckSum As Integer
            Dim BarCode As String
            Dim i As Integer
 
            If Code = "" Then Throw New Exception("Le code est incorrect")
            BarCode = bitsCode(104)
            For i = 0 To Code.Length - 1
                If ValidInput.IndexOf(Code.Substring(i, 1)) = -1 Then Throw New Exception("Le code est incorrect")
                CheckSum += ((i + 1) * ValidInput.IndexOf(Code.Substring(i, 1)))
                BarCode &= bitsCode(ValidInput.IndexOf(Code.Substring(i, 1)))
            Next
            CheckSum += 104 'Start B
            CheckSum = CheckSum Mod 103
            BarCode &= bitsCode(CheckSum)
            BarCode &= bitsCode(106) 'Stop symbol
 
            bmp = New Bitmap(BarCode.Length, 58)
            Dim g As Graphics = Graphics.FromImage(bmp)
            g.FillRectangle(New SolidBrush(Color.White), 0, 0, BarCode.Length, 58)
            Dim p As New Pen(Color.Black, 1)
            Dim BarX As Integer
 
            ' Create font and brush.
            Dim drawFont As New Font("Arial", 8)
            Dim drawBrush As New SolidBrush(Color.Black)
            ' Create point for upper-left corner of drawing.
            Dim y As Single = 42
            ' Set format of string.
            Dim drawFormat As New StringFormat
            drawFormat.FormatFlags = StringFormatFlags.NoWrap
            drawFormat.Alignment = StringAlignment.Center
 
            For i = 0 To BarCode.Length - 1
                Try
                    If BarCode.Chars(i) = "1" Then g.DrawLine(p, BarX, 0, BarX, 40)
                    BarX += 1
                Catch
                End Try
            Next
            g.DrawString(Code, drawFont, drawBrush, New RectangleF(0, y, BarCode.Length, 16), drawFormat)
 
            Return bmp
        End Function
    End Class

Note that Code128 is CharacterSetB but you can easily update it so it uses Character Set A or C, all bit patterns are included in bitsCode.

Very Nice ! Thanks for putting this in.

Bill

Could you please Zip it up and post an example project using VB2005 so we can see it in action? I'm very much interested in this.

If it is not too much to ask of course.

If you don't have the time at least give me the steps so I can do it myself.

Thanks A LOT.....

You are awsome, this helped me so much.

Looks good... This might solve my most bar code related issues... Let's see...

Quote:

---

piscis

Re: EAN-13,CODE39,UPC,CODE128 Code Bar Generator
Could you please Zip it up and post an example project using VB2005 so we can see it in action? I'm very much interested in this.

If it is not too much to ask of course.

If you don't have the time at least give me the steps so I can do it myself.

Thanks A LOT.....

---

I know this thread is old but I am trying to add the other Code 128 A and C any pointers? Here is the test app all original code from above.Attachment 96409

Do I Just change this line

Code:

---

BarCode = bitsCode(104) 'Charset B

---

to

Code:

---

BarCode = bitsCode(103) 'Charset A

---

or

Code:

---

BarCode = bitsCode(105) 'Charset C

---

Dear All,

Can any one tell me how to convert numbers to EAN-13 bar codes using the below code, usually i got series of numbers in notepad file and i need to convert those numbers to EAN-13 and show output in crystal report.
I am using VB.net 2010.

Code:

---

    Public Class EAN13
            Private bitsCode As ArrayList
   
            Public Sub New()
                bitsCode = New ArrayList
                bitsCode.Add(New String(3) {"0001101", "0100111", "1110010", "000000"})
                bitsCode.Add(New String(3) {"0011001", "0110011", "1100110", "001011"})
                bitsCode.Add(New String(3) {"0010011", "0011011", "1101100", "001101"})
                bitsCode.Add(New String(3) {"0111101", "0100001", "1000010", "001110"})
                bitsCode.Add(New String(3) {"0100011", "0011101", "1011100", "010011"})
                bitsCode.Add(New String(3) {"0110001", "0111001", "1001110", "011001"})
                bitsCode.Add(New String(3) {"0101111", "0000101", "1010000", "011100"})
                bitsCode.Add(New String(3) {"0111011", "0010001", "1000100", "010101"})
                bitsCode.Add(New String(3) {"0110111", "0001001", "1001000", "010110"})
                bitsCode.Add(New String(3) {"0001011", "0010111", "1110100", "011010"})
            End Sub
   
            Public Function Generate(ByVal Code As String) As Image
                Dim a As Integer = 0
                Dim b As Integer = 0
                Dim imgCode As Image
                Dim g As Graphics
                Dim i As Integer
                Dim bCode As Byte()
                Dim bitCode As Byte()
                Dim tmpFont As Font
   
                If Code.Length <> 12 Or Not IsNumeric(Code.Replace(".", "_").Replace(",", "_")) Then Throw New Exception("Le code doit être composé de 12 chiffres")
   
                ReDim bCode(12)
                For i = 0 To 11
                    bCode(i) = CInt(Code.Substring(i, 1))
                    If (i Mod 2) = 1 Then
                        b += bCode(i)
                    Else
                        a += bCode(i)
                    End If
                Next
   
                i = (a + (b * 3)) Mod 10
                If i = 0 Then
                    bCode(12) = 0
                Else
                    bCode(12) = 10 - i
                End If
                bitCode = getBits(bCode)
   
                tmpFont = New Font("times new roman", 14, FontStyle.Regular, GraphicsUnit.Pixel)
                imgCode = New Bitmap(110, 50)
                g = Graphics.FromImage(imgCode)
                g.Clear(Color.White)
   
                g.DrawString(Code.Substring(0, 1), tmpFont, Brushes.Black, 2, 30)
                a = g.MeasureString(Code.Substring(0, 1), tmpFont).Width
   
                For i = 0 To bitCode.Length - 1
                    If i = 2 Then
                        g.DrawString(Code.Substring(1, 6), tmpFont, Brushes.Black, a, 30)
                    ElseIf i = 48 Then
                        g.DrawString(Code.Substring(7, 5) & bCode(12).ToString, tmpFont, Brushes.Black, a, 30)
                    End If
   
                    If i = 0 Or i = 2 Or i = 46 Or i = 48 Or i = 92 Or i = 94 Then
                        If bitCode(i) = 1 Then 'noir
                            g.DrawLine(Pens.Black, a, 0, a, 40)
                            a += 1
                        End If
                    Else
                        If bitCode(i) = 1 Then 'noir
                            g.DrawLine(Pens.Black, a, 0, a, 30)
                            a += 1
                        Else 'blanc
                            a += 1
                        End If
                    End If
                Next
                g.Flush()
                Return imgCode
            End Function
   
            Private Function getBits(ByVal bCode As Byte()) As Byte()
                Dim i As Integer
                Dim res As Byte()
                Dim bits As String = "101"
                Dim cle As String = bitsCode(bCode(0))(3)
                For i = 1 To 6
                    bits &= bitsCode(bCode(i))(CInt(cle.Substring(i - 1, 1)))
                Next
                bits &= "01010"
                For i = 7 To 12
                    bits &= bitsCode(bCode(i))(2)
                Next
                bits += "101"
                ReDim res(bits.Length - 1)
                For i = 0 To bits.Length - 1
                    res(i) = Asc(bits.Chars(i)) - 48
                Next
                Return res
            End Function
   
        End Class

---

I found that it's way easier to download a font, rather than trying to draw bar codes. Do a search for EAN-13 fonts, there should be a free one, then install it and start using it.

Quote:

---

Originally Posted by wild_bill

I found that it's way easier to download a font, rather than trying to draw bar codes. Do a search for EAN-13 fonts, there should be a free one, then install it and start using it.

---

wild_bill - Thanks for your reply...

I tried your suggestion before posting this thread, when i convert the bar code its like (A) but i need as (B) please refer below images (A) and (B)

Attachment 112119

Quote:

---

Originally Posted by tnncprojects

wild_bill - Thanks for your reply...

I tried your suggestion before posting this thread, when i convert the bar code its like (A) but i need as (B) please refer below images (A) and (B)

Attachment 112119

---

If Code.Length <> 12 in EAN13.vb???

so called EAN13 means 13 numbers.

Quote:

---

Originally Posted by tnncprojects

Dear All,

Can any one tell me how to convert numbers to EAN-13 bar codes using the below code, usually i got series of numbers in notepad file and i need to convert those numbers to EAN-13 and show output in crystal report.
I am using VB.net 2010.

Code:

---

    Public Class EAN13
            Private bitsCode As ArrayList
   
            Public Sub New()
                bitsCode = New ArrayList
                bitsCode.Add(New String(3) {"0001101", "0100111", "1110010", "000000"})
                bitsCode.Add(New String(3) {"0011001", "0110011", "1100110", "001011"})
                bitsCode.Add(New String(3) {"0010011", "0011011", "1101100", "001101"})
                bitsCode.Add(New String(3) {"0111101", "0100001", "1000010", "001110"})
                bitsCode.Add(New String(3) {"0100011", "0011101", "1011100", "010011"})
                bitsCode.Add(New String(3) {"0110001", "0111001", "1001110", "011001"})
                bitsCode.Add(New String(3) {"0101111", "0000101", "1010000", "011100"})
                bitsCode.Add(New String(3) {"0111011", "0010001", "1000100", "010101"})
                bitsCode.Add(New String(3) {"0110111", "0001001", "1001000", "010110"})
                bitsCode.Add(New String(3) {"0001011", "0010111", "1110100", "011010"})
            End Sub
   
            Public Function Generate(ByVal Code As String) As Image
                Dim a As Integer = 0
                Dim b As Integer = 0
                Dim imgCode As Image
                Dim g As Graphics
                Dim i As Integer
                Dim bCode As Byte()
                Dim bitCode As Byte()
                Dim tmpFont As Font
   
                If Code.Length <> 12 Or Not IsNumeric(Code.Replace(".", "_").Replace(",", "_")) Then Throw New Exception("Le code doit être composé de 12 chiffres")
   
                ReDim bCode(12)
                For i = 0 To 11
                    bCode(i) = CInt(Code.Substring(i, 1))
                    If (i Mod 2) = 1 Then
                        b += bCode(i)
                    Else
                        a += bCode(i)
                    End If
                Next
   
                i = (a + (b * 3)) Mod 10
                If i = 0 Then
                    bCode(12) = 0
                Else
                    bCode(12) = 10 - i
                End If
                bitCode = getBits(bCode)
   
                tmpFont = New Font("times new roman", 14, FontStyle.Regular, GraphicsUnit.Pixel)
                imgCode = New Bitmap(110, 50)
                g = Graphics.FromImage(imgCode)
                g.Clear(Color.White)
   
                g.DrawString(Code.Substring(0, 1), tmpFont, Brushes.Black, 2, 30)
                a = g.MeasureString(Code.Substring(0, 1), tmpFont).Width
   
                For i = 0 To bitCode.Length - 1
                    If i = 2 Then
                        g.DrawString(Code.Substring(1, 6), tmpFont, Brushes.Black, a, 30)
                    ElseIf i = 48 Then
                        g.DrawString(Code.Substring(7, 5) & bCode(12).ToString, tmpFont, Brushes.Black, a, 30)
                    End If
   
                    If i = 0 Or i = 2 Or i = 46 Or i = 48 Or i = 92 Or i = 94 Then
                        If bitCode(i) = 1 Then 'noir
                            g.DrawLine(Pens.Black, a, 0, a, 40)
                            a += 1
                        End If
                    Else
                        If bitCode(i) = 1 Then 'noir
                            g.DrawLine(Pens.Black, a, 0, a, 30)
                            a += 1
                        Else 'blanc
                            a += 1
                        End If
                    End If
                Next
                g.Flush()
                Return imgCode
            End Function
   
            Private Function getBits(ByVal bCode As Byte()) As Byte()
                Dim i As Integer
                Dim res As Byte()
                Dim bits As String = "101"
                Dim cle As String = bitsCode(bCode(0))(3)
                For i = 1 To 6
                    bits &= bitsCode(bCode(i))(CInt(cle.Substring(i - 1, 1)))
                Next
                bits &= "01010"
                For i = 7 To 12
                    bits &= bitsCode(bCode(i))(2)
                Next
                bits += "101"
                ReDim res(bits.Length - 1)
                For i = 0 To bits.Length - 1
                    res(i) = Asc(bits.Chars(i)) - 48
                Next
                Return res
            End Function
   
        End Class

---

---

:)You can use the ASCII Chart to convert numbers to EAN-13 barcodes,because every code corresponding to a number.This can be used not only EAN-13,but also code128,code39 and so on.This is the chart: http://www.ascii-code.com/