Novità

Richiesta x Mike58

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:

Mike58

Advanced Member >PLATINUM PLUS<
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
 

miki55

Advanced Member >PLATINUM PLUS<


Vediamo le correzioni poi dopo se possibile aggiungiamo lo STORICO
Il resto pare vada bene. Ci sentiamo dopo...
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

miki55

Advanced Member >PLATINUM PLUS<


E' GENOVA non Milano...
Ecco perchè cerco il sostegno di uno script, proprio per evitare questi errori puerili...
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Mike58

Advanced Member >PLATINUM PLUS<
X Mike58 è possibile un listato che legge listati?
Ho Spaziometria che si blocca.
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.
 

miki55

Advanced Member >PLATINUM PLUS<
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...
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

miki55

Advanced Member >PLATINUM PLUS<
Mamma mia che dirti Mike, sono senza parole...
Non sei solamente bravo, ma di più, un vero artista del settore...
COMPLIMENTI SINCERI!!!

miki55
 

miki55

Advanced Member >PLATINUM PLUS<
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:

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Mike58

Advanced Member >PLATINUM PLUS<
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:

miki55

Advanced Member >PLATINUM PLUS<
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à
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

miki55

Advanced Member >PLATINUM PLUS<
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:

Mike58

Advanced Member >PLATINUM PLUS<
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).
 

Mike58

Advanced Member >PLATINUM PLUS<
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto