Novità

Richiesta x Mike58

miki55

miki55

Advanced Member >PLATINUM PLUS<
La tabella sotto esposta, fa un esempio di richiesta dello script.
Cos'è??

E' il prototipo di un estratto ISOCRONO su due ruote, con i rispettivi
ultimi TRE RITARDI precedenti e calcoli di somma, sia in orizzontale
che in verticale.

Farli a mano, come al solito, è pur sempre complicato e chiedevo
il tuo ausilio per potermi soddisfare questa domanda, inserendo poi
un qualsiasi altro estratto isocrono con le rispettive somme dei ritardi
così come evidenziati.

Ho specificato inoltre, il significato di ogni casella...



Da notare che il totale 155 è lo stesso sia in verticale che in orizzontale

E' possibile esaudire questa richiesta??
Attendo risposta, grazie per l'attenzione...

miki55
 
Ultima modifica:
Ciao Miki ho fatto una piccola bozza di script, ma non mi trovo con i tuoi dati, puoi verificare le mie risultanze.
Nel caso di correttivi poi vediamo.

Ciao

Codice: 
Sub Main
   Dim Nu(1),aN(1),Rt1(1),Rt2(1)
   Dim T,V,VV,VVV
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   T = Array(T,"Numero","Ruota","Rit Att","Rp1","Tot1","Rp2","Tot2","Rp3","Tot3","TotTot")
   Call InitTabella(T)
   For n = 49 To 49
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            aa = EstrattoRitardo(r1,n,Ini,fin)
            bb = EstrattoRitardo(r2,n,Ini,fin)
            p1 = Posizione(fin - aa,r1,n)
            p2 = Posizione(fin - bb,r2,n)
            If aa = bb And p1 = p2 Then
               Rt1(1) = r1
               Rt2(1) = r2
               Nu(1) = n
               aN(1) = n
               ReDim rp(4)
               ReDim rpp(4)
               Inizio = EstrazioneIni
               fine = fin - aa
               fine2 = fin - bb
               For z = 1 To 4
                  rp(z) = SerieRitardo(Inizio,fine,Nu,Rt1,1)
                  rpp(z) = SerieRitardo(Inizio,fine2,aN,Rt2,1)
                  fine = fine -(rp(z) + 1)
                  fine2 = fine2 -(rpp(z) + 1)
               Next
               Tot1 = aa+rp(2) : Tot2 = Tot1+rp(3) : Tot3 = Tot2+rp(4)
               Tot4 = bb+rpp(2) : Tot5 = Tot4+rpp(3) : Tot6 = Tot5+rpp(4)
               Tt1 = Tot1+Tot2+Tot3
               Tt2 = Tot4+Tot5+Tot6
               Tt3 = Tt1+Tt2
              
               V = Array(V,n,SiglaRuota(r1),aa,rp(2),Tot1,rp(3),Tot2,rp(4),Tot3,Tt1)
               Call AddRigaTabella(V)
               Call SetColoreCella(1,RGB(252,89,35),0)
               Call SetColoreCella(5,6,0)
               Call SetColoreCella(7,6,0)
               Call SetColoreCella(9,6,0)

               VV = Array(VV,n,SiglaRuota(r2),bb,rpp(2),Tot4,rpp(3),Tot5,rpp(4),Tot6,Tt2)
               Call AddRigaTabella(VV)
               Call SetColoreCella(1,RGB(252,89,35),0)
               Call SetColoreCella(5,6,0)
               Call SetColoreCella(7,6,0)
               Call SetColoreCella(9,6,0)

               VVV = Array(VVV,"-","Tot_V",aa+bb,rp(2)+rpp(2),Tot1+Tot4,rp(3)+rpp(3),Tot2+Tot5,rp(4)+rpp(4),Tot3+Tot6,Tt3)
               Call AddRigaTabella(VVV)
               Call SetColoreCella(5,3,0)
               Call SetColoreCella(7,3,0)
               Call SetColoreCella(9,3,0)
              
            End If
         Next
      Next
   Next
   CreaTabella
End Sub
 


Vediamo le correzioni poi dopo se possibile aggiungiamo lo STORICO
Il resto pare vada bene. Ci sentiamo dopo...
 
