Novità

INNOVATIVA RICERCA STATISTICA



per i prossimi concorsi

al ritardo 38 eccesso di presenze reali = 8 Teoriche 6 doppia sincronia 55 NA e 35 TO
al ritardo 11 eccesso di presenze reali = 31 Teoriche 29,3294 doppia sincronia 19 MI e 47 TO
al ritardo 10 eccesso di presenze reali = 34 Teoriche 31,0547 doppia sincronia 75 CA e 10 TO

la terzina su TORINO 35 47 10 ha tutte le caratteristiche per vedere estratto almeno 1 dei tre

-------------------------------------------------------------

al ritardo 17 eccesso di presenze 29 reali su 20,8143 teoriche (isocrone), mentre in sincronia doppia a ruota 2 presenze contro 1,6011

RUOTA DI NAPOLI estratti 62 70


---------------------------------------------------------------------------------------------------



per TORINO si può impostare come esempio, quanto segue:




per NAPOLI si può impostare come esempio, quanto segue:

 
Ultima modifica di un moderatore:
Beppignello ok apprezzo la tua miglioria....... addirittura se si potesse esportare in un foglio excel già incolonnato....... sarebbe il massimo!

vincenzo4221 è una questione di tecnica amministrativa delle giocate poche o tante che siano. Uno strumento che può risultare utile al giocatore in caso di più combinazioni, è la ''tecnica degli insiemi''.
Tuttavia, in base alla mia esperienza, è decisamente meglio optare per il gioco di ambata perchè è facile predisporre una strategia di gioco finalizzata all'utile desiderato anche con più combinazioni e i tempi di attesa, inoltre, non sono equiparabili a quelli degli ambi o addirittura dei terni. Poi è ovvio, che per il gioco di ambata occorre un approccio professionale perchè deve essere inteso al pari di un investimento finanziario.
 
Ultima modifica:
Beppignello;n2005817 ha scritto:
Per rendere più elastico e aperta l'elaborazione dello script, della doppia sincronia,

mi sembra una buona idea, che ho avuto, quella di ottemperare la possibilità di fare la scelta

di come esporre i dati dell'output per individuare il sincro-isocronismo.

1) possibilità per default ritardo/frequenza
2) possibilità per scelta utente frequenza/ritardo

i raggruppamenti divengono così più ottimizzati, per arrivare e favorire e facilitare le scelte per realizzare un pronostico soprattutto per isocronismo.


Clicca per espandere...

Beppignello molto bello lo script non appena lo renderai disponibile lo proverò subito
 
Ultima modifica:
Ciao Numerico

volevo un tuo parere,

MA IL 07 A ROMA che fine ha fatto?

è ottimo per sottofrequenza nel lungo periodo, e per somma .

è 2° per ritardo

ma non vuole uscire.

hai una tua idea del perché?


---------------------------------------------------------------------------------

perché LOTTOSOPHIA no ha sviluppato statistiche di Ambi?

per lentezza d'esecuzione non credo, le macro oggi viaggiano
velocissime, con excel.
 
Ultima modifica di un moderatore:
nb: info script

- l'ultima colonna di dx è un semplice test
- il calcolo teorico delle presenze ad un ritardo (X) è sempre un dato teorico, quindi va preso un po come metro non standard, un po a spanne.
sapete che se misuriamo con la spanna di ognuno di noi, otteniamo una quantità diversa, perché la larghezza del nostra mano a dita aperte è molto variabile ed è personale.

ma comunque rende l'idea se c'è un'eccedenza di numeri a quel ritardo.

dopo l'elaborazione si ottiene un output in una tabella ordinabile per colonne, basta cliccare su SI
quando appare a video
Cattura8.JPG


ogni colonna dell'output è cliccabile nella sua intestazione e questa funzione permette di ottenere l'ordinamento ascendente o discendente, ad uso del utente.

tutto questo è possibile grazie a spaziometria di LuigiB e co.


se invece un utente vuole esportare l'output in un foglio excel, può cliccare sull'icona ( X ) che vuol dire excel.
Cattura9.JPG


in fondo all'output le varie combinazioni di ogni ruota vengono raggruppate in un insieme
e suddiviso per le 9 figure numeriche

e ne viene verificato gli esiti per i 13 colpi.

credo di aver spiegato tutto o quasi, di quanto finora preparato.
 
Ultima modifica di un moderatore:
Beppignello;n2005863 ha scritto:
Ciao Numerico

volevo un tuo parere,

MA IL 07 A ROMA che fine ha fatto?

è ottimo per sottofrequenza nel lungo periodo, e per somma .

è 2° per ritardo

ma non vuole uscire.

hai una tua idea del perché?


---------------------------------------------------------------------------------

perché LOTTOSOPHIA no ha sviluppato statistiche di Ambi?

per lentezza d'esecuzione non credo, le macro oggi viaggiano
velocissime, con excel.
Clicca per espandere...

Beppignello in merito agli ambi ti dirò che ho scartato questa sorte a priori dopo aver toccato con mano che è difficilissimo prenderli anche con 6 -7 o più numeri...... ma allora mi sono detto '' perchè non giocare l'ambata che a volte rende di più di un ambo con 7 numeri?' ed è molto più facile che esca anche in tempi brevi?'' Allora ho costruito un programma excel per le mie esigenze che contemplavano la sorte dell'ambata. Voi forse non ci crederete, ma con le ambate ho recuperato di gran lunga tutti i soldi spesi per inseguire i ''sogni'' cioè ambi, terni finanche quaterne e cinquine. Ma è lo scotto del noviziato! Per quanto riguarda il 7 (che tra l'altro sto seguendo anch'io) visto che hai il programma ''Lottosophia'', se guardi nel ''riepilogo classifiche'' nella prima tabella delle graduatorie, vedrai che ha valore 3 e nella terza tabella ha valore 20. Di solito numeri così ostici, capitolano quando il valore nella prima tabella scende a 2 e/o nella terza tabella scende almeno a 17.
 
[/quote]
vedrai che ha valore 3 e nella terza tabella ha valore 20. Di solito numeri così ostici, capitolano quando il valore nella prima tabella scende a 2 e/o nella terza tabella scende almeno a 17.
[/quote]


certo la sorte dell'estratto è la più probabile, anche nella pos. determinata, ma per gli ambi ci farei comunque un pensierino.

è sempre l'analisi dei dati che può e deve essere individuata il range di probabile rottura e comparsa dell'ambo.
certo i tempi sono magari dilatati a 20-40 estrazioni anziché 9-18, come per l'estratto semplice.

ma se ci fossero delle idee precise?


RO...07 18 Fr.010...Ra/rx...0831/1638...E1.069 ...E2.022 % R/X 0.385
RO...07 32 Fr.013...Ra/rx...0443/1055...E1.069 ...E2.014 % R/X 0.597
RO...07 65 Fr.014...Ra/rx...0273/1028...E1.069 ...E2.006 % R/X 0.613
RO...07 66 Fr.008...Ra/rx...0493/2012...E1.069 ...E2.042 % R/X 0.313
RO...07 88 Fr.009...Ra/rx...0635/1153...E1.069 ...E2.000 % R/X 0.546
RO...07 89 Fr.013...Ra/rx...0400/0767...E1.069 ...E2.019 % R/X 0.821
 
script, naturalmente da provare. a me sembra funzionare tutto, quanto spiegato.
certo non è un software, quindi guardare sempre quello che si digita e al limite se compare qualche
errore strano, fate ripartire di nuovo lo script, intanto non succede nulla.

Codice: 
[B]Option[/B] [B]Explicit[/B]
[B]Sub[/B] [B]Main[/B]
       [B]ColoreTesto[/B](1)
       [B]Scrivi[/B] " Appunti  :    Ritardo Tabellone valori riscontrati come storico..dal 1946",1
       [B]Scrivi[/B] " 2 Nr. al Ritardo 84 ",1
       [B]Scrivi[/B] " 3 Nr. al Ritardo 33 ",1
       [B]Scrivi[/B] " 4 Nr. al Ritardo 29 ",1
       [B]Scrivi[/B] " 5 Nr. al Ritardo    ",1
       [B]Scrivi[/B] " 6 Nr. al Ritardo 28 ",1
       [B]Scrivi[/B] " 7 Nr. al Ritardo 22 ",1
       [B]Scrivi[/B] " 8 Nr. al Ritardo 18 ",1
       [B]Scrivi[/B] " 9 Nr. al Ritardo 18 ",1
       [B]Scrivi[/B] "10 Nr. al Ritardo  7 ",1
       [B]Scrivi[/B] "11 Nr. al Ritardo  8 ",1
       [B]ColoreTesto[/B](0)
       [B]Dim[/B] [B]fine[/B],[B]r[/B],[B]n[/B],[B]nn[/B],[B]x[/B],[B]ritardo[/B],[B]frequenza[/B],[B]ix[/B],[B]last[/B],[B]rt[/B],[B]nr[/B],[B]y[/B],[B]retrit[/B],[B]retritmax[/B],[B]retfre[/B],[B]tutti[/B],[B]z[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retesito[/B],[B]retidestr[/B],[B]ruota[/B],[B]ciclo[/B],[B]n1[/B],[B]scelta[/B]
       [B]Dim[/B] [B]stat[/B],[B]ct[/B],[B]ctg[/B],[B]L[/B],[B]xy[/B],[B]m[/B],[B]elenco[/B],[B]Lastr[/B],[B]h[/B],[B]Ini[/B],[B]finale[/B],[B]sor[/B],[B]elenco2[/B],[B]elenco3[/B],[B]minore[/B],[B]maggiore[/B],[B]j[/B],[B]RN[/B],[B]CN[/B],[B]ulteriori[/B],[B]ValTeorico[/B],[B]nretteorico[/B],[B]Aspettabilita[/B],[B]ValTeonRuote[/B]
       [B]Dim[/B] [B]gen[/B](9999999),[B]rag[/B](999,2),[B]ruoterie[/B](12,90),[B]ruotefre[/B](12,90),[B]ruoterae[/B](12,90)
       [B]fine[/B] [B]=[/B] [B]InputBox[/B]("All'estrazione n.",,[B]EstrazioneFin[/B])
       [B]tutti[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Vuoi elenco con quanti numeri ?  ",,1))
       [B]scelta[/B] [B]=[/B] [B]InputBox[/B]("Vuoi output 1=R/F  2=F/R ?",,1)
       [B]ruota[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("0 Lista (Tutte) oppure lista solo di questa ruota",,0))
       [B]stat[/B] [B]=[/B] [B]InputBox[/B]("Aggiungi Ritardi su tutte le ruote ",,"NO")
       [B]sor[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Verifica per sorte ",,1))
       ''''''crea tabella combinazione con doppia sincronia e  sincro-isocronia
       [B]Dim[/B] [B]atitolo[/B](14),[B]aris[/B](14),[B]TabelloneR[/B](250)
       '''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t     e x c e l   ''''''''''''''''''''''''''''''''''''''''''''''
       '''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       [B]If[/B] [B]scelta[/B] [B]=[/B] 1 [B]Then[/B] [B]atitolo[/B](1) [B]=[/B] "Rit. / freq."
       [B]If[/B] [B]scelta[/B] [B]=[/B] 2 [B]Then[/B] [B]atitolo[/B](1) [B]=[/B] "Freq./ Rit. "
       [B]atitolo[/B](2) [B]=[/B] " "
       [B]atitolo[/B](3) [B]=[/B] "Rit.Comb."
       [B]atitolo[/B](4) [B]=[/B] "Rit.Comb.Max"
       [B]atitolo[/B](5) [B]=[/B] "C o m b i n a z i o n i   s u   Ruota/e "
       [B]atitolo[/B](6) [B]=[/B] "Comb.Numeri"
       [B]atitolo[/B](7) [B]=[/B] " "
       [B]atitolo[/B](8) [B]=[/B] "nDoubleSincr."
       [B]atitolo[/B](9) [B]=[/B] "Pr.Teoriche"
       [B]atitolo[/B](10) [B]=[/B] "Attend."
       [B]atitolo[/B](11) [B]=[/B] "  "
       [B]atitolo[/B](12) [B]=[/B] "P.Reali TotTab"
       [B]atitolo[/B](13) [B]=[/B] " Dif.REA>TEO "
       [B]atitolo[/B](14) [B]=[/B] "Teor.11/nRuote"
       [B]SetTableWidth[/B]("90%px")
       [B]Call[/B] [B]InitTabella[/B]([B]atitolo[/B],1,"center",1.50,5,"Cambria")
       [B]Scrivi[/B] " Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       [B]If[/B] [B]scelta[/B] [B]=[/B] 1 [B]Then[/B]
             ''''''''''''''''''''''''''''''''''''''''''
             [B]For[/B] [B]r[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]If[/B] [B]r[/B] [B]<>[/B] 11 [B]Then[/B]
                           [B]For[/B] [B]n1[/B] [B]=[/B] 1 [B]To[/B] 90
                                  [B]retrit[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n1[/B],3950,[B]fine[/B])
                                  [B]TabelloneR[/B]([B]retrit[/B]) [B]=[/B] [B]TabelloneR[/B]([B]retrit[/B]) [B]+[/B] 1
                           [B]Next[/B]
                    [B]End[/B] [B]If[/B]
             [B]Next[/B]
             '''''''''''''''''''''''''''''''''''''''''''
             '''''''loop per calcolare ritardi e frequenze per le 12 ruote in arrays GEN
             '''''''''''è possibile filtrare solo combinazioni della ruota richiesta, mentre lasciando 0 si ottiene prospetto completo
             [B]For[/B] [B]r[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]For[/B] [B]n[/B] [B]=[/B] 1 [B]To[/B] 90
                           [B]If[/B] [B]ruota[/B] [B]=[/B] [B]r[/B] [B]Then[/B]
                                  [B]ritardo[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]frequenza[/B] [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]ix[/B] [B]=[/B] [B]FormattaStringa[/B]([B]ritardo[/B],"000") [B]&[/B] [B]FormattaStringa[/B]([B]frequenza[/B],"0000")
                                  [B]gen[/B]([B]ix[/B]) [B]=[/B] [B]gen[/B]([B]ix[/B]) [B]&[/B] [B]Format2[/B]([B]n[/B]) [B]&[/B] " " [B]&[/B] [B]SiglaRuota[/B]([B]r[/B]) [B]&[/B] [B]Format2[/B]([B]r[/B]) [B]&[/B] " : "
                           [B]End[/B] [B]If[/B]
                           [B]If[/B] [B]ruota[/B] [B]=[/B] 0 [B]Then[/B]
                                  [B]ritardo[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]frequenza[/B] [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]ix[/B] [B]=[/B] [B]FormattaStringa[/B]([B]ritardo[/B],"000") [B]&[/B] [B]FormattaStringa[/B]([B]frequenza[/B],"0000")
                                  [B]gen[/B]([B]ix[/B]) [B]=[/B] [B]gen[/B]([B]ix[/B]) [B]&[/B] [B]Format2[/B]([B]n[/B]) [B]&[/B] " " [B]&[/B] [B]SiglaRuota[/B]([B]r[/B]) [B]&[/B] [B]Format2[/B]([B]r[/B]) [B]&[/B] " : "
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
             [B]Next[/B]
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] " Elenco con numeri > di..." [B]&[/B] [B]tutti[/B],1
             [B]If[/B] [B]ruota[/B] [B]<>[/B] 0 [B]Then[/B] [B]Scrivi[/B] " Lista Combinazioni Rilevate Solo per la Ruota di...." [B]&[/B] [B]NomeRuota[/B]([B]ruota[/B]),1
             [B]If[/B] [B]ruota[/B] [B]=[/B] 0 [B]Then[/B] [B]Scrivi[/B] " Lista Tutte le Combinazioni rilevate....",1
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] " Elenco Numeri in doppia sincronia con ritardo>=ritmax su altre ruote o Fuori Ruote di Rilevamento",1
             [B]Scrivi[/B] " O u t p u t    o r d i n a t o    p e r     R i t a r d o  /  F r e q u e n z a         ( [USER="11025"]Beppignello[/USER] ) ",1
             [B]ColoreTesto[/B](0)
             [B]Scrivi[/B] "_________________________________________________________________________________",1
             '''''loop per stampa lista output delle combinazioni aventi almeno 2 numeri in sincronismo rit/fre
             ''''''''''verifica esito sulle ruote di rilevamento del sincronismo
             [B]Messaggio[/B]("Attendere un attimo, sto elaborando!")
             [B]For[/B] [B]nn[/B] [B]=[/B] 0 [B]To[/B] 9999999
                    [B]If[/B] [B]gen[/B]([B]nn[/B]) [B]<>[/B] "" [B]Then[/B]
                           [B]ReDim[/B] [B]aV2[/B](0),[B]ruote[/B](10),[B]numeri[/B](15)
                           [B]Call[/B] [B]SplitByChar[/B]([B]gen[/B]([B]nn[/B])," : ",[B]aV2[/B])
                           [B]last[/B] [B]=[/B] [B]UBound[/B]([B]aV2[/B])
                           [B]If[/B] [B]last[/B] [B]>[/B] [B]tutti[/B] [B]Then[/B]
                                  [B]xy[/B] [B]=[/B] [B]xy[/B] [B]+[/B] 1
                                  [B]For[/B] [B]y[/B] [B]=[/B] 0 [B]To[/B] [B]last[/B] [B]-[/B] 1
                                        [B]rt[/B] [B]=[/B] [B]Right[/B]([B]aV2[/B]([B]y[/B]),2)
                                        [B]nr[/B] [B]=[/B] [B]Left[/B]([B]aV2[/B]([B]y[/B]),2)
                                        '''carica array ruote e numeri
                                        [B]ruote[/B]([B]y[/B] [B]+[/B] 1) [B]=[/B] [B]rt[/B]
                                        [B]numeri[/B]([B]y[/B] [B]+[/B] 1) [B]=[/B] [B]nr[/B]
                                        [B]rag[/B]([B]xy[/B],1) [B]=[/B] [B]rag[/B]([B]xy[/B],1) [B]&[/B] [B]Format2[/B]([B]nr[/B]) [B]&[/B] "."
                                        [B]rag[/B]([B]xy[/B],2) [B]=[/B] [B]rag[/B]([B]xy[/B],2) [B]&[/B] [B]SiglaRuota[/B]([B]rt[/B]) [B]&[/B] "-"
                                        [B]ruoterie[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]nr[/B]
                                        [B]ruotefre[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]rt[/B],[B]nr[/B],3950,[B]fine[/B])
                                        [B]ruoterae[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]rt[/B],[B]nr[/B],3950,[B]fine[/B])
                                  [B]Next[/B]
                                  [B]ct[/B] [B]=[/B] [B]ct[/B] [B]+[/B] 1
                                  [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]numeri[/B],[B]ruote[/B],1,[B]retrit[/B],[B]retritmax[/B],,,3950,[B]fine[/B])
                                  ''''''accoda record alla tabella
                                  [B]aris[/B](1) [B]=[/B] [B]FormattaStringa[/B]([B]nn[/B],"000 / 0000")
                                  [B]aris[/B](2) [B]=[/B] "  "
                                  [B]aris[/B](3) [B]=[/B] [B]retrit[/B]
                                  [B]aris[/B](4) [B]=[/B] [B]retritmax[/B]
                                  [B]aris[/B](5) [B]=[/B] [B]gen[/B]([B]nn[/B])
                                  [B]aris[/B](6) [B]=[/B] [B]StringaNumeri[/B]([B]numeri[/B],".")
                                  [B]aris[/B](7) [B]=[/B] " "
                                  [B]aris[/B](8) [B]=[/B] [B]last[/B]
                                  '''''''''''''''''''calcola valori teorico e aspettabilità/attendibilità
                                  [B]ValTeorico[/B] [B]=[/B] [B]Round[/B](55[B]*[/B](17[B]/[/B]18)^[B]Int[/B]([B]Left[/B]([B]aris[/B](1),3)),4)
                                  [B]nretteorico[/B] [B]=[/B] [B]ValTeorico[/B]
                                  [B]Aspettabilita[/B] [B]=[/B] [B]Round[/B]([B]last[/B] [B]/[/B]([B]ValTeorico[/B] [B]+[/B] [B]last[/B]),4)
                                  [B]aris[/B](9) [B]=[/B] [B]ValTeorico[/B]
                                  [B]aris[/B](10) [B]=[/B] [B]Aspettabilita[/B]
                                  '''''' aris(11) = Round((ValTeorico/11)*last,4)
                                  [B]aris[/B](11) [B]=[/B] "  "
                                  [B]aris[/B](12) [B]=[/B] [B]TabelloneR[/B]([B]Int[/B]([B]Left[/B]([B]aris[/B](1),3)))
                                  [B]ValTeonRuote[/B] [B]=[/B] [B]Round[/B]((([B]aris[/B](12) [B]/[/B] 11) [B]*[/B] [B]last[/B]),3)
                                  [B]aris[/B](14) [B]=[/B] [B]ValTeonRuote[/B]
                                  [B]If[/B] [B]aris[/B](12) [B]>[/B] [B]Int[/B]([B]aris[/B](9)) [B]Then[/B]
                                        [B]aris[/B](13) [B]=[/B] [B]aris[/B](12) [B]-[/B] [B]Int[/B]([B]aris[/B](9))
                                  [B]Else[/B]
                                        [B]aris[/B](13) [B]=[/B] 0
                                  [B]End[/B] [B]If[/B]
                                  [B]If[/B] [B]stat[/B] [B]<>[/B] "SI" [B]Or[/B] [B]stat[/B] [B]<>[/B] "si" [B]Then[/B]
                                        [B]Call[/B] [B]AddRigaTabella[/B]([B]aris[/B],[B]Bianco_[/B],"left",1)
                                        [B]Call[/B] [B]SetColoreCella[/B](2,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](7,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](11,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](14,[B]RGB[/B](219,219,219),[B]vbBlack[/B])
                                        [B]If[/B] [B]Int[/B]([B]Left[/B]([B]aris[/B](1),3)) [B]>=[/B] [B]Int[/B]([B]aris[/B](4)) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](1,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](4,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](6,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]aris[/B](8) [B]>=[/B] [B]aris[/B](9) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](8,[B]RGB[/B](221,117,214),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](9,[B]RGB[/B](221,117,214),[B]vbWhite[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]aris[/B](12) [B]>[/B] [B]aris[/B](9) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](5,[B]RGB[/B](255,255,198),[B]vbBlack[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](6,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](12,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]Int[/B]([B]aris[/B](13)) [B]>[/B] 0 [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](13,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                        [B]End[/B] [B]If[/B]
                                  [B]End[/B] [B]If[/B]
                                  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                  [B]ColoreTesto[/B](0)
                                  ''''' verifica  esiti
                                  [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]numeri[/B],[B]ruote[/B],[B]fine[/B] [B]+[/B] 1,1,,,,[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                                 [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                        [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                  [B]End[/B] [B]If[/B]
                                  '''''''''''''''''''''''''''''''''''
                                  [B]If[/B] [B]stat[/B] [B]=[/B] "SI" [B]Or[/B] [B]stat[/B] [B]=[/B] "si" [B]Then[/B]
                                        [B]ReDim[/B] [B]ruote[/B](1)
                                        [B]ColoreTesto[/B](2)
                                        [B]ulteriori[/B] [B]=[/B] ""
                                        [B]For[/B] [B]z[/B] [B]=[/B] 1 [B]To[/B] 12
                                               [B]If[/B] [B]z[/B] [B]<>[/B] 11 [B]Then[/B]
                                                      [B]ruote[/B](1) [B]=[/B] [B]z[/B]
                                                      [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]numeri[/B],[B]ruote[/B],1,[B]retrit[/B],[B]retritmax[/B],,,3950,[B]fine[/B])
                                                      [B]If[/B] [B]retrit[/B] [B]>=[/B] [B]retritmax[/B] [B]Then[/B]
                                                            [B]ulteriori[/B] [B]=[/B] [B]ulteriori[/B] [B]&[/B] [B]SiglaRuota[/B]([B]z[/B]) [B]&[/B] ".." [B]&[/B] [B]FormattaStringa[/B]([B]retrit[/B],"000") [B]&[/B] "/" [B]&[/B] [B]FormattaStringa[/B]([B]retritmax[/B],"000")
                                                            [B]Scrivi[/B] "------> " [B]&[/B] [B]SiglaRuota[/B]([B]z[/B]) [B]&[/B] " " [B]&[/B] [B]FormattaStringa[/B]([B]retrit[/B],"000") [B]&[/B] "/" [B]&[/B] [B]FormattaStringa[/B]([B]retritmax[/B],"000") [B]&[/B] "...." [B]&[/B] [B]gen[/B]([B]nn[/B]),1
                                                      [B]End[/B] [B]If[/B]
                                               [B]End[/B] [B]If[/B]
                                        [B]Next[/B]
                                  [B]End[/B] [B]If[/B]
                           [B]End[/B] [B]If[/B]
                    [B]End[/B] [B]If[/B]
             [B]Next[/B]
             [B]Scrivi[/B] "_________________________________________________________________________________",1
             [B]Scrivi[/B] " Totale combinazioni trovate..." [B]&[/B] [B]ct[/B]
             [B]Scrivi[/B] " Totale Combinazioni vincenti.." [B]&[/B] [B]ctg[/B]
             [B]Scrivi[/B] "-------------------------------------------------",1
             [B]Call[/B] [B]CreaTabellaOrdinabile[/B](1)
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] "Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
             [B]ColoreTesto[/B](0)
             [B]Scrivi[/B] "______________________________________________________________________________________________",1
             [B]Scrivi[/B] "______________________________________________________________________________________________",1
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] "Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
             [B]Scrivi[/B] "R i e p i l o g o   R u o t e      Combinazione Completa  e  Suddivisione per Figura   ",1
             [B]ColoreTesto[/B](0)
             '''''''loop riepilogo di tutti i numeri rilevati sulle 12 ruote
             ''''''''''''verifica esito nelle lunghe ottenute per ogni ruota
             [B]For[/B] [B]L[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]elenco[/B] [B]=[/B] "":[B]elenco2[/B] [B]=[/B] "":[B]elenco3[/B] [B]=[/B] "":[B]minore[/B] [B]=[/B] "":[B]maggiore[/B] [B]=[/B] ""
                    [B]ReDim[/B] [B]ele[/B](9)
                    [B]For[/B] [B]m[/B] [B]=[/B] 1 [B]To[/B] 90
                           [B]If[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]>[/B] 0 [B]Then[/B]
                                  [B]ele[/B]([B]Figura[/B]([B]m[/B])) [B]=[/B] [B]ele[/B]([B]Figura[/B]([B]m[/B])) [B]&[/B] [B]Format2[/B]([B]m[/B]) [B]&[/B] "."
                                  [B]elenco[/B] [B]=[/B] [B]elenco[/B] [B]&[/B] [B]FormattaStringa[/B]([B]ruoterie[/B]([B]L[/B],[B]m[/B])," 00") [B]&[/B] "."
                                  [B]If[/B] [B]ruoterae[/B]([B]L[/B],[B]m[/B]) [B]<[/B] 19 [B]Then[/B]
                                        [B]minore[/B] [B]=[/B] [B]minore[/B] [B]&[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]&[/B] "."
                                  [B]Else[/B]
                                        [B]maggiore[/B] [B]=[/B] [B]maggiore[/B] [B]&[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]&[/B] "."
                                  [B]End[/B] [B]If[/B]
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
                    [B]ColoreTesto[/B](7)
                    [B]Scrivi[/B] "_______________________________________________________________________________________________________________________________________________________",1
                    [B]Scrivi[/B] "-" [B]&[/B] [B]SiglaRuota[/B]([B]L[/B]) [B]&[/B] ".....nr.." [B]&[/B] [B]elenco[/B],1
                    [B]ColoreTesto[/B](2)
                    [B]Scrivi[/B] "----" [B]&[/B] [B]minore[/B] [B]&[/B] "           " [B]&[/B] [B]maggiore[/B],1
                    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''verifica esiti intera combinazione in elenco
                    [B]ReDim[/B] [B]aV[/B](0),[B]ruo[/B](2),[B]av5[/B](50)
                    [B]Call[/B] [B]SplitByChar[/B]([B]elenco[/B],".",[B]aV[/B])
                    [B]Lastr[/B] [B]=[/B] [B]UBound[/B]([B]aV[/B])
                    [B]For[/B] [B]h[/B] [B]=[/B] 0 [B]To[/B] [B]Lastr[/B] [B]-[/B] 1
                           [B]av5[/B]([B]h[/B] [B]+[/B] 1) [B]=[/B] [B]aV[/B]([B]h[/B])
                    [B]Next[/B]
                    [B]ruo[/B](1) [B]=[/B] [B]L[/B]
                    [B]Ini[/B] [B]=[/B] [B]fine[/B]
                    [B]finale[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 24
                    [B]For[/B] [B]Ini[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 1 [B]To[/B] [B]finale[/B]
                           ''''' verifica  esiti
                           [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]av5[/B],[B]ruo[/B],[B]Ini[/B],[B]sor[/B],1,,[B]retesito[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                           [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                  [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                  [B]ColoreTesto[/B](1)
                                  [B]If[/B] [B]retesito[/B] [B]=[/B] "Ambo" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Terno" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Quaterna" [B]Then[/B]
                                        [B]ColoreTesto[/B](2)
                                  [B]End[/B] [B]If[/B]
                                  [B]Scrivi[/B] "<-------colpo n.-> " [B]&[/B] [B]Format2[/B]([B]retidestr[/B] [B]-[/B]([B]fine[/B])) [B]&[/B] ".....usc.estr.." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "    " [B]&[/B] [B]retesito[/B],1
                                  [B]ColoreTesto[/B](0)
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
                    [B]ColoreTesto[/B](0)
                    [B]Scrivi[/B] " ||||||||||||||||||||||||" [B]&[/B] [B]SiglaRuota[/B]([B]ruo[/B](1)) [B]&[/B] "|||||||||||||||||||||||v e r i f i c a  comb. In Figura|||||||||||||||||||||||||||||||||||||||||||||",1
                    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''verifica esiti combinazione solo relativa alle 9 figure
                    [B]For[/B] [B]j[/B] [B]=[/B] 1 [B]To[/B] 9
                           [B]ColoreTesto[/B](0)
                           [B]If[/B] [B]ele[/B]([B]j[/B]) [B]<>[/B] "" [B]Then[/B] [B]Scrivi[/B] " Figura " [B]&[/B] [B]j[/B] [B]&[/B] "    " [B]&[/B] [B]ele[/B]([B]j[/B]),1
                           [B]ReDim[/B] [B]aV[/B](0),[B]ruo[/B](2),[B]av5[/B](50)
                           [B]Call[/B] [B]SplitByChar[/B]([B]ele[/B]([B]j[/B]),".",[B]aV[/B])
                           [B]Lastr[/B] [B]=[/B] [B]UBound[/B]([B]aV[/B])
                           [B]For[/B] [B]h[/B] [B]=[/B] 0 [B]To[/B] [B]Lastr[/B] [B]-[/B] 1
                                  [B]av5[/B]([B]h[/B] [B]+[/B] 1) [B]=[/B] [B]aV[/B]([B]h[/B])
                           [B]Next[/B]
                           [B]ruo[/B](1) [B]=[/B] [B]L[/B]
                           [B]Ini[/B] [B]=[/B] [B]fine[/B]
                           [B]finale[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 13
                           [B]For[/B] [B]Ini[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 1 [B]To[/B] [B]finale[/B]
                                  ''''' verifica  esiti
                                  [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]av5[/B],[B]ruo[/B],[B]Ini[/B],[B]sor[/B],1,,[B]retesito[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                                  [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                        [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                        [B]ColoreTesto[/B](1)
                                        [B]If[/B] [B]retesito[/B] [B]=[/B] "Ambo" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Terno" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Quaterna" [B]Then[/B]
                                               [B]ColoreTesto[/B](2)
                                        [B]End[/B] [B]If[/B]
                                        [B]Scrivi[/B] "<-------colpo n.-> " [B]&[/B] [B]Format2[/B]([B]retidestr[/B] [B]-[/B]([B]fine[/B])) [B]&[/B] ".....usc.estr.." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "    " [B]&[/B] [B]retesito[/B],1
                                        [B]ColoreTesto[/B](0)
                                  [B]End[/B] [B]If[/B]
                           [B]Next[/B]
                           ''''''''''''''
                    [B]Next[/B]
             [B]Next[/B]
             '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
             ''''
       [B]Else[/B]
             [B]Scrivi[/B] " O u t p u t    o r d i n a t o    p e r    F r e q u e n z a   /  R i t a r d o         ( [USER="11025"]Beppignello[/USER] )    ",1
             ''''
             [B]For[/B] [B]r[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]If[/B] [B]r[/B] [B]<>[/B] 11 [B]Then[/B]
                           [B]For[/B] [B]n1[/B] [B]=[/B] 1 [B]To[/B] 90
                                  [B]retrit[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n1[/B],3950,[B]fine[/B])
                                  [B]TabelloneR[/B]([B]retrit[/B]) [B]=[/B] [B]TabelloneR[/B]([B]retrit[/B]) [B]+[/B] 1
                           [B]Next[/B]
                    [B]End[/B] [B]If[/B]
             [B]Next[/B]
             '''''''''''''''''''''''''''''''''''''''''''
             '''''''loop per calcolare ritardi e frequenze per le 12 ruote in arrays GEN
             '''''''''''è possibile filtrare solo combinazioni della ruota richiesta, mentre lasciando 0 si ottiene prospetto completo
             [B]For[/B] [B]r[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]For[/B] [B]n[/B] [B]=[/B] 1 [B]To[/B] 90
                           [B]If[/B] [B]ruota[/B] [B]=[/B] [B]r[/B] [B]Then[/B]
                                  [B]ritardo[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]frequenza[/B] [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]ix[/B] [B]=[/B] [B]FormattaStringa[/B]([B]frequenza[/B],"0000") [B]&[/B] [B]FormattaStringa[/B]([B]ritardo[/B],"000")
                                  [B]gen[/B]([B]ix[/B]) [B]=[/B] [B]gen[/B]([B]ix[/B]) [B]&[/B] [B]Format2[/B]([B]n[/B]) [B]&[/B] " " [B]&[/B] [B]SiglaRuota[/B]([B]r[/B]) [B]&[/B] [B]Format2[/B]([B]r[/B]) [B]&[/B] " : "
                           [B]End[/B] [B]If[/B]
                           [B]If[/B] [B]ruota[/B] [B]=[/B] 0 [B]Then[/B]
                                  [B]ritardo[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]frequenza[/B] [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]ix[/B] [B]=[/B] [B]FormattaStringa[/B]([B]frequenza[/B],"0000") [B]&[/B] [B]FormattaStringa[/B]([B]ritardo[/B],"000")
                                  [B]gen[/B]([B]ix[/B]) [B]=[/B] [B]gen[/B]([B]ix[/B]) [B]&[/B] [B]Format2[/B]([B]n[/B]) [B]&[/B] " " [B]&[/B] [B]SiglaRuota[/B]([B]r[/B]) [B]&[/B] [B]Format2[/B]([B]r[/B]) [B]&[/B] " : "
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
             [B]Next[/B]
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] " Elenco con numeri > di..." [B]&[/B] [B]tutti[/B],1
             [B]If[/B] [B]ruota[/B] [B]<>[/B] 0 [B]Then[/B] [B]Scrivi[/B] " Lista Combinazioni Rilevate Solo per la Ruota di...." [B]&[/B] [B]NomeRuota[/B]([B]ruota[/B]),1
             [B]If[/B] [B]ruota[/B] [B]=[/B] 0 [B]Then[/B] [B]Scrivi[/B] " Lista Tutte le Combinazioni rilevate....",1
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] " Elenco Numeri in doppia sincronia con ritardo>=ritmax su altre ruote o Fuori Ruote di Rilevamento",1
             [B]ColoreTesto[/B](0)
             [B]Scrivi[/B] "_________________________________________________________________________________",1
             '''''loop per stampa lista output delle combinazioni aventi almeno 2 numeri in sincronismo rit/fre
             ''''''''''verifica esito sulle ruote di rilevamento del sincronismo
             [B]Messaggio[/B]("Attendere un attimo, sto elaborando!")
             [B]For[/B] [B]nn[/B] [B]=[/B] 0 [B]To[/B] 9999999
                    [B]If[/B] [B]gen[/B]([B]nn[/B]) [B]<>[/B] "" [B]Then[/B]
                           [B]ReDim[/B] [B]aV2[/B](0),[B]ruote[/B](10),[B]numeri[/B](15)
                           [B]Call[/B] [B]SplitByChar[/B]([B]gen[/B]([B]nn[/B])," : ",[B]aV2[/B])
                           [B]last[/B] [B]=[/B] [B]UBound[/B]([B]aV2[/B])
                           [B]If[/B] [B]last[/B] [B]>[/B] [B]tutti[/B] [B]Then[/B]
                                  [B]xy[/B] [B]=[/B] [B]xy[/B] [B]+[/B] 1
                                  [B]For[/B] [B]y[/B] [B]=[/B] 0 [B]To[/B] [B]last[/B] [B]-[/B] 1
                                        [B]rt[/B] [B]=[/B] [B]Right[/B]([B]aV2[/B]([B]y[/B]),2)
                                        [B]nr[/B] [B]=[/B] [B]Left[/B]([B]aV2[/B]([B]y[/B]),2)
                                        '''carica array ruote e numeri
                                        [B]ruote[/B]([B]y[/B] [B]+[/B] 1) [B]=[/B] [B]rt[/B]
                                        [B]numeri[/B]([B]y[/B] [B]+[/B] 1) [B]=[/B] [B]nr[/B]
                                        [B]rag[/B]([B]xy[/B],1) [B]=[/B] [B]rag[/B]([B]xy[/B],1) [B]&[/B] [B]Format2[/B]([B]nr[/B]) [B]&[/B] "."
                                        [B]rag[/B]([B]xy[/B],2) [B]=[/B] [B]rag[/B]([B]xy[/B],2) [B]&[/B] [B]SiglaRuota[/B]([B]rt[/B]) [B]&[/B] "-"
                                        [B]ruoterie[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]nr[/B]
                                        [B]ruotefre[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]rt[/B],[B]nr[/B],3950,[B]fine[/B])
                                        [B]ruoterae[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]rt[/B],[B]nr[/B],3950,[B]fine[/B])
                                  [B]Next[/B]
                                  [B]ct[/B] [B]=[/B] [B]ct[/B] [B]+[/B] 1
                                  [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]numeri[/B],[B]ruote[/B],1,[B]retrit[/B],[B]retritmax[/B],,,3950,[B]fine[/B])
                                  ''''''accoda record alla tabella
                                  [B]aris[/B](1) [B]=[/B] [B]FormattaStringa[/B]([B]nn[/B],"0000 / 000")
                                  [B]aris[/B](2) [B]=[/B] "  "
                                  [B]aris[/B](3) [B]=[/B] [B]retrit[/B]
                                  [B]aris[/B](4) [B]=[/B] [B]retritmax[/B]
                                  [B]aris[/B](5) [B]=[/B] [B]gen[/B]([B]nn[/B])
                                  [B]aris[/B](6) [B]=[/B] [B]StringaNumeri[/B]([B]numeri[/B],".")
                                  [B]aris[/B](7) [B]=[/B] " "
                                  [B]aris[/B](8) [B]=[/B] [B]last[/B]
                                  '''''''''''''''''''calcola valori teorico e aspettabilità/attendibilità
                                  [B]ValTeorico[/B] [B]=[/B] [B]Round[/B](55[B]*[/B](17[B]/[/B]18)^[B]Int[/B]([B]Right[/B]([B]aris[/B](1),3)),4)
                                  [B]nretteorico[/B] [B]=[/B] [B]ValTeorico[/B]
                                  [B]Aspettabilita[/B] [B]=[/B] [B]Round[/B]([B]last[/B] [B]/[/B]([B]ValTeorico[/B] [B]+[/B] [B]last[/B]),4)
                                  [B]aris[/B](9) [B]=[/B] [B]ValTeorico[/B]
                                 [B]aris[/B](10) [B]=[/B] [B]Aspettabilita[/B]
                                  [B]aris[/B](11) [B]=[/B] "  "
                                  [B]aris[/B](12) [B]=[/B] [B]TabelloneR[/B]([B]Int[/B]([B]Right[/B]([B]aris[/B](1),3)))
                                  [B]ValTeonRuote[/B] [B]=[/B] [B]Round[/B]((([B]aris[/B](12) [B]/[/B] 11) [B]*[/B] [B]last[/B]),3)
                                  [B]aris[/B](14) [B]=[/B] [B]ValTeonRuote[/B]
                                  [B]If[/B] [B]aris[/B](12) [B]>[/B] [B]Int[/B]([B]aris[/B](9)) [B]Then[/B]
                                        [B]aris[/B](13) [B]=[/B] [B]aris[/B](12) [B]-[/B] [B]Int[/B]([B]aris[/B](9))
                                  [B]Else[/B]
                                        [B]aris[/B](13) [B]=[/B] 0
                                  [B]End[/B] [B]If[/B]
                                  [B]If[/B] [B]stat[/B] [B]<>[/B] "SI" [B]Or[/B] [B]stat[/B] [B]<>[/B] "si" [B]Then[/B]
                                        [B]Call[/B] [B]AddRigaTabella[/B]([B]aris[/B],[B]Bianco_[/B],"left",1)
                                        [B]Call[/B] [B]SetColoreCella[/B](2,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](7,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](11,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](14,[B]RGB[/B](219,219,219),[B]vbBlack[/B])
                                        [B]If[/B] [B]Int[/B]([B]Right[/B]([B]aris[/B](1),3)) [B]>=[/B] [B]Int[/B]([B]aris[/B](4)) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](1,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](4,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](6,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]aris[/B](8) [B]>=[/B] [B]aris[/B](9) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](8,[B]RGB[/B](221,117,214),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](9,[B]RGB[/B](221,117,214),[B]vbWhite[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]aris[/B](12) [B]>[/B] [B]aris[/B](9) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](5,[B]RGB[/B](255,255,198),[B]vbBlack[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](6,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](12,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]Int[/B]([B]aris[/B](13)) [B]>[/B] 0 [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](13,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                        [B]End[/B] [B]If[/B]
                                  [B]End[/B] [B]If[/B]
                                  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                  [B]ColoreTesto[/B](0)
                                  ''''' verifica  esiti
                                  [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]numeri[/B],[B]ruote[/B],[B]fine[/B] [B]+[/B] 1,1,,,,[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                                  [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                        [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                  [B]End[/B] [B]If[/B]
                                  '''''''''''''''''''''''''''''''''''
                                  [B]If[/B] [B]stat[/B] [B]=[/B] "SI" [B]Or[/B] [B]stat[/B] [B]=[/B] "si" [B]Then[/B]
                                        [B]ReDim[/B] [B]ruote[/B](1)
                                        [B]ColoreTesto[/B](2)
                                        [B]ulteriori[/B] [B]=[/B] ""
                                        [B]For[/B] [B]z[/B] [B]=[/B] 1 [B]To[/B] 12
                                               [B]If[/B] [B]z[/B] [B]<>[/B] 11 [B]Then[/B]
                                                      [B]ruote[/B](1) [B]=[/B] [B]z[/B]
                                                      [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]numeri[/B],[B]ruote[/B],1,[B]retrit[/B],[B]retritmax[/B],,,3950,[B]fine[/B])
                                                      [B]If[/B] [B]retrit[/B] [B]>=[/B] [B]retritmax[/B] [B]Then[/B]
                                                            [B]ulteriori[/B] [B]=[/B] [B]ulteriori[/B] [B]&[/B] [B]SiglaRuota[/B]([B]z[/B]) [B]&[/B] ".." [B]&[/B] [B]FormattaStringa[/B]([B]retrit[/B],"000") [B]&[/B] "/" [B]&[/B] [B]FormattaStringa[/B]([B]retritmax[/B],"000")
                                                            [B]Scrivi[/B] "------> " [B]&[/B] [B]SiglaRuota[/B]([B]z[/B]) [B]&[/B] " " [B]&[/B] [B]FormattaStringa[/B]([B]retrit[/B],"000") [B]&[/B] "/" [B]&[/B] [B]FormattaStringa[/B]([B]retritmax[/B],"000") [B]&[/B] "...." [B]&[/B] [B]gen[/B]([B]nn[/B]),1
                                                      [B]End[/B] [B]If[/B]
                                               [B]End[/B] [B]If[/B]
                                        [B]Next[/B]
                                  [B]End[/B] [B]If[/B]
                           [B]End[/B] [B]If[/B]
                    [B]End[/B] [B]If[/B]
             [B]Next[/B]
             [B]Scrivi[/B] "_________________________________________________________________________________",1
             [B]Scrivi[/B] " Totale combinazioni trovate..." [B]&[/B] [B]ct[/B]
             [B]Scrivi[/B] " Totale Combinazioni vincenti.." [B]&[/B] [B]ctg[/B]
             [B]Scrivi[/B] "-------------------------------------------------",1
             [B]Call[/B] [B]CreaTabellaOrdinabile[/B](1)
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] "Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
             [B]ColoreTesto[/B](0)
             [B]Scrivi[/B] "______________________________________________________________________________________________",1
             [B]Scrivi[/B] "______________________________________________________________________________________________",1
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] "Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
             [B]Scrivi[/B] "R i e p i l o g o   R u o t e      Combinazione Completa  e  Suddivisione per Figura   ",1
             [B]ColoreTesto[/B](0)
             '''''''loop riepilogo di tutti i numeri rilevati sulle 12 ruote
             ''''''''''''verifica esito nelle lunghe ottenute per ogni ruota
             [B]For[/B] [B]L[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]elenco[/B] [B]=[/B] "":[B]elenco2[/B] [B]=[/B] "":[B]elenco3[/B] [B]=[/B] "":[B]minore[/B] [B]=[/B] "":[B]maggiore[/B] [B]=[/B] ""
                    [B]ReDim[/B] [B]ele[/B](9)
                    [B]For[/B] [B]m[/B] [B]=[/B] 1 [B]To[/B] 90
                           [B]If[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]>[/B] 0 [B]Then[/B]
                                  [B]ele[/B]([B]Figura[/B]([B]m[/B])) [B]=[/B] [B]ele[/B]([B]Figura[/B]([B]m[/B])) [B]&[/B] [B]Format2[/B]([B]m[/B]) [B]&[/B] "."
                                  [B]elenco[/B] [B]=[/B] [B]elenco[/B] [B]&[/B] [B]FormattaStringa[/B]([B]ruoterie[/B]([B]L[/B],[B]m[/B])," 00") [B]&[/B] "."
                                  [B]If[/B] [B]ruoterae[/B]([B]L[/B],[B]m[/B]) [B]<[/B] 19 [B]Then[/B]
                                        [B]minore[/B] [B]=[/B] [B]minore[/B] [B]&[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]&[/B] "."
                                  [B]Else[/B]
                                        [B]maggiore[/B] [B]=[/B] [B]maggiore[/B] [B]&[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]&[/B] "."
                                  [B]End[/B] [B]If[/B]
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
                    [B]ColoreTesto[/B](7)
                    [B]Scrivi[/B] "_______________________________________________________________________________________________________________________________________________________",1
                    [B]Scrivi[/B] "-" [B]&[/B] [B]SiglaRuota[/B]([B]L[/B]) [B]&[/B] ".....nr.." [B]&[/B] [B]elenco[/B],1
                    [B]ColoreTesto[/B](2)
                    [B]Scrivi[/B] "----" [B]&[/B] [B]minore[/B] [B]&[/B] "           " [B]&[/B] [B]maggiore[/B],1
                    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''verifica esiti intera combinazione in elenco
                    [B]ReDim[/B] [B]aV[/B](0),[B]ruo[/B](2),[B]av5[/B](50)
                    [B]Call[/B] [B]SplitByChar[/B]([B]elenco[/B],".",[B]aV[/B])
                    [B]Lastr[/B] [B]=[/B] [B]UBound[/B]([B]aV[/B])
                    [B]For[/B] [B]h[/B] [B]=[/B] 0 [B]To[/B] [B]Lastr[/B] [B]-[/B] 1
                           [B]av5[/B]([B]h[/B] [B]+[/B] 1) [B]=[/B] [B]aV[/B]([B]h[/B])
                    [B]Next[/B]
                    [B]ruo[/B](1) [B]=[/B] [B]L[/B]
                    [B]Ini[/B] [B]=[/B] [B]fine[/B]
                    [B]finale[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 24
                    [B]For[/B] [B]Ini[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 1 [B]To[/B] [B]finale[/B]
                           ''''' verifica  esiti
                           [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]av5[/B],[B]ruo[/B],[B]Ini[/B],[B]sor[/B],1,,[B]retesito[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                           [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                  [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                  [B]ColoreTesto[/B](1)
                                  [B]If[/B] [B]retesito[/B] [B]=[/B] "Ambo" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Terno" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Quaterna" [B]Then[/B]
                                        [B]ColoreTesto[/B](2)
                                  [B]End[/B] [B]If[/B]
                                  [B]Scrivi[/B] "<-------colpo n.-> " [B]&[/B] [B]Format2[/B]([B]retidestr[/B] [B]-[/B]([B]fine[/B])) [B]&[/B] ".....usc.estr.." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "    " [B]&[/B] [B]retesito[/B],1
                                  [B]ColoreTesto[/B](0)
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
                    [B]ColoreTesto[/B](0)
                    [B]Scrivi[/B] " ||||||||||||||||||||||||" [B]&[/B] [B]SiglaRuota[/B]([B]ruo[/B](1)) [B]&[/B] "|||||||||||||||||||||||v e r i f i c a  comb. In Figura|||||||||||||||||||||||||||||||||||||||||||||",1
                    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''verifica esiti combinazione solo relativa alle 9 figure
                    [B]For[/B] [B]j[/B] [B]=[/B] 1 [B]To[/B] 9
                           [B]ColoreTesto[/B](0)
                           [B]If[/B] [B]ele[/B]([B]j[/B]) [B]<>[/B] "" [B]Then[/B] [B]Scrivi[/B] " Figura " [B]&[/B] [B]j[/B] [B]&[/B] "    " [B]&[/B] [B]ele[/B]([B]j[/B]),1
                           [B]ReDim[/B] [B]aV[/B](0),[B]ruo[/B](2),[B]av5[/B](50)
                           [B]Call[/B] [B]SplitByChar[/B]([B]ele[/B]([B]j[/B]),".",[B]aV[/B])
                           [B]Lastr[/B] [B]=[/B] [B]UBound[/B]([B]aV[/B])
                           [B]For[/B] [B]h[/B] [B]=[/B] 0 [B]To[/B] [B]Lastr[/B] [B]-[/B] 1
                                  [B]av5[/B]([B]h[/B] [B]+[/B] 1) [B]=[/B] [B]aV[/B]([B]h[/B])
                           [B]Next[/B]
                           [B]ruo[/B](1) [B]=[/B] [B]L[/B]
                           [B]Ini[/B] [B]=[/B] [B]fine[/B]
                           [B]finale[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 13
                           [B]For[/B] [B]Ini[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 1 [B]To[/B] [B]finale[/B]
                                  ''''' verifica  esiti
                                  [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]av5[/B],[B]ruo[/B],[B]Ini[/B],[B]sor[/B],1,,[B]retesito[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                                  [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                        [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                        [B]ColoreTesto[/B](1)
                                        [B]If[/B] [B]retesito[/B] [B]=[/B] "Ambo" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Terno" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Quaterna" [B]Then[/B]
                                               [B]ColoreTesto[/B](2)
                                        [B]End[/B] [B]If[/B]
                                        [B]Scrivi[/B] "<-------colpo n.-> " [B]&[/B] [B]Format2[/B]([B]retidestr[/B] [B]-[/B]([B]fine[/B])) [B]&[/B] ".....usc.estr.." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "    " [B]&[/B] [B]retesito[/B],1
                                        [B]ColoreTesto[/B](0)
                                  [B]End[/B] [B]If[/B]
                           [B]Next[/B]
                           ''''''''''''''
                    [B]Next[/B]
             [B]Next[/B]
       [B]End[/B] [B]If[/B]
[B]End[/B] [B]Sub[/B]
 
isabel;n2005870 ha scritto:
Ciao numerico, ho letto con interesse i tuoi interventi. Relativamente al gioco di ambata, mi puoi chiarire in concreto il tuo concetto di "approccio professionale ai fini di un investimento finanziario"? Grazie. Isabel
Clicca per espandere...

isabel Una volta avevo creato un sito dove spiegavo quello che a te interessa oltre a molte altre novità. Ci sono anche gli articoli di lotto razionale scritti da Leontino Gorgîa, dall'ing. Samaritani, da Fiacco, da Ulivi, dal Fisico ecc. Un sito, credo, interessante per chi ama il lotto ragionato, le cui basi poggiano sulla matematica, sulla statistica e sulla legge delle probabilità. Il link:
lottosophia comuf com (dove c'è lo spazio inserire il punto.)
 
No Title

Beppignello Grazie per il nuovo lavoro graficamente molto gradevole. Però io non trovo i numeri usciti (si veda la foto) Scusami, forse mi sfuggono o sono nascosti tra le figure?
 

Allegati

  • photo13689.jpg
    photo13689.jpg
    11,7 KB · Visite: 2
ottimo come sempre
tuttavia in questo nuovo script non capisco dove si vedono le ambata sfaldate e il colpo in cui sono uscite
 
Beppignello;n2005917 ha scritto:
scorrere l'output verso il basso.

non solo la tabella, ma oltre, dopo la tabella.
Clicca per espandere...

non ci sono....... di 3 numeri usciti, mi segnala solo il 79 di Venezia ripetuto erroneamente 2 volte. Delle altre 2 ambate vinte non c'è traccia. Inoltre queste figure rendono l'elaborato molto meno leggibile rispetto a prima. Grazie anticipate se riuscirai a sistemare lo script
 
Ultima modifica:
credo che se in 2 dite che c'è qualche errore, avete ragione,

ma io ottengo questo output chiedendo dalla 9210.
lasciando tutti i dati presentanti di input, senza alcuna modifica

ed avendo l'archivio impostato dalla 3950 del 1946 ad oggi 9215

date conferma delle impostazioni che io ho?

stiamo parlando che ottenete questo output, perché io ottengo questo?

-VE.....nr.. 01. 06. 08. 12. 14. 16. 17. 19. 22. 27. 30. 31. 32. 33. 34. 35. 41. 46. 47. 48. 49. 54. 58. 61. 63. 67. 77. 79. 87. 90.
----01.06.08.12.14.16.17.22.27.30.31.32.34.46.48.49.54 .58.61.63.67.77.79.87.90. 19.33.35.41.47.
<-------colpo n.-> 01.....usc.estr..9211.....VE 34 .. 06 .. .. Ambo
<-------colpo n.-> 02.....usc.estr..9212.....VE .. 08 .. .. 47 Ambo
<-------colpo n.-> 03.....usc.estr..9213.....VE 35 .. 12 .. 58 Terno
<-------colpo n.-> 04.....usc.estr..9214.....VE .. 16 .. .. .. Estratto
<-------colpo n.-> 05.....usc.estr..9215.....VE 79 .. .. 47 .. Ambo
||||||||||||||||||||||||VE|||||||||||||||||||||||v e r i f i c a comb. In Figura|||||||||||||||||||||||||||||||||||||||||||| |
Figura 1 01.19.46.
Figura 2 47.
<-------colpo n.-> 02.....usc.estr..9212.....VE .. .. .. .. 47 Estratto
<-------colpo n.-> 05.....usc.estr..9215.....VE .. .. .. 47 .. Estratto
Figura 3 12.30.48.
<-------colpo n.-> 03.....usc.estr..9213.....VE .. .. 12 .. .. Estratto
Figura 4 22.31.49.58.67.
<-------colpo n.-> 03.....usc.estr..9213.....VE .. .. .. .. 58 Estratto
Figura 5 14.32.41.77.
Figura 6 06.33.87.
<-------colpo n.-> 01.....usc.estr..9211.....VE .. .. 06 .. .. Estratto
Figura 7 16.34.61.79.
<-------colpo n.-> 01.....usc.estr..9211.....VE 34 .. .. .. .. Estratto
<-------colpo n.-> 04.....usc.estr..9214.....VE .. 16 .. .. .. Estratto
<-------colpo n.-> 05.....usc.estr..9215.....VE 79 .. .. .. .. Estratto
Figura 8 08.17.35.
<-------colpo n.-> 02.....usc.estr..9212.....VE .. 08 .. .. .. Estratto
<-------colpo n.-> 03.....usc.estr..9213.....VE 35 .. .. .. .. Estratto
Figura 9 27.54.63.90.
 
Ultima modifica di un moderatore:
come si vede ci sono 2 prospetti di output

il primo elenco i risultati a ruota in funzione del'esito ambo o terno o estratto semplice
il secondo elenco i risultati a ruota ma scomposti in funzione delle suddivisione della lunghetta ottenuta, in 9 figure
che quasi sempre sono estratti singoli

provate a postare come ho fatto io, le righe dell'output di una ruota che volete, così posso capire cosa o dove c'è una anomalia.

l'archivio che avete impostato è dalla 3950 alla 9215?
avete chiesto una situazione " All'estrazione n." 9210, prima richiesta che lo script fa?
avete lasciato tutto invariato le altre richieste che lo script fa?

attendo che postiate brutalmente con copia ed incolla l'output, senza mettere foto, perché troppo piccole
 
il problema è che se c'è una coppia di ambate nel tabulato blu e giallo non dice se è sfaldata in un o più elementi.
Mettiamo caso
Bari 82 e Cagliari 61 non dice se è in gioco o se uno dei due è uscito e in quale colpo.
Nel riepilogo di sotto dove cita le figure da lo sfaldamento su singola ruota ma in tal senso aiuta a poco.
Occorrerebbero altri 2 campi nel tabulato uno per sapere quale ambata è uscita l'altro per conoscere a quale colpo.
 
...Ultima cosa mi postate gentilmente il link di tale listato non sui singoli numeri ma per gli ambi?
Lo avevo letto ma ora non riesco più a trovarlo.
 
Codice: 
[B]Option[/B] [B]Explicit[/B]
[B]Sub[/B] [B]Main[/B]
       [B]ColoreTesto[/B](1)
       [B]Scrivi[/B] " Appunti  :    Ritardo Tabellone valori riscontrati come storico..dal 1946",1
       [B]Scrivi[/B] " 2 Nr. al Ritardo 84 ",1
       [B]Scrivi[/B] " 3 Nr. al Ritardo 33 ",1
       [B]Scrivi[/B] " 4 Nr. al Ritardo 29 ",1
       [B]Scrivi[/B] " 5 Nr. al Ritardo    ",1
       [B]Scrivi[/B] " 6 Nr. al Ritardo 28 ",1
       [B]Scrivi[/B] " 7 Nr. al Ritardo 22 ",1
       [B]Scrivi[/B] " 8 Nr. al Ritardo 18 ",1
       [B]Scrivi[/B] " 9 Nr. al Ritardo 18 ",1
       [B]Scrivi[/B] "10 Nr. al Ritardo  7 ",1
       [B]Scrivi[/B] "11 Nr. al Ritardo  8 ",1
       [B]ColoreTesto[/B](0)
       [B]Dim[/B] [B]fine[/B],[B]r[/B],[B]n[/B],[B]nn[/B],[B]x[/B],[B]ritardo[/B],[B]frequenza[/B],[B]ix[/B],[B]last[/B],[B]rt[/B],[B]nr[/B],[B]y[/B],[B]retrit[/B],[B]retritmax[/B],[B]retfre[/B],[B]tutti[/B],[B]z[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retesito[/B],[B]retidestr[/B],[B]ruota[/B],[B]ciclo[/B],[B]n1[/B],[B]scelta[/B],[B]Primoct[/B]
       [B]Dim[/B] [B]stat[/B],[B]ct[/B],[B]ctg[/B],[B]L[/B],[B]xy[/B],[B]m[/B],[B]elenco[/B],[B]Lastr[/B],[B]h[/B],[B]Ini[/B],[B]finale[/B],[B]sor[/B],[B]elenco2[/B],[B]elenco3[/B],[B]minore[/B],[B]maggiore[/B],[B]j[/B],[B]RN[/B],[B]CN[/B],[B]ulteriori[/B],[B]ValTeorico[/B],[B]nretteorico[/B],[B]Aspettabilita[/B],[B]ValTeonRuote[/B]
       [B]Dim[/B] [B]gen[/B](9999999),[B]rag[/B](999,2),[B]ruoterie[/B](12,90),[B]ruotefre[/B](12,90),[B]ruoterae[/B](12,90)
       [B]fine[/B] [B]=[/B] [B]InputBox[/B]("All'estrazione n.",,[B]EstrazioneFin[/B])
       [B]tutti[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Vuoi elenco con quanti numeri ?  ",,1))
       [B]scelta[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Vuoi output 1=R/F  2=F/R ?",,1))
       [B]ruota[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("0 Lista (Tutte) oppure lista solo di questa ruota",,0))
       [B]stat[/B] [B]=[/B] [B]InputBox[/B]("Aggiungi Ritardi su tutte le ruote ",,"NO")
       [B]sor[/B] [B]=[/B] [B]CInt[/B]([B]InputBox[/B]("Verifica per sorte ",,1))
       ''''''crea tabella combinazione con doppia sincronia e  sincro-isocronia
       [B]Dim[/B] [B]atitolo[/B](15),[B]aris[/B](15),[B]TabelloneR[/B](250)
       '''''''''''''''''''''''''''''''''''''''''''''''''e x p o r t     e x c e l   ''''''''''''''''''''''''''''''''''''''''''''''
       '''''' tabella in output è possibile esportarla in excel cliccando l'icona del programma FOGLIO ELETTRONICO
       '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       [B]If[/B] [B]scelta[/B] [B]=[/B] 1 [B]Then[/B] [B]atitolo[/B](1) [B]=[/B] "Rit. / freq."
       [B]If[/B] [B]scelta[/B] [B]=[/B] 2 [B]Then[/B] [B]atitolo[/B](1) [B]=[/B] "Freq./ Rit. "
       [B]atitolo[/B](2) [B]=[/B] " "
       [B]atitolo[/B](3) [B]=[/B] "Rit.Comb."
       [B]atitolo[/B](4) [B]=[/B] "Rit.Comb.Max"
       [B]atitolo[/B](5) [B]=[/B] "C o m b i n a z i o n i   s u   Ruota/e "
       [B]atitolo[/B](6) [B]=[/B] "Comb.Numeri"
       [B]atitolo[/B](7) [B]=[/B] " "
       [B]atitolo[/B](8) [B]=[/B] "D.Sincr."
       [B]atitolo[/B](9) [B]=[/B] "Pr.Teoriche"
       [B]atitolo[/B](10) [B]=[/B] "Attend."
       [B]atitolo[/B](11) [B]=[/B] " "
       [B]atitolo[/B](12) [B]=[/B] "P.ReaTotTab"
       [B]atitolo[/B](13) [B]=[/B] " Dif "
       [B]atitolo[/B](14) [B]=[/B] "Teo11/nRuote"
       '      atitolo(15) = "1° Esito"
       [B]SetTableWidth[/B]("85%px")
       [B]Call[/B] [B]InitTabella[/B]([B]atitolo[/B],1,"left",1.35,4,"Cambria")
       [B]Scrivi[/B] " Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
       [B]If[/B] [B]scelta[/B] [B]=[/B] 1 [B]Then[/B]
             ''''''''''''''''''''''''''''''''''''''''''
             [B]For[/B] [B]r[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]If[/B] [B]r[/B] [B]<>[/B] 11 [B]Then[/B]
                           [B]For[/B] [B]n1[/B] [B]=[/B] 1 [B]To[/B] 90
                                  [B]retrit[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n1[/B],3950,[B]fine[/B])
                                  [B]TabelloneR[/B]([B]retrit[/B]) [B]=[/B] [B]TabelloneR[/B]([B]retrit[/B]) [B]+[/B] 1
                           [B]Next[/B]
                    [B]End[/B] [B]If[/B]
             [B]Next[/B]
             '''''''''''''''''''''''''''''''''''''''''''
             '''''''loop per calcolare ritardi e frequenze per le 12 ruote in arrays GEN
             '''''''''''è possibile filtrare solo combinazioni della ruota richiesta, mentre lasciando 0 si ottiene prospetto completo
             [B]For[/B] [B]r[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]For[/B] [B]n[/B] [B]=[/B] 1 [B]To[/B] 90
                           [B]If[/B] [B]ruota[/B] [B]=[/B] [B]r[/B] [B]Then[/B]
                                  [B]ritardo[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]frequenza[/B] [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]ix[/B] [B]=[/B] [B]FormattaStringa[/B]([B]ritardo[/B],"000") [B]&[/B] [B]FormattaStringa[/B]([B]frequenza[/B],"0000")
                                  [B]gen[/B]([B]ix[/B]) [B]=[/B] [B]gen[/B]([B]ix[/B]) [B]&[/B] [B]Format2[/B]([B]n[/B]) [B]&[/B] " " [B]&[/B] [B]SiglaRuota[/B]([B]r[/B]) [B]&[/B] [B]Format2[/B]([B]r[/B]) [B]&[/B] " : "
                           [B]End[/B] [B]If[/B]
                           [B]If[/B] [B]ruota[/B] [B]=[/B] 0 [B]Then[/B]
                                  [B]ritardo[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]frequenza[/B] [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]ix[/B] [B]=[/B] [B]FormattaStringa[/B]([B]ritardo[/B],"000") [B]&[/B] [B]FormattaStringa[/B]([B]frequenza[/B],"0000")
                                  [B]gen[/B]([B]ix[/B]) [B]=[/B] [B]gen[/B]([B]ix[/B]) [B]&[/B] [B]Format2[/B]([B]n[/B]) [B]&[/B] " " [B]&[/B] [B]SiglaRuota[/B]([B]r[/B]) [B]&[/B] [B]Format2[/B]([B]r[/B]) [B]&[/B] " : "
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
             [B]Next[/B]
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] " Elenco con numeri > di..." [B]&[/B] [B]tutti[/B],1
             [B]If[/B] [B]ruota[/B] [B]<>[/B] 0 [B]Then[/B] [B]Scrivi[/B] " Lista Combinazioni Rilevate Solo per la Ruota di...." [B]&[/B] [B]NomeRuota[/B]([B]ruota[/B]),1
             [B]If[/B] [B]ruota[/B] [B]=[/B] 0 [B]Then[/B] [B]Scrivi[/B] " Lista Tutte le Combinazioni rilevate....",1
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] " Elenco Numeri in doppia sincronia con ritardo>=ritmax su altre ruote o Fuori Ruote di Rilevamento",1
             [B]Scrivi[/B] " O u t p u t    o r d i n a t o    p e r     R i t a r d o  /  F r e q u e n z a         ( [USER="11025"]Beppignello[/USER] ) ",1
             [B]ColoreTesto[/B](0)
             [B]Scrivi[/B] "_________________________________________________________________________________",1
             '''''loop per stampa lista output delle combinazioni aventi almeno 2 numeri in sincronismo rit/fre
             ''''''''''verifica esito sulle ruote di rilevamento del sincronismo
             [B]Messaggio[/B]("Attendere un attimo, sto elaborando!")
             [B]For[/B] [B]nn[/B] [B]=[/B] 0 [B]To[/B] 9999999
                    [B]If[/B] [B]gen[/B]([B]nn[/B]) [B]<>[/B] "" [B]Then[/B]
                           [B]ReDim[/B] [B]aV2[/B](0),[B]ruote[/B](10),[B]numeri[/B](15)
                           [B]Call[/B] [B]SplitByChar[/B]([B]gen[/B]([B]nn[/B])," : ",[B]aV2[/B])
                           [B]last[/B] [B]=[/B] [B]UBound[/B]([B]aV2[/B])
                           [B]If[/B] [B]last[/B] [B]>[/B] [B]tutti[/B] [B]Then[/B]
                                  [B]xy[/B] [B]=[/B] [B]xy[/B] [B]+[/B] 1
                                  [B]For[/B] [B]y[/B] [B]=[/B] 0 [B]To[/B] [B]last[/B] [B]-[/B] 1
                                        [B]rt[/B] [B]=[/B] [B]Right[/B]([B]aV2[/B]([B]y[/B]),2)
                                        [B]nr[/B] [B]=[/B] [B]Left[/B]([B]aV2[/B]([B]y[/B]),2)
                                        '''carica array ruote e numeri
                                        [B]ruote[/B]([B]y[/B] [B]+[/B] 1) [B]=[/B] [B]rt[/B]
                                        [B]numeri[/B]([B]y[/B] [B]+[/B] 1) [B]=[/B] [B]nr[/B]
                                        [B]rag[/B]([B]xy[/B],1) [B]=[/B] [B]rag[/B]([B]xy[/B],1) [B]&[/B] [B]Format2[/B]([B]nr[/B]) [B]&[/B] "."
                                        [B]rag[/B]([B]xy[/B],2) [B]=[/B] [B]rag[/B]([B]xy[/B],2) [B]&[/B] [B]SiglaRuota[/B]([B]rt[/B]) [B]&[/B] "-"
                                        [B]ruoterie[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]nr[/B]
                                        [B]ruotefre[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]rt[/B],[B]nr[/B],3950,[B]fine[/B])
                                        [B]ruoterae[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]rt[/B],[B]nr[/B],3950,[B]fine[/B])
                                  [B]Next[/B]
                                  [B]ct[/B] [B]=[/B] [B]ct[/B] [B]+[/B] 1
                                  [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]numeri[/B],[B]ruote[/B],1,[B]retrit[/B],[B]retritmax[/B],,,3950,[B]fine[/B])
                                  ''''''accoda record alla tabella
                                  [B]aris[/B](1) [B]=[/B] [B]FormattaStringa[/B]([B]nn[/B],"000 / 0000")
                                  [B]aris[/B](2) [B]=[/B] "  "
                                  [B]aris[/B](3) [B]=[/B] [B]retrit[/B]
                                  [B]aris[/B](4) [B]=[/B] [B]retritmax[/B]
                                  [B]aris[/B](5) [B]=[/B] [B]gen[/B]([B]nn[/B])
                                  [B]aris[/B](6) [B]=[/B] [B]StringaNumeri[/B]([B]numeri[/B],".")
                                  [B]aris[/B](7) [B]=[/B] " "
                                  [B]aris[/B](8) [B]=[/B] [B]last[/B]
                                  '''''''''''''''''''calcola valori teorico e aspettabilità/attendibilità
                                  [B]ValTeorico[/B] [B]=[/B] [B]Round[/B](55[B]*[/B](17[B]/[/B]18)^[B]Int[/B]([B]Left[/B]([B]aris[/B](1),3)),4)
                                  [B]nretteorico[/B] [B]=[/B] [B]ValTeorico[/B]
                                  [B]Aspettabilita[/B] [B]=[/B] [B]Round[/B]([B]last[/B] [B]/[/B]([B]ValTeorico[/B] [B]+[/B] [B]last[/B]),4)
                                  [B]aris[/B](9) [B]=[/B] [B]ValTeorico[/B]
                                  [B]aris[/B](10) [B]=[/B] [B]Aspettabilita[/B]
                                  '''''' aris(11) = Round((ValTeorico/11)*last,4)
                                  [B]aris[/B](11) [B]=[/B] "  "
                                  [B]aris[/B](12) [B]=[/B] [B]TabelloneR[/B]([B]Int[/B]([B]Left[/B]([B]aris[/B](1),3)))
                                  [B]ValTeonRuote[/B] [B]=[/B] [B]Round[/B]((([B]aris[/B](12) [B]/[/B] 11) [B]*[/B] [B]last[/B]),3)
                                  [B]aris[/B](14) [B]=[/B] [B]ValTeonRuote[/B]
                                  [B]If[/B] [B]aris[/B](12) [B]>[/B] [B]Int[/B]([B]aris[/B](9)) [B]Then[/B]
                                        [B]aris[/B](13) [B]=[/B] [B]aris[/B](12) [B]-[/B] [B]Int[/B]([B]aris[/B](9))
                                  [B]Else[/B]
                                        [B]aris[/B](13) [B]=[/B] 0
                                  [B]End[/B] [B]If[/B]
                                  [B]If[/B] [B]stat[/B] [B]<>[/B] "SI" [B]Or[/B] [B]stat[/B] [B]<>[/B] "si" [B]Then[/B]
                                         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                        ''''''''''''''''''''''''   ''''' verifica esiti della combinazione rilevata
                                        [B]Ini[/B] [B]=[/B] [B]fine[/B] : [B]Primoct[/B] [B]=[/B] 0
                                        [B]finale[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 18
                                        [B]Scrivi[/B] "---> estr.n. " [B]&[/B] [B]Ini[/B] [B]&[/B] "  Comb.Rilevata.." [B]&[/B] [B]gen[/B]([B]nn[/B]),1
                                        [B]For[/B] [B]Ini[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 1 [B]To[/B] [B]finale[/B]
                                               [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]numeri[/B],[B]ruote[/B],[B]Ini[/B],[B]sor[/B],1,,[B]retesito[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                                               [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                                      [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                                      [B]ColoreTesto[/B](1)
                                                      [B]If[/B] [B]retesito[/B] [B]=[/B] "Terno" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Quaterna" [B]Then[/B]
                                                            [B]ColoreTesto[/B](2)
                                                      [B]End[/B] [B]If[/B]
                                                      [B]Scrivi[/B] "<------------> colpo n." [B]&[/B] [B]Format2[/B]([B]retidestr[/B] [B]-[/B]([B]fine[/B])) [B]&[/B] "..usc.estr." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "........." [B]&[/B] [B]retesito[/B],1
                                                      [B]ColoreTesto[/B](0)
                                               [B]End[/B] [B]If[/B]
                                        [B]Next[/B]
                                         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                        [B]Call[/B] [B]AddRigaTabella[/B]([B]aris[/B],[B]Bianco_[/B],"left",1)
                                        [B]Call[/B] [B]SetColoreCella[/B](2,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](7,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](11,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](14,[B]RGB[/B](219,219,219),[B]vbBlack[/B])
                                        [B]If[/B] [B]Int[/B]([B]Left[/B]([B]aris[/B](1),3)) [B]>=[/B] [B]Int[/B]([B]aris[/B](4)) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](1,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](4,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](6,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]aris[/B](8) [B]>=[/B] [B]aris[/B](9) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](8,[B]RGB[/B](221,117,214),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](9,[B]RGB[/B](221,117,214),[B]vbWhite[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]aris[/B](12) [B]>[/B] [B]aris[/B](9) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](5,[B]RGB[/B](255,255,198),[B]vbBlack[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](6,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](12,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]Int[/B]([B]aris[/B](13)) [B]>[/B] 0 [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](13,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                        [B]End[/B] [B]If[/B]
                                  [B]End[/B] [B]If[/B]
                                  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                  [B]ColoreTesto[/B](0)
                                  ''''' verifica  esiti
                                  [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]numeri[/B],[B]ruote[/B],[B]fine[/B] [B]+[/B] 1,1,,,,[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                                 [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                        [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                  [B]End[/B] [B]If[/B]
                                  '''''''''''''''''''''''''''''''''''
                                  [B]If[/B] [B]stat[/B] [B]=[/B] "SI" [B]Or[/B] [B]stat[/B] [B]=[/B] "si" [B]Then[/B]
                                        [B]ReDim[/B] [B]ruote[/B](1)
                                        [B]ColoreTesto[/B](2)
                                        [B]ulteriori[/B] [B]=[/B] ""
                                        [B]For[/B] [B]z[/B] [B]=[/B] 1 [B]To[/B] 12
                                               [B]If[/B] [B]z[/B] [B]<>[/B] 11 [B]Then[/B]
                                                      [B]ruote[/B](1) [B]=[/B] [B]z[/B]
                                                      [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]numeri[/B],[B]ruote[/B],1,[B]retrit[/B],[B]retritmax[/B],,,3950,[B]fine[/B])
                                                      [B]If[/B] [B]retrit[/B] [B]>=[/B] [B]retritmax[/B] [B]Then[/B]
                                                            [B]ulteriori[/B] [B]=[/B] [B]ulteriori[/B] [B]&[/B] [B]SiglaRuota[/B]([B]z[/B]) [B]&[/B] ".." [B]&[/B] [B]FormattaStringa[/B]([B]retrit[/B],"000") [B]&[/B] "/" [B]&[/B] [B]FormattaStringa[/B]([B]retritmax[/B],"000")
                                                            [B]Scrivi[/B] "------> " [B]&[/B] [B]SiglaRuota[/B]([B]z[/B]) [B]&[/B] " " [B]&[/B] [B]FormattaStringa[/B]([B]retrit[/B],"000") [B]&[/B] "/" [B]&[/B] [B]FormattaStringa[/B]([B]retritmax[/B],"000") [B]&[/B] "...." [B]&[/B] [B]gen[/B]([B]nn[/B]),1
                                                      [B]End[/B] [B]If[/B]
                                               [B]End[/B] [B]If[/B]
                                        [B]Next[/B]
                                  [B]End[/B] [B]If[/B]
                           [B]End[/B] [B]If[/B]
                    [B]End[/B] [B]If[/B]
             [B]Next[/B]
             [B]Scrivi[/B] "_________________________________________________________________________________",1
             [B]Scrivi[/B] " Totale combinazioni trovate..." [B]&[/B] [B]ct[/B]
             [B]Scrivi[/B] " Totale Combinazioni vincenti.." [B]&[/B] [B]ctg[/B]
             [B]Scrivi[/B] "-------------------------------------------------",1
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] "Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
             [B]ColoreTesto[/B](0)
             [B]Call[/B] [B]CreaTabellaOrdinabile[/B](1)
             [B]Scrivi[/B] "______________________________________________________________________________________________",1
             [B]Scrivi[/B] "______________________________________________________________________________________________",1
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] "Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
             [B]Scrivi[/B] "R i e p i l o g o   R u o t e      Combinazione Completa  e  Suddivisione per Figura   ",1
             [B]ColoreTesto[/B](0)
             '''''''loop riepilogo di tutti i numeri rilevati sulle 12 ruote
             ''''''''''''verifica esito nelle lunghe ottenute per ogni ruota
             [B]For[/B] [B]L[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]elenco[/B] [B]=[/B] "":[B]elenco2[/B] [B]=[/B] "":[B]elenco3[/B] [B]=[/B] "":[B]minore[/B] [B]=[/B] "":[B]maggiore[/B] [B]=[/B] ""
                    [B]ReDim[/B] [B]ele[/B](9)
                    [B]For[/B] [B]m[/B] [B]=[/B] 1 [B]To[/B] 90
                           [B]If[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]>[/B] 0 [B]Then[/B]
                                  [B]ele[/B]([B]Figura[/B]([B]m[/B])) [B]=[/B] [B]ele[/B]([B]Figura[/B]([B]m[/B])) [B]&[/B] [B]Format2[/B]([B]m[/B]) [B]&[/B] "."
                                  [B]elenco[/B] [B]=[/B] [B]elenco[/B] [B]&[/B] [B]FormattaStringa[/B]([B]ruoterie[/B]([B]L[/B],[B]m[/B])," 00") [B]&[/B] "."
                                  [B]If[/B] [B]ruoterae[/B]([B]L[/B],[B]m[/B]) [B]<[/B] 19 [B]Then[/B]
                                        [B]minore[/B] [B]=[/B] [B]minore[/B] [B]&[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]&[/B] "."
                                  [B]Else[/B]
                                        [B]maggiore[/B] [B]=[/B] [B]maggiore[/B] [B]&[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]&[/B] "."
                                  [B]End[/B] [B]If[/B]
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
                    [B]ColoreTesto[/B](7)
                    [B]Scrivi[/B] "_______________________________________________________________________________________________________________________________________________________",1
                    [B]Scrivi[/B] "-" [B]&[/B] [B]SiglaRuota[/B]([B]L[/B]) [B]&[/B] ".....nr.." [B]&[/B] [B]elenco[/B],1
                    [B]ColoreTesto[/B](2)
                    [B]Scrivi[/B] "----" [B]&[/B] [B]minore[/B] [B]&[/B] "           " [B]&[/B] [B]maggiore[/B],1
                    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''verifica esiti intera combinazione in elenco
                    [B]ReDim[/B] [B]aV[/B](0),[B]ruo[/B](2),[B]av5[/B](50)
                    [B]Call[/B] [B]SplitByChar[/B]([B]elenco[/B],".",[B]aV[/B])
                    [B]Lastr[/B] [B]=[/B] [B]UBound[/B]([B]aV[/B])
                    [B]For[/B] [B]h[/B] [B]=[/B] 0 [B]To[/B] [B]Lastr[/B] [B]-[/B] 1
                           [B]av5[/B]([B]h[/B] [B]+[/B] 1) [B]=[/B] [B]aV[/B]([B]h[/B])
                    [B]Next[/B]
                    [B]ruo[/B](1) [B]=[/B] [B]L[/B]
                    [B]Ini[/B] [B]=[/B] [B]fine[/B]
                    [B]finale[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 18
                    [B]For[/B] [B]Ini[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 1 [B]To[/B] [B]finale[/B]
                           ''''' verifica  esiti
                           [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]av5[/B],[B]ruo[/B],[B]Ini[/B],[B]sor[/B],1,,[B]retesito[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                           [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                  [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                  [B]ColoreTesto[/B](1)
                                  [B]If[/B] [B]retesito[/B] [B]=[/B] "Ambo" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Terno" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Quaterna" [B]Then[/B]
                                        [B]ColoreTesto[/B](2)
                                  [B]End[/B] [B]If[/B]
                                  [B]Scrivi[/B] "<-------colpo n.-> " [B]&[/B] [B]Format2[/B]([B]retidestr[/B] [B]-[/B]([B]fine[/B])) [B]&[/B] ".....usc.estr.." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "    " [B]&[/B] [B]retesito[/B],1
                                  [B]ColoreTesto[/B](0)
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
                    [B]ColoreTesto[/B](0)
                    [B]Scrivi[/B] " ||||||||||||||||||||||||" [B]&[/B] [B]SiglaRuota[/B]([B]ruo[/B](1)) [B]&[/B] "|||||||||||||||||||||||v e r i f i c a  comb. In Figura|||||||||||||||||||||||||||||||||||||||||||||",1
                    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''verifica esiti combinazione solo relativa alle 9 figure
                    [B]For[/B] [B]j[/B] [B]=[/B] 1 [B]To[/B] 9
                           [B]ColoreTesto[/B](0)
                           [B]If[/B] [B]ele[/B]([B]j[/B]) [B]<>[/B] "" [B]Then[/B] [B]Scrivi[/B] " Figura " [B]&[/B] [B]j[/B] [B]&[/B] "    " [B]&[/B] [B]ele[/B]([B]j[/B]),1
                           [B]ReDim[/B] [B]aV[/B](0),[B]ruo[/B](2),[B]av5[/B](50)
                           [B]Call[/B] [B]SplitByChar[/B]([B]ele[/B]([B]j[/B]),".",[B]aV[/B])
                           [B]Lastr[/B] [B]=[/B] [B]UBound[/B]([B]aV[/B])
                           [B]For[/B] [B]h[/B] [B]=[/B] 0 [B]To[/B] [B]Lastr[/B] [B]-[/B] 1
                                  [B]av5[/B]([B]h[/B] [B]+[/B] 1) [B]=[/B] [B]aV[/B]([B]h[/B])
                           [B]Next[/B]
                           [B]ruo[/B](1) [B]=[/B] [B]L[/B]
                           [B]Ini[/B] [B]=[/B] [B]fine[/B]
                           [B]finale[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 18
                           [B]For[/B] [B]Ini[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 1 [B]To[/B] [B]finale[/B]
                                  ''''' verifica  esiti
                                  [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]av5[/B],[B]ruo[/B],[B]Ini[/B],[B]sor[/B],1,,[B]retesito[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                                  [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                        [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                        [B]ColoreTesto[/B](1)
                                        [B]If[/B] [B]retesito[/B] [B]=[/B] "Ambo" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Terno" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Quaterna" [B]Then[/B]
                                               [B]ColoreTesto[/B](2)
                                        [B]End[/B] [B]If[/B]
                                        [B]Scrivi[/B] "<-------colpo n.-> " [B]&[/B] [B]Format2[/B]([B]retidestr[/B] [B]-[/B]([B]fine[/B])) [B]&[/B] ".....usc.estr.." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "    " [B]&[/B] [B]retesito[/B],1
                                        [B]ColoreTesto[/B](0)
                                  [B]End[/B] [B]If[/B]
                           [B]Next[/B]
                           ''''''''''''''
                    [B]Next[/B]
             [B]Next[/B]
             '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
             ''''
       [B]Else[/B]
             [B]Scrivi[/B] " O u t p u t    o r d i n a t o    p e r    F r e q u e n z a   /  R i t a r d o         ( [USER="11025"]Beppignello[/USER] )    ",1
             ''''
             [B]For[/B] [B]r[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]If[/B] [B]r[/B] [B]<>[/B] 11 [B]Then[/B]
                           [B]For[/B] [B]n1[/B] [B]=[/B] 1 [B]To[/B] 90
                                  [B]retrit[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n1[/B],3950,[B]fine[/B])
                                  [B]TabelloneR[/B]([B]retrit[/B]) [B]=[/B] [B]TabelloneR[/B]([B]retrit[/B]) [B]+[/B] 1
                           [B]Next[/B]
                    [B]End[/B] [B]If[/B]
             [B]Next[/B]
             '''''''''''''''''''''''''''''''''''''''''''
             '''''''loop per calcolare ritardi e frequenze per le 12 ruote in arrays GEN
             '''''''''''è possibile filtrare solo combinazioni della ruota richiesta, mentre lasciando 0 si ottiene prospetto completo
             [B]For[/B] [B]r[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]For[/B] [B]n[/B] [B]=[/B] 1 [B]To[/B] 90
                           [B]If[/B] [B]ruota[/B] [B]=[/B] [B]r[/B] [B]Then[/B]
                                  [B]ritardo[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]frequenza[/B] [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]ix[/B] [B]=[/B] [B]FormattaStringa[/B]([B]frequenza[/B],"0000") [B]&[/B] [B]FormattaStringa[/B]([B]ritardo[/B],"000")
                                  [B]gen[/B]([B]ix[/B]) [B]=[/B] [B]gen[/B]([B]ix[/B]) [B]&[/B] [B]Format2[/B]([B]n[/B]) [B]&[/B] " " [B]&[/B] [B]SiglaRuota[/B]([B]r[/B]) [B]&[/B] [B]Format2[/B]([B]r[/B]) [B]&[/B] " : "
                           [B]End[/B] [B]If[/B]
                           [B]If[/B] [B]ruota[/B] [B]=[/B] 0 [B]Then[/B]
                                  [B]ritardo[/B] [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]frequenza[/B] [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]r[/B],[B]n[/B],3950,[B]fine[/B])
                                  [B]ix[/B] [B]=[/B] [B]FormattaStringa[/B]([B]frequenza[/B],"0000") [B]&[/B] [B]FormattaStringa[/B]([B]ritardo[/B],"000")
                                  [B]gen[/B]([B]ix[/B]) [B]=[/B] [B]gen[/B]([B]ix[/B]) [B]&[/B] [B]Format2[/B]([B]n[/B]) [B]&[/B] " " [B]&[/B] [B]SiglaRuota[/B]([B]r[/B]) [B]&[/B] [B]Format2[/B]([B]r[/B]) [B]&[/B] " : "
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
             [B]Next[/B]
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] " Elenco con numeri > di..." [B]&[/B] [B]tutti[/B],1
             [B]If[/B] [B]ruota[/B] [B]<>[/B] 0 [B]Then[/B] [B]Scrivi[/B] " Lista Combinazioni Rilevate Solo per la Ruota di...." [B]&[/B] [B]NomeRuota[/B]([B]ruota[/B]),1
             [B]If[/B] [B]ruota[/B] [B]=[/B] 0 [B]Then[/B] [B]Scrivi[/B] " Lista Tutte le Combinazioni rilevate....",1
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] " Elenco Numeri in doppia sincronia con ritardo>=ritmax su altre ruote o Fuori Ruote di Rilevamento",1
             [B]ColoreTesto[/B](0)
             [B]Scrivi[/B] "_________________________________________________________________________________",1
             '''''loop per stampa lista output delle combinazioni aventi almeno 2 numeri in sincronismo rit/fre
             ''''''''''verifica esito sulle ruote di rilevamento del sincronismo
             [B]Messaggio[/B]("Attendere un attimo, sto elaborando!")
             [B]For[/B] [B]nn[/B] [B]=[/B] 0 [B]To[/B] 9999999
                    [B]If[/B] [B]gen[/B]([B]nn[/B]) [B]<>[/B] "" [B]Then[/B]
                           [B]ReDim[/B] [B]aV2[/B](0),[B]ruote[/B](10),[B]numeri[/B](15)
                           [B]Call[/B] [B]SplitByChar[/B]([B]gen[/B]([B]nn[/B])," : ",[B]aV2[/B])
                           [B]last[/B] [B]=[/B] [B]UBound[/B]([B]aV2[/B])
                           [B]If[/B] [B]last[/B] [B]>[/B] [B]tutti[/B] [B]Then[/B]
                                  [B]xy[/B] [B]=[/B] [B]xy[/B] [B]+[/B] 1
                                  [B]For[/B] [B]y[/B] [B]=[/B] 0 [B]To[/B] [B]last[/B] [B]-[/B] 1
                                        [B]rt[/B] [B]=[/B] [B]Right[/B]([B]aV2[/B]([B]y[/B]),2)
                                        [B]nr[/B] [B]=[/B] [B]Left[/B]([B]aV2[/B]([B]y[/B]),2)
                                        '''carica array ruote e numeri
                                        [B]ruote[/B]([B]y[/B] [B]+[/B] 1) [B]=[/B] [B]rt[/B]
                                        [B]numeri[/B]([B]y[/B] [B]+[/B] 1) [B]=[/B] [B]nr[/B]
                                        [B]rag[/B]([B]xy[/B],1) [B]=[/B] [B]rag[/B]([B]xy[/B],1) [B]&[/B] [B]Format2[/B]([B]nr[/B]) [B]&[/B] "."
                                        [B]rag[/B]([B]xy[/B],2) [B]=[/B] [B]rag[/B]([B]xy[/B],2) [B]&[/B] [B]SiglaRuota[/B]([B]rt[/B]) [B]&[/B] "-"
                                        [B]ruoterie[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]nr[/B]
                                        [B]ruotefre[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]EstrattoFrequenzaTurbo[/B]([B]rt[/B],[B]nr[/B],3950,[B]fine[/B])
                                        [B]ruoterae[/B]([B]rt[/B],[B]nr[/B]) [B]=[/B] [B]EstrattoRitardoTurbo[/B]([B]rt[/B],[B]nr[/B],3950,[B]fine[/B])
                                  [B]Next[/B]
                                  [B]ct[/B] [B]=[/B] [B]ct[/B] [B]+[/B] 1
                                  [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]numeri[/B],[B]ruote[/B],1,[B]retrit[/B],[B]retritmax[/B],,,3950,[B]fine[/B])
                                  ''''''accoda record alla tabella
                                  [B]aris[/B](1) [B]=[/B] [B]FormattaStringa[/B]([B]nn[/B],"0000 / 000")
                                  [B]aris[/B](2) [B]=[/B] "  "
                                  [B]aris[/B](3) [B]=[/B] [B]retrit[/B]
                                  [B]aris[/B](4) [B]=[/B] [B]retritmax[/B]
                                  [B]aris[/B](5) [B]=[/B] [B]gen[/B]([B]nn[/B])
                                  [B]aris[/B](6) [B]=[/B] [B]StringaNumeri[/B]([B]numeri[/B],".")
                                  [B]aris[/B](7) [B]=[/B] " "
                                  [B]aris[/B](8) [B]=[/B] [B]last[/B]
                                  '''''''''''''''''''calcola valori teorico e aspettabilità/attendibilità
                                  [B]ValTeorico[/B] [B]=[/B] [B]Round[/B](55[B]*[/B](17[B]/[/B]18)^[B]Int[/B]([B]Right[/B]([B]aris[/B](1),3)),4)
                                  [B]nretteorico[/B] [B]=[/B] [B]ValTeorico[/B]
                                  [B]Aspettabilita[/B] [B]=[/B] [B]Round[/B]([B]last[/B] [B]/[/B]([B]ValTeorico[/B] [B]+[/B] [B]last[/B]),4)
                                  [B]aris[/B](9) [B]=[/B] [B]ValTeorico[/B]
                                 [B]aris[/B](10) [B]=[/B] [B]Aspettabilita[/B]
                                  [B]aris[/B](11) [B]=[/B] "  "
                                  [B]aris[/B](12) [B]=[/B] [B]TabelloneR[/B]([B]Int[/B]([B]Right[/B]([B]aris[/B](1),3)))
                                  [B]ValTeonRuote[/B] [B]=[/B] [B]Round[/B]((([B]aris[/B](12) [B]/[/B] 11) [B]*[/B] [B]last[/B]),3)
                                  [B]aris[/B](14) [B]=[/B] [B]ValTeonRuote[/B]
                                  [B]If[/B] [B]aris[/B](12) [B]>[/B] [B]Int[/B]([B]aris[/B](9)) [B]Then[/B]
                                        [B]aris[/B](13) [B]=[/B] [B]aris[/B](12) [B]-[/B] [B]Int[/B]([B]aris[/B](9))
                                  [B]Else[/B]
                                        [B]aris[/B](13) [B]=[/B] 0
                                  [B]End[/B] [B]If[/B]
                                  [B]If[/B] [B]stat[/B] [B]<>[/B] "SI" [B]Or[/B] [B]stat[/B] [B]<>[/B] "si" [B]Then[/B]
                                         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                        ''''''''''''''''''''''''   ''''' verifica esiti della combinazione rilevata
                                        [B]Ini[/B] [B]=[/B] [B]fine[/B] : [B]Primoct[/B] [B]=[/B] 0
                                        [B]finale[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 18
                                        [B]Scrivi[/B] "---> estr.n. " [B]&[/B] [B]Ini[/B] [B]&[/B] "  Comb.Rilevata.." [B]&[/B] [B]gen[/B]([B]nn[/B]),1
                                        [B]For[/B] [B]Ini[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 1 [B]To[/B] [B]finale[/B]
                                               [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]numeri[/B],[B]ruote[/B],[B]Ini[/B],[B]sor[/B],1,,[B]retesito[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                                               [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                                      [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                                      [B]ColoreTesto[/B](1)
                                                      [B]If[/B] [B]retesito[/B] [B]=[/B] "Terno" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Quaterna" [B]Then[/B]
                                                            [B]ColoreTesto[/B](2)
                                                      [B]End[/B] [B]If[/B]
                                                      [B]Scrivi[/B] "<------------> colpo n." [B]&[/B] [B]Format2[/B]([B]retidestr[/B] [B]-[/B]([B]fine[/B])) [B]&[/B] "..usc.estr." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "........." [B]&[/B] [B]retesito[/B],1
                                                      [B]ColoreTesto[/B](0)
                                               [B]End[/B] [B]If[/B]
                                        [B]Next[/B]
                                         ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                        [B]Call[/B] [B]AddRigaTabella[/B]([B]aris[/B],[B]Bianco_[/B],"left",1)
                                        [B]Call[/B] [B]SetColoreCella[/B](2,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](7,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](11,[B]RGB[/B](2,20,185),[B]vbWhite[/B])
                                        [B]Call[/B] [B]SetColoreCella[/B](14,[B]RGB[/B](219,219,219),[B]vbBlack[/B])
                                        [B]If[/B] [B]Int[/B]([B]Right[/B]([B]aris[/B](1),3)) [B]>=[/B] [B]Int[/B]([B]aris[/B](4)) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](1,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](4,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](6,[B]RGB[/B](230,32,32),[B]vbWhite[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]aris[/B](8) [B]>=[/B] [B]aris[/B](9) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](8,[B]RGB[/B](221,117,214),[B]vbWhite[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](9,[B]RGB[/B](221,117,214),[B]vbWhite[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]aris[/B](12) [B]>[/B] [B]aris[/B](9) [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](5,[B]RGB[/B](255,255,198),[B]vbBlack[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](6,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                               [B]Call[/B] [B]SetColoreCella[/B](12,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                        [B]End[/B] [B]If[/B]
                                        [B]If[/B] [B]Int[/B]([B]aris[/B](13)) [B]>[/B] 0 [B]Then[/B]
                                               [B]Call[/B] [B]SetColoreCella[/B](13,[B]RGB[/B](255,255,128),[B]vbBlack[/B])
                                        [B]End[/B] [B]If[/B]
                                  [B]End[/B] [B]If[/B]
                                  ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                                  [B]ColoreTesto[/B](0)
                                  ''''' verifica  esiti
                                  [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]numeri[/B],[B]ruote[/B],[B]fine[/B] [B]+[/B] 1,1,,,,[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                                 [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                        [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                  [B]End[/B] [B]If[/B]
                                  '''''''''''''''''''''''''''''''''''
                                  [B]If[/B] [B]stat[/B] [B]=[/B] "SI" [B]Or[/B] [B]stat[/B] [B]=[/B] "si" [B]Then[/B]
                                        [B]ReDim[/B] [B]ruote[/B](1)
                                        [B]ColoreTesto[/B](2)
                                        [B]ulteriori[/B] [B]=[/B] ""
                                        [B]For[/B] [B]z[/B] [B]=[/B] 1 [B]To[/B] 12
                                               [B]If[/B] [B]z[/B] [B]<>[/B] 11 [B]Then[/B]
                                                      [B]ruote[/B](1) [B]=[/B] [B]z[/B]
                                                      [B]Call[/B] [B]StatisticaFormazioneTurbo[/B]([B]numeri[/B],[B]ruote[/B],1,[B]retrit[/B],[B]retritmax[/B],,,3950,[B]fine[/B])
                                                      [B]If[/B] [B]retrit[/B] [B]>=[/B] [B]retritmax[/B] [B]Then[/B]
                                                            [B]ulteriori[/B] [B]=[/B] [B]ulteriori[/B] [B]&[/B] [B]SiglaRuota[/B]([B]z[/B]) [B]&[/B] ".." [B]&[/B] [B]FormattaStringa[/B]([B]retrit[/B],"000") [B]&[/B] "/" [B]&[/B] [B]FormattaStringa[/B]([B]retritmax[/B],"000")
                                                            [B]Scrivi[/B] "------> " [B]&[/B] [B]SiglaRuota[/B]([B]z[/B]) [B]&[/B] " " [B]&[/B] [B]FormattaStringa[/B]([B]retrit[/B],"000") [B]&[/B] "/" [B]&[/B] [B]FormattaStringa[/B]([B]retritmax[/B],"000") [B]&[/B] "...." [B]&[/B] [B]gen[/B]([B]nn[/B]),1
                                                      [B]End[/B] [B]If[/B]
                                               [B]End[/B] [B]If[/B]
                                        [B]Next[/B]
                                  [B]End[/B] [B]If[/B]
                           [B]End[/B] [B]If[/B]
                    [B]End[/B] [B]If[/B]
             [B]Next[/B]
             [B]Scrivi[/B] "_________________________________________________________________________________",1
             [B]Scrivi[/B] " Totale combinazioni trovate..." [B]&[/B] [B]ct[/B]
             [B]Scrivi[/B] " Totale Combinazioni vincenti.." [B]&[/B] [B]ctg[/B]
             [B]Scrivi[/B] "-------------------------------------------------",1
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] "Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
             [B]ColoreTesto[/B](0)
             [B]Call[/B] [B]CreaTabellaOrdinabile[/B](1)
             [B]Scrivi[/B] "______________________________________________________________________________________________",1
             [B]Scrivi[/B] "______________________________________________________________________________________________",1
             [B]ColoreTesto[/B](1)
             [B]Scrivi[/B] "Situazione all'estrazione n." [B]&[/B] [B]fine[/B] [B]&[/B] " / " [B]&[/B] [B]DataEstrazione[/B]([B]fine[/B]),1
             [B]Scrivi[/B] "R i e p i l o g o   R u o t e      Combinazione Completa  e  Suddivisione per Figura   ",1
             [B]ColoreTesto[/B](0)
             '''''''loop riepilogo di tutti i numeri rilevati sulle 12 ruote
             ''''''''''''verifica esito nelle lunghe ottenute per ogni ruota
             [B]For[/B] [B]L[/B] [B]=[/B] 1 [B]To[/B] 12
                    [B]elenco[/B] [B]=[/B] "":[B]elenco2[/B] [B]=[/B] "":[B]elenco3[/B] [B]=[/B] "":[B]minore[/B] [B]=[/B] "":[B]maggiore[/B] [B]=[/B] ""
                    [B]ReDim[/B] [B]ele[/B](9)
                    [B]For[/B] [B]m[/B] [B]=[/B] 1 [B]To[/B] 90
                           [B]If[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]>[/B] 0 [B]Then[/B]
                                  [B]ele[/B]([B]Figura[/B]([B]m[/B])) [B]=[/B] [B]ele[/B]([B]Figura[/B]([B]m[/B])) [B]&[/B] [B]Format2[/B]([B]m[/B]) [B]&[/B] "."
                                  [B]elenco[/B] [B]=[/B] [B]elenco[/B] [B]&[/B] [B]FormattaStringa[/B]([B]ruoterie[/B]([B]L[/B],[B]m[/B])," 00") [B]&[/B] "."
                                  [B]If[/B] [B]ruoterae[/B]([B]L[/B],[B]m[/B]) [B]<[/B] 19 [B]Then[/B]
                                        [B]minore[/B] [B]=[/B] [B]minore[/B] [B]&[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]&[/B] "."
                                  [B]Else[/B]
                                        [B]maggiore[/B] [B]=[/B] [B]maggiore[/B] [B]&[/B] [B]ruoterie[/B]([B]L[/B],[B]m[/B]) [B]&[/B] "."
                                  [B]End[/B] [B]If[/B]
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
                    [B]ColoreTesto[/B](7)
                    [B]Scrivi[/B] "_______________________________________________________________________________________________________________________________________________________",1
                    [B]Scrivi[/B] "-" [B]&[/B] [B]SiglaRuota[/B]([B]L[/B]) [B]&[/B] ".....nr.." [B]&[/B] [B]elenco[/B],1
                    [B]ColoreTesto[/B](2)
                    [B]Scrivi[/B] "----" [B]&[/B] [B]minore[/B] [B]&[/B] "           " [B]&[/B] [B]maggiore[/B],1
                    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''verifica esiti intera combinazione in elenco
                    [B]ReDim[/B] [B]aV[/B](0),[B]ruo[/B](2),[B]av5[/B](50)
                    [B]Call[/B] [B]SplitByChar[/B]([B]elenco[/B],".",[B]aV[/B])
                    [B]Lastr[/B] [B]=[/B] [B]UBound[/B]([B]aV[/B])
                    [B]For[/B] [B]h[/B] [B]=[/B] 0 [B]To[/B] [B]Lastr[/B] [B]-[/B] 1
                           [B]av5[/B]([B]h[/B] [B]+[/B] 1) [B]=[/B] [B]aV[/B]([B]h[/B])
                    [B]Next[/B]
                    [B]ruo[/B](1) [B]=[/B] [B]L[/B]
                    [B]Ini[/B] [B]=[/B] [B]fine[/B]
                    [B]finale[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 18
                    [B]For[/B] [B]Ini[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 1 [B]To[/B] [B]finale[/B]
                           ''''' verifica  esiti
                           [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]av5[/B],[B]ruo[/B],[B]Ini[/B],[B]sor[/B],1,,[B]retesito[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                           [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                  [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                  [B]ColoreTesto[/B](1)
                                  [B]If[/B] [B]retesito[/B] [B]=[/B] "Ambo" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Terno" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Quaterna" [B]Then[/B]
                                        [B]ColoreTesto[/B](2)
                                  [B]End[/B] [B]If[/B]
                                  [B]Scrivi[/B] "<-------colpo n.-> " [B]&[/B] [B]Format2[/B]([B]retidestr[/B] [B]-[/B]([B]fine[/B])) [B]&[/B] ".....usc.estr.." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "    " [B]&[/B] [B]retesito[/B],1
                                  [B]ColoreTesto[/B](0)
                           [B]End[/B] [B]If[/B]
                    [B]Next[/B]
                    [B]ColoreTesto[/B](0)
                    [B]Scrivi[/B] " ||||||||||||||||||||||||" [B]&[/B] [B]SiglaRuota[/B]([B]ruo[/B](1)) [B]&[/B] "|||||||||||||||||||||||v e r i f i c a  comb. In Figura|||||||||||||||||||||||||||||||||||||||||||||",1
                    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''verifica esiti combinazione solo relativa alle 9 figure
                    [B]For[/B] [B]j[/B] [B]=[/B] 1 [B]To[/B] 9
                           [B]ColoreTesto[/B](0)
                           [B]If[/B] [B]ele[/B]([B]j[/B]) [B]<>[/B] "" [B]Then[/B] [B]Scrivi[/B] " Figura " [B]&[/B] [B]j[/B] [B]&[/B] "    " [B]&[/B] [B]ele[/B]([B]j[/B]),1
                           [B]ReDim[/B] [B]aV[/B](0),[B]ruo[/B](2),[B]av5[/B](50)
                           [B]Call[/B] [B]SplitByChar[/B]([B]ele[/B]([B]j[/B]),".",[B]aV[/B])
                           [B]Lastr[/B] [B]=[/B] [B]UBound[/B]([B]aV[/B])
                           [B]For[/B] [B]h[/B] [B]=[/B] 0 [B]To[/B] [B]Lastr[/B] [B]-[/B] 1
                                  [B]av5[/B]([B]h[/B] [B]+[/B] 1) [B]=[/B] [B]aV[/B]([B]h[/B])
                           [B]Next[/B]
                           [B]ruo[/B](1) [B]=[/B] [B]L[/B]
                           [B]Ini[/B] [B]=[/B] [B]fine[/B]
                           [B]finale[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 18
                           [B]For[/B] [B]Ini[/B] [B]=[/B] [B]Ini[/B] [B]+[/B] 1 [B]To[/B] [B]finale[/B]
                                  ''''' verifica  esiti
                                  [B]Call[/B] [B]VerificaEsitoTurbo[/B]([B]av5[/B],[B]ruo[/B],[B]Ini[/B],[B]sor[/B],1,,[B]retesito[/B],[B]retcolpi[/B],[B]retestratti[/B],[B]retidestr[/B])
                                  [B]If[/B] [B]retestratti[/B] [B]<>[/B] "" [B]Then[/B]
                                        [B]ctg[/B] [B]=[/B] [B]ctg[/B] [B]+[/B] 1
                                        [B]ColoreTesto[/B](1)
                                        [B]If[/B] [B]retesito[/B] [B]=[/B] "Ambo" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Terno" [B]Or[/B] [B]retesito[/B] [B]=[/B] "Quaterna" [B]Then[/B]
                                               [B]ColoreTesto[/B](2)
                                        [B]End[/B] [B]If[/B]
                                        [B]Scrivi[/B] "<-------colpo n.-> " [B]&[/B] [B]Format2[/B]([B]retidestr[/B] [B]-[/B]([B]fine[/B])) [B]&[/B] ".....usc.estr.." [B]&[/B] [B]retidestr[/B] [B]&[/B] "....." [B]&[/B] [B]retestratti[/B] [B]&[/B] "    " [B]&[/B] [B]retesito[/B],1
                                        [B]ColoreTesto[/B](0)
                                  [B]End[/B] [B]If[/B]
                           [B]Next[/B]
                           ''''''''''''''
                    [B]Next[/B]
             [B]Next[/B]
       [B]End[/B] [B]If[/B]
[B]End[/B] [B]Sub[/B]


ho rimesso anche l'output come era prima

c'è troppa roba, non fa niente, guardate le liste degli esiti che volete.
 
Ultima modifica di un moderatore:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 01 febbraio 2025
    Bari
    83
    17
    12
    67
    85
    Cagliari
    50
    41
    18
    04
    46
    Firenze
    73
    63
    57
    74
    86
    Genova
    81
    22
    42
    37
    53
    Milano
    07
    60
    76
    11
    56
    Napoli
    87
    25
    66
    05
    33
    Palermo
    39
    58
    06
    89
    40
    Roma
    63
    23
    04
    14
    61
    Torino
    56
    59
    26
    81
    10
    Venezia
    39
    68
    37
    50
    07
    Nazionale
    19
    89
    28
    18
    33
    Estrazione Simbolotto
    Cagliari
    16
    18
    44
    24
    12
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto