Per chi ne è in grado

[claudio8]

altra correzione riga 35 sostituire
Ex = Es - ER + 01
con
Ex = Es - ER

Se testate lo script con
ruota=1 Bari
casi=1
esrazioni da esaminare =2
fine range Spaziometria al 7/05/22
numeri da otterrete 5 o 10 o +
avrete come miglior precursore il 50 con freq = 2
qindi vi domanderete
come è possibile che il migliore abbia fre=2 se i casi sono 1

vi riporto quanto ho secificato sopra:
"- quando si opera con ricerche con blocchi di estrazioni ( range colpi ), sia il ciclo for delle estrazioni con annesso quello delle posizioni, che la funzione "serie frequenza" rilevano la totalità delle occorrenze rilevabili, mentre l'analisi deve terminare alla presenza o meno della singola occorrenza nel range in analisi, la sommatoria nuda e cruda quasi sempre falsa la validità della ricerca;"
( in sintesi ciò che ho appena specificato è la differenza che passa tra il concetto di frequenza e quello di copertura)

non me ne voglia Fabri.m ma di queso genere di errori ed altri è pieno il mondo degli scripter principalmente perchè gli utilizzatori non fanno mai test di controllo sui risultati degli script
saluti

 

[claudio8]

Si claudio esatto ma il mio pensiero dei precursori è : se inserisco il 90 mi dice che dopo l'uscita del 5-30 41 ecc. dovrebbe uscire il 90.
cambiando script
se inserisco il 90 e voglio i frequenti come fa a darmi sempre gli stessi numeri 5-30-41 ?
I precursori sono il passato e i frequenti sono il futuro acc............ho un pensiero ..errato !

non ti deve dare gli stessi numeri a meno di casi e condizioni paricolare.
Innanzitutto devi usare uno script che trova i frequenti e poi insendo il 5-30-41 quale spia, otterrai tra i frequenti il 90.

ti ho rimesso lo script aggingendoti le estrazioni successive alla spia.
Nota da solo la differenza "fisica" tra precursori e frequenti

Option Explicit
Sub Main()
     Call Scrivi()
     Call Scrivi(String(36," ") & "NUMERI RILEVATORI LOTTO *",True,True,,01)
     Call Scrivi()
     Dim numero(90,03),num(01),ruota(1),nn(01)
     Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",90))
     If N = "" Then Exit Sub
     Dim R : R = CInt(InputBox("RUOTA DI RICERCA ?",,1))
     If R = "" Then Exit Sub
     Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,1))
     If ESTR = "" Then Exit Sub
     Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5))
     If TOT = "" Then Exit Sub
     Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,2))
     If ER = "" Then Exit Sub
     Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,1))
     If Mostra_OUT = "" Then Exit Sub
     Dim Casi : Casi = 00
     Dim Ini,Fin,IniS,Es : Ini = EstrazioneFin - ESTR : Fin = EstrazioneFin : IniS = EstrazioneIni
     Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit
     For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es)
          If Casi < ESTR Then
               For P = 01 To 05
                    a = Estratto(Es,R,P)
                    If a = N Then 'se trovi N
                         Casi = Casi + 01
                         Cont = 00 ' contatore
                         ix = Es - 01
                         ixx =(ix - ER) + 01
                         For axx = ixx To ix
                              Call info2(Mostra_OUT,R,N,axx) ' estrazioni precedenti
                         Next
                         Call info1(Mostra_OUT,Casi,Es,R,N,ER) ' estrazione spia
                         'Ex = Es - ER '+ 01
                         For Ess = Es - ER To Es - 01
                              For Pos = 01 To 05
                                   b = Estratto(Ess,R,Pos)
                                   nn(01) = b
                                   ruota(01) = R
                                   Rit = SerieRitardoTurbo(IniS,Fin,nn,ruota,AMBATA_)
                                   numero(b,01) = b
                                   numero(b,02) = numero(b,02) + 01
                                   numero(b,03) = Rit
                                   Cont = Cont + 01
                              Next
                         Next
                    End If
               Next
          End If
     Next
     Call OrdinaMatriceTurbo(numero,- 01,02)
     Call Scrivi()
     If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI ed in rosso le successive",True,True,,01)
     Call Scrivi("NUMERO :  " & Format2(N),True,True)
     Call Scrivi("RUOTA DI RICERCA : " & SiglaRuota(R),True,True)
     Call Scrivi("CASI ESAMI SPIATONATI :  " & Format2(Casi),True,True)
     Call Scrivi("ESTR.RETROATTIVE :  " & Format2(ER),True,True)
     Call Scrivi()
     Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True)
     Call Scrivi()
     Call Scrivi("NUM. |  FREQ. |  RIT.",True,True)
     Call Scrivi()
     Dim NR,NSTR,Stringa
     For NR = 01 To TOT
          Call Scrivi(Format2(numero(NR,01)) & "   |   " & Format2(numero(NR,02)) & "   |   " & Format2(numero(NR,03)),True,True)
          NSTR = Format2(numero(NR,01))
          Stringa = Stringa + NSTR
          If NR < TOT Then Stringa = Stringa + "."
     Next
     Call Scrivi()
     Call Scrivi("Stringa numeri rilevatori:  " & Stringa,True,True)
