Funzione lenta

[supermac]

Buonasera a tutti
ho una funzioncina che mi genera una stringa con un colore rgba casuale.
Questa funzioncina la lancio in un ciclo nel quale sfoglio un datatable e assegno ad ogni record un colore rgba diverso.
Bene, mi succede che se eseguo in debug i vari passi del ciclo va tutto bene e trovo in ogni record del datatable un colore diverso ma quando gira per conto suo trovo in datatable tutti i record lo stesso colore...
Che ho scritto un ciclo "col ciclo"?

protected sub sfoglia(byref dtt as datatable)
            For Each row In dtt.Rows
               row!opcolore = HexColGenerator(0.3)
            Next
end sub

 Public Shared Function HexColGenerator(ByVal Optional alpha As Decimal = 1) As String
      Dim intR, intG, intB As Integer
      Dim RandomClass As New Random()
      Dim strColor As String = ""

      intR = RandomClass.Next(0, 256)
      intG = RandomClass.Next(0, 256)
      intB = RandomClass.Next(0, 256)
     
     RandomClass = Nothing

      If alpha < 1 Then
         strColor = "rgba(" & intR.ToString & "," & intG.ToString & "," & intB.ToString & "," & Int(alpha * 255).ToString & ")"
      Else

         Dim hexR, hexG, hexB As String
         hexR = intR.ToString("X").PadLeft(2, "0"c)
         hexG = intG.ToString("X").PadLeft(2, "0"c)
         hexB = intB.ToString("X").PadLeft(2, "0"c)


         strColor = "#" & hexR & hexG & hexB
      End If
      intR = Nothing
      intG = Nothing
      intB = Nothing

      Return strColor
   End Function

[supermac]

Più veloce del previsto: se la Randomclass la dichiaro fuori dalla funzione come public shared e non la creo e distruggo dentro la funzione funziona.
Mah...

[supermac]

PS la funzioncina ha anche un errore, l'alpha non va convertito in scala da 0 a 255 come ho fatto io ma va usato com'è

[djciko]

due domande:

1. cosa è row!opcolore ?

2. perche' distruggi la RandomClass ? Sono molte righe ?


comunque, hai provato a NON passare il datatable per riferimento ?

[URANIO]

Per la classe random devi usare il seed quando la inizializzi in modo da generare valori pseudoicasuali.
Per il resto creare e distruggere la classe random come detto sopra potrebbe darti problemi di garbagecollector a lungo andare, passalo alla funzione.

[optime]

non capisco il "lenta" del titolo...

[supermac]

:-) In effetti era questione di SEED.
Creando la RandomClass ogni volta nella funzione senza fargli il reseed proponeva sempre lo stesso valore ad ogni ciclo, mettendola invece public e passandola alla funzione il problema non si pone.

row!opcolore è un campo del datatable che valorizzo con la funzione: il datatable DEVO passarlo byref perchè lo genero da tutt'altra parte (anyway ha si e no 20 records non è un oggetto tanto "grasso" da maneggiare)

"Lenta" è perchè nel panico in cui ero piombato ero arrivato a pensare che proponesse sempre lo stesso valore rgb perchè il ciclo era più veloce della generazione casuale dei valori!!! sono scemo lo so, tendo a umanizzare le macchine.

[sspintux]

:-)
....
nel panico in cui ero piombato ero arrivato a pensare che proponesse sempre lo stesso valore rgb perchè il ciclo era più veloce della generazione casuale dei valori!!!
....

IMHO, nel panico ci avevi preso perchè

1)
essendo l'algoritmo di generazione pseudocausale basato sull'ora corrente
la generazione di valori casuali con diverse istanze di randomclass create a brevissima distanza di tempo
di fatto portava a valori uguali a quelli della precedente istanza;

2)
la creazione di n istanze di randomclass invece di una sola ha il suo peso e rallenta il tutto

[supermac]

IMHO, nel panico ci avevi preso perchè

1)
essendo l'algoritmo di generazione pseudocausale basato sull'ora corrente
la generazione di valori casuali con diverse istanze di randomclass create a brevissima distanza di tempo
di fatto portava a valori uguali a quelli della precedente istanza;

se è così allora sulla luna ci siamo arrivati per culo, perchè nel '69 gli elaboratori ciclavano a velocità bassa e la generazione di un numero casuale riusciva sempre

[sspintux]

se è così allora sulla luna ci siamo arrivati per culo,

il fattore Q non guasta mai

cmq, qua https://docs.microsoft.com/it-it/dot...e-3.1#Multiple dice :

Evitare più creazioni di istanze

Nel .NET Framework, l'inizializzazione di due generatori di numeri casuali in un ciclo stretto o in successione rapida crea due generatori di numeri casuali che possono produrre sequenze identiche di numeri casuali. Nella maggior parte dei casi, non si tratta dello scopo dello sviluppatore e può causare problemi di prestazioni, perché la creazione di un'istanza e l'inizializzazione di un generatore di numeri casuali è un processo relativamente costoso.

poi ... boh ...
credo che ci sia stato anche qualche modifica passando al .net core