Ciao Miki, la mia dicitura Rpx vuole significare Ritardo precedente x e chiaro che può voler significare anche Ritardo di posizione.
Sicuramente conta il ritardo della ruota o elenco ritardo.

Il dato di Milano se conteggiato solo su ruota ha quel ritardo che sono le mie risultanze, mentre se contegiato sulle 2 ruote unite e chiaro che prende il ritardo minimo della 2° ruota.

Vediamo le correzioni poi vediamo per lo storico che può essere più complicato.

vedi estrazioni Milano

Ruota Milano Numero... 49

[09794] [ 66] 14.07.2020 - 49.79.60.23.72 --- 1
[09773] [ 45] 26.05.2020 - 35.85.49.20.37 --- 22
[09771] [ 43] 21.05.2020 - 49.13.61.05.65 --- 24
[09770] [ 42] 19.05.2020 - 45.50.49.80.31 --- 25
[09759] [ 31] 12.03.2020 - 83.04.49.63.82 --- 36
[09757] [ 29] 07.03.2020 - 05.50.04.19.49 --- 38
[09695] [124] 15.10.2019 - 70.80.64.07.49 --- 100
 


E' GENOVA non Milano...
Ecco perchè cerco il sostegno di uno script, proprio per evitare questi errori puerili...
 
ok Miki.
Ho tolto il vincolo delle posizioni uguali e così trova anche la coppia Na+Ge con le risultanze corrette.
Per lo storico adesso non ho idea sul come procedere, fammi capire meglio se mantenere lo script con immissione manuale oppure con ricerca in automatico.

Secondo me con un coefficente valido si potrebbe trovare il tutto in automatico, ma come in ogni progetto ci vogliono indicazioni ben definite.


Codice: 
Sub Main
   Dim Nu(1),aN(1),Rt1(1),Rt2(1)
   Dim T,V,VV,VVV
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   T = Array(T,"Numero","Ruota"&"Pos","Rit Att","R1","Tot1","R2","Tot2","R3","Tot3","TotTot")
   Call InitTabella(T)
   For n = 49 To 49
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            aa = EstrattoRitardo(r1,n,Ini,fin)
            bb = EstrattoRitardo(r2,n,Ini,fin)
            p1 = Posizione(fin - aa,r1,n)
            p2 = Posizione(fin - bb,r2,n)
            'If aa = bb And p1 = p2 Then
            If aa = bb Then
               Rt1(1) = r1
               Rt2(1) = r2
               Nu(1) = n
               aN(1) = n
               ReDim rp(4)
               ReDim rpp(4)
               Inizio = EstrazioneIni
               fine = fin - aa
               fine2 = fin - bb
               For z = 1 To 4
                  rp(z) = SerieRitardo(Inizio,fine,Nu,Rt1,1)
                  rpp(z) = SerieRitardo(Inizio,fine2,aN,Rt2,1)
                  fine = fine -(rp(z) + 1)
                  fine2 = fine2 -(rpp(z) + 1)
               Next
               Tot1 = aa + rp(2) : Tot2 = Tot1 + rp(3) : Tot3 = Tot2 + rp(4)
               Tot4 = bb + rpp(2) : Tot5 = Tot4 + rpp(3) : Tot6 = Tot5 + rpp(4)
               Tt1 = Tot1 + Tot2 + Tot3
               Tt2 = Tot4 + Tot5 + Tot6
               Tt3 = Tt1 + Tt2
              
               V = Array(V,n,SiglaRuota(r1)&p1,aa,rp(2),Tot1,rp(3),Tot2,rp(4),Tot3,Tt1)
               Call AddRigaTabella(V)
               Call SetColoreCella(1,RGB(252,89,35),0)
               Call SetColoreCella(5,6,0)
               Call SetColoreCella(7,6,0)
               Call SetColoreCella(9,6,0)

               VV = Array(VV,n,SiglaRuota(r2)&p2,bb,rpp(2),Tot4,rpp(3),Tot5,rpp(4),Tot6,Tt2)
               Call AddRigaTabella(VV)
               Call SetColoreCella(1,RGB(252,89,35),0)
               Call SetColoreCella(5,6,0)
               Call SetColoreCella(7,6,0)
               Call SetColoreCella(9,6,0)

               VVV = Array(VVV,"-","Tot_V",aa + bb,rp(2) + rpp(2),Tot1 + Tot4,rp(3) + rpp(3),Tot2 + Tot5,rp(4) + rpp(4),Tot3 + Tot6,Tt3)
               Call AddRigaTabella(VVV)
               Call SetColoreCella(5,3,0)
               Call SetColoreCella(7,3,0)
               Call SetColoreCella(9,3,0)
              
            End If
         Next
      Next
   Next
   CreaTabella
