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
    martedì 26 novembre 2024
    Bari
    35
    16
    24
    41
    85
    Cagliari
    89
    30
    10
    81
    72
    Firenze
    38
    60
    16
    13
    28
    Genova
    52
    15
    80
    08
    53
    Milano
    33
    77
    06
    54
    73
    Napoli
    01
    50
    64
    35
    36
    Palermo
    02
    01
    19
    33
    62
    Roma
    33
    48
    72
    47
    68
    Torino
    62
    28
    18
    75
    31
    Venezia
    03
    54
    27
    14
    71
    Nazionale
    02
    44
    27
    86
    78
    Estrazione Simbolotto
    Torino
    30
    07
    39
    14
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto