Ver Mensaje Individual
  #1 (permalink)  
Antiguo 18/04/2007, 08:59
GreenlanternX
 
Fecha de Ingreso: agosto-2006
Mensajes: 141
Antigüedad: 17 años, 8 meses
Puntos: 0
codigo de barra sin bibliotecas adicionales

dando vueltas por distintas paginas encontre este codigo que permite generar codigo de barras , sin neccesidad de instalar molestas librerias adicionales
Código PHP:
<?php

function UPCAcodigo($code) {
$lw 2$hi 100;
$Lencode = array('0001101','0011001','0010011','0111101','010 0011',
'0110001','0101111','0111011','0110111','0001011') ;
$Rencode = array('1110010','1100110','1101100','1000010','101 1100',
'1001110','1010000','1000100','1001000','1110100') ;
$ends '101'$center '01010';

if ( 
strlen($code) != 11 ) { die("UPC-A Must be 11 digits."); }

$ncode '0'.$code;
$even 0$odd 0;
for (
$x=0;$x<12;$x++) {
if (
$x 2) { $odd += $ncode[$x]; } else { $even += $ncode[$x]; }
}
$code.=(10 - (($odd $even) % 10)) % 10;

$bars=$ends;
$bars.=$Lencode[$code[0]];
for(
$x=1;$x<6;$x++) {
$bars.=$Lencode[$code[$x]];
}
$bars.=$center;
for(
$x=6;$x<12;$x++) {
$bars.=$Rencode[$code[$x]];
}
$bars.=$ends;

$img ImageCreate($lw*95+30,$hi+30);
$fg ImageColorAllocate($img000);
$bg ImageColorAllocate($img255255255);
ImageFilledRectangle($img00$lw*95+30$hi+30$bg);
$shift=10;
for (
$x=0;$x<strlen($bars);$x++) {
if ((
$x<10) || ($x>=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);
}

ImageString($img,4,5,$hi-5,$code[0],$fg);
for (
$x=0;$x<5;$x++) {
ImageString($img,5,$lw*(13+$x*6)+15,$hi+5,$code[$x+1],$fg);
ImageString($img,5,$lw*(53+$x*6)+15,$hi+5,$code[$x+6],$fg);
}
ImageString($img,4,$lw*95+17,$hi-5,$code[11],$fg);

header("Content-Type: image/png");

ImagePNG($img);
}

UPCAcodigo('00163556642');//aki escriben el codigo


?>
el problema es que no me funciona si le ingreso menos de 11 digitos, y lo peor es k inventa un ultimo digito k arruina la lectura, por ejemplo si leo el codigo generado por este ejemplo el escaner escribe 001635566428
¿como puedo hacer para k no agregue este 8 , y como flexibilizarlopara k soporte distintas cantidades de digitos?