End Sub
 
pasqualino c ha scritto:
X Mike58 è possibile un listato che legge listati?
Ho Spaziometria che si blocca.
Clicca per espandere...
Pasqalino c, no!!! questo genere di listato non si può fare.
SPAZIOMETRIA che si blocca se non dipende da qualche tuo listato, disinstalla spaziometria e reinstallano ex novo, avendo cura di far installare in modo corretto il programma.

Ciao

P.s per non intralciare il corretto prosieguo di un post o progetto è sempre meglio per altre richieste aprire un post apposito.
Nuova Discussione.
 
Benissimo, si può procedere ora, con la casella dell'inserimento del
nr ISOCRONO da preferire e possibilmente gli storici. COME?



Basta farsi la domanda:
Quali sono stati i "TotTot" somma dei tre ritardi storici consecutivi
del 49 su due ruote??
Così facciamo anche con gli altri ISOCRONI prescelti...
 
Ciao Miki, per gli storici la vedo dura, è difficile arrivare a capire quando 3 ritardi in un dato range ( ma deve essere tutte le estrazioni) hanno raggiunto un massimo storico.
Anche se trovo il massimo storico del numero non è detto che le estrazioni successive o precedenti sommati superino il ritardo corrente trovato.
Quindi non saprei come operare e poi mi rifiuto di far processare lo script per tutte le estrazioni alla ricerca di un massimo possibile, pena i tempi di processo.

Del coefficiente tutti hanno la stessa somma sia verticale che orizzontale, si puo filtrare eventualmente quello come minimo da cercare. ma non saprei !!!

Ti metto 2 script il primo cerca tutti i numeri e il secondo il numero che vuoi analizzare.

P,s. mi riguardo VL7 per vedere come analizza la somma storica e se trovo una escomotage vedo cosa si può fare ( script per vl7 ormai li ho quasi dimenticati )

1° script

Codice: 
Sub Main
   Dim Nu(1),aN(1),Rt1(1),Rt2(1)
   Dim T,V,VV,VVV
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   T = Array(T,"Numero","Ruota" & "Pos","Rit Att","R1","Tot1","R2","Tot2","R3","Tot3","TotTot")
   Call InitTabella(T,RGB(167,167,167),,3,5,"Arial Black")
   For n = 1 To 90
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            aa = EstrattoRitardo(r1,n,Ini,fin)
            bb = EstrattoRitardo(r2,n,Ini,fin)
            p1 = Posizione(fin - aa,r1,n)
            p2 = Posizione(fin - bb,r2,n)
            'If aa = bb And p1 = p2 Then
            If aa = bb Then
               Rt1(1) = r1
               Rt2(1) = r2
               Nu(1) = n
               aN(1) = n
               ReDim rp(4)
               ReDim rpp(4)
               Inizio = EstrazioneIni
               fine = fin - aa
               fine2 = fin - bb
               For z = 1 To 4
                  rp(z) = SerieRitardo(Inizio,fine,Nu,Rt1,1)
                  rpp(z) = SerieRitardo(Inizio,fine2,aN,Rt2,1)
                  fine = fine -(rp(z) + 1)
                  fine2 = fine2 -(rpp(z) + 1)
               Next
               Tot1 = aa + rp(2) : Tot2 = Tot1 + rp(3) : Tot3 = Tot2 + rp(4)
               Tot4 = bb + rpp(2) : Tot5 = Tot4 + rpp(3) : Tot6 = Tot5 + rpp(4)
               Tt1 = Tot1 + Tot2 + Tot3
               Tt2 = Tot4 + Tot5 + Tot6
               Tt3 = Tt1 + Tt2
              
               V = Array(V,n,SiglaRuota(r1) & p1,aa,rp(2),Tot1,rp(3),Tot2,rp(4),Tot3,Tt1)
               Call AddRigaTabella(V)
               If p1 = p2 Then Call SetColoreCella(2,RGB(252,89,35),0)
               Call SetColoreCella(1,RGB(252,89,35),0)
               Call SetColoreCella(5,6,0)
               Call SetColoreCella(7,6,0)
               Call SetColoreCella(9,6,0)

               VV = Array(VV,n,SiglaRuota(r2) & p2,bb,rpp(2),Tot4,rpp(3),Tot5,rpp(4),Tot6,Tt2)
               Call AddRigaTabella(VV)
               If p1 = p2 Then Call SetColoreCella(2,RGB(252,89,35),0)
               Call SetColoreCella(1,RGB(252,89,35),0)
               Call SetColoreCella(5,6,0)
               Call SetColoreCella(7,6,0)
               Call SetColoreCella(9,6,0)

               VVV = Array(VVV,"-","Tot_V",aa + bb,rp(2) + rpp(2),Tot1 + Tot4,rp(3) + rpp(3),Tot2 + Tot5,rp(4) + rpp(4),Tot3 + Tot6,Tt3)
               Call AddRigaTabella(VVV,,,3,1,"arial black")
               Call SetColoreCella(5,3,0)
               Call SetColoreCella(7,3,0)
               Call SetColoreCella(9,3,0)
               Call SetColoreCella(10,7,5)
              
            End If
         Next
      Next
   Next
   CreaTabella