End Sub
Function info2(mostra_out,r,n,axx)
     If mostra_out = 01 Then Call Scrivi("    " & DataEstrazione(axx) & "  " & SiglaRuota(r) & "  " & StringaEstratti(axx,r) & "  numeri precursori ",True,True,,01)
End Function
Function info1(mostra_out,casi,es,r,n,ER)
     Dim x
     If mostra_out = 01 Then
          Call Scrivi(Format2(casi) & ") " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  Numero spiato:    " & Format2(n),True,True)
          For x = 1 To ER
              Call Scrivi("    " & DataEstrazione(es+x) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es + x,r) & "  frequenti dopo spia: ",True,True,,02)
          Next
     End If
End Function

spero di essere chiaro

 

[Alien.]

Acc..... grazie claudio per la pazienza credevo che mi inviavi alla prima porta a Destra.

cosa ne dice di farlo anche per il 10elotto.............adesso ci vado.................

 

[claudio8]

Acc..... grazie claudio per la pazienza credevo che mi inviavi alla prima porta a Destra.

cosa ne dice di farlo anche per il 10elotto.............adesso ci vado.................

Adesso sei pregato di ......
attendere il ritorno di fabri.m
Non voglio ulteriormente invadere.

 

[Alien.]

prova , vale solo sulla sestina base .

Option Explicit
Sub Main()
   Call Scrivi() : Call Scrivi(String(36," ") & "NUMERI RILEVATORI SUPERENALOTTO *",True,True,,01) : Call Scrivi()
   Dim numero(90,03),num(01),nn(01)
   Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",1))
   If N = "" Then Exit Sub
   Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,10))
   If ESTR = "" Then Exit Sub
   Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5))
   If TOT = "" Then Exit Sub
   Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,10))
   If ER = "" Then Exit Sub
   Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,1))
   If Mostra_OUT = "" Then Exit Sub
   Dim Casi : Casi = 00
   Dim Ini,Fin,IniS,Es : Ini = EstrazioniArchivioSE - ESTR : Fin = EstrazioniArchivioSE : IniS = 0001
   Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit
   For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es)
      If Casi < ESTR Then
         For P = 01 To 06
            a = EstrattoSE(Es,P)
            If a = N Then
               Casi = Casi + 01
               Cont = 00
               ix = Es - 01
               ixx =(ix - ER) + 01
               For axx = ixx To ix
                  Call info2(Mostra_OUT,axx)
               Next
               Call info1(Mostra_OUT,Casi,Es,N)
               Ex = Es - ER + 01
               For Ess = Ex To Es - 01
                  For Pos = 01 To 06
                     b = EstrattoSE(Ess,Pos)
                     nn(01) = b
                     Rit = SerieRitardoSE(IniS,Fin,nn,AMBATA_)
                     numero(b,01) = b
                     numero(b,02) = numero(b,02) + 01
                     numero(b,03) = Rit
                     Cont = Cont + 01
                  Next
               Next
            End If
         Next
      End If
   Next
   Call OrdinaMatriceTurbo(numero,- 01,02)
   Call Scrivi()
   If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI",True,True,,01)
   Call Scrivi("NUMERO:    " & Format2(N),True,True)
   Call Scrivi("CASI ESAMI SPIATONATI:   " & Format2(Casi),True,True)
   Call Scrivi("ESTR.RETROATTIVE  " & Format2(ER),True,True)
   Call Scrivi()
   Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True)
   Call Scrivi()
   Call Scrivi("NUM. |  FREQ. |  RIT.",True,True)
   Call Scrivi()
   Dim NR,NSTR,Stringa
   For NR = 01 To TOT
      Call Scrivi(Format2(numero(NR,01)) & "   |   " & Format2(numero(NR,02)) & "   |   " & Format2(numero(NR,03)),True,True)
      NSTR = Format2(numero(NR,01))
      Stringa = Stringa + NSTR
      If NR < TOT Then Stringa = Stringa + "."
   Next
   Call Scrivi()
   Call Scrivi("Stringa numeri rilevatori:  " & Stringa,True,True)
End Sub
Function info2(mostra_out,axx)
   If mostra_out = 01 Then Call Scrivi("    " & DataEstrazioneSE(axx) & "  " & StringaEstrattiSE(axx),True,True,,01)
End Function
Function info1(mostra_out,casi,es,n)
   If mostra_out = 01 Then Call Scrivi(Format2(casi) & ") " & DataEstrazioneSE(es) & "  " & StringaEstrattiSE(es) & _
   "  Numero spiato: " & Format2(n),True,True)
End Function

Perdonami fabri ma per il Superenalotto mi chiede sempre la ruota ,forse non ho ben capito mi dici: - prova , vale solo sulla sestina base .

cosa intendevi dire, grazie.

 

[Alien.]

Perdonami fabri ma per il Superenalotto mi chiede sempre la ruota ,forse non ho ben capito mi dici: - prova , vale solo sulla sestina base .

cosa intendevi dire, grazie.

SPIEGAMI TU CLAUDIO...............

 

[claudio8]

SPIEGAMI TU CLAUDIO...............

A me non chiede la ruota.
Ti vuol dire che lo script fa la ricerca solo considerando i 6 numeri base, non considera gli altri 2 (jolly e superstar).

 

[Alien.]

Si scusami claudio è vero sono andato sopra ho ricopiato il listato e lanciato.........cavoli allora facevo girare sempre quello del lotto sing sing

 

[claudio8]

Si scusami claudio è vero sono andato sopra ho ricopiato il listato e lanciato.........cavoli allora facevo girare sempre quello del lotto sing sing

Credo sia l'ora di una vacanza extraterrestre

 

[Alien.]

Credo che sia un ottima idea.....

 

[Zetrix]

