Free Barcode Font - Code 128 Sample Code

Free Barcode Fonts @ dobsonsw.com

Barcode Tools

Barcode Font Home
Online Barcodes
Desktop Barcodes
Barcodes For Excel
Word Barcode Postnet For Excel
Barcodes For Word®
Word® Barcode Tutorial Product Support
Installing Barcode Fonts
Contact Us
Affiliate Program
Consulting

Developer Support
	Barcode Font Home Code128 Samples Code128 Specs Installing Barcode Fonts Preview Code128 DLL Commercial Licensing Consulting

Code128 Samples:

Developers, looking for a quick Code 128 implementation? Check out the DLL for Windows and the UFL for Crystal Reports.

I'm putting together some sample scripts to encode Code 128 in various languages. These are samples only and are not warranted to work for anything useful. These scripts require the free Code 128 Barcode Font available at Free Barcode Fonts. To understand some of the logic behind this code please check here.

Javascript:
The javascript functions should be placed between the <head> and </head> tags. Be aware, this WILL trigger an alert on Windows XP! To avoid this the site it's placed on should be set as a 'trusted site.'

More Javascript:

Once you have the functions above in place insert this code into your page where you want the barcode to appear. The text at "DATA_TO_ENCODE" should be replaced with whatever data you want encoded. This could be static text, such as 12345, or the result from a database query or whatever else you need encoded.

Perl:

This is some PERL that I hacked out of one of my scripts. This is not the entire script. You'll need to have an idea of how PERL works to implement it.

$convertText
=
"DATA_TO_ENCODE";
sub output_barcode(){ print "<STYLE>\n@font-face\n
{font-family:$fontFamily;\n panose-1:2 0 6 3 0 0 0 0 0 0;\n
mso-font-charset:0;\n mso-generic-font-family:auto;\n
mso-font-pitch:variable;\n mso-font-signature:-2147483601 10 0 0 1
0;}\n</STYLE>\n"; $output = get_encoded();
print"<p
class=MsoNormal align=center
style=\"text-align:center\"><span
style=\"font-size:14.0pt;mso-bidi-font-size:12.0pt;font-family:$fontFamily\">$output<o:p></o:p></span></p>\n";
}
sub int_to_char { my $integer = shift; return chr($integer); }
sub get_encoded { my $offset = 32; my $highAscii = 18; my $holder =
$offset + $highAscii + 104; $newCodeString = int_to_char($holder);
$newCodeString = $newCodeString . $convertText; my @str_array = split
//,$convertText; my $counter = 1; my $total = 104; foreach my $char
(@str_array) { $asciiVal = ord($char); $checkDigit = (($asciiVal -
$offset) * $counter); $total = $total + $checkDigit; $counter =
$counter + 1; } my $check = $total % 103; if($check == 0 ) { $check =
0; } if($check + $offset >= 127) { $holder = $check + $offset +
$highAscii; } else { $holder = $check + $offset; } $newCodeString =
$newCodeString . int_to_char($holder); $holder = 106 + $offset +
$highAscii; $newCodeString = $newCodeString . int_to_char($holder);
$holder = 128; my $replacer = int_to_char($holder); $newCodeString =~
s/ /$replacer/g; return $newCodeString; }

Navision:

If you need a solution for Navision it can be found here: http://www.mibuso.com/dlinfo.asp?FileID=405 Be aware that I did not write this script so I have no idea how it is licensed or if it works properly.

Access 97:
Andreas Moroder was kind enough to supply this function for Access 97.

Developer Notes:

Hopefully this sample code will get you on your way!

	Copyright 2008-2011 Brian Dobson .All Rights Reserved