Novità

Richiesta x Mike58

Mike58

Advanced Member >PLATINUM PLUS<
Stesso Script con Filtro Condizione

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
               If bb >= 18 And rpp(2) >= 18 And rpp(3) >= 18 And rpp(4) >= 18 And  aa >= 18 And rp(2) >= 18 And rp(3) >= 18 And rp(4) >= 18 Then

 
               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
               End If
               If bb >= 18 And rpp(2) >= 18 And rpp(3) >= 18 And rpp(4) >= 18 Then
                  V12 = "Ok"
               Else
                  V12 = "-"
               End If
               If bb >= 18 And rpp(2) >= 18 And rpp(3) >= 18 And rpp(4) >= 18 And  aa >= 18 And rp(2) >= 18 And rp(3) >= 18 And rp(4) >= 18 Then

               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
               End If
                If bb >= 18 And rpp(2) >= 18 And rpp(3) >= 18 And rpp(4) >= 18 And  aa >= 18 And rp(2) >= 18 And rp(3) >= 18 And rp(4) >= 18 Then

               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)
               End If
                If bb >= 18 And rpp(2) >= 18 And rpp(3) >= 18 And rpp(4) >= 18 And  aa >= 18 And rp(2) >= 18 And rp(3) >= 18 And rp(4) >= 18 Then

               Call AddRigaTabella(T,RGB(167,167,167),,3,5,"Arial Black")
               End If
            End If
         Next
      Next
   Next
   CreaTabella
   Scrivi "Tempo di Elaborazione " & TempoTrascorso
End Sub
 

miki55

Advanced Member >PLATINUM PLUS<
Oltre a quello con tre, si possono colorare
anche quelli con il RA + 2 ritardi consecutivi
in modo da distingerli man mano che uno scende
con il mause?
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Miki, con tutti questi colori facciamo solo confusione.
Ecco perchè io vi dico dando le direttive su come fare di imparare a fare piccole modifiche.
In modo da avere output personalizzati

Comunque prova cosi

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 V(11) = "Ok" Then Call SetColoreCella(3,2,4)
               If V(11) = "Ok" Then Call SetColoreCella(4,2,4)
               If V(11) = "Ok" Then Call SetColoreCella(6,2,4)
               If V(11) = "Ok" Then Call SetColoreCella(8,2,4)
               If V(11) = "Ok" Then Call SetColoreCella(11,2,4)
               '-------------------------------------------------------------------------------------------------------------
               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
               If Vv(11) = "Ok" Then Call SetColoreCella(3,2,4)
               If Vv(11) = "Ok" Then Call SetColoreCella(4,2,4)
               If Vv(11) = "Ok" Then Call SetColoreCella(6,2,4)
               If Vv(11) = "Ok" Then Call SetColoreCella(8,2,4)
               If Vv(11) = "Ok" Then Call SetColoreCella(11,2,4)

               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
 

miki55

Advanced Member >PLATINUM PLUS<
Intendevo altro, ma non importa, hai fatto lo stesso un vero capolavoro.
di script: COMPLIMENTI!!!

Poi quando avrai un pò di tempo disponibile, faremo uno script
su un'altro tipo di ISOCRONO, che non supera mai i DUE RITARDI
CONSECUTIVI
dello stesso NR su due ruote.
Quando sei disponibile ti preparo gli esempio reali,
ora, è domenica e pensiamo un pò alla famiglia.
Ciao Mkie58 e grazie.
Sei veramente un gran signore

miki55
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Miki, non ti preoccupare,quando le idee sono stimolanti, la mia disponibilità raddoppia.
Purtroppo ferie dal lavoro finite, si ricomincia per tutto l'anno a lavorare.

Prendiamoci un breve spazio, ed intanto pensa alla bozza da fare con lo script.

Ciao
 

miki55

Advanced Member >PLATINUM PLUS<
Ciao Mike. Scusami se mi permetto, ma è un vero peccato
tenere questo"gioiello" in disparte, perciò inseriamoci anche
la Nazionale che lo utilizzo ....



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
 

Serpico 90

Advanced Member
Buongiorno.....
Vi seguo da tempo siete due persone ESPERTE di lotto ......
Altruisti e disponibili .....COMPLIMENTI A TUTTI E DUE.
Mi permetto..,.se possibile, la ciliegina sulla torta..........
la ricerca della POSIZIONE da poter scommettere sul determinato e poter vincere qualcosa in più...??
Grazie
Saluti
Serpico
 

miki55

Advanced Member >PLATINUM PLUS<
Buongiorno.....
Vi seguo da tempo siete due persone ESPERTE di lotto ......
Altruisti e disponibili .....COMPLIMENTI A TUTTI E DUE.
Mi permetto..,.se possibile, la ciliegina sulla torta..........
la ricerca della POSIZIONE da poter scommettere sul determinato e poter vincere qualcosa in più...??
Grazie
Saluti
Serpico
Ciao Serpico grazie, ma io sono solo un appassionato,
invece Mike58 è un vero professionista....

Se vuoi seguire i determinati, vai su STATISTICA, ho fatto
una proposta su Bari dove gli estratti sono ancora a ZERO
esiti in due posizioni. Ciao
 
Ultima modifica:

Serpico 90

Advanced Member
Ciao ,ti ringrazio del suggerimento....spero nel pomeriggio di poter fare la giocata per Bari....
per essere piu chiaro .........e possibile inserire nello script fatto da Miki le eventuali
posizioni , massimo due,determinati?
avremmo tutte le possibilità....le ruote ,l'ambata ,la posizione determinata...
sarebbe proprio LA CILIEGINA SULLA TORTA .....( Per me che sono siciliano,;););) una bella cassata......la nostra torta) ---:coffee:(y)-
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Mike. Scusami se mi permetto, ma è un vero peccato
tenere questo"gioiello" in disparte, perciò inseriamoci anche
la Nazionale che lo utilizzo ....


Fatto...............

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 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
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
 

Serpico 90

Advanced Member
Per Mike 58......grazie sei troppo forte.......scusami se la richiesta non l'ho indirizzata direttamente a te che costruisci gli Script....come scive Miki55 SEI VERAMENTE UN GRANDE PROFESSIONISTA
CORTESEMENTE COSA NE PENSI DELLA MIA RICHIESTA? E FATTIBILE..
Sempre grazie della tua disponibilità.
Buon proseguimento
Saluti
Serpico
 

Mike58

Advanced Member >PLATINUM PLUS<
Ciao Serpico, intanto ti ringrazio per gli apprezzamenti, ma credimi mi diletto solo a mettere insieme un pò di codici per ricavare una qualche risultanza ad un determinato progetto.
Per la posizione determinata potrebbe essere possibile ma come in ogni cosa ci vuole la direttiva o progetto per estrapolarla.
Noi (io e Miki ) abbiamo solo estrapolato una raccolta dati di isocrono su 2 ruote con 3 ritardi precedente + relativi ritardo cronologico, ancora non mi è chiaro l'utilizzo di quando e come attaccare la condizione e quindi ancora meno capire quale determinato considerare.

Come sempre per me gli script sono palestra per la mente, ma l'idea o il progetto resta sempre solo una considerazione degli utenti.
 

Serpico 90

Advanced Member
Buon giorno ...Miki e Mike ......
guardando lo script fatto al post 23 mi viene da fare una considerazione ....e viene fuori questa idea .....
tra tutti i numeri .in ROSSO con la scritta OK Sempre in ROSSO....dalla data del 14.7 in poi VI sono il numero 4 e il numero 38 ora ......per le ruote indicate si potrebbe inserire la previsione del posto determinato?......
in sostanza ogni volta che lo script indica UN NUMERO IN ROSSO .....NELLE RUOTE INDICATE DAL NUMERO INSERIRE LA PREVISIONE DEL POSTO (MASSIMO DUE) DETERMINATO .
Ora provo a mettere copia di quello che ho scritto per maggio informazione (se riesco:)
 

Serpico 90

