Função Rnd() Com For

[golbranco]

e ae galera beleza...

como eu faço pra randomizar.... de 1 até 20 dentro de for i=0 to 20

só q eu não quero q mostre na tela... numeros repetitivos....

já tentei de todas as formas mas até agora não consegui....

alguém poderia me dar um ajudinha...!?!?!?

[Victor]

Podia ser mais claro?

[dark0]

e ae galera beleza...

como eu faço pra randomizar.... de 1 até 20 dentro de for i=0 to 20

só q eu não quero q mostre na tela... numeros repetitivos....

já tentei de todas as formas mas até agora não consegui....

alguém poderia me dar um ajudinha...!?!?!?

você já tentou de alguma forma?

poste as formas que você tentou.. junto com seu codigo, para assim podermos lhe ajudar

abraços

[ursolouco]

<%
defina o número de células desejadas
dim s(9)

for i = 1 to 9
do
Randomize()
Valor = Rnd(1)
Valor2 = int(Valor * cont)
if not testa_matriz(s,valor2) then 
exit do
end if
loop
s(i) = valor2 
next

função para a criação da matriz
function testa_matriz(m,v)
for j = 1 to 8
if m(j) = v then 
testa_matriz = true
exit function
end if
next
testa_matriz = false
end function
%> 

Talvez lhe ajude...

Ou se preferir... Artigo: Gerando números aleatórios

[golbranco]

tipo o q eu quero....

é assim

for i=0 to 20

numero = cint(rnd*i)

response.write numero&"<br>"

next

só q o problema é q mostra na tela..... numeros repetidos....

e o q eu quero é não repetidos os numeros......

pois eu vou usar... só 9 numeros dos 20 q serão gerados...

entenderam....

na verdade eu quero tirar 9 numeros dos 20 gerados.... só q não repetidos....

como faço isso já tentei de varias maneiras .....nem um deu certo...

[dark0]

opa..

cara.. eu te daria, de ideia, assim:

- você pega os numeros gerados, e guarda num vetor.

- A cada numero novo que for gerado, sera adicionado no vetor.

- antes de você mostrar o numero, faz um teste, se ele já esta dentro do vetor..

- se estiver lá, ele já apareceu (ou seja.. é repetido)

- se não estivar, mostra e continua seu codigo..

entendeu?

a logica seria essa..

[golbranco]

opa..

cara.. eu te daria, de ideia, assim:

- você pega os numeros gerados, e guarda num vetor.

- A cada numero novo que for gerado, sera adicionado no vetor.

- antes de você mostrar o numero, faz um teste, se ele já esta dentro do vetor..

- se estiver lá, ele já apareceu (ou seja.. é repetido)

- se não estivar, mostra e continua seu codigo..

entendeu?

a logica seria essa..

o problema q já tentei assim...também....

[golbranco]

era...isso mesmo q eu precisava......

agora eu dei uma modelada no script.....e tá beleza...

valeu.....ai galera....

T+

[dark0]

opa.. beleza?

eu to num cliente.. esperando... (normal, hehe)

tipo, conseguiu fazer o que você queria?

posta aí o codigo (a parte que você colocou) para fazer funcionar..

é bastante interessante

Abraços

[golbranco]

é esta daki.....

foi o moderador daki q me mandou.....

<%
Function Sorteia(numTotal, numSort)
 Dim numNumero, bolSorteado
 ReDim vetSorteados(numSort - 2)

 Randomize()

 For x = 0 to numSort - 2
  numNumero = CInt(Rnd() * numTotal)
  bolSorteado = False
response.write "<br>var numNumero: "&numNumero&"<br><br>"
response.write "var x: "&x&"<br>"
  For y = 0 to x
   If vetSorteados(y) = numNumero Then bolSorteado = True
   response.write "mostrando o bolSorteado: "&bolSorteado&" <br> "
  Next

  If bolSorteado = True Then
  x = x - 1
  response.write "mostrando x=x-1: "&x&"<br>"
  Else
   vetSorteados(x) = numNumero
   response.write "mostrando vetSorteado: "&vetSorteados(x)&"<br>"
  End If
 Next

 Sorteia = Join(vetSorteados, " - ")
End Function
Response.write Sorteia(20, 10)
%>

agora deu um outro problema....

mas esse eu resolvo aki....kkkkk