[VB5.0] Numeri in random che non si ripetono

[skyhunter]

Salve!
Perdonate il titolo chilometrico ma riassume lo scoglio dinanzi cui mi trovo: dovendo estrarre in random 20 numeri, qualcuno conosce il modo per non far ripetere in questa sequenza lo stesso numero?
Personalmente ho provato con questo

Dim valore As Integer
valore = Int((20 * Rnd) + 1)
Randomize Timer
Text1.Text = valore

ma senza alcun risultato!

Grazie per l'aiuto

[Mabi]

Ciao.
Io mi ero fatto una funzione apposta:

Private Function NumeroNonPresente(Vettore() As Integer, ByVal vMin As Integer, ByVal vMax As Integer) As Integer
Dim Cont As Integer
Dim Uguale As Boolean

Do
  Uguale = False
  NumeroNonPresente = NumeroEstratto(vMin, vMax)
  For Cont = 0 To UBound(Vettore) - 1
    If NumeroNonPresente = Vettore(Cont) Then
      Uguale = True
      Exit For
    End If
  Next Cont
Loop Until Uguale = False
End Function

Private Function NumeroEstratto(vMin As Integer, vMax As Integer) As Integer
Randomize Timer
NumeroEstratto = Int((vMax - vMin + 1) * Rnd + vMin)
End Function

La funzione permette l'estrazione di un numero casuale, compreso fra vMin e vMax passati come parametri, che non sia già presente fra quelli estratti in precedenza e salvati nell'array Vettore.
Puoi quindi usarla in questo modo:

Dim Numeri() As Integer
Dim Cont As Integer

ReDim Numeri(19)

For Cont = 0 To 19
  Numeri(Cont) = NumeroNonPresente(Numeri, 0, 19)
Next Cont
For Cont = 0 To 19
  MsgBox Numeri(Cont)
Next Cont

In questo caso estrai 20 numeri il cui valore rimane compreso fra 0 e 19

[skyhunter]

Innanzitutto grazie per la risposta

Ho provato il codice che mi hai postato ma mi restituisce sempre 0 (zero) costingendomi a chiudere la msgbox per 19 volte!
A cosa è dovuto?
Grazie

[avatar]

Dim valore As Integer
Randomize Timer
valore = Int((20 * Rnd) + 1)
Text1.Text = valore

[Mabi]

Originariamente inviato da skyhunter
Innanzitutto grazie per la risposta

Ho provato il codice che mi hai postato ma mi restituisce sempre 0 (zero) costingendomi a chiudere la msgbox per 19 volte!
A cosa è dovuto?
Grazie

Ciao

Non riesco ad immaginare il problema...
Associando il codice ad un evento (Command1_Click()) ed incollando la procedura funziona:

Private Sub Command1_Click()
Dim Numeri() As Integer
Dim Cont As Integer

ReDim Numeri(19)

For Cont = 0 To 19
  Numeri(Cont) = NumeroNonPresente(Numeri, 0, 19)
Next Cont
For Cont = 0 To 19
  MsgBox Numeri(Cont)
Next Cont
End Sub

Private Function NumeroNonPresente(Vettore() As Integer, ByVal vMin As Integer, ByVal vMax As Integer) As Integer
Dim Cont As Integer
Dim Uguale As Boolean

Do
  Uguale = False
  NumeroNonPresente = NumeroEstratto(vMin, vMax)
  For Cont = 0 To UBound(Vettore) - 1
    If NumeroNonPresente = Vettore(Cont) Then
      Uguale = True
      Exit For
    End If
  Next Cont
Loop Until Uguale = False
End Function

Private Function NumeroEstratto(vMin As Integer, vMax As Integer) As Integer
Randomize Timer
NumeroEstratto = Int((vMax - vMin + 1) * Rnd + vMin)
End Function

Prova semplicemente inserendo un pulsante sul form e come codice quello qui sopra.

[skyhunter]

Funziona!!! Grazie mille per la pazienza... ti sono debitore

[Mabi]

Prego, mi basta sapere che ti sia servito.