Advertisements
Pimon

Pimon

ContactContact 

FontStructions

Profile

Favorites

Pimon is sharing 12 FontStructions.

View All | Tags:  Bar, Barcode, Code128, Code39, Code93, Int2of5

Bar1thin

 		  
Bar1thin
  • Currently 0
∞ 0 votes
Last edit: 14.02.2010
Category: Monospaced
2 downloads2%20downloads21 glyphs1%20glyphs1It 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 It%20is%20the%20simplest%20font%20for%20creation%20barcodes%20in%20different%20applications%20like%20excel%2C%20word%2C%20crystal%20report.%0D%0AThis%20font%20conteins%20only%20space%20-%20chr%2832%29%20and%20bar%20-%20chr%2833%29%20but%20make%20possible%0D%0Ato%20display%20or%20print%20barcodes%20different%20type%20like%20Int2of5%2C%20Code39%2C%20Code93%2C%20Code128%20and%20other.%0D%0AVisual%20basic%20function%20below%20display%20barcode%20of%20Int2of5%20type.%0D%0AFunction%20Int2Of5%28s%20As%20String%29%20As%20String%0D%0A%20%20%20Dim%20A%20As%20Variant%0D%0A%20%20%20Dim%20Bar%20As%20String%0D%0A%20%20%20Dim%20Code%20As%20String%0D%0A%20%20%20Dim%20i%2C%20j%20As%20Integer%0D%0A%20%20%20A%20%3D%20Array%28%2200110%22%2C%20%2210001%22%2C%20%2201001%22%2C%20%2211000%22%2C%20%2200101%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%2210100%22%2C%20%2201100%22%2C%20%2200011%22%2C%20%2210010%22%2C%20%2201010%22%29%0D%0A%20%20%20Bar%20%3D%20%221010%22%0D%0A%20%20%20If%20Len%28s%29%20Mod%202%20%3D%201%20Then%20s%20%3D%20%220%22%20%26%20s%0D%0A%20%20%20For%20i%20%3D%201%20To%20Len%28s%29%20%2F%202%0D%0A%20%20%20%20%20%20%20For%20j%20%3D%201%20To%205%0D%0A%20%20%20%20%20%20%20%20%20%20%20Bar%20%3D%20Bar%20%26%20IIf%28Mid%28A%28Val%28Mid%28s%2C%20i%20%2A%202%20-%201%2C%201%29%29%29%2C%20j%2C%201%29%20%3D%20%220%22%2C%20%221%22%2C%20%2211%22%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20Bar%20%3D%20Bar%20%26%20IIf%28Mid%28A%28Val%28Mid%28s%2C%20i%20%2A%202%2C%201%29%29%29%2C%20j%2C%201%29%20%3D%20%220%22%2C%20%220%22%2C%20%2200%22%29%0D%0A%20%20%20%20%20%20%20Next%20j%0D%0A%20%20%20Next%20i%0D%0A%20%20%20Bar%20%3D%20Bar%20%26%20%221101%22%0D%0A%20%20%20Int2Of5%20%3D%20ToBar1%28Bar%29%0D%0AEnd%20Function%0D%0AFunction%20ToBar1%28s%20As%20String%29%0D%0A%20%20%20If%20Len%28s%29%20%3E%200%20Then%0D%0A%20%20%20%20%20%20ToBar1%20%3D%20ToBar1%28Left%28s%2C%20Len%28s%29%20-%201%29%29%20%26%20Chr%2832%20%2B%20Val%28Right%28s%2C%201%29%29%29%0D%0A%20%20%20End%20If%0D%0AEnd%20Function%0D%0A

Bar1

 		  
Bar1
  • Currently 0