End Sub

2° script

Codice: 
Sub Main
   Dim Nu(1),aN(1),Rt1(1),Rt2(1)
   Dim T,V,VV,VVV
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   Scrivi "Numero Isocrono",1
   nn = InputBox("Quale Numero Isocrono",,49)
   T = Array(T,"Numero","Ruota" & "Pos","Rit Att","R1","Tot1","R2","Tot2","R3","Tot3","TotTot")
   Call InitTabella(T,RGB(167,167,167),,3,5,"Arial Black")
   For n = nn To nn
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            aa = EstrattoRitardo(r1,n,Ini,fin)
            bb = EstrattoRitardo(r2,n,Ini,fin)
            p1 = Posizione(fin - aa,r1,n)
            p2 = Posizione(fin - bb,r2,n)
            'If aa = bb And p1 = p2 Then
            If aa = bb Then
               Rt1(1) = r1
               Rt2(1) = r2
               Nu(1) = n
               aN(1) = n
               ReDim rp(4)
               ReDim rpp(4)
               Inizio = EstrazioneIni
               fine = fin - aa
               fine2 = fin - bb
               For z = 1 To 4
                  rp(z) = SerieRitardo(Inizio,fine,Nu,Rt1,1)
                  rpp(z) = SerieRitardo(Inizio,fine2,aN,Rt2,1)
                  fine = fine -(rp(z) + 1)
                  fine2 = fine2 -(rpp(z) + 1)
               Next
               Tot1 = aa + rp(2) : Tot2 = Tot1 + rp(3) : Tot3 = Tot2 + rp(4)
               Tot4 = bb + rpp(2) : Tot5 = Tot4 + rpp(3) : Tot6 = Tot5 + rpp(4)
               Tt1 = Tot1 + Tot2 + Tot3
               Tt2 = Tot4 + Tot5 + Tot6
               Tt3 = Tt1 + Tt2
              
               V = Array(V,n,SiglaRuota(r1) & p1,aa,rp(2),Tot1,rp(3),Tot2,rp(4),Tot3,Tt1)
               Call AddRigaTabella(V)
               If p1 = p2 Then Call SetColoreCella(2,RGB(252,89,35),0)
               Call SetColoreCella(1,RGB(252,89,35),0)
               Call SetColoreCella(5,6,0)
               Call SetColoreCella(7,6,0)
               Call SetColoreCella(9,6,0)

               VV = Array(VV,n,SiglaRuota(r2) & p2,bb,rpp(2),Tot4,rpp(3),Tot5,rpp(4),Tot6,Tt2)
               Call AddRigaTabella(VV)
               If p1 = p2 Then Call SetColoreCella(2,RGB(252,89,35),0)
               Call SetColoreCella(1,RGB(252,89,35),0)
               Call SetColoreCella(5,6,0)
               Call SetColoreCella(7,6,0)
               Call SetColoreCella(9,6,0)

               VVV = Array(VVV,"-","Tot_V",aa + bb,rp(2) + rpp(2),Tot1 + Tot4,rp(3) + rpp(3),Tot2 + Tot5,rp(4) + rpp(4),Tot3 + Tot6,Tt3)
               Call AddRigaTabella(VVV,,,3,1,"arial black")
               Call SetColoreCella(5,3,0)
               Call SetColoreCella(7,3,0)
               Call SetColoreCella(9,3,0)
               Call SetColoreCella(10,7,5)
              
            End If
         Next
      Next
   Next
   CreaTabella
