numeros repetidos

[jaml_84]

muy buenas tengo el siguiente problema, con este codigo de random es que cada vez que reinicio el programa me vuelve los mismos numeros y queria saver si hay alguna forma de cambiar aquello este es el codigo:

Private Sub Command2_Click()
Dim a As Integer
Dim i As Integer
i = 0

i = 0
Do
m = (Int((49 * Rnd) + 1))
If (chk0(m).Value <> vbChecked) Then
chk0(m).Value = vbChecked
chk0(m).BackColor = vbGreen
i = i + 1
End If
Loop Until (i = 6)

por favor ayuda es super urgente muchas gracias

[alexg88]

Usa la función Randomize para genera una semilla basada en la hora actual:

Código vb:

Private Sub Command2_Click()
Dim a As Integer
Dim i As Integer
i = 0
Randomize()
Do
m = (Int((49 * Rnd) + 1))
If (chk0(m).Value <> vbChecked) Then
chk0(m).Value = vbChecked
chk0(m).BackColor = vbGreen
i = i + 1
End If
Loop Until (i = 6)
 

[jaml_84]

muy buenas como soy nuevo en esto del VB me podrias explicar a que te refieres con "una semilla basada en la hora actual"
muchas gracias

[alexg88]

La semilla es un número que utiliza la función rdn para generar los números pseudo-aleatorios (fijate que son pseudo-aleatorios y no aleatorios) y con Randomize pones la semilla en base a la hora actual (puede ser que sean los segundos que han pasado desde una determinada fecha).


Lee estos links para informarte:

http://msdn.microsoft.com/es-es/libr...(v=vs.80).aspx

http://es.wikipedia.org/wiki/N%C3%BA...seudoaleatorio