aleatorios no repetidos

[rugamba_87]

el programa siguiente saca numeros 144 numeros aleatorios, los escribe en un fichero de texto, lo que no he conseguido es que no me salgan repetidos. He provado con un vector e ir comprovando, pero no me sale el vector bien, me da errores, alguien me puede decir como hacerlo???

Codigo (es solo una parte, pero teneis suficiente ;)):

Private Sub Command1_Click()
Randomize
aleatorio:
Do
Numero = Int((644 * Rnd) + 1)
If Numero > 144 Then GoTo aleatorio
Exit Do
Loop
aleatorio.Text = Numero
End Sub



Private Sub Command3_Click()

Open "C:\...\...\...\...\numeros.txt" For Output As 1

Rem ............ primer
Colr = &H0&
numeroveces = Int(144 * Val(Text3.Text) / 100)
For x = 1 To numeroveces



Command1_Click
Write #1, aleatorio.Text, Colr

Next x
Close #1

[erbuson]

Hola, como en muchas ocasiones Recursos VB nos saca de dudas, te dejo el enlace con la función que genera Números Aleatorios no repetidos que espero te sirva.

Saludos

[rugamba_87]

jeje, de ahí es de donde lo he estado mirando, jeje, pero no me sale el vector, no se si es que no lo pongo donde toca, pero me falla. gracias por la rapidez de tu respuesta. seguiré intentadolo a ver....

[erbuson]

Vamos a ver si consigo alegrarte las fiestas con este arreglo. Ojo que puedo haberme equivocado con las prisas.

Private Sub Command1_Click()
Dim Matriz() As Single, Indice As Integer
Matriz = ArrayAleatorio(10, 100, 200)
For Indice = 1 To 10
Print Matriz(Indice)
Next
End Sub

Código vb:

Function ArrayAleatorio(Numero As Long, Desde As Long, Hasta As Long) As Single()
  ' Devuelve un Array desde 1 hasta Número de valores azar
  ReDim tmpArray(Numero) As Single
  Dim Indice As Long, Cuantos As Long, NumeroRnd As Single
  Randomize Timer
  Do While Cuantos < Numero
    NumeroRnd = Int((Hasta - Desde + 1) * Rnd + Desde)
    For Indice = 1 To Cuantos
      If tmpArray(Indice) = NumeroRnd Then GoTo LoTengo
    Next
    Cuantos = Cuantos + 1
    tmpArray(Cuantos) = NumeroRnd
LoTengo:
  Loop
  ArrayAleatorio = tmpArray
End Function
 

Pruebalo y comenta.