End Sub
 
Mamma mia che dirti Mike, sono senza parole...
Non sei solamente bravo, ma di più, un vero artista del settore...
COMPLIMENTI SINCERI!!!

miki55
 
Chiedo un'ultima cortesia.
Mi farebbe piacere marcare maggiormente la riga con
il Nr sincrono ed i rispettivi che tre ritardi, che quella del TOT_V.
Si può fare il contrario?
 
Ultima modifica:
Miki Puoi farlo anche da solo.
la scrittura riga si fà con il codice Call AddRigaTabella(V) con l'apposito Vettote (v)
ora se leggi la leggenda del codice ti lascia inserire i vari parametri di colore,size, formato carattere
se vedi il codice della riga Tot_V
Call AddRigaTabella(VVV,,,3,1,"arial black")
ha inserito i vari parametri e dove non mi interessa scrivere hanno la virgola che non scrive nulla.
Hai 3 vettori in array V - VV - VVV
vedi come sono scritti e fai le tue modifiche, preferisco così perchè capisco che le presentazioni sono poi sempre personalizzate.

Se non dovessi riuscire sono qui .


Ciao
 
Miki, ho dato una occhiata agli storici con vl7 e mi pari di avere risultanze uguali ad un altro mio script forse fatto per te.
puoi verificare i dati storici che se sono reali li mettiamo sullo script in esame.

 
Ultima modifica:
Ciao Mike. Per quanto riguarda le modifiche, non ci penso nemmeno,
perchè sono imbranato con gli script e non voglio "distruggere" queste
due ultime opere scritte da te.

Per me sono come dei quadri da appendere alla parete. Perciò...

Ora, il mio obiettivo è di conoscere quali sono gli estratti isocroni che abbiano
superato negli ultimi 3 RITARDI delle 18 estrazioni e quì bisogna evidenziarli con
ARIAL BLACK. Specie nel primo script dove c'è l'elenco su tutte, perchè nello scorrere
con la coda dell'occhio, noti subito quali sono. Poi verifico tra questi, se esistono
convergenze per la caduta dello stesso su una delle due ruote...
Tutto quà
 
Miki, cosa significa

quali sono gli estratti isocroni che abbiano
superato negli ultimi 3 RITARDI delle 18 estrazioni e quì bisogna evidenziarli

Ti ho scambiato la scrittura in size arial black delle 2 colonne delle ruote con la riga totale, togliendo tutte le formattazione dei setcolorecella.

Solo per capire, tu cosa evidenzieresti nei ritardi o nelle colonne totali x.

Tranquillo si può fare di tutto

P.s. ma non è meglio avere + ritardi precedenti e poi vedere quanti hanno superato 18 estrazioni o 9 estrazioni (2 Ruote) e conteggiarli e oltre tutto avere un totale e una media?

Dimmi tu la videata che vuoi avere.

Ciao

Codice: 
Sub Main
   Dim Nu(1),aN(1),Rt1(1),Rt2(1)
   Dim T,V,VV,VVV
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   Scrivi "Numero Isocrono",1
   nn = InputBox("Quale Numero Isocrono",,49)
   T = Array(T,"Numero","Ruota" & "Pos","Rit Att","R1","Tot1","R2","Tot2","R3","Tot3","TotTot")
   Call InitTabella(T,RGB(167,167,167),,3,5,"Arial Black")
   For n = nn To nn
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            aa = EstrattoRitardo(r1,n,Ini,fin)
            bb = EstrattoRitardo(r2,n,Ini,fin)
            p1 = Posizione(fin - aa,r1,n)
            p2 = Posizione(fin - bb,r2,n)
            'If aa = bb And p1 = p2 Then
            If aa = bb Then
               Rt1(1) = r1
               Rt2(1) = r2
               Nu(1) = n
               aN(1) = n
               ReDim rp(4)
               ReDim rpp(4)
               Inizio = EstrazioneIni
               fine = fin - aa
               fine2 = fin - bb
               For z = 1 To 4
                  rp(z) = SerieRitardo(Inizio,fine,Nu,Rt1,1)
                  rpp(z) = SerieRitardo(Inizio,fine2,aN,Rt2,1)
                  fine = fine -(rp(z) + 1)
                  fine2 = fine2 -(rpp(z) + 1)
               Next
               Tot1 = aa + rp(2) : Tot2 = Tot1 + rp(3) : Tot3 = Tot2 + rp(4)
               Tot4 = bb + rpp(2) : Tot5 = Tot4 + rpp(3) : Tot6 = Tot5 + rpp(4)
               Tt1 = Tot1 + Tot2 + Tot3
               Tt2 = Tot4 + Tot5 + Tot6
               Tt3 = Tt1 + Tt2
              
               V = Array(V,n,SiglaRuota(r1) & p1,aa,rp(2),Tot1,rp(3),Tot2,rp(4),Tot3,Tt1)
               Call AddRigaTabella(V,,,3,1,"arial black")

               If p1 = p2 Then Call SetColoreCella(2,RGB(252,89,35),5)
               Call SetColoreCella(1,RGB(252,89,35),0)
               'Call SetColoreCella(5,6,0)
               'Call SetColoreCella(7,6,0)
               'Call SetColoreCella(9,6,0)

               VV = Array(VV,n,SiglaRuota(r2) & p2,bb,rpp(2),Tot4,rpp(3),Tot5,rpp(4),Tot6,Tt2)
               Call AddRigaTabella(VV,,,3,1,"arial black")

               If p1 = p2 Then Call SetColoreCella(2,RGB(252,89,35),5)
               Call SetColoreCella(1,RGB(252,89,35),0)
               'Call SetColoreCella(5,6,0)
               'Call SetColoreCella(7,6,0)
               'Call SetColoreCella(9,6,0)

               VVV = Array(VVV,"-","Tot_V",aa + bb,rp(2) + rpp(2),Tot1 + Tot4,rp(3) + rpp(3),Tot2 + Tot5,rp(4) + rpp(4),Tot3 + Tot6,Tt3)
               Call AddRigaTabella(VVV)
               'Call SetColoreCella(5,3,0)
               'Call SetColoreCella(7,3,0)
               'Call SetColoreCella(9,3,0)
               'Call SetColoreCella(10,7,5)
              
            End If
         Next
      Next
   Next
   CreaTabella
End Sub
 
Ecco un esempio reale...



Se noti bene, trovi il 38 a 24 estraz di ritardo
Negli ultimi ritardi li ha superati per ben tre
volte + quello attuale e sono 4.
Quando tempo può resistere questa formazione??

Però ho notato che il 38 nello script NON c'è e a me
proprio queste formazioni servono...


Ricerca fatta manualmente, ed ho trovoto che è l'unica
con tre ritardi consecutivi superiori alle 18 estrazioni,
il restante sono tutti con ma x due, ma nel ns script non
c'è il 38 non risulta proprio...
 
Ultima modifica:
Ok Miki ci provo.
Nazionale non era conteggiata, con il ciclo for , la ricalcoliamo.
Devo evidenziare quelle che hanno ritardo superiore o uguale a 18 in tutta la riga (ok).
 
Prova cosi 1 script

