Visual Basic - Utilización de Randomize

Life is soft - evento anual de software empresarial
 
Vista:

Utilización de Randomize

Publicado por Alejandro  (10 intervenciones) el 17/10/2009 00:59:14
Tengo un gran problema con el Randomize... por lo que se, para generar un número aleatorio basta de unicamente estas lineas de código:

Dim num As String
Randomize
num = Rnd()

Ahora, mi problema es que necesito saber como hacer para que este número aleatorio este entre otros dos, es decir, limitar los posibles números a partir de otros dos. Por ejemplo, al ejecutar el programa, se realiza el Randomize de una variable para que genere un número aleatorio, pero este tiene que estar entre 0 y 1440... como se realizaria esto? espero que alguien pueda ayudarme, muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Utilización de Randomize

Publicado por juan carlos (518 intervenciones) el 17/10/2009 04:04:53
Hola Alejandro
si tienes otra duda mi mail es
[email protected]

prueba esto:

Private Sub Command1_Click()
a = Aleatorio(CLng(0), CLng(1400))
MsgBox a
End Sub

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

Dios te bendiga
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Utilización de Randomize

Publicado por Alejandro (10 intervenciones) el 17/10/2009 19:19:33
Lo realize de la segunda manera coy funciono, muchas gracias!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar