Como hacer una funcion para hallar un numero ALEATORIO entre dos numeros¿

[mesenier]

Como puedo hacer una funcion para hallar un numero ALEATORIO entre dos numeros.
que fuera asi



resultado = aleatorio(1, 10)

y que cada vez que se use el resultado me diera cualquier numero de ese rango.


como podria hacerlo?

[erbuson]

Hola, con esta función lo conseguirás:

Código vb:

Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
    Randomize ' inicializar la semilla
    Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function
 

Pero, a Dios lo que es de Dios y al Cesar lo que es del Cesar, la he copiado del siguiente enlace de Recursos Visual Basic que aquí te dejo para que puedas aprender mas si tienes interés en ello.

Números Aleatorios

Saludos

[erbuson]

De nada, amigo mesenier revisando tus preguntas y sus respectivas respuestas veo que al parecer te cuesta un poco decir gracias.

Tu gran suerte es que en los foros uno se olvida de los nombres y sigue prestando su ayuda desinteresadamente y sin prestar demasiada atención al nombre.

En fin no estaría de mas, pero bueno, esto va con el carácter de cada uno.

Saludos y Felices Fiestas.

[mesenier]

Respuesta: Como hacer una funcion para hallar un numero ALEATORIO entre dos numeros¿
De nada, amigo mesenier revisando tus preguntas y sus respectivas respuestas veo que al parecer te cuesta un poco decir gracias.

Tu gran suerte es que en los foros uno se olvida de los nombres y sigue prestando su ayuda desinteresadamente y sin prestar demasiada atención al nombre.

En fin no estaría de mas, pero bueno, esto va con el carácter de cada uno.

Saludos y Felices Fiestas.

1.- "sigue prestando su ayuda desinteresadamente "

2.- Si hubieras revisado bien, las gracias siempre las doy en el primer post, porque a mi parecer crear un post para dar las gracias es apología del offtopic.

3.- Si alguien externo acude al foro en busca de algo, no sera en busca de agradecimientos de ningun tipo, sino en busca de respuestas.

4.- no hay nada peor que un post en el que cada uno comienze a contar su vida "oftopicamente". (Con lo que hubieras abierto un nuevo tema offtopic hablando de lo desagradecido que es el usuario mesenier o lo que quieras).

5.- mis más sinceras disculpas si te he ofendido en algo!!!!.




Gracias a todo forosdelweb

[erbuson]

Hola, desde luego han quedado bastante claro las gracias, de todos modos te comento que lo normal es que después de recibir una solución o idea, lo más correcto es dejar un último mensaje diciendo si te ha servido y dando el tema por cerrado para que en el futuro si otro usuario tiene un problema similar pueda saber antes de probarlo que la solución fué efectiva.

Te dejo un enlace a uno de tus post que no reivindica precisamente tus palabras.

Archivo Abierto

Saludos

[mesenier]

Que siiiiii erbuson mea culpa pero por favor ese tema postealo

esas cosas aqui


y respecto a lo de Archivo Abierto joder, tio eres de CSI? por un post en el que no te haya agradecido a ti porke mira pone gracias en mi segundo post, bueno el ultimo post de agradecimiento lo acabo de hacer...

Ah la funcion para hallar dos numeros aleatorios entre dos numeros concretos Funciona a la perfeccion y me ha sido muy util:

Private Function Aleatorio(Minimo As Long, Maximo As Long) As Long
Randomize ' inicializar la semilla
Aleatorio = CLng((Minimo - Maximo) * Rnd + Maximo)
End Function

gracias un saludao