∞ 0 votes
Last edit: 14.02.2010
Category: Monospaced
2 downloads2%20downloads21 glyphs1%20glyphs1It 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 It%20is%20the%20simplest%20font%20for%20creation%20barcodes%20in%20different%20applications%20like%20excel%2C%20word%2C%20crystal%20report.%0D%0AThis%20font%20conteins%20only%20space%20-%20chr%2832%29%20and%20bar%20-%20chr%2833%29%20but%20make%20possible%0D%0Ato%20display%20or%20print%20barcodes%20different%20type%20like%20Int2of5%2C%20Code39%2C%20Code93%2C%20Code128%20and%20other.%0D%0AVisual%20basic%20function%20below%20display%20barcode%20of%20Int2of5%20type.%0D%0AFunction%20Int2Of5%28s%20As%20String%29%20As%20String%0D%0A%20%20%20Dim%20A%20As%20Variant%0D%0A%20%20%20Dim%20Bar%20As%20String%0D%0A%20%20%20Dim%20Code%20As%20String%0D%0A%20%20%20Dim%20i%2C%20j%20As%20Integer%0D%0A%20%20%20A%20%3D%20Array%28%2200110%22%2C%20%2210001%22%2C%20%2201001%22%2C%20%2211000%22%2C%20%2200101%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%2210100%22%2C%20%2201100%22%2C%20%2200011%22%2C%20%2210010%22%2C%20%2201010%22%29%0D%0A%20%20%20Bar%20%3D%20%221010%22%0D%0A%20%20%20If%20Len%28s%29%20Mod%202%20%3D%201%20Then%20s%20%3D%20%220%22%20%26%20s%0D%0A%20%20%20For%20i%20%3D%201%20To%20Len%28s%29%20%2F%202%0D%0A%20%20%20%20%20%20%20For%20j%20%3D%201%20To%205%0D%0A%20%20%20%20%20%20%20%20%20%20%20Bar%20%3D%20Bar%20%26%20IIf%28Mid%28A%28Val%28Mid%28s%2C%20i%20%2A%202%20-%201%2C%201%29%29%29%2C%20j%2C%201%29%20%3D%20%220%22%2C%20%221%22%2C%20%2211%22%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20Bar%20%3D%20Bar%20%26%20IIf%28Mid%28A%28Val%28Mid%28s%2C%20i%20%2A%202%2C%201%29%29%29%2C%20j%2C%201%29%20%3D%20%220%22%2C%20%220%22%2C%20%2200%22%29%0D%0A%20%20%20%20%20%20%20Next%20j%0D%0A%20%20%20Next%20i%0D%0A%20%20%20Bar%20%3D%20Bar%20%26%20%221101%22%0D%0A%20%20%20Int2Of5%20%3D%20ToBar1%28Bar%29%0D%0AEnd%20Function%0D%0AFunction%20ToBar1%28s%20As%20String%29%0D%0A%20%20%20If%20Len%28s%29%20%3E%200%20Then%0D%0A%20%20%20%20%20%20ToBar1%20%3D%20ToBar1%28Left%28s%2C%20Len%28s%29%20-%201%29%29%20%26%20Chr%2832%20%2B%20Val%28Right%28s%2C%201%29%29%29%0D%0A%20%20%20End%20If%0D%0AEnd%20Function%0D%0A

Bar31

 		  
Bar31
  • Currently 0
∞ 0 votes
Last edit: 13.02.2010
Category: Monospaced
6 downloads6%20downloads631 glyphs31%20glyphs31Font 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. Font%20for%20creation%20barcodes.%20This%20font%20make%20possible%20to%20display%20or%20print%20different%20barcodes%20-%20Int2of5%2C%20Code39%2C%20Code93%2C%20Code128%20and%20other%20in%20applications%20like%20excel%2C%20word%2C%20crystal%20report.%0D%0A

Bar31thin

 		  
Bar31thin
  • Currently 0
∞ 0 votes
Last edit: 13.02.2010
Category: Monospaced
6 downloads6%20downloads631 glyphs31%20glyphs31Font 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. Font%20for%20creation%20barcodes.%20This%20font%20make%20possible%20to%20display%20or%20print%20different%20barcodes%20-%20Int2of5%2C%20Code39%2C%20Code93%2C%20Code128%20and%20other%20in%20applications%20like%20excel%2C%20word%2C%20crystal%20report.%0D%0A

Bar63

 		  
Bar63
  • Currently 0
∞ 0 votes
Last edit: 13.02.2010
Category: Monospaced
7 downloads7%20downloads763 glyphs63%20glyphs63More 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) = "0" And Mid(s, i + 1, 1) = "0" And Mid(s, i, 1) = "0" And Mid(s, i + 1, 1) = "0" And Mid(s, i, 1) = "0" And Mid(s, i + 1, 1) = "0" And Mid(s, i + 2, 1) = "0" And Mid(s, i + 3, 1) = "0" And Mid(s, i, 1) = "0" And Mid(s, i + 1, 1) More%20sophisticated%20font%20for%20creation%20barcodes.%20Contains%20space%20-%20chr%2832%29%20and%2063%20bar%20characters%20from%20chr%2833%29%20to%20chr%2895%29.%0D%0AThis%20font%20make%20possible%20to%20display%20or%20print%20different%20barcodes%20-%20Int2of5%2C%20Code39%2C%20Code93%2C%20Code128%20and%20other%20in%20applications%20like%20excel%2C%20word%2C%20crystal%20report.%20Visual%20basic%20function%20below%20display%20barcode%20of%20Code128%20type.%0D%0AFunction%20Code128%28s%20As%20String%29%20As%20String%0D%0A%20%20%20%20Dim%20A%20As%20Variant%0D%0A%20%20%20%20A%20%3D%20Array%28%2211011001100%22%2C%20%2211001101100%22%2C%20%2211001100110%22%2C%20%2210010011000%22%2C%20%2210010001100%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210001001100%22%2C%20%2210011001000%22%2C%20%2210011000100%22%2C%20%2210001100100%22%2C%20%2211001001000%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211001000100%22%2C%20%2211000100100%22%2C%20%2210110011100%22%2C%20%2210011011100%22%2C%20%2210011001110%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210111001100%22%2C%20%2210011101100%22%2C%20%2210011100110%22%2C%20%2211001110010%22%2C%20%2211001011100%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211001001110%22%2C%20%2211011100100%22%2C%20%2211001110100%22%2C%20%2211101101110%22%2C%20%2211101001100%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211100101100%22%2C%20%2211100100110%22%2C%20%2211101100100%22%2C%20%2211100110100%22%2C%20%2211100110010%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211011011000%22%2C%20%2211011000110%22%2C%20%2211000110110%22%2C%20%2210100011000%22%2C%20%2210001011000%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210001000110%22%2C%20%2210110001000%22%2C%20%2210001101000%22%2C%20%2210001100010%22%2C%20%2211010001000%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211000101000%22%2C%20%2211000100010%22%2C%20%2210110111000%22%2C%20%2210110001110%22%2C%20%2210001101110%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210111011000%22%2C%20%2210111000110%22%2C%20%2210001110110%22%2C%20%2211101110110%22%2C%20%2211010001110%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211000101110%22%2C%20%2211011101000%22%2C%20%2211011100010%22%2C%20%2211011101110%22%2C%20%2211101011000%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211101000110%22%2C%20%2211100010110%22%2C%20%2211101101000%22%2C%20%2211101100010%22%2C%20%2211100011010%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211101111010%22%2C%20%2211001000010%22%2C%20%2211110001010%22%2C%20%2210100110000%22%2C%20%2210100001100%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210010110000%22%2C%20%2210010000110%22%2C%20%2210000101100%22%2C%20%2210000100110%22%2C%20%2210110010000%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210110000100%22%2C%20%2210011010000%22%2C%20%2210011000010%22%2C%20%2210000110100%22%2C%20%2210000110010%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211000010010%22%2C%20%2211001010000%22%2C%20%2211110111010%22%2C%20%2211000010100%22%2C%20%2210001111010%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210100111100%22%2C%20%2210010111100%22%2C%20%2210010011110%22%2C%20%2210111100100%22%2C%20%2210011110100%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210011110010%22%2C%20%2211110100100%22%2C%20%2211110010100%22%2C%20%2211110010010%22%2C%20%2211011011110%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211011110110%22%2C%20%2211110110110%22%2C%20%2210101111000%22%2C%20%2210100011110%22%2C%20%2210001011110%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210111101000%22%2C%20%2210111100010%22%2C%20%2211110101000%22%2C%20%2211110100010%22%2C%20%2210111011110%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210111101110%22%2C%20%2211101011110%22%2C%20%2211110101110%22%2C%20%2211010000100%22%2C%20%2211010010000%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211010011100%22%2C%20%221100011101011%22%29%0D%0A%20%20%20%20Dim%20CheckSum%20As%20Long%0D%0A%20%20%20%20Dim%20Ct%20As%20Integer%0D%0A%20%20%20%20Dim%20Cr%20As%20Integer%0D%0A%20%20%20%20Dim%20Tx%20As%20String%0D%0A%20%20%20%20Dim%20Tp%20As%20String%0D%0A%20%20%20%20Dim%20i%20As%20Integer%0D%0A%20%20%20%20Tx%20%3D%20%22%22%0D%0A%20%20%20%20If%20Len%28s%29%20%3E%200%20Then%0D%0A%20%20%20%20%20%20%20i%20%3D%201%0D%0A%20%20%20%20%20%20%20Ct%20%3D%200%0D%0A%20%20%20%20%20%20%20If%20Mid%28s%2C%20i%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%2C%201%29%20%3C%3D%20%229%22%20And%20_%0D%0A%20%20%20%20%20%20%20%20%20%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3C%3D%20%229%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20Tp%20%3D%20%22C%22%0D%0A%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20A%28105%29%0D%0A%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20105%0D%0A%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20Tp%20%3D%20%22B%22%0D%0A%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20A%28104%29%0D%0A%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20104%0D%0A%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20While%20i%20%3C%3D%20Len%28s%29%0D%0A%20%20%20%20%20%20%20%20%20%20If%20Len%28s%29%20-%20i%20%3E%202%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Tp%20%3D%20%22C%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Mid%28s%2C%20i%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%2C%201%29%20%3C%3D%20%229%22%20And%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3C%3D%20%229%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20Val%28Mid%28s%2C%20i%2C%202%29%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20i%20%3D%20i%20%2B%202%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20100%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tp%20%3D%20%22B%22%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Mid%28s%2C%20i%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%2C%201%29%20%3C%3D%20%229%22%20And%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3C%3D%20%229%22%20And%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Mid%28s%2C%20i%20%2B%202%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%20%2B%202%2C%201%29%20%3C%3D%20%229%22%20And%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Mid%28s%2C%20i%20%2B%203%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%20%2B%203%2C%201%29%20%3C%3D%20%229%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%2099%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tp%20%3D%20%22C%22%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20Asc%28Mid%28s%2C%20i%2C%201%29%29%20-%2032%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20i%20%3D%20i%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Len%28s%29%20-%20i%20%3D%202%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Tp%20%3D%20%22C%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Mid%28s%2C%20i%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%2C%201%29%20%3C%3D%20%229%22%20And%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3C%3D%20%229%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20Val%28Mid%28s%2C%20i%2C%202%29%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20i%20%3D%20i%20%2B%202%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20100%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tp%20%3D%20%22B%22%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20While%20i%20%3C%3D%20Len%28s%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20Asc%28Mid%28s%2C%20i%2C%201%29%29%20-%2032%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20i%20%3D%20i%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Wend%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Tp%20%3D%20%22C%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20100%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tp%20%3D%20%22B%22%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20Asc%28Mid%28s%2C%20i%2C%201%29%29%20-%2032%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20i%20%3D%20i%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20Wend%0D%0A%20%20%20%20%20%20%20Cr%20%3D%20CheckSum%20Mod%20103%0D%0A%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28106%29%0D%0A%20%20%20%20End%20If%0D%0A%20%20%20%20Code128%20%3D%20ToBar63%28Tx%29%0D%0AEnd%20Function%0D%0AFunction%20ToBar63%28s%20As%20String%29%0D%0A%20%20%20Dim%20i%20As%20Integer%0D%0A%20%20%20%20ToBar63%20%3D%20%22%22%0D%0A%20%20%20%20If%20Len%28s%29%20Mod%206%20%3C%3E%200%20Then%20s%20%3D%20s%20%26%20Replace%28Space%286%20-%20Len%28s%29%20Mod%206%29%2C%20%22%20%22%2C%20%220%22%29%0D%0A%20%20%20%20For%20i%20%3D%201%20To%20Len%28s%29%20%2F%206%0D%0A%20%20%20%20%20%20%20ToBar63%20%3D%20ToBar63%20%26%20Chr%28BinToDec%28Mid%28s%2C%20i%20%2A%206%20-%205%2C%206%29%29%20%2B%2032%29%0D%0A%20%20%20%20Next%20i%0D%0AEnd%20Function%0D%0AFunction%20BinToDec%28Bits%20As%20String%29%20As%20Long%0D%0A%20%20%20If%20Len%28Bits%29%20%3E%200%20Then%0D%0A%20%20%20%20%20%20BinToDec%20%3D%202%20%2A%20BinToDec%28Left%28Bits%2C%20Len%28Bits%29%20-%201%29%29%20%2B%20CLng%28Right%28Bits%2C%201%29%29%0D%0A%20%20%20End%20If%0D%0AEnd%20Function