Option Explicit
Sub Main()
     Call Scrivi()
     Call Scrivi(String(36," ") & "NUMERI RILEVATORI LOTTO *",True,True,,01)
     Call Scrivi()
     Dim numero(90,03),num(01),ruota(1),nn(01)
     Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",90))
     If N = "" Then Exit Sub
     Dim R : R = CInt(InputBox("RUOTA DI RICERCA ?",,1))
     If R = "" Then Exit Sub
     Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,1))
     If ESTR = "" Then Exit Sub
     Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5))
     If TOT = "" Then Exit Sub
     Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,2))
     If ER = "" Then Exit Sub
     Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,1))
     If Mostra_OUT = "" Then Exit Sub
     Dim Casi : Casi = 00
     Dim Ini,Fin,IniS,Es : Ini = EstrazioneFin - ESTR : Fin = EstrazioneFin : IniS = EstrazioneIni
     Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit
     For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es)
          If Casi < ESTR Then
               For P = 01 To 05
                    a = Estratto(Es,R,P)
                    If a = N Then 'se trovi N
                         Casi = Casi + 01
                         Cont = 00 ' contatore
                         ix = Es - 01
                         ixx =(ix - ER) + 01
                         For axx = ixx To ix
                              Call info2(Mostra_OUT,R,N,axx) ' estrazioni precedenti
                         Next
                         Call info1(Mostra_OUT,Casi,Es,R,N,ER) ' estrazione spia
                         'Ex = Es - ER '+ 01
                         For Ess = Es - ER To Es - 01
                              For Pos = 01 To 05
                                   b = Estratto(Ess,R,Pos)
                                   nn(01) = b
                                   ruota(01) = R
                                   Rit = SerieRitardoTurbo(IniS,Fin,nn,ruota,AMBATA_)
                                   numero(b,01) = b
                                   numero(b,02) = numero(b,02) + 01
                                   numero(b,03) = Rit
                                   Cont = Cont + 01
                              Next
                         Next
                    End If
               Next
          End If
     Next
     Call OrdinaMatriceTurbo(numero,- 01,02)
     Call Scrivi()
     If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI ed in rosso le successive",True,True,,01)
     Call Scrivi("NUMERO :  " & Format2(N),True,True)
     Call Scrivi("RUOTA DI RICERCA : " & SiglaRuota(R),True,True)
     Call Scrivi("CASI ESAMI SPIATONATI :  " & Format2(Casi),True,True)
     Call Scrivi("ESTR.RETROATTIVE :  " & Format2(ER),True,True)
     Call Scrivi()
     Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True)
     Call Scrivi()
     Call Scrivi("NUM. |  FREQ. |  RIT.",True,True)
     Call Scrivi()
     Dim NR,NSTR,Stringa
     For NR = 01 To TOT
          Call Scrivi(Format2(numero(NR,01)) & "   |   " & Format2(numero(NR,02)) & "   |   " & Format2(numero(NR,03)),True,True)
          NSTR = Format2(numero(NR,01))
          Stringa = Stringa + NSTR
          If NR < TOT Then Stringa = Stringa + "."
     Next
     Call Scrivi()
     Call Scrivi("Stringa numeri rilevatori:  " & Stringa,True,True)
End Sub
Function info2(mostra_out,r,n,axx)
     If mostra_out = 01 Then Call Scrivi("    " & DataEstrazione(axx) & "  " & SiglaRuota(r) & "  " & StringaEstratti(axx,r) & "  numeri precursori ",True,True,,01)
End Function
Function info1(mostra_out,casi,es,r,n,ER)
     Dim x
     If mostra_out = 01 Then
          Call Scrivi(Format2(casi) & ") " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  Numero spiato:    " & Format2(n),True,True)
          For x = 1 To ER
              Call Scrivi("    " & DataEstrazione(es+x) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es + x,r) & "  frequenti dopo spia: ",True,True,,02)
          Next
     End If
End Function

21.10.2017 BA 13.68.85.40.28 numeri precursori
24.10.2017 BA 28.76.33.53.72 numeri precursori
26.10.2017 BA 16.14.46.08.11 numeri precursori
28.10.2017 BA 44.41.13.32.42 numeri precursori
31.10.2017 BA 32.05.31.78.90 numeri precursori
02.11.2017 BA 27.90.38.24.34 numeri precursori
04.11.2017 BA 32.45.05.08.59 numeri precursori
10) 07.11.2017 BA 42.69.53.31.45 Numero spiato: 42
09.11.2017 BA 16.13.32.09.76 frequenti dopo spia:
11.11.2017 BA 47.63.80.36.69 frequenti dopo spia:
14.11.2017 BA 60.30.37.46.83 frequenti dopo spia:
16.11.2017 BA 38.26.04.81.49 frequenti dopo spia:
18.11.2017 BA 55.86.65.13.84 frequenti dopo spia:
21.11.2017 BA 56.47.05.58.34 frequenti dopo spia:
23.11.2017 BA 71.29.47.30.63 frequenti dopo spia:

IN COLORE BLU LE 07 ESTRAZIONI PRECEDENTI ed in rosso le successive
NUMERO : 42 POS 1°
RUOTA DI RICERCA : BA
ESTR DI RICERCA: 07
ESTR.RETROATTIVE : 07


ciao a tutti ..

x claudio8 volevo dirti che questo script deve essere migliorato perche cosi non va bene
intanto i numeri precursori non servono a niente quello che deve fare lo script
e calcolare un numero spia esempio il 42 nella 1 Pos a BA e vedere nelle successive estr
diciamo 7 estr che possono bastare e controllare che in due RUOTE abbiano garantita
sempre l'ambata in quelle due RUOTE e se nel caso si puo fare la ricerca anche nelle tre RUOTE
se nel caso non darebbe risultato in due RUOTE..
per il range delle estr si possono mettere 300 estr perche se mettiamo a ini to fin estr
sarà molto difficile che possa garantire sempre l'ambata sulle due RUOTE..

 

[claudio8]

Option Explicit
Sub Main()
     Call Scrivi()
     Call Scrivi(String(36," ") & "NUMERI RILEVATORI LOTTO *",True,True,,01)
     Call Scrivi()
     Dim numero(90,03),num(01),ruota(1),nn(01)
     Dim N : N = CInt(InputBox("NUMERO SPIATO ?"," 1 - 90 ",90))
     If N = "" Then Exit Sub
     Dim R : R = CInt(InputBox("RUOTA DI RICERCA ?",,1))
     If R = "" Then Exit Sub
     Dim ESTR : ESTR = CInt(InputBox("QUANTI CASI VUOI CONTROLLARE ?",,1))
     If ESTR = "" Then Exit Sub
     Dim TOT : TOT = CInt(InputBox("NUMERI GENERATORI DA CERCARE ?",,5))
     If TOT = "" Then Exit Sub
     Dim ER : ER = CInt(InputBox("ESTRAZIONI RETROATTIVE DA ESAMINARE ?",,2))
     If ER = "" Then Exit Sub
     Dim Mostra_OUT : Mostra_OUT = CInt(InputBox("VUOI VEDERE LE ESTRAZIONI ?" & Chr(13) & "1 = SI" & Chr(13) & "2 = NO",,1))
     If Mostra_OUT = "" Then Exit Sub
     Dim Casi : Casi = 00
     Dim Ini,Fin,IniS,Es : Ini = EstrazioneFin - ESTR : Fin = EstrazioneFin : IniS = EstrazioneIni
     Dim P,a,Cont,ix,ixx,axx,Ex,Ess,Pos,b,Rit
     For Es = Fin To 01 Step - 01 : Call Messaggio(Es) : Call AvanzamentoElab(Fin,01,Es)
          If Casi < ESTR Then
               For P = 01 To 05
                    a = Estratto(Es,R,P)
                    If a = N Then 'se trovi N
                         Casi = Casi + 01
                         Cont = 00 ' contatore
                         ix = Es - 01
                         ixx =(ix - ER) + 01
                         For axx = ixx To ix
                              Call info2(Mostra_OUT,R,N,axx) ' estrazioni precedenti
                         Next
                         Call info1(Mostra_OUT,Casi,Es,R,N,ER) ' estrazione spia
                         'Ex = Es - ER '+ 01
                         For Ess = Es - ER To Es - 01
                              For Pos = 01 To 05
                                   b = Estratto(Ess,R,Pos)
                                   nn(01) = b
                                   ruota(01) = R
                                   Rit = SerieRitardoTurbo(IniS,Fin,nn,ruota,AMBATA_)
                                   numero(b,01) = b
                                   numero(b,02) = numero(b,02) + 01
                                   numero(b,03) = Rit
                                   Cont = Cont + 01
                              Next
                         Next
                    End If
               Next
          End If
     Next
     Call OrdinaMatriceTurbo(numero,- 01,02)
     Call Scrivi()
     If Mostra_OUT = 01 Then Call Scrivi("IN COLORE BLU LE " & Format2(ER) & " ESTRAZIONI PRECEDENTI ed in rosso le successive",True,True,,01)
     Call Scrivi("NUMERO :  " & Format2(N),True,True)
     Call Scrivi("RUOTA DI RICERCA : " & SiglaRuota(R),True,True)
     Call Scrivi("CASI ESAMI SPIATONATI :  " & Format2(Casi),True,True)
     Call Scrivi("ESTR.RETROATTIVE :  " & Format2(ER),True,True)
     Call Scrivi()
     Call Scrivi("NUMERI RILEVATORI CON RISPETTIVE FREQUENZE E RITARDI",True,True)
     Call Scrivi()
     Call Scrivi("NUM. |  FREQ. |  RIT.",True,True)
     Call Scrivi()
     Dim NR,NSTR,Stringa
     For NR = 01 To TOT
          Call Scrivi(Format2(numero(NR,01)) & "   |   " & Format2(numero(NR,02)) & "   |   " & Format2(numero(NR,03)),True,True)
          NSTR = Format2(numero(NR,01))
          Stringa = Stringa + NSTR
          If NR < TOT Then Stringa = Stringa + "."
     Next
     Call Scrivi()
     Call Scrivi("Stringa numeri rilevatori:  " & Stringa,True,True)
