CGI WEBCODE - O gerador de código de barras: Exemplo 2

<% 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

<% 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