Advanced Member
Numero​
RuotaPos​
Rit Att​
R1​
Tot1​
R2​
Tot2​
R3​
Tot3​
TotTot​
OK​
4​
BA4​
27​
7​
34​
17​
51​
2​
53​
138​
-​
4​
NZ5​
27​
24​
51​
27​
78​
18​
96​
225​
Ok​
-​
Tot_V​
54​
31​
85​
44​
129​
20​
149​
363​
-​
estrazione del 14.7.......il n. 4 in rosso con OK e possibile inserire.la previsione delle posizioni determinate....?
 

Serpico 90

Advanced Member
38​
BA5​
22​
36​
58​
36​
94​
25​
119​
271​
Ok​
38​
NZ1​
22​
18​
40​
19​
59​
46​
105​
204​
Ok​
-​
Tot_V​
44​
54​
98​
55​
153​
71​
224​
475​
-​
Numero​
RuotaPos​
Rit Att​
R1​
Tot1​
R2​
Tot2​
R3​
Tot3​
TotTot​
OK​
38​
FI2​
9​
43​
52​
16​
68​
29​
97​
217​
-​
38​
PA3​
9​
5​
14​
2​
16​
18​
34​
64​
-​
estrazione del 14.7 qui il n.38 e previsto in quattro ruote ...e possibile per tutte le quattro ruote previsione sulla posizione determinata?
Per quanto rigurda il n.4 siamo in attesa che venga estratto
mentre il n.38 Viene estratto il 18.luglio......a Palermo in 3 posizione...............
Ho fatto questi esempi per verificare se con la vostra esperienza si puo trovare qualcosa per colpire e affondare il numero previsto in rosso.
Faccio delle piccole considerazione.......
Questa la mia idea
Aspettiamo che lo script ci indica i numeri in ROSSO e iniziamo a scommettere sulle ruote e le posizioni indicate ,non credo che saranno molte le previsioni (in giornata faro delle prove sulle estrazioni del passato per verificare quante previsioni vengono fuori ) .......e vediamo cosa ne viene fuori.
Spero di essere stato chiaro nell'esposizione (non è il mio forte) ....
Vi auguro una buona giornata
Saluti
Serpico
 

miki55

Advanced Member >PLATINUM PLUS<
Ciao Serpico, in pratica vuoi conoscere quale sia la posizione
determinata più ritardata sulle QUATTRO RUOTE del 38 ???
Se è quello, posso dirti che le più scompensate sono la 3° e la 4°
posizione.
 

Serpico 90

Advanced Member
Ciao Miki......questa previsione del 38 in 3° e 4° posizione l'hai rilevata dopo l'estrazione del 14 Luglio?
Se e cosi allora OK .
il 18 Luglio il n.38 è stato estratto a Palermo al 3° posto determinato .
Colpito ed affondato dalle vostre intuizioni.
Ora stiamo Aspettando il n.4. A BARI E NAZIONALE cosa prevedi? come posti determinati?
Per Miki 58 ...queste idee sono progettuabili per inserire, nello script che hai fatto, le posizioni determinate con
i suggerimenti tecnici che potrebbe dare Miki 55.
Grazie sempre per la vostra disponibilità ed esperienza in merito.
Saluti
Serpico
 

miki55

Advanced Member >PLATINUM PLUS<
Il 4 su BA e NZ stasera quando rientro ti informo



Saluti
 
Ultima modifica:

Serpico 90

Advanced Member
Ciao grazie ci proviamo....
ho finito di verificare l'anno 2018.........per la mia piccola esperienza lottistica debbo dire che seguendo le previsioni in rosso dello script .......le ambate da seguire non sono tante quindi volendo non ci sarebbe un grande esborso di euri
le previsioni del 2018 sono tutte state estratte nelle ruote ....quindi ho verificato le ruote....ho verificato i numeri estratti nelle ruote indicate...........se riusciste ad inserire le previsioni delle due posizioni determinate....credo che ci potremmo togliere qualche piccola soddisfazione.....se avete un po di tempo disponibile potreste verificare voi , sono disponibile se volte ad indicarvi e date ...........delle previsioni...........
Domani continuo con l'anno 2019........
A voi l'ardua sentenza
Saluti
Serpico
 

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