End Sub
Function info2(mostra_out,r,n,axx)
     If mostra_out = 01 Then Call Scrivi("    " & DataEstrazione(axx) & "  " & SiglaRuota(r) & "  " & StringaEstratti(axx,r) & "  numeri precursori ",True,True,,01)
End Function
Function info1(mostra_out,casi,es,r,n,ER)
     Dim x
     If mostra_out = 01 Then
          Call Scrivi(Format2(casi) & ") " & DataEstrazione(es) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es,r) & "  Numero spiato:    " & Format2(n),True,True)
          For x = 1 To ER
              Call Scrivi("    " & DataEstrazione(es+x) & "  " & SiglaRuota(r) & "  " & StringaEstratti(es + x,r) & "  frequenti dopo spia: ",True,True,,02)
          Next
     End If
End Function

21.10.2017 BA 13.68.85.40.28 numeri precursori
24.10.2017 BA 28.76.33.53.72 numeri precursori
26.10.2017 BA 16.14.46.08.11 numeri precursori
28.10.2017 BA 44.41.13.32.42 numeri precursori
31.10.2017 BA 32.05.31.78.90 numeri precursori
02.11.2017 BA 27.90.38.24.34 numeri precursori
04.11.2017 BA 32.45.05.08.59 numeri precursori
10) 07.11.2017 BA 42.69.53.31.45 Numero spiato: 42
09.11.2017 BA 16.13.32.09.76 frequenti dopo spia:
11.11.2017 BA 47.63.80.36.69 frequenti dopo spia:
14.11.2017 BA 60.30.37.46.83 frequenti dopo spia:
16.11.2017 BA 38.26.04.81.49 frequenti dopo spia:
18.11.2017 BA 55.86.65.13.84 frequenti dopo spia:
21.11.2017 BA 56.47.05.58.34 frequenti dopo spia:
23.11.2017 BA 71.29.47.30.63 frequenti dopo spia:

IN COLORE BLU LE 07 ESTRAZIONI PRECEDENTI ed in rosso le successive
NUMERO : 42 POS 1°
RUOTA DI RICERCA : BA
ESTR DI RICERCA: 07
ESTR.RETROATTIVE : 07


ciao a tutti ..

x claudio8 volevo dirti che questo script deve essere migliorato perche cosi non va bene
intanto i numeri precursori non servono a niente quello che deve fare lo script
e calcolare un numero spia esempio il 42 nella 1 Pos a BA e vedere nelle successive estr
diciamo 7 estr che possono bastare e controllare che in due RUOTE abbiano garantita
sempre l'ambata in quelle due RUOTE e se nel caso si puo fare la ricerca anche nelle tre RUOTE
se nel caso non darebbe risultato in due RUOTE..
per il range delle estr si possono mettere 300 estr perche se mettiamo a ini to fin estr
sarà molto difficile che possa garantire sempre l'ambata sulle due RUOTE..

Vai avanti nel miglioramento
In caso di difficoltà chiedi ne forum.
Mi congratulo per le idee che hai espresso.
Ciao

 

[Alien.]

Condivido l'idea.

 

[MaurizioCarini]

scusate sempre sui precursori spia..si potrebbe fare uno scritp che mi indica il miglior precursore del 90 su 2 ruote? grazie