randomico

[Patricia 0]

alguém em ajudaeu preciso gerar uma sequencia de numerostipo de 1 a 6, separados por virgulamas randomico, tem que misturar os numeros, e eles nunca se repetirem!eu não to conseguindo! e é meio urgente :wacko:

[Patricia 0]

alguém me ajudaeu tenho seis images que são nomeadas de 1 a 6mas eu não posse gerar um numero com random e selecionar em banco, e fazer loop nissoeu preciso dos numeros tipo 2,6,1,5,4,3, e a cada hora mudar, que ai eu dou um split e mostro as imagens nessa ordem, mas tudo que eu tento me mostra registros repetidos!alguém pleasee :o

[Patricia 0]

Put´s Kdu, acho que já ta meio caminho andado

 

brigadãoooooo mesmoooo http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

olha só eu coloquei

 

vetNumeros = Array("1", "2", "3", "4", "5", "6")

 

que é o intervalo de numeros que devem aparecer,

 

mas assim ele me retorna somente quatro números

 

eu sei que já to pedindo d+, mas me ajuda ai

 

depois eu te dou um pirulito :D

[Patricia 0]

assim funcionou

 

Dim vetNumeros

Dim i, intSorte

Dim retorno

 

vetNumeros = Array("1", "2", "3", "4", "5", "6", "lixo")

Randomize

While UBound(vetNumeros) > 0

intSorte = Int(UBound(vetNumeros) * Rnd)

retorno = retorno & vetNumeros(intSorte) & ","

For i = intSorte To UBound(vetNumeros) - 1

vetNumeros(i) = vetNumeros(i + 1)

Next

ReDim Preserve vetNumeros(UBound(vetNumeros) - 1)

Wend

retorno = Split(retorno, ",")

ReDim Preserve retorno(UBound(retorno))

sorte = Join(retorno, ",")

Response.Write sorte

 

brigaduuuu de novo

http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif http://forum.imasters.com.br/public/style_emoticons/default/clap.gif