L
LuigiB
Guest
ho aggiornato alla versione 1.3.92 , ora credo che le nuove funzioni turbo siano allineate alle rispettive non turbo.
SetupSpaziometria_1_3_92.rar
SetupSpaziometria_1_3_92.rar
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
fillotto
Advanced Member >PLATINUM<
Mi sembra che ancora non ci siamo prendendo i parametri di cui sopra (tutte 200 colpi ultima estr 22.12.2012 versione 92 ) da un occhiata risultano assenti gli ambi 7-27 e 41- 60 tutti e 2 hanno la caratteristica controllata di essere usciti , nelle ultime 200 estr 13 volte ma mancano inoltre nell'ultima finca (Ruota dove sono usciti negli ultimi 10 colpi) le ruote segnalate sono inesatte.
L
LuigiB
Guest
questi errori secondo il mio parere sono colpa dello script non delle funzioni ... ripeto io devo verificare che usando le funzioni turbo e le analoghe non turbo si abbiano gli stessi risultati , facciamo cosi Filotto mi posti lo script che hai usato e che ritieni dia dati corretti ? Poi ci penso io a verificare...
fillotto
Advanced Member >PLATINUM<
Codice:
Sub
[SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Main[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]anum[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](2)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ruote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](1),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]rt[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](10)[/SIZE]
[SIZE=2] nStart
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Timer[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] r
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]InputBox[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Quale Ruota[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",,1)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ruote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] r[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](17)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Data [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Ruota [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Numero [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Ritardo [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](5) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Rit Max [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](6) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] incr Max [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](7) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] frequenza [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](8) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] freq 10 [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](9) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Usciti ultima [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](10) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] RPA USC. [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](11) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] RP1 [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](12) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] RP2 [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](13) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] RP3 [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](14) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] RP4 [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](15) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] RP5 [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](16) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] MED.RT [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](17) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Ruota [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]InitTabella[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]atitoli[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],1,,3,5)[/SIZE]
[SIZE=2] Ini
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 200 [/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]' riga di partenza[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] fin
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] df
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] Ini[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Dalla data...[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](Ini) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] alla data...[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](fin) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Totali estraz. [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] df,1,[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1,3[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] x [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 89[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] x[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 90[/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'n2 = y[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]<>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]anum[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]anum[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Messaggio[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]elaboro... ruota di [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]NomeRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](r) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]-[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]AvanzamentoElab[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](1,11,r)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]StatAmboTurbo[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ruote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](1),[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],rit,ritmax,Incrmax,freq,Ini,fin)[/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'Call StatFrzTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,,Ini,fin)[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](17)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](1) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]DataEstrazione[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](fin)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](2) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]NomeRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](r)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](3) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]-[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] rit[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](5) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] ritmax[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](6) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] Incrmax[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](7) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] freq[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]<[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 11 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]And[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](8) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]-[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Else[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](8) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] - [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](9) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]-[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Else[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](9) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] - [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] rp1
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieRitardoTurbo[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](Ini,fin [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]anum[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ruote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],2)[/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'Call StatFrzTurbo(anum,ruote,2,rp1,0,0,0,,Ini,fin - 1)[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000][/COLOR][/SIZE][/COLOR][/SIZE][B][SIZE=2][/SIZE][/B][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](10) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] rp1[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Else[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](10) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] - [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'------- calcolo ritardi precedenti------------[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]ReDim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]rp[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](6)[/SIZE]
[SIZE=2] Inizio
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 300[/SIZE]
[SIZE=2] fine
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]EstrazioneFin[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] somrit
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] z [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 6[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]rp[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](z) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SerieRitardoTurbo[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](Inizio,fine,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]anum[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]ruote[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],2)[/SIZE]
[SIZE=2]
fine
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] fine [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]rp[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](z) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1)[/SIZE]
[SIZE=2] somrit
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] somrit [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]rp[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](z)[/SIZE]
[SIZE=2] Medrit
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Int[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](somrit[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]/[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]z)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](11) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]rp[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](2)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](12) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]rp[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](3)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](13) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]rp[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](4)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](14) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]rp[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](5)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](15) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]rp[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](6)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](16) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] Medrit[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]For[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] rr [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]To[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 10[/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'rt(1) = rr[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]AmboRitardoTurbo[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](rr,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n1[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]n2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]<[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 11 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](17) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](rr)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] rit [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]<[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 11 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](17) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SiglaRuota[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](rr)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]AddRigaTabella[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2],,,3)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SetColoreCella[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](4,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbMagenta[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SetColoreCella[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](3,,1)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SetColoreCella[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](7,[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]vbGreen[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SetColoreCella[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](16,7)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](6) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]>[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SetColoreCella[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](6,2)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]avalori[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](4) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 0 [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Then[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]SetColoreCella[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](17,,2)[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]If[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Next[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]CreaTabella[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](7,,,25) [/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]' riga x ordinamento tabella[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]"[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000] Tabella by Mike58 [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]",1,[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 1,6[/SIZE]
[SIZE=2] nEnd
[/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Timer[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Call[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Scrivi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]("[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]Tempo di elaborazione : [/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]FormattaSecondi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]((nend) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] nstart))[/SIZE]
[SIZE=2][/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Sub[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Function
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]FormattaSecondi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]s[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]'Questa Function trasforma il numero di secondi passato come parametro in una stringa[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]' s ---> Numero di secondi da formattare[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000]' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )[/COLOR][/SIZE][/COLOR][/SIZE]
[SIZE=2][COLOR=#008000][SIZE=2][COLOR=#008000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]hh[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Mm[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Ss[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Dim[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]TimeStr[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]hh[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]s[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]\[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 3600[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Mm[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]s[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Mod[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 3600) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]\[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 60[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Ss[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]s[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]-[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2](([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]hh[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]*[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 3600) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]+[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Mm[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]*[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] 60))[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]TimeStr[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]hh[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]:[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Mm[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]) [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] "[/SIZE][SIZE=2][COLOR=#ff8000][SIZE=2][COLOR=#ff8000]:[/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]" [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]&[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080]Format2[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#800080][SIZE=2][COLOR=#800080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2]([/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]Ss[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2])[/SIZE]
[SIZE=2]
[/SIZE][B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080]FormattaSecondi[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#808080][SIZE=2][COLOR=#808080][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000]=[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#ff0000][SIZE=2][COLOR=#ff0000][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff]TimeStr[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#ff00ff][SIZE=2][COLOR=#ff00ff][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]End
[/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][SIZE=2] [/SIZE][B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0]Function[/COLOR][/SIZE][/COLOR][/SIZE][/B]
[B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE][/B][SIZE=2][COLOR=#0000c0][SIZE=2][COLOR=#0000c0][/COLOR][/SIZE][/COLOR][/SIZE]
L
LuigiB
Guest
allora :
punto 1 Lo script che hai postato l'ho dovuto riformattare tutto perche cosi come'era era inutilizzabile
punto 2 Avevo chiesto lo script originale di Mike ma questo non lo era perche faceva uso dellle nuove funzioni , vabbe corrette pure quelle
punto 3 Lo script fa uso delle seguenti funzioni StatAmbo , SerieRitardo , AmboRitardo a me interessava sapere se sostituendo le suddette funzioni con le rispettive StatAmboTurbo , SerieRitardoTurbo , AmboRitardoTurbo si fossero ottenuti gli stessi risultati.
Quindi ho creato 2 script uno che usa solo StatAmbo , SerieRitardo , AmboRitardo e l'altro che invece usa al loro posto StatAmboTurbo , SerieRitardoTurbo , AmboRitardoTurbo
ottengo questi 2 output mostrati a fine post che a me sembrano uguali
punto 4 una volta verificato di ottenere gli stessi dati per me è tutto ok . se lo script pero mostra dati effettivamente sbagliati nella sostanza non solo non lo so ma manco lo voglio sapere , lo script non l'ho fatto io a me interessa ripeto ancora vedere se le nuove funzioni si comportano come le vecchie e a quanto pare mi sembra di si , se qualcuno riscontra delle differenze mi faccia sapere.
script che usa le vecchie funzioni
script che usa le nuove funzioni turbo
non turbo
turbo
punto 1 Lo script che hai postato l'ho dovuto riformattare tutto perche cosi come'era era inutilizzabile
punto 2 Avevo chiesto lo script originale di Mike ma questo non lo era perche faceva uso dellle nuove funzioni , vabbe corrette pure quelle
punto 3 Lo script fa uso delle seguenti funzioni StatAmbo , SerieRitardo , AmboRitardo a me interessava sapere se sostituendo le suddette funzioni con le rispettive StatAmboTurbo , SerieRitardoTurbo , AmboRitardoTurbo si fossero ottenuti gli stessi risultati.
Quindi ho creato 2 script uno che usa solo StatAmbo , SerieRitardo , AmboRitardo e l'altro che invece usa al loro posto StatAmboTurbo , SerieRitardoTurbo , AmboRitardoTurbo
ottengo questi 2 output mostrati a fine post che a me sembrano uguali
punto 4 una volta verificato di ottenere gli stessi dati per me è tutto ok . se lo script pero mostra dati effettivamente sbagliati nella sostanza non solo non lo so ma manco lo voglio sapere , lo script non l'ho fatto io a me interessa ripeto ancora vedere se le nuove funzioni si comportano come le vecchie e a quanto pare mi sembra di si , se qualcuno riscontra delle differenze mi faccia sapere.
script che usa le vecchie funzioni
Codice:
Sub Main
Dim n1,n2,anum(2)
Dim ruote(1),rt(10)
nStart = Timer
r = InputBox("Quale Ruota",,1)
ruote(1) = r
ReDim aTitoli(17)
aTitoli(1) = " Data "
aTitoli(2) = " Ruota "
aTitoli(3) = " Numero "
aTitoli(4) = " Ritardo "
aTitoli(5) = " Rit Max "
aTitoli(6) = " incr Max "
aTitoli(7) = " frequenza "
aTitoli(8) = " freq 10 "
aTitoli(9) = " Usciti ultima "
aTitoli(10) = " RPA USC. "
aTitoli(11) = " RP1 "
aTitoli(12) = " RP2 "
aTitoli(13) = " RP3 "
aTitoli(14) = " RP4 "
aTitoli(15) = " RP5 "
aTitoli(16) = " MED.RT "
aTitoli(17) = " Ruota "
Call InitTabella(aTitoli,1,,3,5)
Ini = EstrazioneFin - 200 ' riga di partenza
fin = EstrazioneFin
df = fin - Ini
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " Totali estraz. " & df,1,- 1,3
Scrivi
For x = 1 To 89
n1 = x
For n2 = n1 + 1 To 90
'n2 = y
If n1 <> n2 Then
anum(1) = n1
anum(2) = n2
Messaggio "elaboro... ruota di " & NomeRuota(r) & "" & n1 & "-" & n2
Call AvanzamentoElab(1,11,r)
Call StatAmbo(ruote(1),n1,n2,rit,ritmax,Incrmax,freq,Ini,fin)
ReDim aValori(17)
aValori(1) = DataEstrazione(fin)
aValori(2) = NomeRuota(r)
aValori(3) = n1 & "-" & n2
aValori(4) = rit
aValori(5) = ritmax
aValori(6) = Incrmax
aValori(7) = freq
If aValori(4) < 11 And aValori(4) > 0 Then
aValori(8) = n1 & "-" & n2
Else
aValori(8) = " - "
End If
If aValori(4) = 0 Then
aValori(9) = n1 & "-" & n2
Else
aValori(9) = " - "
End If
If aValori(4) = 0 Then
rp1 = SerieRitardo(Ini,fin - 1,anum,ruote,2)
aValori(10) = rp1
Else
aValori(10) = " - "
End If
'------- calcolo ritardi precedenti------------
ReDim rp(6)
Inizio = EstrazioneFin - 300
fine = EstrazioneFin
somrit = 0
For z = 1 To 6
rp(z) = SerieRitardo(Inizio,fine,anum,ruote,2)
fine = fine -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
aValori(11) = rp(2)
aValori(12) = rp(3)
aValori(13) = rp(4)
aValori(14) = rp(5)
aValori(15) = rp(6)
aValori(16) = Medrit
For rr = 1 To 10
'rt(1) = rr
If AmboRitardo(rr,n1,n2) < 11 Then aValori(17) = SiglaRuota(rr)
If rit < 11 Then aValori(17) = SiglaRuota(rr)
Next
Next
Call AddRigaTabella(aValori,,,3)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
Call SetColoreCella(7,vbGreen)
Call SetColoreCella(16,7)
If aValori(6) > 0 Then Call SetColoreCella(6,2)
If aValori(4) = 0 Then Call SetColoreCella(17,,2)
End If
Next
Next
Call CreaTabella(7,,,25) ' riga x ordinamento tabella
Scrivi" Tabella by Mike58 ",1,- 1,6
nEnd = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s\ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh* 3600) +(Mm* 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Functionscript che usa le nuove funzioni turbo
Codice:
Sub Main
Dim n1,n2,anum(2)
Dim ruote(1),rt(10)
nStart = Timer
r = InputBox("Quale Ruota",,1)
ruote(1) = r
ReDim aTitoli(17)
aTitoli(1) = " Data "
aTitoli(2) = " Ruota "
aTitoli(3) = " Numero "
aTitoli(4) = " Ritardo "
aTitoli(5) = " Rit Max "
aTitoli(6) = " incr Max "
aTitoli(7) = " frequenza "
aTitoli(8) = " freq 10 "
aTitoli(9) = " Usciti ultima "
aTitoli(10) = " RPA USC. "
aTitoli(11) = " RP1 "
aTitoli(12) = " RP2 "
aTitoli(13) = " RP3 "
aTitoli(14) = " RP4 "
aTitoli(15) = " RP5 "
aTitoli(16) = " MED.RT "
aTitoli(17) = " Ruota "
Call InitTabella(aTitoli,1,,3,5)
Ini = EstrazioneFin - 200 ' riga di partenza
fin = EstrazioneFin
df = fin - Ini
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " Totali estraz. " & df,1,- 1,3
Scrivi
For x = 1 To 89
n1 = x
For n2 = n1 + 1 To 90
'n2 = y
If n1 <> n2 Then
anum(1) = n1
anum(2) = n2
Messaggio "elaboro... ruota di " & NomeRuota(r) & "" & n1 & "-" & n2
Call AvanzamentoElab(1,11,r)
Call StatAmboTurbo (ruote(1),n1,n2,rit,ritmax,Incrmax,freq,Ini,fin)
ReDim aValori(17)
aValori(1) = DataEstrazione(fin)
aValori(2) = NomeRuota(r)
aValori(3) = n1 & "-" & n2
aValori(4) = rit
aValori(5) = ritmax
aValori(6) = Incrmax
aValori(7) = freq
If aValori(4) < 11 And aValori(4) > 0 Then
aValori(8) = n1 & "-" & n2
Else
aValori(8) = " - "
End If
If aValori(4) = 0 Then
aValori(9) = n1 & "-" & n2
Else
aValori(9) = " - "
End If
If aValori(4) = 0 Then
rp1 = SerieRitardoTurbo (Ini,fin - 1,anum,ruote,2)
aValori(10) = rp1
Else
aValori(10) = " - "
End If
'------- calcolo ritardi precedenti------------
ReDim rp(6)
Inizio = EstrazioneFin - 300
fine = EstrazioneFin
somrit = 0
For z = 1 To 6
rp(z) = SerieRitardoTurbo (Inizio,fine,anum,ruote,2)
fine = fine -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
aValori(11) = rp(2)
aValori(12) = rp(3)
aValori(13) = rp(4)
aValori(14) = rp(5)
aValori(15) = rp(6)
aValori(16) = Medrit
For rr = 1 To 10
'rt(1) = rr
If AmboRitardoTurbo (rr,n1,n2) < 11 Then aValori(17) = SiglaRuota(rr)
If rit < 11 Then aValori(17) = SiglaRuota(rr)
Next
Next
Call AddRigaTabella(aValori,,,3)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
Call SetColoreCella(7,vbGreen)
Call SetColoreCella(16,7)
If aValori(6) > 0 Then Call SetColoreCella(6,2)
If aValori(4) = 0 Then Call SetColoreCella(17,,2)
End If
Next
Next
Call CreaTabella(7,,,25) ' riga x ordinamento tabella
Scrivi" Tabella by Mike58 ",1,- 1,6
nEnd = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s\ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh* 3600) +(Mm* 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Functionnon turbo
turbo
Ultima modifica di un moderatore:
Mike58
Advanced Member >PLATINUM PLUS<
Ciao Luigi scrivo soltanto perchè almeno 3 volte lottoced mi va in crash a postare le immagini.
Voglio dirti e spero di spiegarmi se analizzi i 2 script su tutte le ruote, differenti solo nella chiamata delle funzioni turbo e non si verifica un caso strano un ambo a presenza = 13 (41-60) verificato su formazioni veloce del programma (quindi nelle prime posizioni) lo script turbo non lo rileva mentre lo script non turbo si.
Questo mi sembra un po una anomalia strana.
Poi ho notato che la guida leggenda indica la posizione mentre i nuovi codici la ignorano, ti dico questo perchè con le nuovi correzioni non sono + funzionanti il codice Ritardocombinazione e io usavo questo per definirmi il ritardo in posizione.
esempio function
Function RitDiPos(nu,pos,ruota)
ReDim apos(5)
ReDim aruote(1)
ReDim aNum(1)
aNum(1) = nu
apos(pos) = True
aruote(1) = ruota
RitDiPos = RitardoCombinazione(ruota,nu,1,0,apos)
End Function
Ciao se incontri difficoltà a capire quello di cui sopra proverò a postarti gli script della discussione.
Ciao e scusa se sto insistendo.
Voglio dirti e spero di spiegarmi se analizzi i 2 script su tutte le ruote, differenti solo nella chiamata delle funzioni turbo e non si verifica un caso strano un ambo a presenza = 13 (41-60) verificato su formazioni veloce del programma (quindi nelle prime posizioni) lo script turbo non lo rileva mentre lo script non turbo si.
Questo mi sembra un po una anomalia strana.
Poi ho notato che la guida leggenda indica la posizione mentre i nuovi codici la ignorano, ti dico questo perchè con le nuovi correzioni non sono + funzionanti il codice Ritardocombinazione e io usavo questo per definirmi il ritardo in posizione.
esempio function
Function RitDiPos(nu,pos,ruota)
ReDim apos(5)
ReDim aruote(1)
ReDim aNum(1)
aNum(1) = nu
apos(pos) = True
aruote(1) = ruota
RitDiPos = RitardoCombinazione(ruota,nu,1,0,apos)
End Function
Ciao se incontri difficoltà a capire quello di cui sopra proverò a postarti gli script della discussione.
Ciao e scusa se sto insistendo.
L
LuigiB
Guest
ciao , per ora ti dico che Ritardocombinazione ha cambiato parametri proprio per via del discorso che facevamo ieri.
Ti ricordi quando dicevamo che il ritardo deve essere calcolato solo sul range impostato dall'utente ?
Ebbene prima non era cosi perche la funzione RitardoCombinazione era cosi
cioè a partire dalll'estrazione indicata da Fine andava indietro e contava il ritardo , e lo faceva anche superando
il valore iniziale del range impostato dall'utente.
ora questa funzione ha cambiato parametri proprio per correggere il problema
è stato necessario inserire il parametro inizio , percio gli script che usano questa funzione devono essere aggiornati.
per il resto ora leggo meglio quello che scrivi
Ti ricordi quando dicevamo che il ritardo deve essere calcolato solo sul range impostato dall'utente ?
Ebbene prima non era cosi perche la funzione RitardoCombinazione era cosi
Codice:
RitardoCombinazione(aRuote,aNumeri,Sorte,Fine,Posizioni , IdArchivio)cioè a partire dalll'estrazione indicata da Fine andava indietro e contava il ritardo , e lo faceva anche superando
il valore iniziale del range impostato dall'utente.
ora questa funzione ha cambiato parametri proprio per correggere il problema
Codice:
RitardoCombinazione(aRuote,aNumeri,Sorte,[B]Inizio[/B],Fine,Posizioni , IdArchivio)è stato necessario inserire il parametro inizio , percio gli script che usano questa funzione devono essere aggiornati.
per il resto ora leggo meglio quello che scrivi
L
LuigiB
Guest
riguardo il caso che dici " turbo e non si verifica un caso strano un ambo a presenza = 13 (41-60) verificato su formazioni veloce del programma (quindi nelle prime posizioni) lo script turbo non lo rileva mentre lo script non turbo si."
dimmi ruota estrazione e range.
per isnserire le immagini non usare lottoced ma carica l'immagine su
Postimage.org - free image hosting / image upload
e poi copia la link e inseriscila nel post rinchiusa tra i tag (img) e(/img)
dove al posto delle tonde ci vogliono le parentesi quadre
dimmi ruota estrazione e range.
per isnserire le immagini non usare lottoced ma carica l'immagine su
Postimage.org - free image hosting / image upload
e poi copia la link e inseriscila nel post rinchiusa tra i tag (img) e(/img)
dove al posto delle tonde ci vogliono le parentesi quadre
L
LuigiB
Guest
mi correggo con la prossima versione 1.3.93
la funxione Ritardo combinazione che era
originale
versione 1.3.92
diventera con la prossima versione 1.3.93
in questo modo gli script che ne facevano uso potranno pure non essere modificati e forniranno gli stessi dati.
la funxione Ritardo combinazione che era
originale
Codice:
RitardoCombinazione(aRuote,aNumeri,Sorte,Fine,Posizioni , IdArchivio)versione 1.3.92
Codice:
RitardoCombinazione(aRuote,aNumeri,Sorte,[B]Inizio[/B],Fine,Posizioni , IdArchivio)diventera con la prossima versione 1.3.93
Codice:
RitardoCombinazione(aRuote,aNumeri,Sorte,Fine,Posizioni , IdArchivio,[B]Inizio[/B])in questo modo gli script che ne facevano uso potranno pure non essere modificati e forniranno gli stessi dati.
Mike58
Advanced Member >PLATINUM PLUS<
Luigi senza farti perdere tempo ti posto i 2 script
1 non turbo verifica ambo ad esempio 41-60 presente 13 volte nel range considerato da inputbox e ruota Tutte.
P.s. Modificato il codice ritardocombinazione inserendo inizio,fine è funzionante
2 script versione Turbo
1 non turbo verifica ambo ad esempio 41-60 presente 13 volte nel range considerato da inputbox e ruota Tutte.
P.s. Modificato il codice ritardocombinazione inserendo inizio,fine è funzionante
Codice:
Sub Main
Dim n1,n2,anum(2)
Dim ruote(1),rt(10)
nStart = Timer
r = InputBox("Quale Ruota",,11)
qt = InputBox("Quante estrazioni",,200)
ruote(1) = r
ReDim atitoli(17)
atitoli(1) = " Data "
atitoli(2) = " Ruota "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = " freq 10 "
atitoli(9) = " Usciti ultima "
atitoli(10) = " RPA USC. "
atitoli(11) = " RP1 "
atitoli(12) = " RP2 "
atitoli(13) = " RP3 "
atitoli(14) = " RP4 "
atitoli(15) = " RP5 "
atitoli(16) = " MED.RT "
atitoli(17) = " Ruota "
Call InitTabella(atitoli,1,,3,5)
Ini = EstrazioneFin - qt ' riga di partenza
fin = EstrazioneFin
df = fin - Ini
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " Totali estraz. " & " Versione non Turbo " & df,1,- 1,3
Scrivi
For x = 1 To 89
n1 = x
For n2 = n1 + 1 To 90
'n2 = y
If n1 <> n2 Then
anum(1) = n1
anum(2) = n2
Messaggio "elaboro... ruota di " & NomeRuota(r) & " " & n1 & "-" & n2
Call AvanzamentoElab(1,11,r)
Call StatAmbo(ruote(1),n1,n2,rit,ritmax,Incrmax,freq,Ini,fin)
'Call StatFrz (anum,ruote,2,rit,ritmax,Incrmax,freq,,Ini,fin)
ReDim avalori(17)
avalori(1) = DataEstrazione(fin)
avalori(2) = NomeRuota(r)
avalori(3) = n1 & "-" & n2
avalori(4) = rit
avalori(5) = ritmax
avalori(6) = Incrmax
avalori(7) = freq
If avalori(4) < 11 And avalori(4) > 0 Then
avalori(8) = n1 & "-" & n2
Else
avalori(8) = " - "
End If
If avalori(4) = 0 Then
avalori(9) = n1 & "-" & n2
Else
avalori(9) = " - "
End If
If avalori(4) = 0 Then
rp1 = SerieRitardo(Ini,fin - 1,anum,ruote,2)
'Call StatFrz (anum,ruote,2,rp1,0,0,0,,Ini,fin - 1)
avalori(10) = rp1
Else
avalori(10) = " - "
End If
'------- calcolo ritardi precedenti------------
ReDim rp(6)
Inizio = EstrazioneFin - qt
fine = EstrazioneFin
somrit = 0
For z = 1 To 6
rp(z) = SerieRitardo(Inizio,fine,anum,ruote,2)
fine = fine -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
avalori(11) = rp(2)
avalori(12) = rp(3)
avalori(13) = rp(4)
avalori(14) = rp(5)
avalori(15) = rp(6)
avalori(16) = Medrit
Next
For rr = 1 To 10
'rt(1) = rr
If AmboRitardo(rr,n1,n2) < 11 Then avalori(17) = SiglaRuota(rr)
'If rit < 11 Then avalori(17) = SiglaRuota(rr)
Next
'Next
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
Call SetColoreCella(7,vbGreen)
Call SetColoreCella(16,7)
If avalori(6) > 0 Then Call SetColoreCella(6,2)
If avalori(4) = 0 Then Call SetColoreCella(17,,2)
End If
Next
Next
Call CreaTabella(7,,,25) ' riga x ordinamento tabella
Scrivi" Tabella by Mike58 ",1,- 1,6
nEnd = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function2 script versione Turbo
Codice:
[/Sub Main
Dim n1,n2,anum(2)
Dim ruote(1),rt(10)
nStart = Timer
r = InputBox("Quale Ruota",,11)
qt = InputBox("Quanti estrazioni",,200)
ruote(1) = r
ReDim atitoli(17)
atitoli(1) = " Data "
atitoli(2) = " Ruota "
atitoli(3) = " Numero "
atitoli(4) = " Ritardo "
atitoli(5) = " Rit Max "
atitoli(6) = " incr Max "
atitoli(7) = " frequenza "
atitoli(8) = " freq 10 "
atitoli(9) = " Usciti ultima "
atitoli(10) = " RPA USC. "
atitoli(11) = " RP1 "
atitoli(12) = " RP2 "
atitoli(13) = " RP3 "
atitoli(14) = " RP4 "
atitoli(15) = " RP5 "
atitoli(16) = " MED.RT "
atitoli(17) = " Ruota "
Call InitTabella(atitoli,1,,3,5)
Ini = EstrazioneFin - qt ' riga di partenza
fin = EstrazioneFin
df = fin - Ini
Scrivi"Dalla data..." & DataEstrazione(Ini) & " alla data..." & DataEstrazione(fin) & " Totali estraz. " & " Versione TURBO " & df,1,- 1,3
Scrivi
For x = 1 To 89
n1 = x
For n2 = n1 + 1 To 90
'n2 = y
If n1 <> n2 Then
anum(1) = n1
anum(2) = n2
Messaggio "elaboro... ruota di " & NomeRuota(r) & " " & n1 & "-" & n2
Call AvanzamentoElab(1,11,r)
Call StatAmboTurbo(ruote(1),n1,n2,rit,ritmax,Incrmax,freq,Ini,fin)
'Call StatFrzTurbo(anum,ruote,2,rit,ritmax,Incrmax,freq,,Ini,fin)
ReDim avalori(17)
avalori(1) = DataEstrazione(fin)
avalori(2) = NomeRuota(r)
avalori(3) = n1 & "-" & n2
avalori(4) = rit
avalori(5) = ritmax
avalori(6) = Incrmax
avalori(7) = freq
If avalori(4) < 11 And avalori(4) > 0 Then
avalori(8) = n1 & "-" & n2
Else
avalori(8) = " - "
End If
If avalori(4) = 0 Then
avalori(9) = n1 & "-" & n2
Else
avalori(9) = " - "
End If
If avalori(4) = 0 Then
rp1 = SerieRitardoTurbo(Ini,fin - 1,anum,ruote,2)
'Call StatFrzTurbo(anum,ruote,2,rp1,0,0,0,,Ini,fin - 1)
avalori(10) = rp1
Else
avalori(10) = " - "
End If
'------- calcolo ritardi precedenti------------
ReDim rp(6)
Inizio = EstrazioneFin - qt
fine = EstrazioneFin
somrit = 0
For z = 1 To 6
rp(z) = SerieRitardoTurbo(Inizio,fine,anum,ruote,2)
fine = fine -(rp(z) + 1)
somrit = somrit + rp(z)
Medrit = Int(somrit/z)
avalori(11) = rp(2)
avalori(12) = rp(3)
avalori(13) = rp(4)
avalori(14) = rp(5)
avalori(15) = rp(6)
avalori(16) = Medrit
Next
For rr = 1 To 10
'rt(1) = rr
If AmboRitardoTurbo(rr,n1,n2) < 11 Then avalori(17) = SiglaRuota(rr)
'If rit < 11 Then avalori(17) = SiglaRuota(rr)
Next
'Next
Call AddRigaTabella(avalori,,,3)
Call SetColoreCella(4,vbMagenta)
Call SetColoreCella(3,,1)
Call SetColoreCella(7,vbGreen)
Call SetColoreCella(16,7)
If avalori(6) > 0 Then Call SetColoreCella(6,2)
If avalori(4) = 0 Then Call SetColoreCella(17,,2)
End If
Next
Next
Call CreaTabella(7,,,25) ' riga x ordinamento tabella
Scrivi" Tabella by Mike58 ",1,- 1,6
nEnd = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend) - nstart))
End Sub
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
CODE]
L
LuigiB
Guest
Ora ho capito , c'era un problema sulla ruota Tutte , il resto funzionava.
Con la versione 1.3.94 si risolve tutto . grazie Mike , appena puoi fai il test con la 1.3 .94
ricordati che la funzioen RitardoCombinazione ora e per sempre sarà cosi
è stato aggiunto il parametro Inizio ma essendo stato posto alla fine i vecchi script che non lo consideravano possono pure non essere
modificati , ricordiamoci pero che in questo caso lasciando le cose come sono anche se funzionera come prima la funzione RitardoCombinazione ritornerà il ritardo calcolato su tutte le estrazioni disponibili e non solo sul range impostato
Con la versione 1.3.94 si risolve tutto . grazie Mike , appena puoi fai il test con la 1.3 .94
ricordati che la funzioen RitardoCombinazione ora e per sempre sarà cosi
Codice:
RitardoCombinazione(aRuote,aNumeri,Sorte,Fine,aPosizioni, IdArchivio,Inizio)è stato aggiunto il parametro Inizio ma essendo stato posto alla fine i vecchi script che non lo consideravano possono pure non essere
modificati , ricordiamoci pero che in questo caso lasciando le cose come sono anche se funzionera come prima la funzione RitardoCombinazione ritornerà il ritardo calcolato su tutte le estrazioni disponibili e non solo sul range impostato
Ultima modifica di un moderatore:
Mike58
Advanced Member >PLATINUM PLUS<
Ciao Luigi, eseguito il test con la versione ultima e tutto coincide, ed anche il ritardo combinazione è funzionante.
Tanta la fatica per arrivare allo scopo ma tantissima la soddisfazione per essere stato utile.
Perciò ti auguro un buon e meritatissimo Natale .
Con un immenso grazie per la tua pazienza.
Ciao Mike
Tanta la fatica per arrivare allo scopo ma tantissima la soddisfazione per essere stato utile.
Perciò ti auguro un buon e meritatissimo Natale .
Con un immenso grazie per la tua pazienza.
Ciao Mike
Ultima modifica:
B
Beppignello
Guest
Per cortesia chiedo conferma, in merito della codifica delle ruote
perchè ho perso il filo, forse, nella lettura.
TUTTE le RUOTE era uguale 11
Nazionale era uguale 12
Attualmente è rimasto invariato o è cambiato qualcosa?
Mentre se ho compreso bene, per tutte le funzioni Turbo nuove, è necessario inserire sempre il parametro
inizio-fine estrazioni?
Grazie per una eventuale risposta.
Buona giornata.
perchè ho perso il filo, forse, nella lettura.
TUTTE le RUOTE era uguale 11
Nazionale era uguale 12
Attualmente è rimasto invariato o è cambiato qualcosa?
Mentre se ho compreso bene, per tutte le funzioni Turbo nuove, è necessario inserire sempre il parametro
inizio-fine estrazioni?
Grazie per una eventuale risposta.
Buona giornata.
L
LuigiB
Guest
ciao , scusate se la messa a punto delle nuove funzioni con l'aiuto di mike , filotto e gli altri ha generato qualche confusione.
Riassumo brevemente ,( cio che scrivo in questo post riassume tutto ciò che c'è da sapere per queste nuove funzioni) :
questa tabellina mostra le funzioni normali e le ripettive turbo
le funzioni turbo accettano gli stessi identici parametri delle loro rispettive non turbo
quindi nei propri script basterà semplicemente cambiare il nome delle funzioni senza bisogno di fare altro
la ruota nazionale è rimasta invariata come pure la ruota di tutte non bisogna modificare nulla
non bisogna fare nulla la nazionale è rimasta 12 e Tutte è ancora 11
nella funzione RitardoCombinazione è stato aggiunto il parametro Inizio
E' stato necessario perche se vogliamo c'era un bug nel senso che questa funzione prima calcolava
il ritardo di una combinazione a partire dalla data specificata andando all'indietro fino a che
era possibile (ovvero fino eventualmente all'estrazione numero 1) , quindi questa funzione
prima non teneva in considerazione il range di analisi specificato dallo script proprio perche
non poteva farlo , gli mancava il parametro Inizio che ora è stato aggiunto.
La nuova firma della funzione è questa
come si vede il nuovo parametro è stato aggiunto alla fine ed essendo opzionale nei propri script che gia si hanno e che adoperavano questa funzione non è necessario cambiare nulla , si comporteranno come prima.
L'uso delle funzioni turbo rende molto piu performanti gli script di statistica.
un saluto a tutti e grazie ancora a chi ha collaborato... visto che oggi è ancora un giorno di festa tanti auguri a tutti.
Riassumo brevemente ,( cio che scrivo in questo post riassume tutto ciò che c'è da sapere per queste nuove funzioni) :
questa tabellina mostra le funzioni normali e le ripettive turbo
le funzioni turbo accettano gli stessi identici parametri delle loro rispettive non turbo
quindi nei propri script basterà semplicemente cambiare il nome delle funzioni senza bisogno di fare altro
la ruota nazionale è rimasta invariata come pure la ruota di tutte non bisogna modificare nulla
non bisogna fare nulla la nazionale è rimasta 12 e Tutte è ancora 11
nella funzione RitardoCombinazione è stato aggiunto il parametro Inizio
E' stato necessario perche se vogliamo c'era un bug nel senso che questa funzione prima calcolava
il ritardo di una combinazione a partire dalla data specificata andando all'indietro fino a che
era possibile (ovvero fino eventualmente all'estrazione numero 1) , quindi questa funzione
prima non teneva in considerazione il range di analisi specificato dallo script proprio perche
non poteva farlo , gli mancava il parametro Inizio che ora è stato aggiunto.
La nuova firma della funzione è questa
Codice:
RitardoCombinazione(aRuote,aNumeri,Sorte, optional Fine, optional aPosizioni, optional IdArchivio, optional Inizio)come si vede il nuovo parametro è stato aggiunto alla fine ed essendo opzionale nei propri script che gia si hanno e che adoperavano questa funzione non è necessario cambiare nulla , si comporteranno come prima.
L'uso delle funzioni turbo rende molto piu performanti gli script di statistica.
un saluto a tutti e grazie ancora a chi ha collaborato... visto che oggi è ancora un giorno di festa tanti auguri a tutti.
Ultima modifica di un moderatore:
B
Beppignello
Guest
Grazie
L
LuigiB
Guest
nella versione 1.3.95 sono state inserite le funzioni
RitardoCombinazioneTurbo
StatisticaGruppoFormazioniTurbo
ciao a tutti
RitardoCombinazioneTurbo
StatisticaGruppoFormazioniTurbo
ciao a tutti
L
LuigiB
Guest
ciao , sono presenti in questa nuova versione 1.3.96
riepilogando :
questo è lo script che ho creato per confrontare i risultati delle funzioni e confrontarli con quelli delle funzioni non turbo
riepilogando :
questo è lo script che ho creato per confrontare i risultati delle funzioni e confrontarli con quelli delle funzioni non turbo
Codice:
Option Explicit
Dim nVoltePerTest
Sub Main
Dim Ini,Fin
ReDim aNum(2)
ReDim aRuote(1)
aNum(1) = 1
aNum(2) = 2
aRuote(1) = 1
Ini = EstrazioneIni
Fin = EstrazioneFin
nVoltePerTest = 1
Call TestStatisticaFormazione(aNum,aRuote,Ini,Fin,True)
Call TestStatisticaFormazione(aNum,aRuote,Ini,Fin,False)
Call Scrivi(String(100,"-"))
Call TestRitardoCombinazione(aNum,aRuote,Ini,Fin,True)
Call TestRitardoCombinazione(aNum,aRuote,Ini,Fin,False)
Call Scrivi(String(100,"-"))
Call TestSerieRitardo(aNum,aRuote,Ini,Fin,2,True)
Call TestSerieRitardo(aNum,aRuote,Ini,Fin,2,False)
Call Scrivi(String(100,"-"))
Call TestSerieStorico(aNum,aRuote,Ini,Fin,2,True)
Call TestSerieStorico(aNum,aRuote,Ini,Fin,2,False)
Call Scrivi(String(100,"-"))
Call TestSerieFrequenza(aNum,aRuote,Ini,Fin,2,True)
Call TestSerieFrequenza(aNum,aRuote,Ini,Fin,2,False)
Call Scrivi(String(100,"-"))
Call TestAmboRitardo(aNum,aRuote(1),Ini,Fin,True)
Call TestAmboRitardo(aNum,aRuote(1),Ini,Fin,False)
Call Scrivi(String(100,"-"))
Call TestAmboFrequenza(aNum,aRuote(1),Ini,Fin,True)
Call TestAmboFrequenza(aNum,aRuote(1),Ini,Fin,False)
Call Scrivi(String(100,"-"))
Call TestAmboStorico(aNum,aRuote(1),Ini,Fin,True)
Call TestAmboStorico(aNum,aRuote(1),Ini,Fin,False)
Call Scrivi(String(100,"-"))
Call TestAmboIncrStorico(aNum,aRuote(1),Ini,Fin,True)
Call TestAmboIncrStorico(aNum,aRuote(1),Ini,Fin,False)
Call Scrivi(String(100,"-"))
Call TestRitardoEstratto(aNum,aRuote(1),Ini,Fin,True)
Call TestRitardoEstratto(aNum,aRuote(1),Ini,Fin,False)
Call Scrivi(String(100,"-"))
Call TestEstrattoRitardo(aNum,aRuote(1),Ini,Fin,True)
Call TestEstrattoRitardo(aNum,aRuote(1),Ini,Fin,False)
Call Scrivi(String(100,"-"))
Call TestEstrattoFrequenza(aNum,aRuote(1),Ini,Fin,True)
Call TestEstrattoFrequenza(aNum,aRuote(1),Ini,Fin,False)
Call Scrivi(String(100,"-"))
Call TestEstrattoStorico(aNum,aRuote(1),Ini,Fin,True)
Call TestEstrattoStorico(aNum,aRuote(1),Ini,Fin,False)
Call Scrivi(String(100,"-"))
Call TestEstrattoIncrStorico(aNum,aRuote(1),Ini,Fin,True)
Call TestEstrattoIncrStorico(aNum,aRuote(1),Ini,Fin,False)
Call Scrivi(String(100,"-"))
Call TestStatisticaGruppoFormazioni(True)
Call TestStatisticaGruppoFormazioni(False)
Call Scrivi(String(100,"-"))
Call TestVerificaEsito(True)
Call TestVerificaEsito(False)
Call Scrivi(String(100,"-"))
Call TestRitPos(Fin,aRuote(1),True)
Call TestRitPos(Fin,aRuote(1),False)
Call Scrivi(String(100,"-"))
Call TestTabAnalitico(Fin,True)
Call TestTabAnalitico(Fin,False)
Call Scrivi(String(100,"-"))
Call TestPosNumeroRit(Fin,aRuote(1),True)
Call TestPosNumeroRit(Fin,aRuote(1),False)
Call Scrivi(String(100,"-"))
End Sub
Sub ScriviRisultati(sNomeFunzione,rit,ritmax,Incrmax,freq,tt)
Call Scrivi(sNomeFunzione & " secondi = " & tt,True)
If rit >= 0 Then Call Scrivi("Rit = " & rit)
If ritmax >= 0 Then Call Scrivi("ritmax = " & ritmax)
If Incrmax >= 0 Then Call Scrivi("Incrmax = " & Incrmax)
If freq >= 0 Then Call Scrivi("freq = " & freq)
Call Scrivi
End Sub
Sub TestStatisticaFormazione(aNum,aRuote,Ini,Fin,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
Call StatisticaFormazioneTurbo(aNum,aRuote,2,rit,ritmax,Incrmax,freq,Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("StatisticaFormazioneTurbo",rit,ritmax,Incrmax,freq,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
Call StatisticaFormazione(aNum,aRuote,2,rit,ritmax,Incrmax,freq,Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("StatisticaFormazione",rit,ritmax,Incrmax,freq,tt)
End If
End Sub
Sub TestSerieRitardo(aNum,aRuote,Ini,Fin,Sorte,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
rit = SerieRitardoTurbo(Ini,Fin,aNum,aRuote,Sorte)
Next
tt = Timer - t
Call ScriviRisultati("SerieRitardoTurbo",rit,- 1,- 1,- 1,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
rit = SerieRitardo(Ini,Fin,aNum,aRuote,Sorte)
Next
tt = Timer - t
Call ScriviRisultati("SerieRitardo",rit,- 1,- 1,- 1,tt)
End If
End Sub
Sub TestSerieStorico(aNum,aRuote,Ini,Fin,Sorte,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
ritmax = SerieStoricoTurbo(Ini,Fin,aNum,aRuote,Sorte)
Next
tt = Timer - t
Call ScriviRisultati("SerieStoricoTurbo",- 1,ritmax,- 1,- 1,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
ritmax = SerieStorico(Ini,Fin,aNum,aRuote,Sorte)
Next
tt = Timer - t
Call ScriviRisultati("SerieStorico",- 1,ritmax,- 1,- 1,tt)
End If
End Sub
Sub TestSerieFrequenza(aNum,aRuote,Ini,Fin,Sorte,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
freq = SerieFreqTurbo(Ini,Fin,aNum,aRuote,Sorte)
Next
tt = Timer - t
Call ScriviRisultati("SerieFrequenzaTurbo",- 1,- 1,- 1,freq,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
freq = SerieFreq(Ini,Fin,aNum,aRuote,Sorte)
Next
tt = Timer - t
Call ScriviRisultati("SerieFrequenza",- 1,- 1,- 1,freq,tt)
End If
End Sub
Sub TestAmboRitardo(aNum,Ruota,Ini,Fin,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
rit = AmboRitardoTurbo(Ruota,aNum(1),aNum(2),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("AmboRitardoTurbo",rit,- 1,- 1,- 1,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
rit = AmboRitardo(Ruota,aNum(1),aNum(2),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("AmboRitardo",rit,- 1,- 1,- 1,tt)
End If
End Sub
Sub TestAmboFrequenza(aNum,Ruota,Ini,Fin,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
freq = AmboFrequenzaTurbo(Ruota,aNum(1),aNum(2),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("AmboFrequenzaTurbo",- 1,- 1,- 1,freq,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
freq = AmboFrequenza(Ruota,aNum(1),aNum(2),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("AmboFrequenza",- 1,- 1,- 1,freq,tt)
End If
End Sub
Sub TestAmboStorico(aNum,Ruota,Ini,Fin,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
ritmax = AmboStoricoTurbo(Ruota,aNum(1),aNum(2),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("AmboStoricoTurbo",- 1,ritmax,- 1,- 1,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
ritmax = AmboStorico(Ruota,aNum(1),aNum(2),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("AmboStorico",- 1,ritmax,- 1,- 1,tt)
End If
End Sub
Sub TestAmboIncrStorico(aNum,Ruota,Ini,Fin,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
Incrmax = AmboIncrStoricoTurbo(Ruota,aNum(1),aNum(2),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("AmboIncrStoricoTurbo",- 1,- 1,Incrmax,- 1,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
Incrmax = AmboIncrStorico(Ruota,aNum(1),aNum(2),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("AmboIncrStorico",- 1,- 1,Incrmax,- 1,tt)
End If
End Sub
Sub TestEstrattoRitardo(aNum,Ruota,Ini,Fin,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
rit = EstrattoRitardoTurbo(Ruota,aNum(1),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("EstrattoRitardoTurbo",rit,- 1,- 1,- 1,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
rit = EstrattoRitardo(Ruota,aNum(1),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("EstrattoRitardo",rit,- 1,- 1,- 1,tt)
End If
End Sub
Sub TestEstrattoFrequenza(aNum,Ruota,Ini,Fin,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
freq = EstrattoFrequenzaTurbo(Ruota,aNum(1),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("EstrattoFrequenzaTurbo",- 1,- 1,- 1,freq,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
freq = EstrattoFrequenza(Ruota,aNum(1),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("EstrattoFrequenza",- 1,- 1,- 1,freq,tt)
End If
End Sub
Sub TestEstrattoStorico(aNum,Ruota,Ini,Fin,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
ritmax = EstrattoStoricoTurbo(Ruota,aNum(1),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("EstrattoStoricoTurbo",- 1,ritmax,- 1,- 1,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
ritmax = EstrattoStorico(Ruota,aNum(1),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("EstrattoStorico",- 1,ritmax,- 1,- 1,tt)
End If
End Sub
Sub TestEstrattoIncrStorico(aNum,Ruota,Ini,Fin,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
Incrmax = EstrattoIncrStoricoTurbo(Ruota,aNum(1),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("EstrattoIncrStoricoTurbo",- 1,- 1,Incrmax,- 1,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
Incrmax = EstrattoIncrStorico(Ruota,aNum(1),Ini,Fin)
Next
tt = Timer - t
Call ScriviRisultati("EstrattoIncrStorico",- 1,- 1,Incrmax,- 1,tt)
End If
End Sub
Sub TestRitardoCombinazione(aNum,aRuote,Ini,Fin,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
rit = RitardoCombinazioneTurbo(aRuote,aNum,2,Fin,,,Ini)
Next
tt = Timer - t
Call ScriviRisultati("RitardoCombinazioneTurbo",rit,- 1,- 1,- 1,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
rit = RitardoCombinazione(aRuote,aNum,2,Fin,,,Ini)
Next
tt = Timer - t
Call ScriviRisultati("RitardoCombinazione",rit,- 1,- 1,- 1,tt)
End If
End Sub
Sub TestStatisticaGruppoFormazioni(bTurbo)
Dim Sorte,Rit,RitMax,Fre,sGruppo,Inizio,Fine,Ruota
Dim k,j,e
Dim t,tt
Dim puntiA,puntiB,punti
ReDim aNumeriA(3)
ReDim aNumeriB(3)
Sorte = 1
Ruota = 1
Inizio = EstrazioneIni
Fine = EstrazioneFin
aNumeriA(1) = 1
aNumeriA(2) = 2
aNumeriA(3) = 3
aNumeriB(1) = 4
aNumeriB(2) = 5
aNumeriB(3) = 6
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
Call AddNumeriToGruppoStatistico(aNumeriA,Ruota)
Call AddNumeriToGruppoStatistico(aNumeriB,Ruota)
Call StatisticaGruppoFormazioniTurbo(Sorte,Rit,RitMax,Fre,sGruppo,Inizio,Fine)
Next
tt = Timer - t
Call ScriviRisultati("StatisticaGruppoFormazioniTurbo",Rit,RitMax,- 1,Fre,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
Call AddNumeriToGruppoStatistico(aNumeriA,Ruota)
Call AddNumeriToGruppoStatistico(aNumeriB,Ruota)
Call StatisticaGruppoFormazioni(Sorte,Rit,RitMax,Fre,sGruppo,Inizio,Fine)
Next
tt = Timer - t
Call ScriviRisultati("StatisticaGruppoFormazioni",Rit,RitMax,- 1,Fre,tt)
End If
End Sub
Sub TestVerificaEsito(bTurbo)
ReDim aNum(4) ' array contenente il pronostico
ReDim aRt(2) ' array contenente le ruote
Dim idEstrInizio ' estrazione da dove comincia la verifica dell'esito
Dim RetEsito ' torna il nome della sorte (estratto , ambo ...ecc)
Dim RetColpi ' torna i colpi impiegti fino al raggiungimento dell'esito
Dim RetEstratti ' torna i numeri estratti
Dim RetIdEstr ' torna lidentificativo numerico dell'estrazione in cui si è avuto l'esito
Dim k
Dim Somma
Dim bEsito
Dim t,tt
'imposto il pronostico da verificare
aNum(1) = 4
aNum(2) = 8
aNum(3) = 12
aNum(4) = 16
' imposto le ruote su cui giocare
aRt(1) = BA_
aRt(2) = RO_
' imposto l'estrazione da dove parte la verifica
idEstrInizio = 5000
t = Timer
For k = 1 To nVoltePerTest
If bTurbo Then
bEsito = VerificaEsitoTurbo(aNum,aRt,idEstrInizio,2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
Else
bEsito = VerificaEsito(aNum,aRt,idEstrInizio,2,,,RetEsito,RetColpi,RetEstratti,RetIdEstr)
End If
Next
tt = Timer - t
If bTurbo Then
Call ScriviRisultati("VerificaEsitoTurbo",- 1,- 1,- 1,- 1,tt)
Else
Call ScriviRisultati("VerificaEsito",- 1,- 1,- 1,- 1,tt)
End If
If bEsito Then
Call Scrivi(GetInfoEstrazione(RetIdEstr) & " " & RetEsito & " colpi : " & RetColpi & " " & RetEstratti)
Else
Call Scrivi("Esito negativo")
End If
End Sub
Sub TestRitardoEstratto(aNum,Ruota,Ini,Fin,bTurbo)
Dim rit,ritmax,Incrmax,freq
Dim t,tt,k
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
rit = RitardoEstrattoTurbo(aNum(1),Fin,Ruota,,,Ini)
Next
tt = Timer - t
Call ScriviRisultati("RitardoEstrattoTurbo",rit,- 1,- 1,- 1,tt)
Else
t = Timer
For k = 1 To nVoltePerTest
rit = RitardoEstratto(aNum(1),Fin,Ruota,,,Ini)
Next
tt = Timer - t
Call ScriviRisultati("RitardoEstratto",rit,- 1,- 1,- 1,tt)
End If
End Sub
Sub TestRitPos(Fin,Ruota,bTurbo)
Dim t,tt
Dim k
Dim r
r = Ruota
If bTurbo Then
t = Timer
For k = 1 To 10
Scrivi("Numero " & Format2(k) & " " & RitPosTurbo(k,r,Fin))
Next
tt = Timer - t
Call ScriviRisultati("RitPosTurbo",- 1,- 1,- 1,- 1,tt)
Else
t = Timer
For k = 1 To 10
Scrivi("Numero " & Format2(k) & " " & RitPos(k,r,Fin))
Next
tt = Timer - t
Call ScriviRisultati("RitPos",- 1,- 1,- 1,- 1,tt)
End If
End Sub
Sub TestTabAnalitico(idEstr,bTurbo)
Dim t,tt
Dim k
Dim PNR
If bTurbo Then
t = Timer
For k = 1 To nVoltePerTest
Call GeneraAnaliticoTurbo(idEstr)
Next
tt = Timer - t
Call ScriviRisultati("GeneraAnaliticoTurbo",- 1,- 1,- 1,- 1,tt)
Call Scrivi(TabelloneAnaliticoTurbo(1,1,1))
Else
t = Timer
For k = 1 To nVoltePerTest
Call GeneraAnalitico(idEstr)
Next
tt = Timer - t
Call ScriviRisultati("GeneraAnalitico ",- 1,- 1,- 1,- 1,tt)
Call Scrivi(TabelloneAnalitico(1,1,1))
End If
End Sub
Sub TestPosNumeroRit(idEstr,Ruota,bTurbo)
Dim r
Dim es
Dim npr,pnr
Dim p
Dim rit
Dim t,tt
Dim sRecord
r = Ruota
es = idEstr
Scrivi NomeRuota(r) & " " & DataEstrazione(es),1
Scrivi
Scrivi "Pos Nu Pos Ritardo"
If bTurbo Then
t = Timer
For p = 1 To 10
npr = NumeroPosRitTurbo(es,r,p)
pnr = PosNumeroRitTurbo(es,r,npr)
rit = RitardoEstrattoTurbo(npr,es,r)
sRecord = Format2(p) & " " & Format2(pnr) & " " & Format2(npr) & " " & FormatSpace(rit,8,True)
Scrivi sRecord
Next
tt = Timer - t
Call ScriviRisultati("NumeroPosRit PosNumeroRit Turbo",- 1,- 1,- 1,- 1,tt)
Else
t = Timer
For p = 1 To 10
npr = NumeroPosRit(es,r,p)
pnr = PosNumeroRit(es,r,npr)
rit = RitardoEstratto(npr,es,r)
sRecord = Format2(p) & " " & Format2(pnr) & " " & Format2(npr) & " " & FormatSpace(rit,8,True)
Scrivi sRecord
Next
tt = Timer - t
Call ScriviRisultati("NumeroPosRit PosNumeroRit",- 1,- 1,- 1,- 1,tt)
End If
End Sub
Ultima modifica di un moderatore:
R
Roby
Guest
Grazie Luigi, alcune formazioni mi danno entrambe 0 secondi (sia turbo che normali)
Ti posto l'output, spero che i ritardi e le frequenze combacino con il tuo
Ti posto l'output, spero che i ritardi e le frequenze combacino con il tuo
Codice:
StatisticaFormazioneTurbo secondi = 0,03125
Rit = 63
ritmax = 1669
Incrmax = 0
freq = 23
StatisticaFormazione secondi = 0,125
Rit = 63
ritmax = 1669
Incrmax = 0
freq = 23
----------------------------------------------------------------------------------------------------
RitardoCombinazioneTurbo secondi = 0
Rit = 63
RitardoCombinazione secondi = 0
Rit = 63
----------------------------------------------------------------------------------------------------
SerieRitardoTurbo secondi = 0
Rit = 63
SerieRitardo secondi = 0,015625
Rit = 63
----------------------------------------------------------------------------------------------------
SerieStoricoTurbo secondi = 0
ritmax = 1669
SerieStorico secondi = 0,015625
ritmax = 1669
----------------------------------------------------------------------------------------------------
SerieFrequenzaTurbo secondi = 0
freq = 23
SerieFrequenza secondi = 0
freq = 23
----------------------------------------------------------------------------------------------------
AmboRitardoTurbo secondi = 0
Rit = 63
AmboRitardo secondi = 0
Rit = 63
----------------------------------------------------------------------------------------------------
AmboFrequenzaTurbo secondi = 0
freq = 23
AmboFrequenza secondi = 0,015625
freq = 23
----------------------------------------------------------------------------------------------------
AmboStoricoTurbo secondi = 0
ritmax = 1669
AmboStorico secondi = 0
ritmax = 1669
----------------------------------------------------------------------------------------------------
AmboIncrStoricoTurbo secondi = 0
Incrmax = 0
AmboIncrStorico secondi = 0,015625
Incrmax = 0
----------------------------------------------------------------------------------------------------
RitardoEstrattoTurbo secondi = 0
Rit = 14
RitardoEstratto secondi = 0
Rit = 14
----------------------------------------------------------------------------------------------------
EstrattoRitardoTurbo secondi = 0
Rit = 31
EstrattoRitardo secondi = 0
Rit = 31
----------------------------------------------------------------------------------------------------
EstrattoFrequenzaTurbo secondi = 0
freq = 460
EstrattoFrequenza secondi = 0,015625
freq = 460
----------------------------------------------------------------------------------------------------
EstrattoStoricoTurbo secondi = 0
ritmax = 90
EstrattoStorico secondi = 0
ritmax = 90
----------------------------------------------------------------------------------------------------
EstrattoIncrStoricoTurbo secondi = 0
Incrmax = 0
EstrattoIncrStorico secondi = 0,015625
Incrmax = 0
----------------------------------------------------------------------------------------------------
StatisticaGruppoFormazioniTurbo secondi = 0
Rit = 4
ritmax = 24
freq = 2813
StatisticaGruppoFormazioni secondi = 0,1875
Rit = 4
ritmax = 24
freq = 2813
----------------------------------------------------------------------------------------------------
VerificaEsitoTurbo secondi = 0
[05004] [ 49] 03.12.1966 Ambo colpi : 5 RO .. .. 12 .. 04
VerificaEsito secondi = 0
[05004] [ 49] 03.12.1966 Ambo colpi : 5 RO .. .. 12 .. 04
----------------------------------------------------------------------------------------------------
Numero 01 2
Numero 02 1
Numero 03 1
Numero 04 1
Numero 05 2
Numero 06 1
Numero 07 1
Numero 08 1
Numero 09 6
Numero 10 1
RitPosTurbo secondi = 0,421875
Numero 01 2
Numero 02 1
Numero 03 1
Numero 04 1
Numero 05 2
Numero 06 1
Numero 07 1
Numero 08 1
Numero 09 6
Numero 10 1
RitPos secondi = 1,5
----------------------------------------------------------------------------------------------------
GeneraAnaliticoTurbo secondi = 0,015625
81
GeneraAnalitico secondi = 0,046875
81
----------------------------------------------------------------------------------------------------
Bari 27.12.2012
Pos Nu Pos Ritardo
01 01 48 90
02 02 18 70
03 03 11 66
04 04 21 61
05 05 65 56
06 06 32 54
07 07 26 50
08 08 39 49
09 09 40 49
10 10 85 48
NumeroPosRit PosNumeroRit Turbo secondi = 0,015625
Bari 27.12.2012
Pos Nu Pos Ritardo
01 01 48 90
02 02 18 70
03 03 11 66
04 04 21 61
05 05 65 56
06 06 32 54
07 07 26 50
08 08 39 49
09 09 40 49
10 10 85 48
NumeroPosRit PosNumeroRit secondi = 0
----------------------------------------------------------------------------------------------------
L
LuigiB
Guest
ciao Black , grazie del test .. è normale quello che dici a proposito del tempo di elaborazione a 0.
Prova a sostituire la riga
nVoltePerTest = 1
con
nVoltePerTest = 100
e vedrai che aumenta.
Riguardo ai valori il controllo da fare è visivo e a meno di errori di confronto a me sembra diano gli stessi risultati , non so se confermi.
un saluto
Prova a sostituire la riga
nVoltePerTest = 1
con
nVoltePerTest = 100
e vedrai che aumenta.
Riguardo ai valori il controllo da fare è visivo e a meno di errori di confronto a me sembra diano gli stessi risultati , non so se confermi.
un saluto
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 18 gennaio 2025Bari2476027212Cagliari2108770417Firenze7484071272Genova1307334718Milano0134095548Napoli4623250306Palermo4407014684Roma8878647404Torino0787673853Venezia3125041802Nazionale4982596567Estrazione Simbolotto
Bari
0313312335
