Numeros Aleatorios

[ltbl]

Hola. Hay más posts sobre este tema en el foro pero he visto varias respuestas diferentes.

La duda es: ¿realmente cómo genero un numero aleatorio en un determinado rango?

La ultima combinación con la que he probado es:

Código (vbnet) [Seleccionar] Expandir

(minimo - maximo + 1) * Rnd() + maximo
pero no es correcta

EDITO: Haciendo pruebas al final he dado con la siguiente, que parece funcionar:

Código (vbnet) [Seleccionar] Expandir

(minimo - maximo) * Rnd() + maximo
tambmien la he estado probando un buen rato pero no funcionaba porque generaba directamente el aleatorio en un textbox.

[agus0]

Usa el Buscador, Es muy Facil!!

------>


(Clic en la LUPA)

[~ Ghost_Networks ~]

mmm no se yo se q en VB se usa el Randomize o algo asi y pones el codigo y t genera numeros al azar, pero VB no es mi fuerte XD mejor dicho, la programacion no es imi fuerte

[BlackZeroX]

.

Código (vb) [Seleccionar] Expandir



Public Function NumeroAleatorio(MinNum As Long, MaxNum As Long) As Long
Dim Tmp                                 As Long
   If MaxNum < MinNum Then: Tmp = MaxNum: MaxNum = MinNum: MinNum = Tmp
   Randomize: NumeroAleatorio = (MinNum - MaxNum) * Rnd + MaxNum
End Function