Ir para conteúdo

POWERED BY:

Arquivado

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

Loma

Randomizando imagens

Recommended Posts

Oi gentem, to de vorta.

To com um pequeno probleminha aqui!

 

eu preciso randomizar 3 imagens na minha página.

Elas não vem de um banco não

 

usei o codigo que estavca no forum:

<%Dim arrImg(4), nRandarrImg(0) = "imagem1.jpg"arrImg(1) = "imagem2.jpg"arrImg(2) = "imagem3.jpg"arrImg(3) = "imagem4.jpg"'....e assim por diante...'agora iremos randomizarRandomize()nRand = Int(Rnd*UBound(arrImg))+1response.write "<img src='"&arrImg(nRand)&"' border='0'>"%>
funcionou numa boa só que preciso que 3 imagens randomizem e que não pode repetir né! tipo a primeira foto ser igual a segunda!

Alguém me ajuda?

 

Brigadinha!

Compartilhar este post


Link para o post
Compartilhar em outros sites

você não pode ajustar pra tres imagens este codigo??

Compartilhar este post


Link para o post
Compartilhar em outros sites

tipo assim...

[tr][/tr][tr][/tr]
ASP

<%

Dim arrImg(2), nRand

 

arrImg(0) = "imagem1.jpg"

arrImg(1) = "imagem2.jpg"

arrImg(2) = "imagem3.jpg"

 

Randomize()

nRand = Int(Rnd*UBound(arrImg))+1

 

response.write "<img src='"&arrImg(nRand)&"' border='0'>"

%>

 

depois so muda o nome das imagens...

Compartilhar este post


Link para o post
Compartilhar em outros sites

nao mario, ele quer tres imagens, sendo cada uma randomica e sem repeticao...voce tera que criar uma variavel que guarde a primeira imagem, na segunda fazer um loop até gerar uma imagem diferente da primeira e na terceira gerar até ser diferente das duas...desculpa, mas nao to com cabeca para fazer codigo agora, nem tempo... ok?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Pelo que entendi você está fazendo o Randomize() + de uma vez e está aparecendo a mesma imagem.coloca um replace no seu array depois do Randomize()+ ou - assimnRand = Replace(nRand, arrImg(nRand ), ""com o objetivo de subtrair os resultados já apresentados.

Compartilhar este post


Link para o post
Compartilhar em outros sites

<%iContaB = 0sJa = ""iRandId  = Int(Rnd*iContaBanners)sJa = "|" & iRandId & "|"While iContaB < 1 iRandId2 = Int(Rnd*iContaBanners) if InStr(sJa,"|" & iRandId2 & "|") = 0 then  sJa = "|" & iRandId2 & "|"  iContaB = iContaB + 1 else  iContaB = iContaB end ifWend%>

tente adaptar esse script dentro do seu LOOP para exibir as imagens... basta trocas as variáveis de ID!! ok?falows

Compartilhar este post


Link para o post
Compartilhar em outros sites

Fala aí pessoal, gostei desse código aí, tmb estava precisando de um desses, sendo que as minhas figuras nem aparecem, onde devo por esse código? e as figuras? é só por na mesma pasta que meu código em ASP?valewww

Compartilhar este post


Link para o post
Compartilhar em outros sites

o código você pode por na página mesmo e as imagens tanto faz você poem o caminho das imagens aqui: arrImg(0) = "imagem1.jpg" ;neste caso no mesmo diretório da página.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Estou colocando o código depois do body e as minhas imagens estão na mesma pasta que minha página em ASP e ela não está conseguindo carregar as fotos.valeww

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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