Se me esta quemando el coco y no puedo

[Reportero]

Que tal

Mi problema es que tengo que hacer un script para obtener 10 numeros aleatorios que no se repitan y que sean del 1 al 24

Ya he probado de varias formas y no lo logro :(

Alguien por ahí tiene mas o menos idea de como hacerlo?

Un cordial saludo

EL Reportero de los Foros

[sgafo]

pues hay unos dados estupendos de jugar al rol que puedes ir lanzando...

es lo que se me ocurre, ya sabes que de asp no se casi nada

ya aparecera por aqui nuestro amado salvador del foro de ASP

urjosillo!!!!!!! se te necesita!!!!!!



<center>
<embed src="http://www.telecable.es/personales/sgafo/banner_fotos.swf" quality=high type="application/x-shockwave-flash" width="500" height="55"></embed>
</center>

[bakanzipp]

<a href='ir.asp?http://www.webexperto.com/articulos/articulo.asp?cod=71' target='_blank'>http://www.webexperto.com/articulos/arti...</a>

:)

[Reportero]

Gracias por el enlace bakanzipp con ese script obtengo un numero aleatrorio entre 1 y 24, ok, pero como obtengo 10 numeros aleatorios que no se repitan

[dagui]

Lo que te recomiendo es que tomes un arreglo de tamaño 10, y vayas insertando los números generados aleatoriamente, claro que antes de insertar uno debes ver que no esté en tu arreglo con una función &quot;esta&quot; que te recorra el arreglo y compare con cada uno de sus elementos, si ya está en el arreglo que te devuelva false, y si si está, te devolverá true.

Entonces llevas un contador que parta de cero, y haces un while que se pare cuando el contador sea igual a 10. En cada iteración, vas a generar un número aleatorio entre tu rango, y vas a hacer una llamada a la función &quot;esta&quot;, si no está, agregas el número generado al arreglo en la posición contador + 1, y le sumas 1 al contador. En el caso de que ya esté, no haces nada, para que siga iterando hasta que genere uno nuevo y ya.

Al final del while ya tendrás un arreglo con 10 números aleatorios distintos entre tu rango.

Suerte.

[AlZuwaga]

Fijate si esto te sirve:

Código:

<%
Arreglo = "|"

Do While i < 10

Randomize
minimo = 1
maximo = 24

Random_Number = Int(((maximo-minimo+1) * Rnd) + minimo)

If InStr(Arreglo, "|" & Random_Number & "|") = 0 then
i = i + 1
Arreglo = Arreglo & Random_Number & "|"
End if

loop

Arreglo = Split(Arreglo, "|")

For j = 1 to UBound(Arreglo) - 1
Response.Write j & ": " & Arreglo(J) & "<br>"
Next
%>

[Reportero]

Mil Gracias Diego ;)

Funciona a la perfección

Mil Gracias

Tener un moderador así o ser un moderador así