PureBoard

Das deutsche PureBasic-Forum
https://www.purebasic.fr/german/

Code für V5.42 anpassen

https://www.purebasic.fr/german/viewtopic.php?t=29692

Seite 1 von 1

Code für V5.42 anpassen

Verfasst: 21.06.2016 20:14
von Fanpost
Hallo, was muss geändert werden, damit der folgende Code unter V5.42 funktioniert. Der Barcode wird nicht erzeugt.

Code: Alles auswählen

; English forum: http://www.purebasic.fr/english/viewtopic.php?t=8165&highlight=
; Author: Num3 (updated for PB 4.00 by Andre)
; Date: 03. November 2003
; OS: Windows
; Demo: Yes

; Implementation of BARCODE 39 
; 
; by Num3 


; Some comments:
; 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))

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

Global 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(0)) 
    
    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 
             DrawText(chrspace*(j-1)+chrspace, y + h, 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)

; IDE Options = PureBasic v4.00 (Windows - x86)
; Folding = -

Re: Code für V5.42 anpassen

Verfasst: 21.06.2016 20:54
von Kiffi
Line (xpos, ypos, 0, ypos + h,RGB(0,0,0)) -> Line (xpos, ypos, 1, ypos + h,RGB(0,0,0))

Die Linienbreite von 0 wurde von PB früher wahrscheinlich automatisch auf 1 korrigiert. Das scheint in den neueren Versionen nicht mehr der Fall zu sein.

Grüße ... Peter

Re: Code für V5.42 anpassen

Verfasst: 21.06.2016 21:41
von Fanpost
Hallo Peter, besten Dank! Das war der "Fehler"

Re: Code für V5.42 anpassen

Verfasst: 22.06.2016 14:03
von Nino
Der Vollständigkeit halber:

Der Befehl Line() akzeptiert für den Parameter Width schon lange nicht mehr den Wert 0, und zwar seit PureBasic-Version 4.40.
Ggf. kann man auch LineXY() verwenden.

Re: Code für V5.42 anpassen

Verfasst: 22.06.2016 17:24
von Fanpost
Danke für den Hinweis!

Re: Code für V5.42 anpassen

Verfasst: 22.06.2016 17:26
von Fanpost
Ich habe hier noch einen Code. Wer kann mir den freundlicherweise an V5.4 anpassen (wird die letzte Anpassung sein)

Code: Alles auswählen


;/  Barcodes Code39 als PDF
;/  (basiert auf dem Code von Num3)
;/  Thorsten Hoeppner - Januar 2006

;- Benötigte PurePDF-Libary (enthalten in PBOSL)

Structure C39 
  Char.s 
  Def.s 
EndStructure 

Dim CODE39.C39 (43) 

#CharH = 5

