<% Function PegaPar(Byval p, Byval d) if Request.Form(p) <> "" then Session(p) = Request.Form(p) else Session(p) = d end if If Session(p) <> "" Then PegaPar = p & "=" & Session(p) & "&" Else PegaPar = "" End if End Function Function OpCombo(Byval par, Byval valor) if Session(par) = valor then OpCombo = "selected" else OpCombo = "" end if End Function Function OpRadio(Byval par, Byval valor) if Session(par) = valor then OpRadio = "checked" else OpRadio = "" end if End Function Dim par par = "G=002&" par = par & PegaPar("R", "2540") par = par & PegaPar("T", "ean-13") par = par & PegaPar("L", "ocrb10n.ttf") par = par & PegaPar("B", "5") par = par & PegaPar("E", "5") par = par & PegaPar("A", "288") par = par & PegaPar("M", "") par = par & PegaPar("D", "") par = par & PegaPar("U", "") par = par & PegaPar("P", "") par = par & PegaPar("K", "") par = par & PegaPar("H", "") par = par & PegaPar("N", "") par = par & PegaPar("S", "") par = par & PegaPar("I", "") par = par & PegaPar("C", "789619001234") if Right(par,1) = "&" then par = Left(par,len(par)-1) end if %> CGI WEBCODE - O gerador de código de barras: Exemplo 2
Introdução Descrição
Download Registro
Histórico Instalação
Exemplo 1 Exemplo 2
Perguntas freqüêntes E-Mail
Exemplo 2 Logotipo WEBCODE

<% if par <> "" then %>

Código de barras

<% end if %>


Acima, o código de barras gerado segundo as características abaixo. Para gerá-lo novamente, preencher os campos conforme as suas preferências e clickar no botão "Gerar o código" ao final desta tela.

PARÂMETROS: VALORES / OPÇÕES:
R - Resolução desejada (em DPI ou pontos):
 
 >75  >150  >300  >360  >600  >720  >pontos
T - Padrão do código de barras a ser gerado:
 
 
L - Fonte para a legenda:
 
 
B - Largura das barras estreitas (em 0,01mm ou pontos):
 
 " maxlength="12">
E - Largura dos espaços estreitos (em 0,01mm ou pontos):
 
 " maxlength="12">
A - Altura das barras (em 0,01mm ou pontos):
 
 " maxlength="12">
M - Altura do prolongamento UPC/EAN (em 0,01mm ou pontos):
 
 " maxlength="12">
D - Altura dos caracteres da legenda (em 0,01mm ou pontos):
 
 " maxlength="12">
U - Largura dos caracteres da legenda (em 0,01mm ou pontos):
 
 " maxlength="12">
P - Proporção largo/estreito:
 
 >2.0  >2.5  >3.0  >automática
K - Geração de check-digit explícito:
 
 >Sim  >Não  >automática
H - Geração de barras horizontais de proteção:
 
 >Sim  >Não  >automática
N - Geração de legendas:
 
 >Sim  >Não  >automática
S - Caracteres de start/stop para Codabar ou start para Code 128:
 
 ">
I - Caracteres de Shift A,B,C para Code 128:
 
 " size="10" maxlength="12">
C - Código a ser gerado:
 
 " maxlength="68">


Para ver o código fonte (ASP) desta página exemplo, clickar aqui