Visual Basic Foro

Programación => Visual Basic 6 => Mensaje iniciado por: NsTeam en Febrero 18, 2010, 09:07:12 pm

Título: Duda al Generar Numeros con la funcion rnd
Publicado por: NsTeam en Febrero 18, 2010, 09:07:12 pm

hola a todos

tengo una duda con la funcion rnd...
lo que pasa es que siempre genera los mismos numeros al iniciar el programa

(146. 231, 208, 351, 345, 112, 487, 118, etc...)

el codigo que tengo es este

Código: [Seleccionar]

a = 0
b = 494

Text1.Text = Int((a - b + 1) * Rnd + b)
siempre al iniciar el programa me genera primero (146. 231, 208, 351, 345, 112, 487, 118, etc...)

como puedo hacer para que no empieze siempre con 146?

Título: Re:Duda al Generar Numeros con la funcion rnd
Publicado por: seba123neo en Febrero 18, 2010, 10:25:48 pm

Código: [Seleccionar]

Private Sub Form_Load()
    Randomize
   
    a = 0
    b = 494
    Text1.Text = Int((a - b + 1) * Rnd + b)
End Sub
saludos.

Título: Re:Duda al Generar Numeros con la funcion rnd
Publicado por: NsTeam en Febrero 19, 2010, 01:03:20 pm

Thanks BRO