Processo Task/Multi-thread

[vuott]

https://forum.gambas.one/viewtopic.php?f=4&t=766

[Gianluigi]

Lo stesso calcolo eseguito senza e con Fast:

Codice: [Seleziona]

'Fast

Public Sub Main()

  Dim StartTime As Float
  Dim DiffTime As Float

  StartTime = Timer
  For c As Byte = 1 To 40
    For i As Integer = 0 To 200000000
      
    Next
    Print "Operazione "; c; " terminata"
  Next
  DiffTime = Timer - StartTime
  Print "Tempo impiegato "; DiffTime; " sec"

End

Senza Fast naturalmente ottego lo stesso risultato (circa 1 minuto) che con 1 thread, ma con Fast ottengo 3 secondi in meno (8 invece di 11) che se uso tutti i thread

 

[Top Fuel]

'petta un attimo, ho provato il tuo listato sul mio Athlon64X2 2,9 ghz, senza Fast lo esegue in 169.45599341 secondi, con Fast invece in 0.000117053999929 secondi.
C'è qualquadra che non cosa... 

[Gianluigi]

L'avevo notato anch'io, ma se fai il test con Fast per primo, intendo a programma riavviato dopo aver fatto girare un altro programma con calcoli diversi magari su stringhe o date, vedi che il tempo si allunga un pochino.
Funzionare funziona basta provare questo codice:

Codice: [Seleziona]

Fast

Public Sub Main()

  Dim StartTime As Float
  Dim DiffTime As Float

  StartTime = Timer
  For c As Byte = 1 To 40
    For i As Integer = 0 To 200000000
      i += 1
    Next
    Print "Operazione "; c; " terminata, valore = "; i
  Next
  DiffTime = Timer - StartTime
  Print "Tempo impiegato "; DiffTime; " sec"

End

Del perchè questo accada non saprei dire, forse vuott che conosce il C lo potrebbe sapere...

Codice: [Seleziona]

Prima volta:
...
Operazione 32 terminata, valore = 200000002
Operazione 33 terminata, valore = 200000002
Operazione 34 terminata, valore = 200000002
Operazione 35 terminata, valore = 200000002
Operazione 36 terminata, valore = 200000002
Operazione 37 terminata, valore = 200000002
Operazione 38 terminata, valore = 200000002
Operazione 39 terminata, valore = 200000002
Operazione 40 terminata, valore = 200000002
Tempo impiegato 7,71499999245862E--5 sec

Seconda volta:
...
Operazione 34 terminata, valore = 200000002
Operazione 35 terminata, valore = 200000002
Operazione 36 terminata, valore = 200000002
Operazione 37 terminata, valore = 200000002
Operazione 38 terminata, valore = 200000002
Operazione 39 terminata, valore = 200000002
Operazione 40 terminata, valore = 200000002
Tempo impiegato 0,000122502000067 sec