PureBasic Forums - English

Posted: **Sun Nov 02, 2003 8:27 pm**

Thanks

TronDoc and

RJP Computing for checking the code out!

; Implementation of BARCODE 39
;
; by Num3


Structure C39
    Char.s
    bar.b [6]
    spe.b [6]
EndStructure

Dim CODE39.C39 (43)

; Yes, i know it's a mess, and i could make it much simpler, 
; but i can't test it, so this is more readable for errors ;)

CODE39(0)\Char = "0"
CODE39(0)\bar[1] = 0
CODE39(0)\spe[1] = 0
CODE39(0)\bar[2] = 0
CODE39(0)\spe[2] = 1
CODE39(0)\bar[3] = 1
CODE39(0)\spe[3] = 0
CODE39(0)\bar[4] = 1
CODE39(0)\spe[4] = 0
CODE39(0)\bar[5] = 0
CODE39(0)\spe[5] = 0

CODE39(1)\Char = "1"
CODE39(1)\bar[1] = 1
CODE39(1)\spe[1] = 0
CODE39(1)\bar[2] = 0
CODE39(1)\spe[2] = 1
CODE39(1)\bar[3] = 0
CODE39(1)\spe[3] = 0
CODE39(1)\bar[4] = 0
CODE39(1)\spe[4] = 0
CODE39(1)\bar[5] = 1
CODE39(1)\spe[5] = 0

CODE39(2)\Char = "2"
CODE39(2)\bar[1] = 0
CODE39(2)\spe[1] = 0
CODE39(2)\bar[2] = 1
CODE39(2)\spe[2] = 1
CODE39(2)\bar[3] = 0
CODE39(2)\spe[3] = 0
CODE39(2)\bar[4] = 0
CODE39(2)\spe[4] = 0
CODE39(2)\bar[5] = 1
CODE39(2)\spe[5] = 0

CODE39(3)\Char = "3"
CODE39(3)\bar[1] = 1
CODE39(3)\spe[1] = 0
CODE39(3)\bar[2] = 1
CODE39(3)\spe[2] = 1
CODE39(3)\bar[3] = 0
CODE39(3)\spe[3] = 0
CODE39(3)\bar[4] = 0
CODE39(3)\spe[4] = 0
CODE39(3)\bar[5] = 0
CODE39(3)\spe[5] = 0

CODE39(4)\Char = "4"
CODE39(4)\bar[1] = 0
CODE39(4)\spe[1] = 0
CODE39(4)\bar[2] = 0
CODE39(4)\spe[2] = 1
CODE39(4)\bar[3] = 1
CODE39(4)\spe[3] = 0
CODE39(4)\bar[4] = 0
CODE39(4)\spe[4] = 0
CODE39(4)\bar[5] = 1
CODE39(4)\spe[5] = 0

CODE39(5)\Char = "5"
CODE39(5)\bar[1] = 1
CODE39(5)\spe[1] = 0
CODE39(5)\bar[2] = 0
CODE39(5)\spe[2] = 1
CODE39(5)\bar[3] = 1
CODE39(5)\spe[3] = 0
CODE39(5)\bar[4] = 0
CODE39(5)\spe[4] = 0
CODE39(5)\bar[5] = 0
CODE39(5)\spe[5] = 0

CODE39(6)\Char = "6"
CODE39(6)\bar[1] = 0
CODE39(6)\spe[1] = 0
CODE39(6)\bar[2] = 1
CODE39(6)\spe[2] = 1
CODE39(6)\bar[3] = 1
CODE39(6)\spe[3] = 0
CODE39(6)\bar[4] = 0
CODE39(6)\spe[4] = 0
CODE39(6)\bar[5] = 0
CODE39(6)\spe[5] = 0

CODE39(7)\Char = "7"
CODE39(7)\bar[1] = 0
CODE39(7)\spe[1] = 0
CODE39(7)\bar[2] = 0
CODE39(7)\spe[2] = 1
CODE39(7)\bar[3] = 0
CODE39(7)\spe[3] = 0
CODE39(7)\bar[4] = 1
CODE39(7)\spe[4] = 0
CODE39(7)\bar[5] = 1
CODE39(7)\spe[5] = 0

CODE39(8)\Char = "8"
CODE39(8)\bar[1] = 1
CODE39(8)\spe[1] = 0
CODE39(8)\bar[2] = 0
CODE39(8)\spe[2] = 1
CODE39(8)\bar[3] = 0
CODE39(8)\spe[3] = 0
CODE39(8)\bar[4] = 1
CODE39(8)\spe[4] = 0
CODE39(8)\bar[5] = 0
CODE39(8)\spe[5] = 0
CODE39(9)\Char = "9"
CODE39(9)\bar[1] = 0
CODE39(9)\spe[1] = 0
CODE39(9)\bar[2] = 1
CODE39(9)\spe[2] = 1
CODE39(9)\bar[3] = 0
CODE39(9)\spe[3] = 0
CODE39(9)\bar[4] = 1
CODE39(9)\spe[4] = 0
CODE39(9)\bar[5] = 0
CODE39(9)\spe[5] = 0

CODE39(10)\Char = "A"
CODE39(10)\bar[1] = 1
CODE39(10)\spe[1] = 0
CODE39(10)\bar[2] = 0
CODE39(10)\spe[2] = 0
CODE39(10)\bar[3] = 0
CODE39(10)\spe[3] = 1
CODE39(10)\bar[4] = 0
CODE39(10)\spe[4] = 0
CODE39(10)\bar[5] = 1
CODE39(10)\spe[5] = 0

CODE39(11)\Char = "B"
CODE39(11)\bar[1] = 0
CODE39(11)\spe[1] = 0
CODE39(11)\bar[2] = 1
CODE39(11)\spe[2] = 0
CODE39(11)\bar[3] = 0
CODE39(11)\spe[3] = 1
CODE39(11)\bar[4] = 0
CODE39(11)\spe[4] = 0
CODE39(11)\bar[5] = 1
CODE39(11)\spe[5] = 0

CODE39(12)\Char = "C"
CODE39(12)\bar[1] = 1
CODE39(12)\spe[1] = 0
CODE39(12)\bar[2] = 1
CODE39(12)\spe[2] = 0
CODE39(12)\bar[3] = 0
CODE39(12)\spe[3] = 1
CODE39(12)\bar[4] = 0
CODE39(12)\spe[4] = 0
CODE39(12)\bar[5] = 0
CODE39(12)\spe[5] = 0

CODE39(13)\Char = "D"
CODE39(13)\bar[1] = 0
CODE39(13)\spe[1] = 0
CODE39(13)\bar[2] = 0
CODE39(13)\spe[2] = 0
CODE39(13)\bar[3] = 1
CODE39(13)\spe[3] = 1
CODE39(13)\bar[4] = 0
CODE39(13)\spe[4] = 0
CODE39(13)\bar[5] = 1
CODE39(13)\spe[5] = 0

CODE39(14)\Char = "E"
CODE39(14)\bar[1] = 1
CODE39(14)\spe[1] = 0
CODE39(14)\bar[2] = 0
CODE39(14)\spe[2] = 0
CODE39(14)\bar[3] = 1
CODE39(14)\spe[3] = 1
CODE39(14)\bar[4] = 0
CODE39(14)\spe[4] = 0
CODE39(14)\bar[5] = 0
CODE39(14)\spe[5] = 0

CODE39(15)\Char = "F"
CODE39(15)\bar[1] = 0
CODE39(15)\spe[1] = 0
CODE39(15)\bar[2] = 1
CODE39(15)\spe[2] = 0
CODE39(15)\bar[3] = 1
CODE39(15)\spe[3] = 1
CODE39(15)\bar[4] = 0
CODE39(15)\spe[4] = 0
CODE39(15)\bar[5] = 0
CODE39(15)\spe[5] = 0

CODE39(16)\Char = "G"
CODE39(16)\bar[1] = 0
CODE39(16)\spe[1] = 0
CODE39(16)\bar[2] = 0
CODE39(16)\spe[2] = 0
CODE39(16)\bar[3] = 0
CODE39(16)\spe[3] = 1
CODE39(16)\bar[4] = 1
CODE39(16)\spe[4] = 0
CODE39(16)\bar[5] = 1
CODE39(16)\spe[5] = 0

CODE39(17)\Char = "H"
CODE39(17)\bar[1] = 1
CODE39(17)\spe[1] = 0
CODE39(17)\bar[2] = 0
CODE39(17)\spe[2] = 0
CODE39(17)\bar[3] = 0
CODE39(17)\spe[3] = 1
CODE39(17)\bar[4] = 1
CODE39(17)\spe[4] = 0
CODE39(17)\bar[5] = 0
CODE39(17)\spe[5] = 0

CODE39(18)\Char = "I"
CODE39(18)\bar[1] = 0
CODE39(18)\spe[1] = 0
CODE39(18)\bar[2] = 1
CODE39(18)\spe[2] = 0
CODE39(18)\bar[3] = 0
CODE39(18)\spe[3] = 1
CODE39(18)\bar[4] = 1
CODE39(18)\spe[4] = 0
CODE39(18)\bar[5] = 0
CODE39(18)\spe[5] = 0

CODE39(19)\Char = "J"
CODE39(19)\bar[1] = 0
CODE39(19)\spe[1] = 0
CODE39(19)\bar[2] = 0
CODE39(19)\spe[2] = 0
CODE39(19)\bar[3] = 1
CODE39(19)\spe[3] = 1
CODE39(19)\bar[4] = 1
CODE39(19)\spe[4] = 0
CODE39(19)\bar[5] = 0
CODE39(19)\spe[5] = 0

CODE39(20)\Char = "K"
CODE39(20)\bar[1] = 1
CODE39(20)\spe[1] = 0
CODE39(20)\bar[2] = 0
CODE39(20)\spe[2] = 0
CODE39(20)\bar[3] = 0
CODE39(20)\spe[3] = 0
CODE39(20)\bar[4] = 0
CODE39(20)\spe[4] = 1
CODE39(20)\bar[5] = 1
CODE39(20)\spe[5] = 0

CODE39(21)\Char = "L"
CODE39(21)\bar[1] = 0
CODE39(21)\spe[1] = 0
CODE39(21)\bar[2] = 1
CODE39(21)\spe[2] = 0
CODE39(21)\bar[3] = 0
CODE39(21)\spe[3] = 0
CODE39(21)\bar[4] = 0
CODE39(21)\spe[4] = 1
CODE39(21)\bar[5] = 1
CODE39(21)\spe[5] = 0

CODE39(22)\Char = "M"
CODE39(22)\bar[1] = 1
CODE39(22)\spe[1] = 0
CODE39(22)\bar[2] = 1
CODE39(22)\spe[2] = 0
CODE39(22)\bar[3] = 0
CODE39(22)\spe[3] = 0
CODE39(22)\bar[4] = 0
CODE39(22)\spe[4] = 1
CODE39(22)\bar[5] = 0
CODE39(22)\spe[5] = 0

CODE39(23)\Char = "N"
CODE39(23)\bar[1] = 0
CODE39(23)\spe[1] = 0
CODE39(23)\bar[2] = 0
CODE39(23)\spe[2] = 0
CODE39(23)\bar[3] = 1
CODE39(23)\spe[3] = 0
CODE39(23)\bar[4] = 0
CODE39(23)\spe[4] = 1
CODE39(23)\bar[5] = 1
CODE39(23)\spe[5] = 0

CODE39(24)\Char = "O"
CODE39(24)\bar[1] = 1
CODE39(24)\spe[1] = 0
CODE39(24)\bar[2] = 0
CODE39(24)\spe[2] = 0
CODE39(24)\bar[3] = 1
CODE39(24)\spe[3] = 0
CODE39(24)\bar[4] = 0
CODE39(24)\spe[4] = 1
CODE39(24)\bar[5] = 0
CODE39(24)\spe[5] = 0

CODE39(25)\Char = "P"
CODE39(25)\bar[1] = 0
CODE39(25)\spe[1] = 0
CODE39(25)\bar[2] = 1
CODE39(25)\spe[2] = 0
CODE39(25)\bar[3] = 1
CODE39(25)\spe[3] = 0
CODE39(25)\bar[4] = 0
CODE39(25)\spe[4] = 1
CODE39(25)\bar[5] = 0
CODE39(25)\spe[5] = 0

CODE39(26)\Char = "Q"
CODE39(26)\bar[1] = 0
CODE39(26)\spe[1] = 0
CODE39(26)\bar[2] = 0
CODE39(26)\spe[2] = 0
CODE39(26)\bar[3] = 0
CODE39(26)\spe[3] = 0
CODE39(26)\bar[4] = 1
CODE39(26)\spe[4] = 1
CODE39(26)\bar[5] = 1
CODE39(26)\spe[5] = 0

CODE39(27)\Char = "R"
CODE39(27)\bar[1] = 1
CODE39(27)\spe[1] = 0
CODE39(27)\bar[2] = 0
CODE39(27)\spe[2] = 0
CODE39(27)\bar[3] = 0
CODE39(27)\spe[3] = 0
CODE39(27)\bar[4] = 1
CODE39(27)\spe[4] = 1
CODE39(27)\bar[5] = 0
CODE39(27)\spe[5] = 0

