Código De Barras

[DataSet]

Estou montando o cadastro de carteirinhas para retirada de livros da biblioteca...

A matricula do aluno é um numerico: Ex: 2300541

Como montar um codigo de barras que represente esse número?

Valeu

[dark0]

ó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

[bareta]

essa função é a mesma usada na virtua store....

hj tava estudando isso..

[DataSet]

Valeu turma...

[Milena]

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?

[cyberalexxx]

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)

[fercosmig]

asp barcode

http://www.tec-it.com/asp/main/startfr.asp...ground.asp&LN=1

http://www.tec-it.com/barcode/go/ad_barcode_web_e1.htm

[bareta]

legal esse tal de barcode..... muito massa... da pra inventa altas tranqueiras com ele