Advertisements
Pimon, FontStructions
Sort: Sharing Date
Show:
- All (12)
Bar1thin
by Pimon
Please sign in to manage Favorites.0.00
Click on the stars to rate this FontStruction.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
2010
Published: 14th February, 2010
Last edited: 14th February, 2010
Created: 14th February, 2010
It is the simplest font for creation barcodes in different applications like excel, word, crystal report. This font conteins only space - chr(32) and bar - chr(33) 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" 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" Int2Of5 = ToBar1(Bar) End Function Function ToBar1(s As String) If Len(s) > 0 Then ToBar1 = ToBar1(Left(s, Len(s) - 1)) & Chr(32 + Val(Right(s, 1))) End If End Function This is a clone of Bar1
Last edited: 14th February, 2010
Created: 14th February, 2010
It is the simplest font for creation barcodes in different applications like excel, word, crystal report. This font conteins only space - chr(32) and bar - chr(33) 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" 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" Int2Of5 = ToBar1(Bar) End Function Function ToBar1(s As String) If Len(s) > 0 Then ToBar1 = ToBar1(Left(s, Len(s) - 1)) & Chr(32 + Val(Right(s, 1))) End If End Function This is a clone of Bar1
Bar1
by Pimon
Please sign in to manage Favorites.0.00
Click on the stars to rate this FontStruction.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
2010
Published: 14th February, 2010
Last edited: 14th February, 2010
Created: 14th February, 2010
It is the simplest font for creation barcodes in different applications like excel, word, crystal report. This font conteins only space - chr(32) and bar - chr(33) 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" 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" Int2Of5 = ToBar1(Bar) End Function Function ToBar1(s As String) If Len(s) > 0 Then ToBar1 = ToBar1(Left(s, Len(s) - 1)) & Chr(32 + Val(Right(s, 1))) End If End Function This is a clone of Bar3
Last edited: 14th February, 2010
Created: 14th February, 2010
It is the simplest font for creation barcodes in different applications like excel, word, crystal report. This font conteins only space - chr(32) and bar - chr(33) 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" 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" Int2Of5 = ToBar1(Bar) End Function Function ToBar1(s As String) If Len(s) > 0 Then ToBar1 = ToBar1(Left(s, Len(s) - 1)) & Chr(32 + Val(Right(s, 1))) End If End Function This is a clone of Bar3
Bar7
by Pimon
Please sign in to manage Favorites.0.00
Click on the stars to rate this FontStruction.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Bar7thin
by Pimon
Please sign in to manage Favorites.0.00
Click on the stars to rate this FontStruction.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Bar3
by Pimon
Please sign in to manage Favorites.0.00
Click on the stars to rate this FontStruction.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
3030
Published: 13th February, 2010
Last edited: 8th February, 2010
Created: 8th February, 2010
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
Last edited: 8th February, 2010
Created: 8th February, 2010
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
Bar3thin
by Pimon
Please sign in to manage Favorites.0.00
Click on the stars to rate this FontStruction.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
4030
Published: 13th February, 2010
Last edited: 8th February, 2010
Created: 8th February, 2010
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
Last edited: 8th February, 2010
Created: 8th February, 2010
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
Bar15thin
by Pimon
Please sign in to manage Favorites.6.86
Click on the stars to rate this FontStruction.
Balanced Rating: 6.86
Average Rating: 5.00
Click for more information about this rating. 1 vote You voted 0 for this FontStruction. You may change your vote at any time.
Balanced Rating: 6.86
Average Rating: 5.00
Click for more information about this rating. 1 vote You voted 0 for this FontStruction. You may change your vote at any time.
Bar15
by Pimon
Please sign in to manage Favorites.0.00
Click on the stars to rate this FontStruction.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Bar31thin
by Pimon
Please sign in to manage Favorites.0.00
Click on the stars to rate this FontStruction.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
120310
Published: 13th February, 2010
Last edited: 13th February, 2010
Created: 12th February, 2010
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 is a clone of Bar31
Last edited: 13th February, 2010
Created: 12th February, 2010
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 is a clone of Bar31
Bar31
by Pimon
Please sign in to manage Favorites.0.00
Click on the stars to rate this FontStruction.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
100310
Published: 13th February, 2010
Last edited: 13th February, 2010
Created: 12th February, 2010
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 is a clone of Bar15
Last edited: 13th February, 2010
Created: 12th February, 2010
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 is a clone of Bar15
Bar63
by Pimon
Please sign in to manage Favorites.0.00
Click on the stars to rate this FontStruction.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
70630
Published: 13th February, 2010
Last edited: 13th February, 2010
Created: 13th February, 2010
More sophisticated font for creation barcodes. Contains space - chr(32) and 63 bar characters from chr(33) to chr(95). This font make possible to display or print different barcodes - Int2of5, Code39, Code93, Code128 and other in applications like excel, word, crystal report. Visual basic function below display barcode of Code128 type. Function Code128(s As String) As String Dim A As Variant A = Array("11011001100", "11001101100", "11001100110", "10010011000", "10010001100", _ "10001001100", "10011001000", "10011000100", "10001100100", "11001001000", _ "11001000100", "11000100100", "10110011100", "10011011100", "10011001110", _ "10111001100", "10011101100", "10011100110", "11001110010", "11001011100", _ "11001001110", "11011100100", "11001110100", "11101101110", "11101001100", _ "11100101100", "11100100110", "11101100100", "11100110100", "11100110010", _ "11011011000", "11011000110", "11000110110", "10100011000", "10001011000", _ "10001000110", "10110001000", "10001101000", "10001100010", "11010001000", _ "11000101000", "11000100010", "10110111000", "10110001110", "10001101110", _ "10111011000", "10111000110", "10001110110", "11101110110", "11010001110", _ "11000101110", "11011101000", "11011100010", "11011101110", "11101011000", _ "11101000110", "11100010110", "11101101000", "11101100010", "11100011010", _ "11101111010", "11001000010", "11110001010", "10100110000", "10100001100", _ "10010110000", "10010000110", "10000101100", "10000100110", "10110010000", _ "10110000100", "10011010000", "10011000010", "10000110100", "10000110010", _ "11000010010", "11001010000", "11110111010", "11000010100", "10001111010", _ "10100111100", "10010111100", "10010011110", "10111100100", "10011110100", _ "10011110010", "11110100100", "11110010100", "11110010010", "11011011110", _ "11011110110", "11110110110", "10101111000", "10100011110", "10001011110", _ "10111101000", "10111100010", "11110101000", "11110100010", "10111011110", _ "10111101110", "11101011110", "11110101110", "11010000100", "11010010000", _ "11010011100", "1100011101011") Dim CheckSum As Long Dim Ct As Integer Dim Cr As Integer Dim Tx As String Dim Tp As String Dim i As Integer Tx = "" If Len(s) > 0 Then i = 1 Ct = 0 If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Tp = "C" Tx = A(105) CheckSum = 105 Else Tp = "B" Tx = A(104) CheckSum = 104 End If While i <= Len(s) If Len(s) - i > 2 Then If Tp = "C" Then If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Ct = Ct + 1 Cr = Val(Mid(s, i, 2)) CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 2 Else Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" End If Else If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" And _ Mid(s, i + 2, 1) >= "0" And Mid(s, i + 2, 1) <= "9" And _ Mid(s, i + 3, 1) >= "0" And Mid(s, i + 3, 1) <= "9" Then Ct = Ct + 1 Cr = 99 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "C" Else Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 End If End If Else If Len(s) - i = 2 Then If Tp = "C" Then If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Ct = Ct + 1 Cr = Val(Mid(s, i, 2)) CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 2 Else Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" End If Else While i <= Len(s) Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 Wend End If Else If Tp = "C" Then Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" Else Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 End If End If End If Wend Cr = CheckSum Mod 103 Tx = Tx & A(Cr) Tx = Tx & A(106) End If Code128 = ToBar63(Tx) End Function Function ToBar63(s As String) Dim i As Integer ToBar63 = "" If Len(s) Mod 6 <> 0 Then s = s & Replace(Space(6 - Len(s) Mod 6), " ", "0") For i = 1 To Len(s) / 6 ToBar63 = ToBar63 & Chr(BinToDec(Mid(s, i * 6 - 5, 6)) + 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 FunctionThis is a clone of Bar31
Last edited: 13th February, 2010
Created: 13th February, 2010
More sophisticated font for creation barcodes. Contains space - chr(32) and 63 bar characters from chr(33) to chr(95). This font make possible to display or print different barcodes - Int2of5, Code39, Code93, Code128 and other in applications like excel, word, crystal report. Visual basic function below display barcode of Code128 type. Function Code128(s As String) As String Dim A As Variant A = Array("11011001100", "11001101100", "11001100110", "10010011000", "10010001100", _ "10001001100", "10011001000", "10011000100", "10001100100", "11001001000", _ "11001000100", "11000100100", "10110011100", "10011011100", "10011001110", _ "10111001100", "10011101100", "10011100110", "11001110010", "11001011100", _ "11001001110", "11011100100", "11001110100", "11101101110", "11101001100", _ "11100101100", "11100100110", "11101100100", "11100110100", "11100110010", _ "11011011000", "11011000110", "11000110110", "10100011000", "10001011000", _ "10001000110", "10110001000", "10001101000", "10001100010", "11010001000", _ "11000101000", "11000100010", "10110111000", "10110001110", "10001101110", _ "10111011000", "10111000110", "10001110110", "11101110110", "11010001110", _ "11000101110", "11011101000", "11011100010", "11011101110", "11101011000", _ "11101000110", "11100010110", "11101101000", "11101100010", "11100011010", _ "11101111010", "11001000010", "11110001010", "10100110000", "10100001100", _ "10010110000", "10010000110", "10000101100", "10000100110", "10110010000", _ "10110000100", "10011010000", "10011000010", "10000110100", "10000110010", _ "11000010010", "11001010000", "11110111010", "11000010100", "10001111010", _ "10100111100", "10010111100", "10010011110", "10111100100", "10011110100", _ "10011110010", "11110100100", "11110010100", "11110010010", "11011011110", _ "11011110110", "11110110110", "10101111000", "10100011110", "10001011110", _ "10111101000", "10111100010", "11110101000", "11110100010", "10111011110", _ "10111101110", "11101011110", "11110101110", "11010000100", "11010010000", _ "11010011100", "1100011101011") Dim CheckSum As Long Dim Ct As Integer Dim Cr As Integer Dim Tx As String Dim Tp As String Dim i As Integer Tx = "" If Len(s) > 0 Then i = 1 Ct = 0 If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Tp = "C" Tx = A(105) CheckSum = 105 Else Tp = "B" Tx = A(104) CheckSum = 104 End If While i <= Len(s) If Len(s) - i > 2 Then If Tp = "C" Then If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Ct = Ct + 1 Cr = Val(Mid(s, i, 2)) CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 2 Else Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" End If Else If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" And _ Mid(s, i + 2, 1) >= "0" And Mid(s, i + 2, 1) <= "9" And _ Mid(s, i + 3, 1) >= "0" And Mid(s, i + 3, 1) <= "9" Then Ct = Ct + 1 Cr = 99 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "C" Else Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 End If End If Else If Len(s) - i = 2 Then If Tp = "C" Then If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Ct = Ct + 1 Cr = Val(Mid(s, i, 2)) CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 2 Else Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" End If Else While i <= Len(s) Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 Wend End If Else If Tp = "C" Then Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" Else Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 End If End If End If Wend Cr = CheckSum Mod 103 Tx = Tx & A(Cr) Tx = Tx & A(106) End If Code128 = ToBar63(Tx) End Function Function ToBar63(s As String) Dim i As Integer ToBar63 = "" If Len(s) Mod 6 <> 0 Then s = s & Replace(Space(6 - Len(s) Mod 6), " ", "0") For i = 1 To Len(s) / 6 ToBar63 = ToBar63 & Chr(BinToDec(Mid(s, i * 6 - 5, 6)) + 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 FunctionThis is a clone of Bar31
Bar63thin
by Pimon
Please sign in to manage Favorites.0.00
Click on the stars to rate this FontStruction.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
Balanced Rating: 0.00
Average Rating: 0.00
Click for more information about this rating. 0 votes You voted 0 for this FontStruction. You may change your vote at any time.
160630
Published: 13th February, 2010
Last edited: 13th February, 2010
Created: 13th February, 2010
More sophisticated font for creation barcodes. Contains space - chr(32) and 63 bar characters from chr(33) to chr(95). This font make possible to display or print different barcodes - Int2of5, Code39, Code93, Code128 and other in applications like excel, word, crystal report. Visual basic function below display barcode of Code128 type. Function Code128(s As String) As String Dim A As Variant A = Array("11011001100", "11001101100", "11001100110", "10010011000", "10010001100", _ "10001001100", "10011001000", "10011000100", "10001100100", "11001001000", _ "11001000100", "11000100100", "10110011100", "10011011100", "10011001110", _ "10111001100", "10011101100", "10011100110", "11001110010", "11001011100", _ "11001001110", "11011100100", "11001110100", "11101101110", "11101001100", _ "11100101100", "11100100110", "11101100100", "11100110100", "11100110010", _ "11011011000", "11011000110", "11000110110", "10100011000", "10001011000", _ "10001000110", "10110001000", "10001101000", "10001100010", "11010001000", _ "11000101000", "11000100010", "10110111000", "10110001110", "10001101110", _ "10111011000", "10111000110", "10001110110", "11101110110", "11010001110", _ "11000101110", "11011101000", "11011100010", "11011101110", "11101011000", _ "11101000110", "11100010110", "11101101000", "11101100010", "11100011010", _ "11101111010", "11001000010", "11110001010", "10100110000", "10100001100", _ "10010110000", "10010000110", "10000101100", "10000100110", "10110010000", _ "10110000100", "10011010000", "10011000010", "10000110100", "10000110010", _ "11000010010", "11001010000", "11110111010", "11000010100", "10001111010", _ "10100111100", "10010111100", "10010011110", "10111100100", "10011110100", _ "10011110010", "11110100100", "11110010100", "11110010010", "11011011110", _ "11011110110", "11110110110", "10101111000", "10100011110", "10001011110", _ "10111101000", "10111100010", "11110101000", "11110100010", "10111011110", _ "10111101110", "11101011110", "11110101110", "11010000100", "11010010000", _ "11010011100", "1100011101011") Dim CheckSum As Long Dim Ct As Integer Dim Cr As Integer Dim Tx As String Dim Tp As String Dim i As Integer Tx = "" If Len(s) > 0 Then i = 1 Ct = 0 If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Tp = "C" Tx = A(105) CheckSum = 105 Else Tp = "B" Tx = A(104) CheckSum = 104 End If While i <= Len(s) If Len(s) - i > 2 Then If Tp = "C" Then If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Ct = Ct + 1 Cr = Val(Mid(s, i, 2)) CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 2 Else Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" End If Else If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" And _ Mid(s, i + 2, 1) >= "0" And Mid(s, i + 2, 1) <= "9" And _ Mid(s, i + 3, 1) >= "0" And Mid(s, i + 3, 1) <= "9" Then Ct = Ct + 1 Cr = 99 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "C" Else Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 End If End If Else If Len(s) - i = 2 Then If Tp = "C" Then If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Ct = Ct + 1 Cr = Val(Mid(s, i, 2)) CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 2 Else Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" End If Else While i <= Len(s) Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 Wend End If Else If Tp = "C" Then Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" Else Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 End If End If End If Wend Cr = CheckSum Mod 103 Tx = Tx & A(Cr) Tx = Tx & A(106) End If Code128 = ToBar63(Tx) End Function Function ToBar63(s As String) Dim i As Integer ToBar63 = "" If Len(s) Mod 6 <> 0 Then s = s & Replace(Space(6 - Len(s) Mod 6), " ", "0") For i = 1 To Len(s) / 6 ToBar63 = ToBar63 & Chr(BinToDec(Mid(s, i * 6 - 5, 6)) + 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 FunctionThis is a clone of Bar63
Last edited: 13th February, 2010
Created: 13th February, 2010
More sophisticated font for creation barcodes. Contains space - chr(32) and 63 bar characters from chr(33) to chr(95). This font make possible to display or print different barcodes - Int2of5, Code39, Code93, Code128 and other in applications like excel, word, crystal report. Visual basic function below display barcode of Code128 type. Function Code128(s As String) As String Dim A As Variant A = Array("11011001100", "11001101100", "11001100110", "10010011000", "10010001100", _ "10001001100", "10011001000", "10011000100", "10001100100", "11001001000", _ "11001000100", "11000100100", "10110011100", "10011011100", "10011001110", _ "10111001100", "10011101100", "10011100110", "11001110010", "11001011100", _ "11001001110", "11011100100", "11001110100", "11101101110", "11101001100", _ "11100101100", "11100100110", "11101100100", "11100110100", "11100110010", _ "11011011000", "11011000110", "11000110110", "10100011000", "10001011000", _ "10001000110", "10110001000", "10001101000", "10001100010", "11010001000", _ "11000101000", "11000100010", "10110111000", "10110001110", "10001101110", _ "10111011000", "10111000110", "10001110110", "11101110110", "11010001110", _ "11000101110", "11011101000", "11011100010", "11011101110", "11101011000", _ "11101000110", "11100010110", "11101101000", "11101100010", "11100011010", _ "11101111010", "11001000010", "11110001010", "10100110000", "10100001100", _ "10010110000", "10010000110", "10000101100", "10000100110", "10110010000", _ "10110000100", "10011010000", "10011000010", "10000110100", "10000110010", _ "11000010010", "11001010000", "11110111010", "11000010100", "10001111010", _ "10100111100", "10010111100", "10010011110", "10111100100", "10011110100", _ "10011110010", "11110100100", "11110010100", "11110010010", "11011011110", _ "11011110110", "11110110110", "10101111000", "10100011110", "10001011110", _ "10111101000", "10111100010", "11110101000", "11110100010", "10111011110", _ "10111101110", "11101011110", "11110101110", "11010000100", "11010010000", _ "11010011100", "1100011101011") Dim CheckSum As Long Dim Ct As Integer Dim Cr As Integer Dim Tx As String Dim Tp As String Dim i As Integer Tx = "" If Len(s) > 0 Then i = 1 Ct = 0 If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Tp = "C" Tx = A(105) CheckSum = 105 Else Tp = "B" Tx = A(104) CheckSum = 104 End If While i <= Len(s) If Len(s) - i > 2 Then If Tp = "C" Then If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Ct = Ct + 1 Cr = Val(Mid(s, i, 2)) CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 2 Else Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" End If Else If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" And _ Mid(s, i + 2, 1) >= "0" And Mid(s, i + 2, 1) <= "9" And _ Mid(s, i + 3, 1) >= "0" And Mid(s, i + 3, 1) <= "9" Then Ct = Ct + 1 Cr = 99 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "C" Else Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 End If End If Else If Len(s) - i = 2 Then If Tp = "C" Then If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" And _ Mid(s, i + 1, 1) >= "0" And Mid(s, i + 1, 1) <= "9" Then Ct = Ct + 1 Cr = Val(Mid(s, i, 2)) CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 2 Else Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" End If Else While i <= Len(s) Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 Wend End If Else If Tp = "C" Then Ct = Ct + 1 Cr = 100 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) Tp = "B" Else Ct = Ct + 1 Cr = Asc(Mid(s, i, 1)) - 32 CheckSum = CheckSum + Ct * Cr Tx = Tx & A(Cr) i = i + 1 End If End If End If Wend Cr = CheckSum Mod 103 Tx = Tx & A(Cr) Tx = Tx & A(106) End If Code128 = ToBar63(Tx) End Function Function ToBar63(s As String) Dim i As Integer ToBar63 = "" If Len(s) Mod 6 <> 0 Then s = s & Replace(Space(6 - Len(s) Mod 6), " ", "0") For i = 1 To Len(s) / 6 ToBar63 = ToBar63 & Chr(BinToDec(Mid(s, i * 6 - 5, 6)) + 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 FunctionThis is a clone of Bar63
Some fonts you just can’t FontStruct.
Try a non-modular typeface from FontShop.com
Try a non-modular typeface from FontShop.com
