Download disabled
The designer of this FontStruction has chosen not to make it available for download from this website by
choosing an “All Rights Reserved" license.
Please respect their decision and desist from requesting license changes in the comments.
If you would like to use the FontStruction for a specific project, you may be able to contact the
designer directly about obtaining a license.
Font for creation barcodes. This font make possible to display or print different barcodes - Int2of5, Code39, Code93, Code128 and other in applications like excel, word, crystal report.
This font conteins only space - chr(32) and three bars - chr(33), chr(34), chr(35) but make possible
to display or print barcodes different type like Int2of5, Code39, Code93, Code128 and other.
Visual basic function below display barcode of Int2of5 type.
Function Int2Of5(s As String) As String
Dim A As Variant
Dim Bar As String
Dim Code As String
Dim i, j As Integer
A = Array("00110", "10001", "01001", "11000", "00101", _
"10100", "01100", "00011", "10010", "01010")
Bar = "1010"
Code = ""
If Len(s) Mod 2 = 1 Then s = "0" & s
For i = 1 To Len(s) / 2
For j = 1 To 5
Bar = Bar & IIf(Mid(A(Val(Mid(s, i * 2 - 1, 1))), j, 1) = "0", "1", "11")
Bar = Bar & IIf(Mid(A(Val(Mid(s, i * 2, 1))), j, 1) = "0", "0", "00")
Next j
Next i
Bar = Bar & "1101"
If Len(Bar) Mod 2 = 1 Then Bar = Bar & "0"
Int2Of5 = ToBar3(Bar)
End Function
Function ToBar3(s As String)
Dim i As Integer
ToBar3 = ""
For i = 1 To Len(s) / 2
ToBar3 = ToBar3 & Chr(BinToDec(Mid(s, i * 2 - 1, 2)) + 32)
Next i
End Function
Function BinToDec(Bits As String) As Long
If Len(Bits) > 0 Then
BinToDec = 2 * BinToDec(Left(Bits, Len(Bits) - 1)) + CLng(Right(Bits, 1))
End If
End Function
0 Comments
Please sign in to comment.