;{ Definitionen Code39
CODE39(0)\Char = "0" : CODE39(0)\Def = "1113313111"
CODE39(1)\Char = "1" : CODE39(1)\Def = "3113111131"
CODE39(2)\Char = "2" : CODE39(2)\Def = "1133111131"
CODE39(3)\Char = "3" : CODE39(3)\Def = "3133111111"
CODE39(4)\Char = "4" : CODE39(4)\Def = "1113311131"
CODE39(5)\Char = "5" : CODE39(5)\Def = "3113311111"
CODE39(6)\Char = "6" : CODE39(6)\Def = "1133311111"
CODE39(7)\Char = "7" : CODE39(7)\Def = "1113113131"
CODE39(8)\Char = "8" : CODE39(8)\Def = "3113113111" 
CODE39(9)\Char = "9" : CODE39(9)\Def = "1133113111" 
CODE39(10)\Char = "A" : CODE39(10)\Def = "3111131131" 
CODE39(11)\Char = "B" : CODE39(11)\Def = "1131131131"
CODE39(12)\Char = "C" : CODE39(12)\Def = "3131131111" 
CODE39(13)\Char = "D" : CODE39(13)\Def = "1111331131" 
CODE39(14)\Char = "E" : CODE39(14)\Def = "3111331111"  
CODE39(15)\Char = "F" : CODE39(15)\Def = "1131331111" 
CODE39(16)\Char = "G" : CODE39(16)\Def = "1111133131"  
CODE39(17)\Char = "H" : CODE39(17)\Def = "3111133111"  
CODE39(18)\Char = "I" : CODE39(18)\Def = "1131133111"  
CODE39(19)\Char = "J" : CODE39(19)\Def = "1111333111"  
CODE39(20)\Char = "K" : CODE39(20)\Def = "3111111331"  
CODE39(21)\Char = "L" : CODE39(21)\Def = "1131111331"  
CODE39(22)\Char = "M" : CODE39(22)\Def = "3131111311"  
CODE39(23)\Char = "N" : CODE39(23)\Def = "1111311331"  
CODE39(24)\Char = "O" : CODE39(24)\Def = "3111311311"  
CODE39(25)\Char = "P" : CODE39(25)\Def = "1131311311"  
CODE39(26)\Char = "Q" : CODE39(26)\Def = "1111113331"  
CODE39(27)\Char = "R" : CODE39(27)\Def = "3111113311"  
CODE39(28)\Char = "S" : CODE39(28)\Def = "1131113311"  
CODE39(29)\Char = "T" : CODE39(29)\Def = "1111313311" 
CODE39(30)\Char = "U" : CODE39(30)\Def = "3311111131" 
CODE39(31)\Char = "V" : CODE39(31)\Def = "1331111131" 
CODE39(32)\Char = "W" : CODE39(32)\Def = "3331111111"  
CODE39(33)\Char = "X" : CODE39(33)\Def = "1311311131"  
CODE39(34)\Char = "Y" : CODE39(34)\Def = "3311311111"  
CODE39(35)\Char = "Z" : CODE39(35)\Def = "1331311111"  
CODE39(36)\Char = "-" : CODE39(36)\Def = "1311113131"  
CODE39(37)\Char = "." : CODE39(37)\Def = "3311113111" 
CODE39(38)\Char = " " : CODE39(38)\Def = "1331113111" 
CODE39(39)\Char = "$" : CODE39(39)\Def = "1313131111"  
CODE39(40)\Char = "/" : CODE39(40)\Def = "1313111311"  
CODE39(41)\Char = "+" : CODE39(41)\Def = "1311131311"  
CODE39(42)\Char = "%" : CODE39(42)\Def = "1113131311"  
CODE39(43)\Char = "*" : CODE39(43)\Def = "1311313111"  
;} -------------------------------

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.f CreateCodeBar39(x.f, y.f, h.f, wf.f, text.s, tf.b) 
  DefType.f xpos, ypos
  xpos = x ; Offset von Links
  ypos = y ; Offset von oben
  wf = wf * 0.1 ; Breite eines Balkens 
  chrspace.f = wf*16
  text = "*"+Trim(text)+"*"
  width.f = Len(text)*wf*16 ; 1 BarUnit = 16 * BarWidth
  If tf : height.f = h + #CharH : Else : height.f = h :  EndIf
  For tpos = 1 To Len(text) 
    char$ = Mid(text, tpos, 1) 
    N39 = AscTo39(char$) 
    For dpos = 1 To 10 Step 2
      ; Draw line for bar -----------
      w.f = Val(Mid(CODE39(N39)\Def, dpos, 1)) ; BarWidth 
      pdf_Rect(xpos, ypos, w * wf, h, #PDF_STYLE_FILL)
      xpos + (w * wf)
      ; Space ----------- 
      xpos + Val(Mid(CODE39(N39)\Def, dpos+1, 1)) * wf
      ; Text ----------
      If tf ; Human Readable 
        pdf_SetXY(x+chrspace*(tpos-1), ypos + h)
        pdf_Cell(chrspace, #CharH , UCase(char$), 0, 0, #PDF_ALIGN_CENTER)
      EndIf
    Next 
  Next
EndProcedure 
; =========================

; Parameter:
; x (mm) / y (mm) / Höhe (mm) / Breite der Balken (2 => 0.2mm) / Text / 0 = nur Barcode, 1 = mit Text

; Start PDF ------------
pdf_Create("p", "mm")
pdf_AddPage()
pdf_SetFont("Arial","",10)
; ------------------------------

CreateCodeBar39(20, 20, 15, 2, "Barcode Code39", 1)

; End PDF --------------
pdf_Save("BarCode.pdf")
;  -------------------------

Re: Code für V5.42 anpassen

Verfasst: 23.06.2016 16:38
von Fanpost
Moin, alle in Urlaub oder wollen nicht? :mrgreen:
Alle Zeiten sind UTC+02:00
Seite 1 von 1

Powered by phpBB® Forum Software © phpBB Limited

Deutsche Übersetzung durch phpBB.de