1
2
3function UPCAbarcode($code) {
4$lw = 2; $hi = 100;
5$Lencode = array('0001101','0011001','0010011','0111101','0100011',
6'0110001','0101111','0111011','0110111','0001011');
7$Rencode = array('1110010','1100110','1101100','1000010','1011100',
8'1001110','1010000','1000100','1001000','1110100');
9$ends = '101'; $center = '01010';
10/* UPC-A Must be 11 digits, we compute the checksum. */
11if ( strlen($code) != 11 ) { die("UPC-A Must be 11 digits."); }
12/* Compute the EAN-13 Checksum digit */
13$ncode = '0'.$code;
14$even = 0; $odd = 0;
15for ($x=0;$x<12;$x++) {
16if ($x % 2) { $odd += $ncode[$x]; } else { $even += $ncode[$x]; }
17}
18$code.=(10 - (($odd * 3 + $even) % 10)) % 10;
19/* Create the bar encoding using a binary string */
20$bars=$ends;
21$bars.=$Lencode[$code[0]];
22for($x=1;$x<6;$x++) {
23$bars.=$Lencode[$code[$x]];
24}
25$bars.=$center;
26for($x=6;$x<12;$x++) {
27$bars.=$Rencode[$code[$x]];
28}
29$bars.=$ends;
30/* Generate the Barcode Image */
31$img = ImageCreate($lw*95+30,$hi+30);
32$fg = ImageColorAllocate($img, 0, 0, 0);
33$bg = ImageColorAllocate($img, 255, 255, 255);
34ImageFilledRectangle($img, 0, 0, $lw*95+30, $hi+30, $bg);
35$shift=10;
36for ($x=0;$x
<strlen($bars);$x++) ($x="" (($x<10)="" if="" {="" ||="">=45 && $x<50) || ($x >=85)) { $sh=10; } else { $sh=0; }
if ($bars[$x] == '1') { $color = $fg; } else { $color = $bg; }
ImageFilledRectangle($img, ($x*$lw)+15,5,($x+1)$lw+14,$hi+5+$sh,$color);
}
/ Add the Human Readable Label /
ImageString($img,4,5,$hi-5,$code[0],$fg);
for ($x=0;$x<5;$x++) {
ImageString($img,5,$lw(13+$x6)+15,$hi+5,$code[$x+1],$fg);
ImageString($img,5,$lw(53+$x6)+15,$hi+5,$code[$x+6],$fg);
}
ImageString($img,4,$lw95+17,$hi-5,$code[11],$fg);
/* Output the Header and Content. */
header("Content-Type: image/png");
ImagePNG($img);
}
UPCAbarcode('12345678901');
1
2</strlen($bars);$x++)>