testsv
08 de Noviembre del 2003

no consigo hacer una primitiva, por que a veces me salen numeros iguales,alguien puede ayudarme???

MxOndo
08 de Noviembre del 2003

Debes utilizar un array (vector) e ir introduciendo en el los numeros que vayan saliendo, comparando cada vez desde el principio si existe o no, si no existe, introducirlo en el indice correspondiente. Creo que este codigo funciona bien. Si tienes dudas, ya sabes.
Un saludo (el mail no es real)
-----------------------------------------------------------------------
Private Sub ObtenerNumeros()
Dim Numeros(5) As Byte
Dim NumsTotales As Byte
Dim Indice As Byte
Dim Numero As Byte
Dim Existe As Boolean

While NumsTotales < 6
Randomize
Numero = Int((6 * Rnd) + 1)
Existe = False
For Indice = 0 To NumsTotales
If Numero = Numeros(Indice) Then
Existe = True
Exit For
End If
Next Indice
If Not Existe Then
Numeros(NumsTotales) = Numero
NumsTotales = NumsTotales + 1
End If
Wend
End Sub

MxOndo
08 de Noviembre del 2003

Una cosa, donde pone un 6 tienes que poner un 49:

Numero = Int((6 * Rnd) + 1)