Legacy ImageMagick Discussions Archive

Code: Select all

convert -font IDAutomationHC39M -pointsize 24 -fill black -size 400x100 xc:white -draw "text 20,80 '*3456*'" barcode.png

Code: Select all

"C:/program files/zbar/bin/zbarimg" -q --raw barcode.png
3456

Code: Select all

'  Visual Basic & VBA Functions for IDAutomation Universal Fonts V7.12

'  © Copyright, 2000-2007 IDAutomation.com, Inc. All rights reserved.

'  Redistribution and use of this code in source and/or binary

'  forms, with or without modification, are permitted provided

'  that: (1) all copies of the source code retain the above

'  unmodified copyright notice and this entire unmodified

'  section of text, (2) You or Your organization owns a valid

'  Developer License to this product from IDAutomation.com

'  and, (3) when any portion of this code is bundled in any

'  form with an application, a valid notice must be provided

'  within the user documentation, start-up screen or in the

'  help-about section of the application that specifies

'  IDAutomation.com as the provider of the Software bundled

'  with the application.

'*****************************************************************

Private I As Integer
Private J As Integer
Private DataToPrint As String
Private OnlyCorrectData As String
Private Encoding As String
Private WeightedTotal As Long
Private WeightValue As Integer
Private CurrentValue As Long
Private CheckDigitValue As Integer
Private Factor As Integer
Private CheckDigit As Integer
Private CurrentEncoding As String
Private NewLine As String
Private CurrentChar As String
Private CurrentCharNum As Integer
Private C128_StartA As String
Private C128_StartB As String
Private C128_StartC As String
Private C128_Stop As String
Private C128Start As String
Private C128CheckDigit As String
Private StartCode As String
Private StopCode As String
Private LeadingDigit As Integer
Private EAN2AddOn As String
Private EAN5AddOn As String
Private EANAddOnToPrint As String
Private HumanReadableText As String
Private StringLength As Integer
Private Char1 As String
Private Char2 As String
Private nwPattern As String
Private CorrectFNC As Integer
Private Idx As Integer
Private PrintableString As String

'Symbology set Arrays
Private SetC128(106) As Variant
Private SetITF(10) As Variant
Private Set39(44) As Variant
Private SetCODABAR(20) As Variant
Private SetMSI(10) As Variant
Private SetPostnet(10) As Variant
Private SetPlanet(10) As Variant
'END OF DECLARATIONS

Public Function IDAutomation_Uni_C128b(DataToEncode As String) As String

    PrintableString = ""

SetC128(0) = "EFF"
SetC128(1) = "FEF"
SetC128(2) = "FFE"
SetC128(3) = "BBG"
SetC128(4) = "BCF"
SetC128(5) = "CBF"
SetC128(6) = "BFC"
SetC128(7) = "BGB"
SetC128(8) = "CFB"
SetC128(9) = "FBC"
SetC128(10) = "FCB"
SetC128(11) = "GBB"
SetC128(12) = "AFJ"
SetC128(13) = "BEJ"
SetC128(14) = "BFI"
SetC128(15) = "AJF"
SetC128(16) = "BIF"
SetC128(17) = "BJE"
SetC128(18) = "FJA"
SetC128(19) = "FAJ"
SetC128(20) = "FBI"
SetC128(21) = "EJB"
SetC128(22) = "FIB"
SetC128(23) = "IEI"
SetC128(24) = "IBF"
SetC128(25) = "JAF"
SetC128(26) = "JBE"
SetC128(27) = "IFB"
SetC128(28) = "JEB"
SetC128(29) = "JFA"
SetC128(30) = "EEG"
SetC128(31) = "EGE"
SetC128(32) = "GEE"
SetC128(33) = "ACG"
SetC128(34) = "CAG"
SetC128(35) = "CCE"
SetC128(36) = "AGC"
SetC128(37) = "CEC"
SetC128(38) = "CGA"
SetC128(39) = "ECC"
SetC128(40) = "GAC"
SetC128(41) = "GCA"
SetC128(42) = "AEK"
SetC128(43) = "AGI"
SetC128(44) = "CEI"
SetC128(45) = "AIG"
SetC128(46) = "AKE"
SetC128(47) = "CIE"
SetC128(48) = "IIE"
SetC128(49) = "ECI"
SetC128(50) = "GAI"
SetC128(51) = "EIC"
SetC128(52) = "EKA"
SetC128(53) = "EII"
SetC128(54) = "IAG"
SetC128(55) = "ICE"
SetC128(56) = "KAE"
SetC128(57) = "IEC"
SetC128(58) = "IGA"
SetC128(59) = "KEA"
SetC128(60) = "IMA"
SetC128(61) = "FDA"
SetC128(62) = "OAA"
SetC128(63) = "ABH"
SetC128(64) = "ADF"
SetC128(65) = "BAH"
SetC128(66) = "BDE"
SetC128(67) = "DAF"
SetC128(68) = "DBE"
SetC128(69) = "AFD"
SetC128(70) = "AHB"
SetC128(71) = "BED"
SetC128(72) = "BHA"
SetC128(73) = "DEB"
SetC128(74) = "DFA"
SetC128(75) = "HBA"
SetC128(76) = "FAD"
SetC128(77) = "MIA"
SetC128(78) = "HAB"
SetC128(79) = "CMA"
SetC128(80) = "ABN"
SetC128(81) = "BAN"
SetC128(82) = "BBM"
SetC128(83) = "ANB"
SetC128(84) = "BMB"
SetC128(85) = "BNA"
SetC128(86) = "MBB"
SetC128(87) = "NAB"
SetC128(88) = "NBA"
SetC128(89) = "EEM"
SetC128(90) = "EME"
SetC128(91) = "MEE"
SetC128(92) = "AAO"
SetC128(93) = "ACM"
SetC128(94) = "CAM"
SetC128(95) = "AMC"
SetC128(96) = "AOA"
SetC128(97) = "MAC"
SetC128(98) = "MCA"
SetC128(99) = "AIM"
SetC128(100) = "AMI"
SetC128(101) = "IAM"
SetC128(102) = "MAI"
SetC128(103) = "EDB"
SetC128(104) = "EBD"
SetC128(105) = "EBJ"

    WeightedTotal = 104

    PrintableString = SetC128(104)

    StringLength = Len(DataToEncode)

    For I = 1 To StringLength

         CurrentCharNum = (AscW(Mid(DataToEncode, I, 1))) - 32

         CurrentValue = CurrentCharNum * I

         WeightedTotal = WeightedTotal + CurrentValue

         PrintableString = PrintableString & SetC128(CurrentCharNum)

    Next I

    CheckDigitValue = (WeightedTotal Mod 103)

    PrintableString = PrintableString & SetC128(CheckDigitValue)

    'GIAH produces the stop character.

    IDAutomation_Uni_C128b = PrintableString & "GIAH"

    'SetC128 = Null

    DataToEncode = ""

End Function


'*****************************************************************

'  © Copyright, IDAutomation.com, Inc. All rights reserved.

'  Redistribution and use of this code in source and/or binary

'  forms, with or without modification, are permitted provided

'  that: (1) all copies of the source code retain the above

'  unmodified copyright notice and this entire unmodified

'  section of text, (2) You or Your organization owns a valid

'  Developer License to this product from IDAutomation.com

'  and, (3) when any portion of this code is bundled in any

'  form with an application, a valid notice must be provided

'  within the user documentation, start-up screen or in the

'  help-about section of the application that specifies

'  IDAutomation.com as the provider of the Software bundled

'  with the application.

'*****************************************************************

'Internal Version 2008.1.28