Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Diegodargos

Erro ao usar o For

Por , em ASP Clássico

Recommended Posts

Diegodargos    0

Diegodargos
Postado

Setor = "abcde"

for I=1 to Len(setor)
bar = Mid(setor, I, 1)
PDF.TeXT contador, "10", bar


If bar = "A" or bar = "a" Then
pdf.Image "../../Imagens/BARCODE/A.jpg", contador, 77, 20, 15, "jpg"


elseif bar = "B" or bar = "b" then
pdf.Image "../../Imagens/BARCODE/B.jpg", contador, 77, 20, 15, "jpg"


elseif bar = "C" or bar = "c" then
pdf.Image "../../Imagens/BARCODE/C.jpg", contador, 77, 20, 15, "jpg"


elseif bar = "D" or bar = "d" then
pdf.Image "../../Imagens/BARCODE/D.jpg", contador, 77, 20, 15, "jpg"


elseif bar = "E" or bar = "e" then
pdf.Image "../../Imagens/BARCODE/E.jpg", contador, 77, 20, 15, "jpg"


elseif bar = "F" or bar = "f" then
pdf.Image "../../Imagens/BARCODE/F.jpg", contador, 77, 20, 15, "jpg"


elseif bar = "G" or bar = "g" then
pdf.Image "../../Imagens/BARCODE/G.jpg", contador, 77, 20, 15, "jpg"


elseif bar = "H" or bar = "h" then
pdf.Image "../../Imagens/BARCODE/H.jpg", contador, 77, 20, 15, "jpg"


elseif bar = "I" or bar = "i" then
pdf.Image "../../Imagens/BARCODE/I.jpg", contador, 77, 20, 15, "jpg"


elseif bar = "J" or bar = "j" then
pdf.Image "../../Imagens/BARCODE/J.jpg", contador, 77, 20, 15, "jpg"


elseif bar = "K" or bar = "k" then
pdf.Image "../../Imagens/BARCODE/K.jpg", contador, 77, 20, 15, "jpg"

elseif bar = "L" or bar = "l" then
pdf.Image "../../Imagens/BARCODE/L.jpg", contador, 77, 20, 15, "jpg"

elseif bar = "M" or bar = "m" then
pdf.Image "../../Imagens/BARCODE/M.jpg", contador, 77, 20, 15, "jpg"

elseif bar = "N" or bar = "n" then
pdf.Image "../../Imagens/BARCODE/N.jpg", contador, 77, 20, 15, "jpg"

elseif bar = "O" or bar = "o" then
pdf.Image "../../Imagens/BARCODE/O.jpg", contador, 77, 20, 15, "jpg"


elseif bar = "P" or bar = "p" then
pdf.Image "../../Imagens/BARCODE/P.jpg", contador, 77, 20, 15, "jpg"


elseif bar = "Q" or bar = "q" then
pdf.Image "../../Imagens/BARCODE/Q.jpg", contador, 77, 20, 15, "jpg"

elseif bar = "R" or bar = "r" then
pdf.Image "../../Imagens/BARCODE/R.jpg", contador, 77, 20, 15, "jpg"

elseif bar = "S" or bar = "s" then
pdf.Image "../../Imagens/BARCODE/S.jpg", contador, 77, 20, 15, "jpg"

elseif bar = "T" or bar = "t" then
pdf.Image "../../Imagens/BARCODE/T.jpg", contador, 77, 20, 15, "jpg"

elseif bar = "U" or bar = "u" then
pdf.Image "../../Imagens/BARCODE/U.jpg", contador, 77, 20, 15, "jpg"

elseif bar = "V" or bar = "v" then
pdf.Image "../../Imagens/BARCODE/V.jpg", contador, 77, 20, 15, "jpg"

elseif bar = "W" or bar = "w" then
pdf.Image "../../Imagens/BARCODE/W.jpg", contador, 77, 20, 15, "jpg"

elseif bar = "X" or bar = "x" then
pdf.Image "../../Imagens/BARCODE/X.jpg", contador, 77, 20, 15, "jpg"

elseif bar = "Y" or bar = "y" then
pdf.Image "../../Imagens/BARCODE/Y.jpg", contador, 77, 20, 15, "jpg"

elseif bar = "Z" or bar = "z" then
pdf.Image "../../Imagens/BARCODE/Z.jpg", contador, 77, 20, 15, "jpg"

 

end if

 

next

 

Ele deveria gerar "a b c d e" e as imagens de suas letras, porém eles esta gerando esta ordem:

 

"a c c d c d e c d e"

 

Alguem sabe pq?

Percebi que isso só acontece quando uso imagens


Só para entenderem o contador ali é a posição da imagem

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

vc quer deixar em ordem alfabética, ou quer fazer uma paginação ?

Compartilhar este post

Link para o post
Compartilhar em outros sites

Diegodargos    0

Diegodargos
Postado

Quero que a imagem apareça na sequência em que a variavel setor for colocado ex:

 

se o setor for " bdca"

deve aparecer a imagem do B do D do C do A

Entendeu?

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

Use um array para guardar as posições e exiba-as conforme a ordem...

Compartilhar este post

Link para o post
Compartilhar em outros sites

Diegodargos    0

Diegodargos
Postado

Consegui assim:

 

If Len(os) < 13 Then
pdf.text 8, 77, " "

else

for I = 1 to Len(os)
bar = Mid(os, I, 1)
If bar = "A" or bar = "a" Then
L(I) = "../../Imagens/BARCODE/A.jpg"
elseif bar = "B" or bar = "b" then
L(I) = "../../Imagens/BARCODE/B.jpg"
elseif bar = "C" or bar = "c" then
L(I) = "../../Imagens/BARCODE/C.jpg"
elseif bar = "D" or bar = "d" then
L(I) = "../../Imagens/BARCODE/D.jpg"
elseif bar = "E" or bar = "e" then
L(I) = "../../Imagens/BARCODE/E.jpg"
elseif bar = "F" or bar = "f" then
L(I) = "../../Imagens/BARCODE/F.jpg"
elseif bar = "G" or bar = "g" then
L(I) = "../../Imagens/BARCODE/G.jpg"
elseif bar = "H" or bar = "h" then
L(I) = "../../Imagens/BARCODE/H.jpg"
elseif bar = "I" or bar = "i" then
L(I) = "../../Imagens/BARCODE/I.jpg"
elseif bar = "J" or bar = "j" then
L(I) = "../../Imagens/BARCODE/J.jpg"
elseif bar = "K" or bar = "k" then
L(I) = "../../Imagens/BARCODE/K.jpg"
elseif bar = "L" or bar = "l" then
L(I) = "../../Imagens/BARCODE/L.jpg"
elseif bar = "M" or bar = "m" then
L(I) = "../../Imagens/BARCODE/M.jpg"
elseif bar = "N" or bar = "n" then
L(I) = "../../Imagens/BARCODE/N.jpg"
elseif bar = "O" or bar = "o" then
L(I) = "../../Imagens/BARCODE/O.jpg"
elseif bar = "P" or bar = "p" then
L(I) = "../../Imagens/BARCODE/P.jpg"
elseif bar = "Q" or bar = "q" then
L(I) = "../../Imagens/BARCODE/Q.jpg"
elseif bar = "R" or bar = "r" then
L(I) = "../../Imagens/BARCODE/R.jpg"
elseif bar = "S" or bar = "s" then
L(I) = "../../Imagens/BARCODE/S.jpg"
elseif bar = "T" or bar = "t" then
L(I) = "../../Imagens/BARCODE/T.jpg"
elseif bar = "U" or bar = "u" then
L(I) = "../../Imagens/BARCODE/U.jpg"
elseif bar = "V" or bar = "v" then
L(I) = "../../Imagens/BARCODE/V.jpg"
elseif bar = "W" or bar = "w" then
L(I) = "../../Imagens/BARCODE/W.jpg"
elseif bar = "X" or bar = "x" then
L(I) = "../../Imagens/BARCODE/X.jpg"
elseif bar = "Y" or bar = "y" then
L(I) = "../../Imagens/BARCODE/Y.jpg"
elseif bar = "Z" or bar = "z" then
L(I) = "../../Imagens/BARCODE/Z.jpg"
elseif bar = "1" then
L(I) = "../../Imagens/BARCODE/1.jpg"
elseif bar = "2" then
L(I) = "../../Imagens/BARCODE/2.jpg"
elseif bar = "3" then
L(I) = "../../Imagens/BARCODE/3.jpg"
elseif bar = "4" then
L(I) = "../../Imagens/BARCODE/4.jpg"
elseif bar = "5" then
L(I) = "../../Imagens/BARCODE/5.jpg"
elseif bar = "6" then
L(I) = "../../Imagens/BARCODE/6.jpg"
elseif bar = "7" then
L(I) = "../../Imagens/BARCODE/7.jpg"
elseif bar = "8" then
L(I) = "../../Imagens/BARCODE/8.jpg"
elseif bar = "9" then
L(I) = "../../Imagens/BARCODE/9.jpg"
elseif bar = "0" then
L(I) = "../../Imagens/BARCODE/0.jpg"
end if
Next
pdf.Image "../../Imagens/BARCODE/fim.jpg", 8, 77, 20, 15, "jpg"

pdf.Image L(1), 16, 77, 20, 15, "jpg"
pdf.Image L(2), 24, 77, 20, 15, "jpg"
pdf.Image L(3), 32, 77, 20, 15, "jpg"
pdf.Image L(4), 40, 77, 20, 15, "jpg"
pdf.Image L(5), 48, 77, 20, 15, "jpg"
pdf.Image L(6), 56, 77, 20, 15, "jpg"
pdf.Image L(7), 64, 77, 20, 15, "jpg"
pdf.Image L(8), 72, 77, 20, 15, "jpg"
pdf.Image L(9), 80, 77, 20, 15, "jpg"
pdf.Image L(10), 88, 77, 20, 15, "jpg"
pdf.Image L(11), 96, 77, 20, 15, "jpg"
pdf.Image L(12), 104, 77, 20, 15, "jpg"
pdf.Image L(13), 112, 77, 20, 15, "jpg"

pdf.Image "../../Imagens/BARCODE/fim.jpg", 120, 77, 20, 15, "jpg"

end if

 

 

O unico problema é que se quiser acrescentar mais um caracter no código de barras terá que ser feito na mão.

Eu queria deixar automático.

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

depois vc pode otimizar seu array

Compartilhar este post

Link para o post
Compartilhar em outros sites

xanburzum    169

xanburzum
Postado

faz ele ler e concatenar automaticamente o caractere no código de barras

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito