Numero aleatorio

[sjam7]

Hola amigos, se que quisa esto lo han preguntado y respondido muchas veces, pero quiero saber como sacar un numero aleatorio en un margen que yo de, por ejemplo, del 1 al 10

gracias como siempre por todo

JAM<br>
Un portal para Guadalajara<br>
¿Que les parece?<br>
<a href="http://www.guiaguanatos.com" target="_blank">GuiaGuanatos.com</a>

[davidof]

Sirvete tu mismo


&lt;%
' Generador de claves aleatorias

Function generadordeclaves(longituddeclave)
' Nota para los principientes : el simpolo &quot;_&quot; es el de continuación de linea
' Definicion del array
Dim numerodecaracteres
Dim salida
Dim char_array

char_temps = Array(&quot;0&quot;, &quot;1&quot;, &quot;2&quot;, &quot;3&quot;, &quot;4&quot;, &quot;5&quot;, &quot;6&quot;, &quot;7&quot;, &quot;8&quot;, &quot;9&quot;)


Randomize()

Do While Len(salida) &lt; longituddeclave
salida = salida &amp; char_temps(Int(10*Rnd()))
Loop


' establecemos el valor del resultado a devolver
generadordeclaves = salida
End Function


numerodecaracteres=4
' escribe los resultados de la clave con tantos caracteres como el parametro pasado
Response.Write &quot;Exemple aleatori de vectors: &quot;
Response.Write &quot;&lt;b&gt;&quot; &amp; generadordeclaves(numerodecaracteres) &amp; &quot; en mil·lisegons&lt;/b&gt;&quot; &amp; vbCrLf
%&gt;

[davidof]

Lo que pedías era esto, por cierto no sabras como calcular los milisegundos en vbscript

&lt;% Function RandomNumber(inicio, fin)
Randomize()
RandomNumber = Int((fin - inicio + 1) * Rnd + inicio)
End Function
%&gt;

&lt;%' generar un numero entre 1 y 10
response.write &quot;Número generat en l'interval [1,10] :&quot; &amp;RandomNumber(1, 10)
%&gt;

[President]

Hola !

Para calcular el tiempo tienes que usar un timer: Por ejemplo para calcular cuánto tarda en sumar del 1 al 100000 sería:

Function Temps
Dim inici, fi
inici = Timer
For i = 1 To 100000
Next
Fi = Timer
Temps = fi - inici
response.write(Temps)
End Function

Por cierto en mi ordenador ha tardado 0,0468750 segundos

fins una altre !