CODE39(28)\Char = "S"
CODE39(28)\bar[1] = 0
CODE39(28)\spe[1] = 0
CODE39(28)\bar[2] = 1
CODE39(28)\spe[2] = 0
CODE39(28)\bar[3] = 0
CODE39(28)\spe[3] = 0
CODE39(28)\bar[4] = 1
CODE39(28)\spe[4] = 1
CODE39(28)\bar[5] = 0
CODE39(28)\spe[5] = 0

CODE39(29)\Char = "T"
CODE39(29)\bar[1] = 0
CODE39(29)\spe[1] = 0
CODE39(29)\bar[2] = 0
CODE39(29)\spe[2] = 0
CODE39(29)\bar[3] = 1
CODE39(29)\spe[3] = 0
CODE39(29)\bar[4] = 1
CODE39(29)\spe[4] = 1
CODE39(29)\bar[5] = 0
CODE39(29)\spe[5] = 0

CODE39(30)\Char = "U"
CODE39(30)\bar[1] = 1
CODE39(30)\spe[1] = 1
CODE39(30)\bar[2] = 0
CODE39(30)\spe[2] = 0
CODE39(30)\bar[3] = 0
CODE39(30)\spe[3] = 0
CODE39(30)\bar[4] = 0
CODE39(30)\spe[4] = 0
CODE39(30)\bar[5] = 1
CODE39(30)\spe[5] = 0

CODE39(31)\Char = "V"
CODE39(31)\bar[1] = 0
CODE39(31)\spe[1] = 1
CODE39(31)\bar[2] = 1
CODE39(31)\spe[2] = 0
CODE39(31)\bar[3] = 0
CODE39(31)\spe[3] = 0
CODE39(31)\bar[4] = 0
CODE39(31)\spe[4] = 0
CODE39(31)\bar[5] = 1
CODE39(31)\spe[5] = 0

CODE39(32)\Char = "W"
CODE39(32)\bar[1] = 1
CODE39(32)\spe[1] = 1
CODE39(32)\bar[2] = 1
CODE39(32)\spe[2] = 0
CODE39(32)\bar[3] = 0
CODE39(32)\spe[3] = 0
CODE39(32)\bar[4] = 0
CODE39(32)\spe[4] = 0
CODE39(32)\bar[5] = 0
CODE39(32)\spe[5] = 0

CODE39(33)\Char = "X"
CODE39(33)\bar[1] = 0
CODE39(33)\spe[1] = 1
CODE39(33)\bar[2] = 0
CODE39(33)\spe[2] = 0
CODE39(33)\bar[3] = 1
CODE39(33)\spe[3] = 0
CODE39(33)\bar[4] = 0
CODE39(33)\spe[4] = 0
CODE39(33)\bar[5] = 1
CODE39(33)\spe[5] = 0

CODE39(34)\Char = "Y"
CODE39(34)\bar[1] = 1
CODE39(34)\spe[1] = 1
CODE39(34)\bar[2] = 0
CODE39(34)\spe[2] = 0
CODE39(34)\bar[3] = 1
CODE39(34)\spe[3] = 0
CODE39(34)\bar[4] = 0
CODE39(34)\spe[4] = 0
CODE39(34)\bar[5] = 0
CODE39(34)\spe[5] = 0

CODE39(35)\Char = "Z"
CODE39(35)\bar[1] = 0
CODE39(35)\spe[1] = 1
CODE39(35)\bar[2] = 1
CODE39(35)\spe[2] = 0
CODE39(35)\bar[3] = 1
CODE39(35)\spe[3] = 0
CODE39(35)\bar[4] = 0
CODE39(35)\spe[4] = 0
CODE39(35)\bar[5] = 0
CODE39(35)\spe[5] = 0

CODE39(36)\Char = "-"
CODE39(36)\bar[1] = 0
CODE39(36)\spe[1] = 1
CODE39(36)\bar[2] = 0
CODE39(36)\spe[2] = 0
CODE39(36)\bar[3] = 0
CODE39(36)\spe[3] = 0
CODE39(36)\bar[4] = 1
CODE39(36)\spe[4] = 0
CODE39(36)\bar[5] = 1
CODE39(36)\spe[5] = 0

CODE39(37)\Char = "."
CODE39(37)\bar[1] = 1
CODE39(37)\spe[1] = 1
CODE39(37)\bar[2] = 0
CODE39(37)\spe[2] = 0
CODE39(37)\bar[3] = 0
CODE39(37)\spe[3] = 0
CODE39(37)\bar[4] = 1
CODE39(37)\spe[4] = 0
CODE39(37)\bar[5] = 0
CODE39(37)\spe[5] = 0

CODE39(38)\Char = " "
CODE39(38)\bar[1] = 0
CODE39(38)\spe[1] = 1
CODE39(38)\bar[2] = 1
CODE39(38)\spe[2] = 0
CODE39(38)\bar[3] = 0
CODE39(38)\spe[3] = 0
CODE39(38)\bar[4] = 1
CODE39(38)\spe[4] = 0
CODE39(38)\bar[5] = 0
CODE39(38)\spe[5] = 0

CODE39(39)\Char = "$"
CODE39(39)\bar[1] = 0
CODE39(39)\spe[1] = 1
CODE39(39)\bar[2] = 0
CODE39(39)\spe[2] = 1
CODE39(39)\bar[3] = 0
CODE39(39)\spe[3] = 1
CODE39(39)\bar[4] = 0
CODE39(39)\spe[4] = 0
CODE39(39)\bar[5] = 0
CODE39(39)\spe[5] = 0

CODE39(40)\Char = "/"
CODE39(40)\bar[1] = 0
CODE39(40)\spe[1] = 1
CODE39(40)\bar[2] = 0
CODE39(40)\spe[2] = 1
CODE39(40)\bar[3] = 0
CODE39(40)\spe[3] = 0
CODE39(40)\bar[4] = 0
CODE39(40)\spe[4] = 1
CODE39(40)\bar[5] = 0
CODE39(40)\spe[5] = 0

CODE39(41)\Char = "+"
CODE39(41)\bar[1] = 0
CODE39(41)\spe[1] = 1
CODE39(41)\bar[2] = 0
CODE39(41)\spe[2] = 0
CODE39(41)\bar[3] = 0
CODE39(41)\spe[3] = 1
CODE39(41)\bar[4] = 0
CODE39(41)\spe[4] = 1
CODE39(41)\bar[5] = 0
CODE39(41)\spe[5] = 0

CODE39(42)\Char = "%"
CODE39(42)\bar[1] = 0
CODE39(42)\spe[1] = 0
CODE39(42)\bar[2] = 0
CODE39(42)\spe[2] = 1
CODE39(42)\bar[3] = 0
CODE39(42)\spe[3] = 1
CODE39(42)\bar[4] = 0
CODE39(42)\spe[4] = 1
CODE39(42)\bar[5] = 0
CODE39(42)\spe[5] = 0

CODE39(43)\Char = "*"
CODE39(43)\bar[1] = 0
CODE39(43)\spe[1] = 1
CODE39(43)\bar[2] = 0
CODE39(43)\spe[2] = 0
CODE39(43)\bar[3] = 1
CODE39(43)\spe[3] = 0
CODE39(43)\bar[4] = 1
CODE39(43)\spe[4] = 0
CODE39(43)\bar[5] = 0
CODE39(43)\spe[5] = 0


Procedure AscTo39(c.s)
    AscTo39 = -1
    If c >= "0" And c <= "9"
        AscTo39 = Val(c)
    Else
        c = UCase(c)
        If c >= "A" And c <= "Z"
            AscTo39 = Asc(c) - 55
        Else
            Select c
            Case "-"
                AscTo39 = 36
            Case "."
                AscTo39 = 37
            Case " "
                AscTo39 = 38
            Case "*"
                AscTo39 = 43
            Case "$"
                AscTo39 = 39
            Case "/"
                AscTo39 = 40
            Case "+"
                AscTo39 = 41
            Case "%"
                AscTo39 = 42
            EndSelect
        EndIf
    EndIf
    ProcedureReturn AscTo39
EndProcedure


Procedure PaintCodeBar39(h.l, wf.l, text.s, tf.b)

    xpos = 0 ; To make an off set on both sides of the bar change the value
    ypos = 0 ; To make an off set on both sides of the bar change the value
    
    width=Len(text)*wf*16 + xpos ; 1 bar unit = 16 pixels * barwidth !!
    height=h + ypos
    
    If tf
     height + 16 ; Make sure we have more space for the text
    EndIf
    
    CreateImage(0,width,height)


    text = Trim(text)

    StartDrawing(ImageOutput())
    
    Box(0,0,width,height,RGB(255,255,255))


    chrspace=(width-16)/Len(text)

    
    For j = 1 To Len(text)
        d.s = Mid(text, j, 1)
        N39 = AscTo39(d)
        
        For bs = 1 To 5
            
            ;Bar
            If CODE39(N39)\bar[bs]
                w = 3 ;Wide
            Else
                w = 1 ;Narrow
            EndIf
            ;Draw line for bar
            For i = 1 To w * wf
                Line (xpos, ypos, 0, ypos + h,RGB(0,0,0))
                xpos  + 1
            Next
            
            ;Space
            If CODE39(N39)\spe[bs]
                xpos = xpos + 3 * wf ;Wide
            Else
                xpos = xpos + 1 * wf ;Narrow
            EndIf
        Next
        
        ; Human Readable
        
         If tf
             Locate(chrspace*(j-1)+chrspace,y + h)
             DrawText(UCase(d))
         EndIf

    Next
        StopDrawing()
SaveImage(0,"teste.bmp")


EndProcedure


;
;Usage:
;PaintCodeBar39(h.l, wf.l, text.s, tf.b)
;
;h.l= height of picture
;wf.l= width of one bar
;text.s= DUH
;tf.b= 0/1 to print human readable code


PaintCodeBar39(40,1,"*made by num3 - 2003*",1)

Posted: **Sun Nov 02, 2003 9:54 pm**

I can try this on Monday at work. I will let you know.

Thanks this looks very cool. Also very useful.

Posted: **Mon Nov 03, 2003 12:18 am**

I will scan it tonight at work.
It looks like IrfanView prints it too large using:
"Original size (from image DPI)"
That may be an issue.

It looks like msPaint prints it at the right size..
..I'll let you know how it scans.

Joe

Posted: **Mon Nov 03, 2003 6:31 am**

Here ya go Num3:

I know that the results of scanning a barcode
depend heavily on what the bar code was printed by.
I used my Lexmark 3200 home printer...
...probably not an ideal device.

The scan did read the code correctly though.

I asked a fellow worker who understands the
readout below and he said two things:
#1 We usually only deal with Data CPI of 6.3 or 7.2
#2 The symbol out of spec error is because it is too dark

RJS AutoScan II
Version: V2.12 M2
File: Dimensional Scan
Light Source: Red
Aperture Size: 1
Date: 11/02/03 Time: 7:37:12 PM
Dimensions are in 0.0001 Inches
Decode: *MADE BY NUM3 - 2003*
Average Narrow 104
Average Wide 313
Ratio Wide/Narrow 3.0
Data CPI 6.0
Tolerance +/-036
Average Bar Deviation +026
Elements out 10%
Maximum error -126%
Light 52%
Dark 04%
PCS 92%
MIN PCS 75%
Leading Quiet Zone: 06857
Trailing Quiet Zone: >12500
ICG's Passed
SYMBOL OUT OF SPEC

I hope this helps.
Joe B.

Posted: **Mon Nov 03, 2003 6:06 pm**

It worked here! Awsome. We just use the scanner with text, so it is perfect for our use.

Thanks

Posted: **Mon Nov 03, 2003 9:31 pm**

TronDoc wrote: I asked a fellow worker who understands the
readout below and he said two things:
#1 We usually only deal with Data CPI of 6.3 or 7.2
#2 The symbol out of spec error is because it is too dark

You can increase the width of each bar, that increases the readability in bad surfaces (cardboxes etc...)

I guess PaintCodeBar39(40,1,"*bla bla bla*",1) is good for laser printers and PaintCodeBar39(40,3 or 4,"*bla bla bla*",1) should print out ok on inkjects ...

You can also edit Line (xpos, ypos, 0, ypos + h,RGB(0,0,0)) to less black: Line (xpos, ypos, 0, ypos + h,RGB(20,20,20))

Posted: **Tue Nov 04, 2003 4:45 am**

You are welcome Num3; I'm glad I could help.
Thanks for the tips and the code!
Joe

PureBasic Forums - English

Barcode 3 of 9 WORKING

Barcode 3 of 9 WORKING

bar code scan results

Re: bar code scan results

PureBasic Forums - English

Barcode 3 of 9 *WORKING*

Barcode 3 of 9 *WORKING*

bar code scan results

Re: bar code scan results

Barcode 3 of 9 WORKING

Barcode 3 of 9 WORKING