Bar63thin

 		  
Bar63thin
  • Currently 0
∞ 0 votes
Last edit: 13.02.2010
Category: Monospaced
11 downloads11%20downloads1163 glyphs63%20glyphs63More 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) = "0" And Mid(s, i + 1, 1) = "0" And Mid(s, i, 1) = "0" And Mid(s, i + 1, 1) = "0" And Mid(s, i, 1) = "0" And Mid(s, i + 1, 1) = "0" And Mid(s, i + 2, 1) = "0" And Mid(s, i + 3, 1) = "0" And Mid(s, i, 1) = "0" And Mid(s, i + 1, 1) More%20sophisticated%20font%20for%20creation%20barcodes.%20Contains%20space%20-%20chr%2832%29%20and%2063%20bar%20characters%20from%20chr%2833%29%20to%20chr%2895%29.%0D%0AThis%20font%20make%20possible%20to%20display%20or%20print%20different%20barcodes%20-%20Int2of5%2C%20Code39%2C%20Code93%2C%20Code128%20and%20other%20in%20applications%20like%20excel%2C%20word%2C%20crystal%20report.%20Visual%20basic%20function%20below%20display%20barcode%20of%20Code128%20type.%0D%0AFunction%20Code128%28s%20As%20String%29%20As%20String%0D%0A%20%20%20%20Dim%20A%20As%20Variant%0D%0A%20%20%20%20A%20%3D%20Array%28%2211011001100%22%2C%20%2211001101100%22%2C%20%2211001100110%22%2C%20%2210010011000%22%2C%20%2210010001100%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210001001100%22%2C%20%2210011001000%22%2C%20%2210011000100%22%2C%20%2210001100100%22%2C%20%2211001001000%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211001000100%22%2C%20%2211000100100%22%2C%20%2210110011100%22%2C%20%2210011011100%22%2C%20%2210011001110%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210111001100%22%2C%20%2210011101100%22%2C%20%2210011100110%22%2C%20%2211001110010%22%2C%20%2211001011100%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211001001110%22%2C%20%2211011100100%22%2C%20%2211001110100%22%2C%20%2211101101110%22%2C%20%2211101001100%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211100101100%22%2C%20%2211100100110%22%2C%20%2211101100100%22%2C%20%2211100110100%22%2C%20%2211100110010%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211011011000%22%2C%20%2211011000110%22%2C%20%2211000110110%22%2C%20%2210100011000%22%2C%20%2210001011000%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210001000110%22%2C%20%2210110001000%22%2C%20%2210001101000%22%2C%20%2210001100010%22%2C%20%2211010001000%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211000101000%22%2C%20%2211000100010%22%2C%20%2210110111000%22%2C%20%2210110001110%22%2C%20%2210001101110%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210111011000%22%2C%20%2210111000110%22%2C%20%2210001110110%22%2C%20%2211101110110%22%2C%20%2211010001110%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211000101110%22%2C%20%2211011101000%22%2C%20%2211011100010%22%2C%20%2211011101110%22%2C%20%2211101011000%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211101000110%22%2C%20%2211100010110%22%2C%20%2211101101000%22%2C%20%2211101100010%22%2C%20%2211100011010%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211101111010%22%2C%20%2211001000010%22%2C%20%2211110001010%22%2C%20%2210100110000%22%2C%20%2210100001100%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210010110000%22%2C%20%2210010000110%22%2C%20%2210000101100%22%2C%20%2210000100110%22%2C%20%2210110010000%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210110000100%22%2C%20%2210011010000%22%2C%20%2210011000010%22%2C%20%2210000110100%22%2C%20%2210000110010%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211000010010%22%2C%20%2211001010000%22%2C%20%2211110111010%22%2C%20%2211000010100%22%2C%20%2210001111010%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210100111100%22%2C%20%2210010111100%22%2C%20%2210010011110%22%2C%20%2210111100100%22%2C%20%2210011110100%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210011110010%22%2C%20%2211110100100%22%2C%20%2211110010100%22%2C%20%2211110010010%22%2C%20%2211011011110%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211011110110%22%2C%20%2211110110110%22%2C%20%2210101111000%22%2C%20%2210100011110%22%2C%20%2210001011110%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210111101000%22%2C%20%2210111100010%22%2C%20%2211110101000%22%2C%20%2211110100010%22%2C%20%2210111011110%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2210111101110%22%2C%20%2211101011110%22%2C%20%2211110101110%22%2C%20%2211010000100%22%2C%20%2211010010000%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%2211010011100%22%2C%20%221100011101011%22%29%0D%0A%20%20%20%20Dim%20CheckSum%20As%20Long%0D%0A%20%20%20%20Dim%20Ct%20As%20Integer%0D%0A%20%20%20%20Dim%20Cr%20As%20Integer%0D%0A%20%20%20%20Dim%20Tx%20As%20String%0D%0A%20%20%20%20Dim%20Tp%20As%20String%0D%0A%20%20%20%20Dim%20i%20As%20Integer%0D%0A%20%20%20%20Tx%20%3D%20%22%22%0D%0A%20%20%20%20If%20Len%28s%29%20%3E%200%20Then%0D%0A%20%20%20%20%20%20%20i%20%3D%201%0D%0A%20%20%20%20%20%20%20Ct%20%3D%200%0D%0A%20%20%20%20%20%20%20If%20Mid%28s%2C%20i%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%2C%201%29%20%3C%3D%20%229%22%20And%20_%0D%0A%20%20%20%20%20%20%20%20%20%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3C%3D%20%229%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20Tp%20%3D%20%22C%22%0D%0A%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20A%28105%29%0D%0A%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20105%0D%0A%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20Tp%20%3D%20%22B%22%0D%0A%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20A%28104%29%0D%0A%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20104%0D%0A%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20While%20i%20%3C%3D%20Len%28s%29%0D%0A%20%20%20%20%20%20%20%20%20%20If%20Len%28s%29%20-%20i%20%3E%202%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Tp%20%3D%20%22C%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Mid%28s%2C%20i%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%2C%201%29%20%3C%3D%20%229%22%20And%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3C%3D%20%229%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20Val%28Mid%28s%2C%20i%2C%202%29%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20i%20%3D%20i%20%2B%202%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20100%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tp%20%3D%20%22B%22%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Mid%28s%2C%20i%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%2C%201%29%20%3C%3D%20%229%22%20And%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3C%3D%20%229%22%20And%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Mid%28s%2C%20i%20%2B%202%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%20%2B%202%2C%201%29%20%3C%3D%20%229%22%20And%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Mid%28s%2C%20i%20%2B%203%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%20%2B%203%2C%201%29%20%3C%3D%20%229%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%2099%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tp%20%3D%20%22C%22%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20Asc%28Mid%28s%2C%20i%2C%201%29%29%20-%2032%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20i%20%3D%20i%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Len%28s%29%20-%20i%20%3D%202%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Tp%20%3D%20%22C%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Mid%28s%2C%20i%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%2C%201%29%20%3C%3D%20%229%22%20And%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3E%3D%20%220%22%20And%20Mid%28s%2C%20i%20%2B%201%2C%201%29%20%3C%3D%20%229%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20Val%28Mid%28s%2C%20i%2C%202%29%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20i%20%3D%20i%20%2B%202%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20100%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tp%20%3D%20%22B%22%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20While%20i%20%3C%3D%20Len%28s%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20Asc%28Mid%28s%2C%20i%2C%201%29%29%20-%2032%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20i%20%3D%20i%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Wend%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20If%20Tp%20%3D%20%22C%22%20Then%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20100%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tp%20%3D%20%22B%22%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Else%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Ct%20%3D%20Ct%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Cr%20%3D%20Asc%28Mid%28s%2C%20i%2C%201%29%29%20-%2032%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20CheckSum%20%3D%20CheckSum%20%2B%20Ct%20%2A%20Cr%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20i%20%3D%20i%20%2B%201%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20%20%20%20End%20If%0D%0A%20%20%20%20%20%20%20Wend%0D%0A%20%20%20%20%20%20%20Cr%20%3D%20CheckSum%20Mod%20103%0D%0A%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28Cr%29%0D%0A%20%20%20%20%20%20%20Tx%20%3D%20Tx%20%26%20A%28106%29%0D%0A%20%20%20%20End%20If%0D%0A%20%20%20%20Code128%20%3D%20ToBar63%28Tx%29%0D%0AEnd%20Function%0D%0AFunction%20ToBar63%28s%20As%20String%29%0D%0A%20%20%20Dim%20i%20As%20Integer%0D%0A%20%20%20%20ToBar63%20%3D%20%22%22%0D%0A%20%20%20%20If%20Len%28s%29%20Mod%206%20%3C%3E%200%20Then%20s%20%3D%20s%20%26%20Replace%28Space%286%20-%20Len%28s%29%20Mod%206%29%2C%20%22%20%22%2C%20%220%22%29%0D%0A%20%20%20%20For%20i%20%3D%201%20To%20Len%28s%29%20%2F%206%0D%0A%20%20%20%20%20%20%20ToBar63%20%3D%20ToBar63%20%26%20Chr%28BinToDec%28Mid%28s%2C%20i%20%2A%206%20-%205%2C%206%29%29%20%2B%2032%29%0D%0A%20%20%20%20Next%20i%0D%0AEnd%20Function%0D%0AFunction%20BinToDec%28Bits%20As%20String%29%20As%20Long%0D%0A%20%20%20If%20Len%28Bits%29%20%3E%200%20Then%0D%0A%20%20%20%20%20%20BinToDec%20%3D%202%20%2A%20BinToDec%28Left%28Bits%2C%20Len%28Bits%29%20-%201%29%29%20%2B%20CLng%28Right%28Bits%2C%201%29%29%0D%0A%20%20%20End%20If%0D%0AEnd%20Function

