Advertisement
via Ad Packs

The Gallery: Browse and find FontStructions

What’s New

Top Picks

Everything

We found 13 FontStructions matching “Excel”, with the current filter criteria. Filter and Sort OptionsFilter and Sort Options

bargraphPMMod

 by seswar		  
bargraphPMMod
  • Currently 7.08602
7.1Balanced%20Rating%3A%20%3Cb%20class%3D%22weighted_value%22%3E7.1%3C%2Fb%3E%3Cbr%2F%3EAverage%20Rating%3A%20%3Cb%20class%3D%22rating_value%22%3E9.0%3C%2Fb%3E%3Cbr%2F%3EClick%20for%20more%20information%20about%20this%20rating. 1 vote
Cloned from StructurosaCloned from Structurosa
Last edit: 30.12.2011
Category: -
3 downloads3%20downloads3115 glyphs115%20glyphs115A favorite of 2 usersA%20favorite%20of%202%20users2Clone of bargraphPM with bar display for both positive and negative valuesClone%20of%20bargraphPM%20with%20bar%20display%20for%20both%20positive%20and%20negative%20values

Graphs and Grids

 by Gnarizard		  
Graphs and Grids
  • Currently 6.85062
6.9Balanced%20Rating%3A%20%3Cb%20class%3D%22weighted_value%22%3E6.9%3C%2Fb%3E%3Cbr%2F%3EAverage%20Rating%3A%20%3Cb%20class%3D%22rating_value%22%3E8.0%3C%2Fb%3E%3Cbr%2F%3EClick%20for%20more%20information%20about%20this%20rating. 1 vote
Last edit: 24.04.2010
Category: -
4 downloads4%20downloads4113 glyphs113%20glyphs113"Graphs and Grids" is designed for practical use, and thus has a few odds and ends. 1. CAPS are VERTICAL, and LOWERCASE is HORIZONTAL. 2. Numbers are HORIZONTAL, but pressing SHIFT turns them VERTICAL. 3. Because of rule 2, certain characters have been moved to ALT-CODES. ALT + 91x (where "x" is a number 0-9) will produce that number VERTICALLY. ALT + 42x (where "x" is a number 0-9) will produce the symbol above that number (on your keyboard) VERTICALLY. 4. To write vertically, simply enter a letter and press ENTER to go down. 5. This is a work-in-progress, and any Comments and Criticism (C&C) are welcome. Everything is complete for HORIZONTAL, and everything is done for VERTICAL except the symbols/punctuation that surround the ENTER key. I'll figure a way to do those later.%22Graphs%20and%20Grids%22%20is%20designed%20for%20practical%20use%2C%20and%20thus%20has%20a%20few%20odds%20and%20ends.%0D%0A%0D%0A1.%20CAPS%20are%20VERTICAL%2C%20and%20LOWERCASE%20is%20HORIZONTAL.%0D%0A2.%20Numbers%20are%20HORIZONTAL%2C%20but%20pressing%20SHIFT%20turns%20them%20VERTICAL.%0D%0A3.%20Because%20of%20rule%202%2C%20certain%20characters%20have%20been%20moved%20to%20ALT-CODES.%0D%0AALT%20%2B%2091x%20%28where%20%22x%22%20is%20a%20number%200-9%29%20will%20produce%20that%20number%20VERTICALLY.%0D%0AALT%20%2B%2042x%20%28where%20%22x%22%20is%20a%20number%200-9%29%20will%20produce%20the%20symbol%20above%20that%20number%20%28on%20your%20keyboard%29%20VERTICALLY.%0D%0A4.%20To%20write%20vertically%2C%20simply%20enter%20a%20letter%20and%20press%20ENTER%20to%20go%20down.%0D%0A5.%20This%20is%20a%20work-in-progress%2C%20and%20any%20Comments%20and%20Criticism%20%28C%26C%29%20are%20welcome.%0D%0A%0D%0AEverything%20is%20complete%20for%20HORIZONTAL%2C%20%20and%20everything%20is%20done%20for%20VERTICAL%20except%20the%20symbols%2Fpunctuation%20that%20surround%20the%20ENTER%20key.%0D%0AI%27ll%20figure%20a%20way%20to%20do%20those%20later.

bargraph

 by october		 This FontStruction was selected by FontStruct staff.This%20FontStruction%20was%20selected%20by%20FontStruct%20staff.  
bargraph
  • Currently 6.81022
6.8Balanced%20Rating%3A%20%3Cb%20class%3D%22weighted_value%22%3E6.8%3C%2Fb%3E%3Cbr%2F%3EAverage%20Rating%3A%20%3Cb%20class%3D%22rating_value%22%3E6.9%3C%2Fb%3E%3Cbr%2F%3EClick%20for%20more%20information%20about%20this%20rating. 15 votes
Cloned from StructurosaCloned from Structurosa
Last edit: 13.02.2009
Category: Display
932 downloads932%20downloads9321 comments1%20comments196 glyphs96%20glyphs96A favorite of 21 usersA%20favorite%20of%2021%20users21Clone of Structurosa. Cloned by ChandooClone%20of%20Structurosa.%20Cloned%20by%20Chandoo

Bar15thin

 by Pimon		  
Bar15thin
  • Currently 6.23234
6.2Balanced%20Rating%3A%20%3Cb%20class%3D%22weighted_value%22%3E6.2%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
6 downloads6%20downloads615 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

Anselmo X-Narrow

 by rayannina		  
Anselmo X-Narrow
  • Currently 6.23234
6.2Balanced%20Rating%3A%20%3Cb%20class%3D%22weighted_value%22%3E6.2%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: 03.08.2008
Category: Display
8 downloads8%20downloads898 glyphs98%20glyphs98I use Excel for a lot of information, and it's helpful to have a really narrow font when you have a large spreadsheet. I wanted to create a font that was extremely narrow, yet still easily readable. I think this has possibilities ...I%20use%20Excel%20for%20a%20lot%20of%20information%2C%20and%20it%27s%20helpful%20to%20have%20a%20really%20narrow%20font%20when%20you%20have%20a%20large%20spreadsheet.%20%20I%20wanted%20to%20create%20a%20font%20that%20was%20extremely%20narrow%2C%20yet%20still%20easily%20readable.%20%20I%20think%20this%20has%20possibilities%20...

Strichliste

 by b591423@tyldd.com		  
Strichliste
  • Currently 0
∞ 0 votes
Last edit: 26.07.2009
Category: -
8 downloads8%20downloads822 glyphs22%20glyphs22Striche für Strichliste Unaersystem für XLS/Excel tally list tick mark tick listStriche%20f%C3%BCr%20Strichliste%20Unaersystem%20f%C3%BCr%20XLS%2FExcel%0D%0Atally%20list%20tick%20mark%20tick%20list

bargraphPM

 by seswar		  
bargraphPM
  • Currently 0
∞ 0 votes
Cloned from StructurosaCloned from Structurosa
Last edit: 30.12.2011
Category: -
4 downloads4%20downloads4116 glyphs116%20glyphs116A favorite of 1 userA%20favorite%20of%201%20user1Clone of bargraph with support for positive and negative bars.Clone%20of%20bargraph%20with%20support%20for%20positive%20and%20%20negative%20bars.

Capitalistic.

 by Excel		  
Capitalistic.
  • Currently 0
∞ 0 votes
Last edit: 04.09.2011
Tags: -
Category: -
1 download1%20download126 glyphs26%20glyphs26My first font.My%20first%20font.

Bar63thin

 by Pimon		  
Bar63thin
  • Currently 0
∞ 0 votes
Last edit: 13.02.2010
Category: Monospaced
10 downloads10%20downloads1063 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

Bar63

 by Pimon		  
Bar63
  • Currently 0
∞ 0 votes
Last edit: 13.02.2010
Category: Monospaced
5 downloads5%20downloads563 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

Speedometer 600 Regular OT

by Flat-it Type FoundryFontShop.com
Speedometer 600 Regular OT
Some fonts you just can’t FontStruct. Try a non-modular typeface from FontShop.com
1
2
NextNext(13 FontStructions)