PHP生成ean_13标准条形码实例

以下是生成的ean_13标准条码的PHP的方法，这就要求PHP + GD环境
复制代码代码如下：<
功能ean_13（$码）{
单位宽度
LW = 2美元；
高/巴/巴代码
$ = 100；
指南代码不编码，用于显示左边的编码类型
阵列的导轨是用来记录/ ean_13剩下的部分编码类型 / /
为指导=阵列（1 = >的aaaaaa '，'aababb '，'aabbab '，'abaabb '，'abbaab '，'abbbaa '，'ababab '，'ababba '，'abbaba）；
lstart美元= '101；
lencode美元=阵列（a数组（'0001101 '，'0011001 '，'0010011 '，'0111101 '，'0100011 '，'0110001 '，'0101111 '，'0111011 '，'0110111 '，'0001011），
B=阵列（'0100111 '，'0110011 '，'0011011 '，'0100001 '，'0011101 '，'0111001 '，'0000101 '，'0010001 '，'0001001 '，'0010111 '））；
rencode美元=阵列（'1110010 '，'1100110 '，'1101100 '，'1000010 '，'1011100，
1001110，'1010000 '，'1000100 '，'1001000 '，'1110100）；

为中心= '01010；

结束=美元'101；
如果（strlen（$代码）！= 13）
{死（A必须是13位数。）}；}
lsum = 0美元；
简历= 0美元；
为（$我= 0；$i <（strlen（$代码）1美元）；i++）
{
如果（2美元）
{
/ / $奇数= { x美元美元code }
lsum美元=（int）$代码{ $我}；
其他{ }
简历=（int）美元美元美元代码{我}；
}

}
楚元= $ lsum * 3 + $简历；
如果（$代码{ 12 }！=（10 -（$楚% 10）））
{
死亡（）代码是坏的！；
}

回声向导$ { 0 } }；
条码= lstart美元美元；
（$ i = 1；$ i = 6；$ + +）
{
条码lencode美元美元{ $引导{ $代码{ 0 } } {（$ I-1）{ $ { $我} }代码；
}
$条码= $中心；

（$ i = 7；$ i < 13；$ + +）
{
美元美元美元rencode条码= {代码{（我）；
}
$条码= $结束；

img =画面欣赏美元（$ LW×95 + 60元+ 30，HI）；
FG = imagecolorallocate美元（美元IMG，0, 0, 0）；
BG = imagecolorallocate美元（美元IMG，255, 255, 255）；
ImageFilledRectangle（$ 0, 0美元的IMG，LW * 95 + 60美元+ 30美元，嗨，BG）；
$移位＝10；
为（$ x = 0；X元< strlen（$条码）；X元+ +）{
如果（（x = 45 $ x＝92））
{
SH = 10美元；
{人}
$ = 0；
}
如果（$条码{ x美元} = 1）
{
$ = FG；
{人}
美元= BG；
}
ImageFilledRectangle（IMG美元，（$ X $ LW）+ 30.5，（$ X + 1）* $ LW + 29 + 5 +美元美元嗨嘘，为彩色）；
}
添加人类可读的标签
imagestring（$ IMG，5美元+ 5美元，嗨，代码{ 0 }，$ FG）；
（$ x = 0；$ x 6；$ x + +）{
imagestring（$ 5美元的IMG，LW *（8 + X元×6）+ 30美元+ 5美元，嗨，代码{ x美元+ 1美元}，FG）；
imagestring（$ 5美元的IMG，LW *（53 + X元×6）+ 30美元+ 5美元，嗨，代码{ x美元+ 7美元}，FG）；
}
/ / imagestring（$ 4，$ IMG，LW * 95 + 17美元美元，Hi-5，代码{ 12 }，$ FG）；
输出标题和内容。**
页眉（内容类型：图像）；
imagepng（$ IMG）；

}

ean_13（'6901028055048）；

>