Bar15

 		  
Bar15
  • Currently 0
∞ 0 votes
Last edit: 08.02.2010
Category: Monospaced
7 downloads7%20downloads715 glyphs15%20glyphs15Font 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. Font%20for%20creation%20barcodes.%20This%20font%20make%20possible%20to%20display%20or%20print%20different%20barcodes%20-%20Int2of5%2C%20Code39%2C%20Code93%2C%20Code128%20and%20other%20in%20applications%20like%20excel%2C%20word%2C%20crystal%20report.%0D%0A

Bar15thin

 		  
Bar15thin
  • Currently 6.40344
6.4Balanced%20Rating%3A%20%3Cb%20class%3D%22weighted_value%22%3E6.4%3C%2Fb%3E%3Cbr%2F%3EAverage%20Rating%3A%20%3Cb%20class%3D%22rating_value%22%3E5.0%3C%2Fb%3E%3Cbr%2F%3EClick%20for%20more%20information%20about%20this%20rating. 1 vote
Last edit: 08.02.2010
Category: Monospaced
9 downloads9%20downloads91 comments1%20comments115 glyphs15%20glyphs15A favorite of 1 userA%20favorite%20of%201%20user1Font 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. Font%20for%20creation%20barcodes.%20This%20font%20make%20possible%20to%20display%20or%20print%20different%20barcodes%20-%20Int2of5%2C%20Code39%2C%20Code93%2C%20Code128%20and%20other%20in%20applications%20like%20excel%2C%20word%2C%20crystal%20report.%0D%0A

Bar3thin

 		  
Bar3thin
  • Currently 0
∞ 0 votes
Last edit: 08.02.2010
Category: Monospaced
4 downloads4%20downloads43 glyphs3%20glyphs3Font 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 Font%20for%20creation%20barcodes.%20This%20font%20make%20possible%20to%20display%20or%20print%20different%20barcodes%20-%20Int2of5%2C%20Code39%2C%20Code93%2C%20Code128%20and%20other%20in%20applications%20like%20excel%2C%20word%2C%20crystal%20report.%0D%0AThis%20font%20conteins%20only%20space%20-%20chr%2832%29%20and%20three%20bars%20-%20chr%2833%29%2C%20chr%2834%29%2C%20chr%2835%29%20but%20make%20possible%0D%0Ato%20display%20or%20print%20barcodes%20different%20type%20like%20Int2of5%2C%20Code39%2C%20Code93%2C%20Code128%20and%20other.%0D%0AVisual%20basic%20function%20below%20display%20barcode%20of%20Int2of5%20type.%0D%0AFunction%20Int2Of5%28s%20As%20String%29%20As%20String%0D%0A%20%20%20Dim%20A%20As%20Variant%0D%0A%20%20%20Dim%20Bar%20As%20String%0D%0A%20%20%20Dim%20Code%20As%20String%0D%0A%20%20%20Dim%20i%2C%20j%20As%20Integer%0D%0A%20%20%20A%20%3D%20Array%28%2200110%22%2C%20%2210001%22%2C%20%2201001%22%2C%20%2211000%22%2C%20%2200101%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%2210100%22%2C%20%2201100%22%2C%20%2200011%22%2C%20%2210010%22%2C%20%2201010%22%29%0D%0A%20%20%20Bar%20%3D%20%221010%22%0D%0A%20%20%20Code%20%3D%20%22%22%0D%0A%20%20%20If%20Len%28s%29%20Mod%202%20%3D%201%20Then%20s%20%3D%20%220%22%20%26%20s%0D%0A%20%20%20For%20i%20%3D%201%20To%20Len%28s%29%20%2F%202%0D%0A%20%20%20%20%20%20%20For%20j%20%3D%201%20To%205%0D%0A%20%20%20%20%20%20%20%20%20%20%20Bar%20%3D%20Bar%20%26%20IIf%28Mid%28A%28Val%28Mid%28s%2C%20i%20%2A%202%20-%201%2C%201%29%29%29%2C%20j%2C%201%29%20%3D%20%220%22%2C%20%221%22%2C%20%2211%22%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20Bar%20%3D%20Bar%20%26%20IIf%28Mid%28A%28Val%28Mid%28s%2C%20i%20%2A%202%2C%201%29%29%29%2C%20j%2C%201%29%20%3D%20%220%22%2C%20%220%22%2C%20%2200%22%29%0D%0A%20%20%20%20%20%20%20Next%20j%0D%0A%20%20%20Next%20i%0D%0A%20%20%20Bar%20%3D%20Bar%20%26%20%221101%22%0D%0A%20%20%20If%20Len%28Bar%29%20Mod%202%20%3D%201%20Then%20Bar%20%3D%20Bar%20%26%20%220%22%0D%0A%20%20%20Int2Of5%20%3D%20ToBar3%28Bar%29%0D%0AEnd%20Function%0D%0AFunction%20ToBar3%28s%20As%20String%29%0D%0A%20%20%20Dim%20i%20As%20Integer%0D%0A%20%20%20%20ToBar3%20%3D%20%22%22%0D%0A%20%20%20%20For%20i%20%3D%201%20To%20Len%28s%29%20%2F%202%0D%0A%20%20%20%20%20%20%20ToBar3%20%3D%20ToBar3%20%26%20Chr%28BinToDec%28Mid%28s%2C%20i%20%2A%202%20-%201%2C%202%29%29%20%2B%2032%29%0D%0A%20%20%20%20Next%20i%0D%0AEnd%20Function%0D%0AFunction%20BinToDec%28Bits%20As%20String%29%20As%20Long%0D%0A%20%20%20If%20Len%28Bits%29%20%3E%200%20Then%0D%0A%20%20%20%20%20%20BinToDec%20%3D%202%20%2A%20BinToDec%28Left%28Bits%2C%20Len%28Bits%29%20-%201%29%29%20%2B%20CLng%28Right%28Bits%2C%201%29%29%0D%0A%20%20%20End%20If%0D%0AEnd%20Function%0D%0A

Bar3

 		  
Bar3
  • Currently 0
∞ 0 votes
Last edit: 08.02.2010
Category: Monospaced
3 downloads3%20downloads33 glyphs3%20glyphs3Font 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 Font%20for%20creation%20barcodes.%20This%20font%20make%20possible%20to%20display%20or%20print%20different%20barcodes%20-%20Int2of5%2C%20Code39%2C%20Code93%2C%20Code128%20and%20other%20in%20applications%20like%20excel%2C%20word%2C%20crystal%20report.%0D%0AThis%20font%20conteins%20only%20space%20-%20chr%2832%29%20and%20three%20bars%20-%20chr%2833%29%2C%20chr%2834%29%2C%20chr%2835%29%20but%20make%20possible%0D%0Ato%20display%20or%20print%20barcodes%20different%20type%20like%20Int2of5%2C%20Code39%2C%20Code93%2C%20Code128%20and%20other.%0D%0AVisual%20basic%20function%20below%20display%20barcode%20of%20Int2of5%20type.%0D%0AFunction%20Int2Of5%28s%20As%20String%29%20As%20String%0D%0A%20%20%20Dim%20A%20As%20Variant%0D%0A%20%20%20Dim%20Bar%20As%20String%0D%0A%20%20%20Dim%20Code%20As%20String%0D%0A%20%20%20Dim%20i%2C%20j%20As%20Integer%0D%0A%20%20%20A%20%3D%20Array%28%2200110%22%2C%20%2210001%22%2C%20%2201001%22%2C%20%2211000%22%2C%20%2200101%22%2C%20_%0D%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%2210100%22%2C%20%2201100%22%2C%20%2200011%22%2C%20%2210010%22%2C%20%2201010%22%29%0D%0A%20%20%20Bar%20%3D%20%221010%22%0D%0A%20%20%20Code%20%3D%20%22%22%0D%0A%20%20%20If%20Len%28s%29%20Mod%202%20%3D%201%20Then%20s%20%3D%20%220%22%20%26%20s%0D%0A%20%20%20For%20i%20%3D%201%20To%20Len%28s%29%20%2F%202%0D%0A%20%20%20%20%20%20%20For%20j%20%3D%201%20To%205%0D%0A%20%20%20%20%20%20%20%20%20%20%20Bar%20%3D%20Bar%20%26%20IIf%28Mid%28A%28Val%28Mid%28s%2C%20i%20%2A%202%20-%201%2C%201%29%29%29%2C%20j%2C%201%29%20%3D%20%220%22%2C%20%221%22%2C%20%2211%22%29%0D%0A%20%20%20%20%20%20%20%20%20%20%20Bar%20%3D%20Bar%20%26%20IIf%28Mid%28A%28Val%28Mid%28s%2C%20i%20%2A%202%2C%201%29%29%29%2C%20j%2C%201%29%20%3D%20%220%22%2C%20%220%22%2C%20%2200%22%29%0D%0A%20%20%20%20%20%20%20Next%20j%0D%0A%20%20%20Next%20i%0D%0A%20%20%20Bar%20%3D%20Bar%20%26%20%221101%22%0D%0A%20%20%20If%20Len%28Bar%29%20Mod%202%20%3D%201%20Then%20Bar%20%3D%20Bar%20%26%20%220%22%0D%0A%20%20%20Int2Of5%20%3D%20ToBar3%28Bar%29%0D%0AEnd%20Function%0D%0AFunction%20ToBar3%28s%20As%20String%29%0D%0A%20%20%20Dim%20i%20As%20Integer%0D%0A%20%20%20%20ToBar3%20%3D%20%22%22%0D%0A%20%20%20%20For%20i%20%3D%201%20To%20Len%28s%29%20%2F%202%0D%0A%20%20%20%20%20%20%20ToBar3%20%3D%20ToBar3%20%26%20Chr%28BinToDec%28Mid%28s%2C%20i%20%2A%202%20-%201%2C%202%29%29%20%2B%2032%29%0D%0A%20%20%20%20Next%20i%0D%0AEnd%20Function%0D%0AFunction%20BinToDec%28Bits%20As%20String%29%20As%20Long%0D%0A%20%20%20If%20Len%28Bits%29%20%3E%200%20Then%0D%0A%20%20%20%20%20%20BinToDec%20%3D%202%20%2A%20BinToDec%28Left%28Bits%2C%20Len%28Bits%29%20-%201%29%29%20%2B%20CLng%28Right%28Bits%2C%201%29%29%0D%0A%20%20%20End%20If%0D%0AEnd%20Function%0D%0A
1
2
NextNext