Ir para conteúdo
Fórum Script Brasil
  • 0

Código De Barras


DataSet

Pergunta

7 respostass a esta questão

Posts Recomendados

  • 0

óia uma funçãozinha que eu axei perdida na web..

Códigos  (Código de barras)

Se você encontrar algum erro no script abaixo, favor nos avisar enviando um email e informando o erro.

Matéria gentilmente cedida por Fabio Santos .

 

Aqui você encontrará uma rotina completa para gerar código de barra... Foram usadas duas imagens: o p.gif (barra preta) e o b.gif (barra branca).

<%

Substitua o valor do parâmetro abaixo pelo número do código de barras.

WBarCode( "1234567890123456789012345678901234567890" )

Rotina para gerar códigos de barra padrão 2of5 ou 25.

William Nazato

wil@merconet.com.br

Sub WBarCode( Valor )

Dim f, f1, f2, i

Dim texto

Const fino = 1

Const largo = 3

Const altura = 50

Dim BarCodes(99)

if isempty(BarCodes(0)) then

BarCodes(0) = "00110"

BarCodes(1) = "10001"

BarCodes(2) = "01001"

BarCodes(3) = "11000"

BarCodes(4) = "00101"

BarCodes(5) = "10100"

BarCodes(6) = "01100"

BarCodes(7) = "00011"

BarCodes(8) = "10010"

BarCodes(9) = "01010"

for f1 = 9 to 0 step -1

for f2 = 9 to 0 Step -1

f = f1 * 10 + f2

texto = ""

for i = 1 To 5

texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1)

next

BarCodes(f) = texto

next

next

end if

Desenho da barra

Guarda inicial

%>

<img src=p.gif width=<%=fino%> height=<%=altura%> border=0><img

src=b.gif width=<%=fino%> height=<%=altura%> border=0><img

src=p.gif width=<%=fino%> height=<%=altura%> border=0><img

src=b.gif width=<%=fino%> height=<%=altura%> border=0><img

<%

texto = valor

if len( texto ) mod 2 <> 0 then

texto = "0" & texto

end if

Draw dos dados

do while len(texto) > 0

i = cint( left( texto, 2) )

texto = right( texto, len( texto ) - 2)

f = BarCodes(i)

for i = 1 to 10 step 2

if mid(f, i, 1) = "0" then

f1 = fino

else

f1 = largo

end if

%>

src=p.gif width=<%=f1%> height=<%=altura%> border=0><img

<%

if mid(f, i + 1, 1) = "0" Then

f2 = fino

else

f2 = largo

end if

%>

src=b.gif width=<%=f2%> height=<%=altura%> border=0><img

<%

next

loop

Draw guarda final

%>

src=p.gif width=<%=largo%> height=<%=altura%> border=0><img

src=b.gif width=<%=fino%> height=<%=altura%> border=0><img

src=p.gif width=<%=1%> height=<%=altura%> border=0>

<%

end sub

%>

Fonte: http://aspetc.brassites.com.br/areas.asp?c...cao=1&materia=6

E, se quiser, tem uns links:

http://www.macoratti.net/vbcodbar.htm

http://www.microsoft.com/brasil/msdn/Tecno...digoBarras.mspx

http://www.netdinamica.com.br/boleto/sobre-boletos.php

eu até tinha uma função que gerava isso, mas não achei aqui no meu pc

veja se o que postei ajuda em algo :]

Abraços

Link para o comentário
Compartilhar em outros sites

  • 0
ph34r.gif

Olá, gostaria muito de saber como utlizar esse esquema de código de barras,

por exemplo, o que eu preciso para gerar um código de barra padrão 39...

eu preciso dos códigos numéricos, para gerar o de barras?

Sim, voce precisa dos numeros!!

no caso de boletos é só pedir pro banco o manual de cobrança, que tem as informações necessárias para geração da representação numérica do código de barras (linha digitavel)

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...