Codice: 
Sub Main
   Dim Nu(1),aN(1),Rt1(1),Rt2(1)
   Dim T,V,VV,VVV
   Ini = EstrazioneFin - 200
   fin = EstrazioneFin
   ResetTimer
   T = Array(T,"Numero","Ruota" & "Pos","Rit Att","R1","Tot1","R2","Tot2","R3","Tot3","TotTot","OK")
   Call InitTabella(T,RGB(167,167,167),,3,5,"Arial Black")
   For n = 1 To 90
      For r1 = 1 To 10
         For r2 = r1 + 1 To 12
            If r2 = 11 Then r2 = 12
            aa = EstrattoRitardo(r1,n,Ini,fin)
            bb = EstrattoRitardo(r2,n,Ini,fin)
            p1 = Posizione(fin - aa,r1,n)
            p2 = Posizione(fin - bb,r2,n)
            'If aa = bb And p1 = p2 Then
            If aa = bb Then
               Call Messaggio("Project By Miki55 . . . . .   " & "   A T T E N D E R E    ")
               Call AvanzamentoElab(1,90,n)
               Rt1(1) = r1
               Rt2(1) = r2
               Nu(1) = n
               aN(1) = n
               ReDim rp(4)
               ReDim rpp(4)
               Inizio = EstrazioneIni
               fine = fin - aa
               fine2 = fin - bb
               For z = 1 To 4
                  rp(z) = SerieRitardo(Inizio,fine,Nu,Rt1,1)
                  rpp(z) = SerieRitardo(Inizio,fine2,aN,Rt2,1)
                  fine = fine -(rp(z) + 1)
                  fine2 = fine2 -(rpp(z) + 1)
               Next
               Tot1 = aa + rp(2) : Tot2 = Tot1 + rp(3) : Tot3 = Tot2 + rp(4)
               Tot4 = bb + rpp(2) : Tot5 = Tot4 + rpp(3) : Tot6 = Tot5 + rpp(4)
               Tt1 = Tot1 + Tot2 + Tot3
               Tt2 = Tot4 + Tot5 + Tot6
               Tt3 = Tt1 + Tt2
               If aa >= 18 And rp(2) >= 18 And rp(3) >= 18 And rp(4) >= 18 Then
                  v11 = "Ok"
               Else
                  V11 = "-"
               End If
               V = Array(V,n,SiglaRuota(r1) & p1,aa,rp(2),Tot1,rp(3),Tot2,rp(4),Tot3,Tt1,v11)
               Call AddRigaTabella(V,,,3,,"arial Black")
               If p1 = p2 Then Call SetColoreCella(2,RGB(252,89,35),0)
               Call SetColoreCella(1,RGB(252,89,35),0)
               Call SetColoreCella(5,6,0)
               Call SetColoreCella(7,6,0)
               Call SetColoreCella(9,6,0)
               For x = 3 To 10
                  If aa >= 18 And rp(2) >= 18 And rp(3) >= 18 And rp(4) >= 18 Then Call SetColoreCella((x),RGB(88,171,171),0)
               Next
               If bb >= 18 And rpp(2) >= 18 And rpp(3) >= 18 And rpp(4) >= 18 Then
                  V12 = "Ok"
               Else
                  V12 = "-"
               End If
               VV = Array(VV,n,SiglaRuota(r2) & p2,bb,rpp(2),Tot4,rpp(3),Tot5,rpp(4),Tot6,Tt2,v12)
               Call AddRigaTabella(VV,,,3,,"arial black")
               If p1 = p2 Then Call SetColoreCella(2,RGB(252,89,35),0)
               Call SetColoreCella(1,RGB(252,89,35),0)
               Call SetColoreCella(5,6,0)
               Call SetColoreCella(7,6,0)
               Call SetColoreCella(9,6,0)
               For xx = 3 To 10
                  If bb >= 18 And rpp(2) >= 18 And rpp(3) >= 18 And rpp(4) >= 18 Then Call SetColoreCella((xx),RGB(88,171,171),0)
               Next
               VVV = Array(VVV,"-","Tot_V",aa + bb,rp(2) + rpp(2),Tot1 + Tot4,rp(3) + rpp(3),Tot2 + Tot5,rp(4) + rpp(4),Tot3 + Tot6,Tt3,"-")
               Call AddRigaTabella(VVV,,"Right",3,1,"Cambria")
               Call SetColoreCella(5,3,0)
               Call SetColoreCella(7,3,0)
               Call SetColoreCella(9,3,0)
               Call SetColoreCella(10,7,5)
               Call AddRigaTabella(T,RGB(167,167,167),,3,5,"Arial Black")
            End If
         Next
      Next
   Next
   CreaTabella
   Scrivi "Tempo di Elaborazione " & TempoTrascorso
End Sub
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto