APMの家

版权声明：转载时请以超链接形式标明文章原始出处和作者信息及本声明
http://chaochao.blogbus.com/logs/6272863.html

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