Ver Mensaje Individual
  #2 (permalink)  
Antiguo 23/07/2004, 18:30
Avatar de GeoAvila
GeoAvila
Colaborador
 
Fecha de Ingreso: diciembre-2003
Ubicación: Antigua Guatemala
Mensajes: 4.032
Antigüedad: 20 años, 3 meses
Puntos: 53
bueno por alli encontre algo que te pude ayudar,,, y algo mas en algunos otros paises la palabra "gentusa" puede ser ofensa, trata de utilizar palabras mas stardar o correctas pero bien aqui esta el codigo..

Código PHP:
<?php

/*
Geração de código de barras padrão p/ boletos bancários brasileiros.
Autor: MARCOLINO, Alexandre de Jesus ( [email][email protected][/email] )
Este código pode ser usado e copiado livremente desde que site e comunique o autor por email. 
Testado sob o Internet Explorer 6 e o Netscape 7.
*/

function montacodigodebarras($valor) {
 &
nbsp;$lw 1$hi 50;
/* Tabela de código de barras Padrão Brasileiro para boletos bancários 
 &nbsp; &nbsp; &nbsp; &nbsp; 
 &nbsp;Barra valor 00 =0000111100
 &nbsp;Barra valor 01 =0100101001
 &nbsp;Barra valor 02 =0001101001
 &nbsp;Barra valor 03 =0101101000
 &nbsp;Barra valor 04 =0000111001
 &nbsp;Barra valor 05 =0100111000
 &nbsp;Barra valor 06 =0001111000
 &nbsp;Barra valor 07 =0000101101
 &nbsp;Barra valor 08 =0100101100
 &nbsp;Barra valor 09 =0001101100
 &nbsp;Barra valor 10 =1000010110
 &nbsp;Barra valor 11 =1100000011
 &nbsp;Barra valor 12 =1001000011
 &nbsp;Barra valor 13 =1101000010
 &nbsp;Barra valor 14 =1000010011
 &nbsp;Barra valor 15 =1100010010
 &nbsp;Barra valor 16 =1001010010
 &nbsp;Barra valor 17 =1000000111
 &nbsp;Barra valor 18 =1100000110
 &nbsp;Barra valor 19 =1001000110
 &nbsp;Barra valor 20 =0010010110
 &nbsp;Barra valor 21 =0110000011
 &nbsp;Barra valor 22 =0011000011
 &nbsp;Barra valor 23 =0111000010
 &nbsp;Barra valor 24 =0010010011
 &nbsp;Barra valor 25 =0110010010
 &nbsp;Barra valor 26 =0011010010
 &nbsp;Barra valor 27 =0010000111
 &nbsp;Barra valor 28 =0110000110
 &nbsp;Barra valor 29 =0011000110
 &nbsp;Barra valor 30 =1010010100
 &nbsp;Barra valor 31 =1110000001
 &nbsp;Barra valor 32 =1011000001
 &nbsp;Barra valor 33 =1111000000
 &nbsp;Barra valor 34 =1010010001
 &nbsp;Barra valor 35 =1110010000
 &nbsp;Barra valor 36 =1011010000
 &nbsp;Barra valor 37 =1010000101
 &nbsp;Barra valor 38 =1110000100
 &nbsp;Barra valor 39 =1011000100
 &nbsp;Barra valor 40 =0000110110
 &nbsp;Barra valor 41 =0100100011
 &nbsp;Barra valor 42 =0001100011
 &nbsp;Barra valor 43 =0101100010
 &nbsp;Barra valor 44 =0000110011
 &nbsp;Barra valor 45 =0100110010
 &nbsp;Barra valor 46 =0001110010
 &nbsp;Barra valor 47 =0000100111
 &nbsp;Barra valor 48 =0100100110
 &nbsp;Barra valor 49 =0001100110
 &nbsp;Barra valor 50 =1000110100
 &nbsp;Barra valor 51 =1100100001
 &nbsp;Barra valor 52 =1001100001
 &nbsp;Barra valor 53 =1101100000
 &nbsp;Barra valor 54 =1000110001
 &nbsp;Barra valor 55 =1100110000
 &nbsp;Barra valor 56 =1001110000
 &nbsp;Barra valor 57 =1000100101
 &nbsp;Barra valor 58 =1100100100
 &nbsp;Barra valor 59 =1001100100
 &nbsp;Barra valor 60 =0010110100
 &nbsp;Barra valor 61 =0110100001
 &nbsp;Barra valor 62 =0011100001
 &nbsp;Barra valor 63 =0111100000
 &nbsp;Barra valor 64 =0010110001
 &nbsp;Barra valor 65 =0110110000
 &nbsp;Barra valor 66 =0011110000
 &nbsp;Barra valor 67 =0010100101
 &nbsp;Barra valor 68 =0110100100
 &nbsp;Barra valor 69 =0011100100
 &nbsp;Barra valor 70 =0000011110
 &nbsp;Barra valor 71 =0100001011
 &nbsp;Barra valor 72 =0001001011
 &nbsp;Barra valor 73 =0101001010
 &nbsp;Barra valor 74 =0000011011
 &nbsp;Barra valor 75 =0100011010
 &nbsp;Barra valor 76 =0001011010
 &nbsp;Barra valor 77 =0000001111
 &nbsp;Barra valor 78 =0100001110
 &nbsp;Barra valor 79 =0001001110
 &nbsp;Barra valor 80 =1000011100
 &nbsp;Barra valor 81 =1100001001
 &nbsp;Barra valor 82 =1001001001
 &nbsp;Barra valor 83 =1101001000
 &nbsp;Barra valor 84 =1000011001
 &nbsp;Barra valor 85 =1100011000
 &nbsp;Barra valor 86 =1001011000
 &nbsp;Barra valor 87 =1000001101
 &nbsp;Barra valor 88 =1100001100
 &nbsp;Barra valor 89 =1001001100
 &nbsp;Barra valor 90 =0010011100
 &nbsp;Barra valor 91 =0110001001
 &nbsp;Barra valor 92 =0011001001
 &nbsp;Barra valor 93 =0111001000
 &nbsp;Barra valor 94 =0010011001
 &nbsp;Barra valor 95 =0110011000
 &nbsp;Barra valor 96 =0011011000
 &nbsp;Barra valor 97 =0010001101
 &nbsp;Barra valor 98 =0110001100
 &nbsp;Barra valor 99 =0011001100 &nbsp; &nbsp; &nbsp;
*/ 
&nbsp; &nbsp; &nbsp; &nbsp

/* A lógica abaixo aplica a tabela acima para dentro da variável tabcodbarra{} */

 
&nbsp;$tabcodbarra[0] = "00110";
 &
nbsp;$tabcodbarra[1] = "10001";
 &
nbsp;$tabcodbarra[2] = "01001";
 &
nbsp;$tabcodbarra[3] = "11000";
 &
nbsp;$tabcodbarra[4] = "00101";
 &
nbsp;$tabcodbarra[5] = "10100";
 &
nbsp;$tabcodbarra[6] = "01100";
 &
nbsp;$tabcodbarra[7] = "00011";
 &
nbsp;$tabcodbarra[8] = "10010";
 &
nbsp;$tabcodbarra[9] = "01010";
 &
nbsp;for($f1=9;$f1>=0;$f1--){ 
 &
nbsp; &nbsp;for($f2=9;$f2>=0;$f2--){ &nbsp;
 &
nbsp; &nbsp; &nbsp;$f = ($f1 10) + $f2;
 &
nbsp; &nbsp; &nbsp;$texto "";
 &
nbsp; &nbsp; &nbsp;for($i=1;$i<6;$i++){ 
 &
nbsp; &nbsp; &nbsp; &nbsp;$texto .= &nbsp;substr($tabcodbarra[$f1],($i-1),1) . substr($tabcodbarra[$f2],($i-1),1);
 &
nbsp; &nbsp; &nbsp;}
 &
nbsp; &nbsp; &nbsp;$tabcodbarra[$f] = $texto;
 &
nbsp; }
 &
nbsp;}

 &
nbsp; &nbsp; &nbsp;
/* Gerando a Imagen do Código de Barras */

/* Gera a base para o preenchimento do código. 
$img &nbsp; &nbsp;-> imagem do código
$branco -> cor branca
$preto &nbsp;-> cor preta ( ou afrobrasileira, sem preconceito nenhum pô )
*/
 
&nbsp; &nbsp; &nbsp;$img ImageCreate($lw*95+1000,$hi+30);
 &
nbsp; &nbsp; &nbsp;
 &
nbsp; &nbsp; &nbsp;$preto &nbsp;= ImageColorAllocate($img000);
 &
nbsp; &nbsp; &nbsp;$branco ImageColorAllocate($img255255255);

/* Cria o retángulo principal onde a imagem será aplicada. */ &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;
 &
nbsp; &nbsp; &nbsp;
 &
nbsp; &nbsp; &nbsp;ImageFilledRectangle($img00$lw*95+1000$hi+30$branco);
 &
nbsp; &nbsp; &nbsp;
# Abertura do código de barras.
 
&nbsp; &nbsp; &nbsp;ImageFilledRectangle($img1,5,1,65,$preto);
 &
nbsp; &nbsp; &nbsp;ImageFilledRectangle($img2,5,2,65,$branco);
 &
nbsp; &nbsp; &nbsp;ImageFilledRectangle($img3,5,3,65,$preto);
 &
nbsp; &nbsp; &nbsp;ImageFilledRectangle($img4,5,4,65,$branco);

# Aqui começa a varredura no valor enviado para confecção do código de barras.

$fino 1;
$largo 2.72// Para o windows funciona mas o tamanho ideal seria 3
$pos &nbsp; = 5;
$texto $valor;
if((
strlen($texto) % 2) <> 0){
 &
nbsp$texto "0" $texto;
}

// Draw dos dados
while (strlen($texto) > 0) {
 &
nbsp;$i round(esquerda($texto,2));
 &
nbsp;$texto direita($texto,strlen($texto)-2);
 &
nbsp;
 &
nbsp;$f $tabcodbarra[$i];
 &
nbsp;
 &
nbsp;for($i=1;$i<11;$i+=2){
 &
nbsp; &nbsp;if (substr($f,($i-1),1) == "0") {
 &
nbsp; &nbsp; &nbsp;$f1 $fino;
 &
nbsp; &nbsp;}else{
 &
nbsp; &nbsp; &nbsp;$f1 $largo;
 &
nbsp; &nbsp;}

/* Imprimindo uma barra preta */ &nbsp
 &
nbsp;ImageFilledRectangle($img$pos,5,$pos-1+$f1,65,$preto) ;
 &
nbsp;$pos $pos $f1; &nbsp;
/* Fim da impressão da barra preta */ &nbsp; &nbsp;
 &
nbsp;
 &
nbsp;if (substr($f,$i,1) == "0") {
 &
nbsp; &nbsp; &nbsp;$f2 $fino;
 &
nbsp; &nbsp;}else{
 &
nbsp; &nbsp; &nbsp;$f2 $largo;
 &
nbsp; &nbsp;}

/* Imprimindo uma barra branca */
 
&nbsp;ImageFilledRectangle($img$pos,5,$pos-1+$f2,65,$branco) ;
 &
nbsp;$pos $pos $f2; &nbsp;
/* Fim da impressão da barra branca */ &nbsp; &nbsp;

 &
nbsp;}
}

# Fechamento do código de barras.

ImageFilledRectangle($img$pos,5,$pos-1+$largo,65,$preto);
$pos=$pos+$largo;

ImageFilledRectangle($img$pos,5,$pos-1+$fino,65,$branco);
$pos=$pos+$fino;


ImageFilledRectangle($img$pos,5,$pos-1+$fino,65,$preto);
$pos=$pos+$fino;

 &
nbsp; &nbsp; &nbsp;
/* MANDA A IMAGEM PRO BROWSER */
 
&nbsp; &nbsp; &nbsp;header("Content-Type: image/png");
 &
nbsp; &nbsp; &nbsp;ImagePNG($img);
}
//montacodigodebarras('23794225800000041933394060092001280100001020');

//$valorpassado = $_SERVER['QUERY_STRING'];
//montacodigodebarras('23791227400000041933394060092001280200001020');

montacodigodebarras($_SERVER['QUERY_STRING']);

function 
esquerda($entra,$comp){
 &
nbsp; return substr($entra,0,$comp);
}

function 
direita($entra,$comp){
 &
nbsp; return substr($entra,strlen($entra)-$comp,$comp);
}

?>
y eso es todo seria bueno que jugaras un tanto con el puesto que esta en portugues como podras ver...
__________________
* Antes de preguntar lee las FAQ, y por favor no hagas preguntas en las FAQ
Sitio http://www.geoavila.com twitter: @GeoAvila