ciao a tutti....ho un problema...
voglio creare a random dei numeri in una funzione ( e qst lo riesco a fare), xò volgio ke questi numeri non si devono ripetere..cioè mettere un controllo..che se li trova uguali a quelli precednti faccia in modo di "randomizzare" un altra volta. Io l soluzione l'avevo trovata usando un vettore e 2 cicli...ma ogni volta ke il progrmma andava ad eseguire quella funzione, il vettore praticamente si svuotava (nel senso ke i valori messi prima, nn c'erano più)...come fare?...
grazie...io vi metto qui il codice della funzione.
Public Function random2() As Integer
Dim help(1 To 28), ko As Integer
i = 1
Do While (ko = 0) And (i < 29)
-ko = 0
-Randomize
-Min = 0
-Max = 27
-random2 = (Max - Min) * Rnd + Min
-ko = 1
-For j = 1 To 28
---If help(j) = random2 Then
-----ko = 0
---End If
-Next
-If ko = 1 Then
---help(i) = random2
---i = i + 1
-End If
Loop
End Function
Ultima modifica effettuata da zubizarreta il 30/01/2007 alle 19:01 |