Fontke.com>Font>Code128Wide Regular 4.0
+ Follow
Code128Wide Regular4.0
Code128Wide Regular4.0
Code128Wide Regular Font main detail
| Font family: | Code128Wide |
| Font style: | |
| Font version: | 4.0 |
| Typeface type: | |
| Characters: | 117 |
| Number of glyphs: | 113 |
| Font weight: | |
| Font width: | |
| Languages: | |
| Unicode blocks: | |
| Source: | |
| File format: | |
| License type: | |
| Font embedding license: | |
| Foundry: | |
| Designer: |
Code128Wide Regular Name detail
Microsoft - English (United States)
| Copyright notice： | Copyright 1999 Azalea Software, Inc. |
| Font family： | Code128Wide |
| Font Subfamily name： | Regular |
| Unique font identifier： | Code128-Wide |
| Full font name： | Code128Wide |
| Version string： | 4.0 |
| Postscript name： | Code128Wide |
| Trademark： | C128Tools is a trademark of Azalea Software, Inc. |
| Manufacturer Name： | Azalea Software, Inc. |
| Designer： | Jerry Whiting |
| Description： | Code 128 code set A sample code This sample code can be incorporated into your application as long as the copyright notice is left intact. Redistribution of Azalea Software's fonts requires a separate licensing fee. Error checking for the correct Code 128 character set is your application’s responsibility. Function AzaleaCode128A (ByVal yourString As String) As String ' C128Tools v4.0 10.29.99 jwhiting ' Copyright 1999 Azalea Software, Inc. All rights reserved. ' Azalea Software, Inc. www.azalea.com ' The input, yourString, is to be encoded as a Code 128 code set A bar code. ' Format the output, AzaleaCode128A, using Azalea's Code 128 fonts. Dim temp As String Dim chunk As String ' loop variable Dim i As Integer ' just a counter Dim checkDigitSubtotal As Integer ' check digit calculation variable Dim e As Integer ' placeholder variable checkDigitSubtotal = 103 ' map the input string into the Azalea Code 128 character set For i = 1 To Len(yourString) Step 1 chunk = Mid(yourString, i, 1) Select Case Asc(chunk) ' map from above ASCII 162 placeholders to actual character assignments in the font Case Is > 95 temp = temp & Chr(Asc(chunk) - 66) Case Is = 32 ' move the space character temp = temp & Chr(174) Case Else temp = temp & chunk End Select Next i For i = 1 To Len(yourString) e = Asc(Mid(yourString, i, 1)) - 32 If e <> 142 Then checkDigitSubtotal = checkDigitSubtotal + (e * i) End If Next 'i ' start bar, encoded string, check digit, stop bar Select Case checkDigitSubtotal Mod 103 Case 0 AzaleaCode128A = Chr(161) & temp & Chr(174) & Chr(164) Case 1 To 93 AzaleaCode128A = Chr(161) & temp & Chr(checkDigitSubtotal Mod 103 + 32) & Chr(164) Case Else AzaleaCode128A = Chr(161) & temp & Chr(checkDigitSubtotal Mod 103 + 71) & Chr(164) End Select ' Format the output, AzaleaCode128A, using an Azalea Software, Inc. bar code font. ' yourContainer.text = AzaleaCode128A(yourString) End Function Function AzaleaCode128B (ByVal yourString As String) As String ' C128Tools v4.0 10.29.99 jwhiting ' Copyright 1999 Azalea Software, Inc. All rights reserved. ' Azalea Software, Inc. www.azalea.com ' The input, yourString, is to be encoded as a Code 128 code set B bar code. ' Format the output, AzaleaCode128B, using Azalea's Code 128 fonts. Dim temp As String Dim chunk As String ' loop variable Dim i As Integer ' just a counter Dim e as integer ' just a variable Dim checkDigitSubtotal As Integer ' check digit calculation variable checkDigitSubtotal = 104 For i = 1 To Len(yourString) Step 1 chunk = Mid(yourString, i, 1) Select Case Asc(chunk) ' map from above ASCII 200 placeholders to actual character assignments in the font Case Is > 200 temp = temp & Chr(Asc(chunk) - 35) ' The space character is at ASCII 174 because TrueType ' doesn't allow a glyph in the ASCII 32 slot Case Is = 32 temp = temp & Chr(194) Case Else temp = temp & chunk End Select Next i For i = 1 To Len(yourString) Step 1 e = Asc(Mid(yourString, i, 1)) - 32 If e <> 142 Then checkDigitSubtotal = checkDigitSubtotal + (e * i) End If Next 'i Select Case checkDigitSubtotal Mod 103 Case 0 AzaleaCode128B = Chr(182) & temp & Chr(194) & Chr(184) Case 1 To 93 AzaleaCode128B = Chr(182) & temp & Chr(checkDigitSubtotal Mod 103 + 32) & Chr(184) Case Else AzaleaCode128B = Chr(182) & temp & Chr(checkDigitSubtotal Mod 103 + 91) & Chr(184) End Select ' Format the output, AzaleaCode128B, using an Azalea Software, Inc. bar code font. ' yourContainer.text = AzaleaCode128B(yourString) End Function Function AzaleaCode128C (yourString) ' C128Tools v4.0 10.29.99 jwhiting ' Copyright 1999 Azalea Software, Inc. All rights reserved. ' Azalea Software, Inc. www.azalea.com ' The input, yourString, is to be encoded as a Code 128 code set C bar code. ' Format the output, AzaleaCode128A, using Azalea's Code 128 fonts. Dim temp As String Dim temp2 As String 'throwaway variable Dim checkDigitSubtotal As Integer '(sic) Dim chunk As String 'loop variable Dim i As Integer 'just a counter temp2 = yourString checkDigitSubtotal = 105 ' first do the mod 103 check digit ' then map into the Azalea Code 128 character set For i = 1 To Len(yourString) / 2 chunk = Left(temp2, 2) checkDigitSubtotal = checkDigitSubtotal + Val(chunk) * i Select Case Val(chunk) Case 0 temp = temp + Chr(194) Case 1 To 93 temp = temp & Chr(Val(chunk) + 32) Case Is > 93 temp = temp & Chr(Val(chunk) + 91) End Select temp2 = Right(temp2, Len(temp2) - 2) Next i ' start bar, encoded string, check digit, stop bar Select Case checkDigitSubtotal Mod 103 Case 0 AzaleaCode128C = Chr(183) & temp & Chr(194) & Chr(184) Case 1 To 93 AzaleaCode128C = Chr(183) & temp & Chr(checkDigitSubtotal Mod 103 + 32) & Chr(184) Case Is > 93 AzaleaCode128C = Chr(183) & temp & Chr(checkDigitSubtotal Mod 103 + 91) & Chr(184) End Select ' Format the output, AzaleaCode128C, using an Azalea Software, Inc. bar code font. ' yourContainer.text = AzaleaCode128C(yourString) End Function Function AzaleaCode128UCCEAN13 (yourString) ' C128Tools v4.0 10.29.99 jwhiting ' Copyright 1999 Azalea Software, Inc. All rights reserved. ' Azalea Software, Inc. www.azalea.com ' The input, yourString, is to be encoded as a Code 128 UCC/EAN-13 bar code. ' Format the output, AzaleaCode128UCCEAN13, using Azalea's Code 128 fonts. Dim checkDigitSubtotal As Integer ' reset-able throw-away variable Dim temp As String ' throwaway variable Dim mod10checkdigit As String ' (sic) Dim mod103 As String ' mod 103 check digit Dim i As Integer ' just a counter Dim chunk As String ' loop variable ' append mod 10 check digit over the 19 checkDigitSubtotal = 3 * (Val(Mid(yourString, 1, 1)) + Val(Mid(yourString, 3, 1)) + Val(Mid(yourString, 5, 1)) + Val(Mid(yourString, 7, 1)) + Val(Mid(yourString, 9, 1)) + Val(Mid(yourString, 11, 1)) + Val(Mid(yourString, 13, 1)) + Val(Mid(yourString, 15, 1)) + Val(Mid(yourString, 17, 1)) + Val(Mid(yourString, 19, 1))) checkDigitSubtotal = checkDigitSubtotal + Val(Mid(yourString, 2, 1)) + Val(Mid(yourString, 4, 1)) + Val(Mid(yourString, 6, 1)) + Val(Mid(yourString, 8, 1)) + Val(Mid(yourString, 10, 1)) + Val(Mid(yourString, 12, 1)) + Val(Mid(yourString, 14, 1)) + Val(Mid(yourString, 16, 1)) + Val(Mid(yourString, 18, 1)) mod10checkdigit = Right(Str(500 - checkDigitSubtotal Mod 10), 1) ' do the mod 103 check digit over all 20 digits ' start C and FNC1 values checkDigitSubtotal = 207 checkDigitSubtotal = checkDigitSubtotal + (2 * Val((Mid(yourString, 1, 2)))) checkDigitSubtotal = checkDigitSubtotal + (3 * Val((Mid(yourString, 3, 2)))) checkDigitSubtotal = checkDigitSubtotal + (4 * Val((Mid(yourString, 5, 2)))) checkDigitSubtotal = checkDigitSubtotal + (5 * Val((Mid(yourString, 7, 2)))) checkDigitSubtotal = checkDigitSubtotal + (6 * Val((Mid(yourString, 9, 2)))) checkDigitSubtotal = checkDigitSubtotal + (7 * Val((Mid(yourString, 11, 2)))) checkDigitSubtotal = checkDigitSubtotal + (8 * Val((Mid(yourString, 13, 2)))) checkDigitSubtotal = checkDigitSubtotal + (9 * Val((Mid(yourString, 15, 2)))) checkDigitSubtotal = checkDigitSubtotal + (10 * Val((Mid(yourString, 17, 2)))) checkDigitSubtotal = checkDigitSubtotal + (11 * Val(Mid(yourString, 19, 1) & mod10checkdigit)) mod103 = LTrim(Str(checkDigitSubtotal Mod 103)) yourString = yourString & mod10checkdigit ' ...now do the font mapping temp = Chr(183) & Chr(193) For i = 1 To 10 chunk = Left(yourString, 2) Select Case Val(chunk) Case 0 temp = temp & Chr(194) Case 1 To 93 temp = temp & Chr(Val(chunk) + 32) Case 94 To 99 temp = temp & Chr(Val(chunk) + 91) End Select yourString = Right(yourString, Len(yourString) - 2) Next 'i ' add the mod103 checkdigit's character to fontString Select Case Val(mod103) Case 0 AzaleaCode128UCCEAN13 = temp & Chr(194) & Chr(184) Case 1 To 93 AzaleaCode128UCCEAN13 = temp & Chr(Val(mod103) + 32) & Chr(184) Case Is > 93 AzaleaCode128UCCEAN13 = temp & Chr(Val(mod103) + 91) & Chr(184) End Select ' Format the output, AzaleaCode128UCCEAN13, using an Azalea Software, Inc. bar code font. ' yourContainer.text = AzaleaCode128UCCEAN13(yourString) End Function |
| URL Vendor： | http://www.azalea.com |
| URL Designer： | http://www.azalea.com |
| License Description： | READ THIS LICENSING AGREEMENT CAREFULLY BEFORE USING A FONT FROM AZALEA SOFTWARE, INC. BY INSTALLING THIS FONT, YOU INDICATE YOUR ACCEPTANCE OF THE TERMS AND CONDITIONS OF THIS LICENSE AGREEMENT. IF YOU DO NOT ACCEPT AND AGREE TO ALL OF THE TERMS AND CONDITIONS, PROMPTLY RETURN THE UNINSTALLED FONT AND ALL RELATED MATERIALS TO THE PLACE YOU OBTAINED THEM. YOUR MONEY WILL BE RETURNED IN FULL. Azalea Software, Inc. Licensing Agreement 1. License. Azalea Software, Inc. ("Azalea") grants you a limited license to use the enclosed font(s), associated software, user manuals, and any related materials (collectively called the "Software" in this Agreement). You may only use the Software on a single computer at any one time. You may use the Software on different computers but the same software may not be used on two or more computers simultaneously. You may not electronically transfer or share the Software from one computer to another via modem, network, or any other means. You may make one copy of this software for backup purposes or to transfer the software to a single hard disk provided you use the original for backup purposes. You may transfer a copy the Software and your rights under this License Agreement to a second person only if: (a) the second person agrees to all of the terms of this License Agreement; (b) you transfer the Software and documentation to the new user; (c) you erase or destroy all other copies of the Software which are in your possession or under your control; (d) you provide Azalea with thirty (30) days advance written notice of the transfer. You may not alter, modify, translate or adapt any part of the Software or related documentation without prior written consent of Azalea. You may not disassemble, decompile, or otherwise reverse-engineer the Software, or create derivative works from it, whether in human-perceivable or machine-readable form. This Agreement does not convey any ownership of the Software or of any copy of the Software to you, but only the right to use the Software in strict accordance with this Agreement. You acknowledge and agree that Azalea retains all title and ownership in the Software and any modifications, enhancements, updates or derivatives of the Software. 2. Proprietary Rights. The Software is the valuable trade secret property of Azalea and all Software bearing a copyright notice is, in addition, subject to the copyright laws. UNAUTHORIZED COPYING, USE, OR DISCLOSURE OF THE SOFTWARE IS AN INFRINGEMENT OF AZALEA'S COPYRIGHT AND TRADE SECRET RIGHTS. You agree that the use of a copyright notice on the Software shall not be taken to indicate that the Software has been published. 3. Money-Back Guarantee and Limited Warranty. For a period of thirty (30) days from the date of you obtained the Software, you may return the Software (including all user manuals), together with your receipt showing the amount you paid and the date you obtained the Software to the place of purchase, and obtain a full refund of the amounts you paid. Azalea warrants that the magnetic diskette(s) on which the Software is recorded is free from defects in materials and workmanship under normal use. Azalea warrants that the Software will perform substantially in accordance with the specifications set forth in the documentation provided with the Software. The above warranties extend for ninety (90) days from the date of original delivery to customer as the user. This warranty is made to customer if customer is the original licensed end-user. No warranty is made to any other person. Azalea does not warrant that the Software will meet customer's requirements or that the operation of the Software will not be uninterrupted or error-free. The Software warranty does not cover any Software which has been altered or changed in any way by anyone other than Azalea. THE WARRANTIES SET FORTH ABOVE ARE IN LIEU OF ALL OTHER IMPLIED AND EXPRESS WARRANTIES, WHETHER ORAL OR WRITTEN. AZALEA DISCLAIMS ANY WARRANTIES OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE. THE AGENTS, EMPLOYEES, DISTRIBUTORS AND DEALERS OF AZALEA ARE NOT AUTHORIZED TO MAKE ANY MODIFICATIONS TO THESE WARRANTIES, NOR ADDITIONAL WARRANTIES BINDING ON AZALEA. ACCORDINGLY, ADDITIONAL STATEMENTS SUCH AS DEALER ADVERTISING OR REPRESENTATIONS, WHETHER ORAL OR WRITTEN, DO NOT CONSTITUTE WARRANTIES BY AZALEA AND SHOULD NOT BE RELIED UPON AS A WARRANTY OF AZALEA. 4. Customer Remedies and Limitations of Liability. During the warranty period, Azalea will replace, without charge, on an exchange basis, any magnetic diskette which is not as warranted. During the warranty period, if the Software does not perform as warranted, Azalea at its sole option will (a) provide, without charge, corrected software, (b) replace, without charge, software with a functionally similar program, or (c) refund the fees paid for licensing the software. These are your sole and exclusive remedies for any breach of warranty. You must return the defective item post-paid, postmarked within the time period stated above. You must either insure the defective item being returned or assume the risk of loss or damage in transit. Address wall warranty claims to: Warranty Service Department, Azalea Software, Inc., 2728 46th Ave. SW, Seattle, WA, 98116, U.S.A. Any claim under the above warranty must include a copy of your receipt or invoice or other proof of the date of delivery. AZALEA SHALL NOT IN ANY CASE BE LIABLE FOR SPECIAL, INCIDENTAL, CONSEQUENTIAL, INDIRECT, OR OTHER DAMAGES ARISING FROM ANY BREACH OF THESE WARRANTIES, BREACH OF CONTRACT, NEGLIGENCE, OR ANY OTHER LEGAL THEORIES, EVEN IF AZALEA OR ITS AGENT HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGES. IN NO CASE SHALL AZALEA'S LIABILITY EXCEED THE LICENSE FEES PAID BY YOU FOR THE SOFTWARE. 5. Miscellaneous. This Agreement shall be governed by the laws of the State of Washington, U.S.A. (not including laws relating to choice of law). You and Azalea consent to the jurisdiction of and venue in the state and federal courts located in King County, Washington, U.S.A., in connection with any suit or action brought regarding the Software or this Agreement. If any legal action is brought by either party against the other regarding the subject matter of this Agreement, the prevailing party shall be entitled to recover, in addition to any other relief, reasonable attorneys' fees and expenses. COPYRIGHT NOTICE Copyright 1999 Azalea Software, Inc. All rights reserved. Azalea Software, Inc. 219 1st Ave. S., Suite 410 Seattle WA 98104-3415 |
| License Info URL： | http://www.azalea.com |
Code128Wide Regular Measurement detail
| Every Pixel unit: | 1000 | Size of superscript horizontal font : | 700 |
| Horizontal minimum: | 0 | Size of superscript vertical font | 650 |
| Vertical minimum: | -333 | Superscript horizontal deviation | 0 |
| Horizontal maximum: | 438 | Superscript vertical deviation | 143 |
| Vertical maximum: | 667 | Size of subscript level font: | 700 |
| MacStyle: | 0 | Size of subscript vertical | 650 |
| Minimum readable pixel size: | 11 | Subscript horizontal offset: | 0 |
| Font directionHint: | 2 | Subscript vertical offset: | 453 |
| Ascending part: | 667 | Delete line size: | 50 |
| Descending part: | -333 | Delete line position: | 259 |
| Line spacing: | 0 | Font selection identifier: | 64 |
| Maximum step width: | 500 | Typography ascending: | 667 |
| Minimum left side beraring: | 0 | Typography descending | 333 |
| Minimum right side beraring: | 0 | Typography spacing: | 0 |
| Horizontal maximum width: | 438 | WindowsAscending part: | 667 |
| Non component maximum points | 16 | WindowsDescending part: | 333 |
| Non component maximum contours | 4 | Bevel: | 0 |
| Word weight type: | 400 | Underline position: | -222 |
| Word width type: | 5 | Underline thickness: | 20 |
Recommended Font