[VB.Net]Escludere dei numeri

[x69asterix]

Originariamente inviato da Janx
Forse non ho capito....
Devi escludere alcuni numeri, giusto?
Qual'è il criterio di esclusione?

supponiamo nel caso tuo che la sestina estratta sia:
2 5 8 9 10 11
supponiamo nel mio caso che io decida di escludere dall'estrazione:
5 9 11 20 .....
il tuo codice come fà ad escluderli?

[Janx]

semplice...

Numeri.Remove(numero_da_escludere)

Se hai più numeri:

Dim Rimuovi() As Integer = {5, 9, 11, 20}
For Each i As Integer In Rimuovi 
Numeri.Remove(i) Next

[Janx]

semplice...

Numeri.Remove(numero_da_escludere)

Se hai più numeri:

Dim Rimuovi() As Integer = {5, 9, 11, 20}
For Each i As Integer In Rimuovi 
    Numeri.Remove(i) 
Next

Da applicare prima dell'estrazione....

[x69asterix]

Originariamente inviato da Janx
semplice...

Numeri.Remove(numero_da_escludere)

Se hai più numeri:

Dim Rimuovi() As Integer = {5, 9, 11, 20}
For Each i As Integer In Rimuovi 
    Numeri.Remove(i) 
Next

Da applicare prima dell'estrazione....

e quindi questo codice dove lo inserisco?

[Janx]

Ti faccio un esempio completo.

Metti il codice ad esempio al Click di un pulsante.
Avrai una generazione casuale di 6 numeri, da 1 a 90, esclusi i numeri che non vuoi considerare.

Dim Numeri As New ArrayList 
For i = 1 To 90 
    Numeri.Add(i) 
Next 
Dim Ignoranumeri() As Integer = {5, 9, 11, 20} 
For Each i As Integer In Ignoranumeri 
    Numeri.Remove(i) 
Next 

Dim Estrazione(5) As Byte 
Dim Posizione As Byte = 0
Randomize() 
Dim Risultato As New System.Text.StringBuilder 
For i = 0 To Estrazione.Length - 1 
    Posizione = New Random().Next(Numeri.Count - 1) 
    Estrazione(i) = Numeri(Posizione) 
    Numeri.RemoveAt(Posizione) 
    System.Threading.Thread.Sleep(50) 
Next 
Array.Sort(Estrazione) 
For i As Integer = 0 To Estrazione.Count - 1 
    Risultato.Append(Estrazione(i) & " ") 
Next 

MessageBox.Show(Risultato.ToString)

[x69asterix]

ok,
ancora una cosa :

Dim Ignoranumeri() As Integer = {5, 9, 11, 20}

se i numeri vengono inseriti in textbox?

[Janx]

Ipotizzando che i numeri inseriti sulla TextBox vengano separati da una virgola.

Sostituisci

Dim Ignoranumeri() As Integer = {5, 9, 11, 20}
For Each i As Integer In Ignoranumeri 
    Numeri.Remove(i) 
Next

con

Dim j As Integer 
For Each s As String In TextBox1.Text.Split(",")
    If Int32.TryParse(s, j) Then 
        Numeri.Remove(j) 
    End If 
Next

[x69asterix]

Originariamente inviato da Janx
Ipotizzando che i numeri inseriti sulla TextBox vengano separati da una virgola.

Sostituisci

Dim Ignoranumeri() As Integer = {5, 9, 11, 20}
For Each i As Integer In Ignoranumeri 
    Numeri.Remove(i) 
Next

con

Dim j As Integer 
For Each s As String In TextBox1.Text.Split(",")
    If Int32.TryParse(s, j) Then 
        Numeri.Remove(j) 
    End If 
Next

lo stò provando sembra che vada bene.....

[x69asterix]

però il codice che è all'inizio del post, mi sembra piu performante per quanto riguarda la combinazione della sestina.

[Janx]

Con quei loop all'interno di timer?.... perdonami ma non credo proprio...
A limite se vuoi velocizzare la generazione della sestina puoi ridurre quello sleep che io ho impostato a 50 millisecondi.