Supermetodo spia che se non esce significa che ci spiano forte :)

[Formaggio_percorino]

Allora gentili lottoceddi , il metodo è simile a quello postato un po di thread addietro, cioè quando esce un numero spia si giocano 5 terzine per ambo per un massimo di 9 colpi.

Quando esce il 90 su PALERMO si andranno a giocare 5 terzine per ambo sulla ruota di BARI per un massimo di 9 colpi.
Questa previsione che vi sto per dare è gia avanti con i colpi perchè il 3 e il 5 aprile è uscito il 90 su PALERMO e proprio ieri sera ha ridato quest'ultimo, perciò ritengo la previsione abbastanza buona

20-34-84;

43-79-90;

2-69-71;

5-77-86;

3-12-54


Il metodo in questione è funzionante dal 07/2007 con 44+3 casi su 47 positivi al 100%
Dalla prima spia cioè quella del 3 aprile mancano 3 colpi. Perciò ritengo che in massimo 6 colpi debba uscire.


Mi raccomando prudenza nelle giocate

 

[Baffoblu]

I primi tre numeri di ogni giocata sono le terzine originali...

Quelli che vi ho aggiunto, usateli per convergenze o per quello che volete.....

Sub Main()
    Dim idEstr
    Dim Inizio
    Dim Fine
    Dim ruote(10)
    Dim poste(10)
    Dim nAnalisi
    Dim nColpiDiGioco
    Dim n1(10)
    Dim n2(10)
    Dim n3(10)
    Dim n4(10)
    Dim n5(10)
    poste(2) = 1
    poste(3) = 1
    poste(4) = 1
    ruote(1) = 1
    nColpiDiGioco = 9
    Inizio = EstrazioneFin - 675
    Fine = EstrazioneFin
    co = 0
    For idEstr = Inizio To Fine
        Messaggio "elab. estr. [" &(idEstr) & "] di " & DataEstrazione(idEstr,1)
        Call AvanzamentoElab(Inizio,Fine,idEstr)
        For p = 1 To 5
            a = Estratto(idEstr,7,p)
            If a = 90 Then
                n1(1) = 20
                n1(2) = 34
                n1(3) = 84
                '---------
                n1(4) = 35
                n1(5) = 15
                n1(6) = 40
                n1(7) = 30
                n1(8) = 75
                n1(9) = 37
                n1(10) = 57
                '------------------
                n2(1) = 43
                n2(2) = 79
                n2(3) = 90
                '---------
                n2(4) = 35
                n2(5) = 15
                n2(6) = 40
                n2(7) = 30
                n2(8) = 75
                n2(9) = 37
                n2(10) = 57
                '------------------
                n3(1) = 02
                n3(2) = 69
                n3(3) = 71
                '---------
                n3(4) = 35
                n3(5) = 15
                n3(6) = 40
                n3(7) = 30
                n3(8) = 75
                n3(9) = 37
                n3(10) = 57
                '------------------
                n4(1) = 05
                n4(2) = 77
                n4(3) = 86
                '---------
                n4(4) = 35
                n4(5) = 15
                n4(6) = 40
                n4(7) = 30
                n4(8) = 75
                n4(9) = 37
                n4(10) = 57
                '------------------
                n5(1) = 03
                n5(2) = 12
                n5(3) = 54
                '---------
                n5(4) = 35
                n5(5) = 15
                n5(6) = 40
                n5(7) = 30
                n5(8) = 75
                n5(9) = 37
                n5(10) = 57
                '------------------
                ruote(1) = 1
                co = co + 1
                Scrivi String(100,"°") & " Caso n°" & co,1
                Scrivi DataEstrazione(idEstr) & " -- " & SiglaRuota(7) & " - " & StringaEstratti(idEstr,7),1
                Scrivi String(100,"°"),1
                ImpostaGiocata 1,n1,ruote,poste,nColpiDiGioco
                ImpostaGiocata 2,n2,ruote,poste,nColpiDiGioco
                ImpostaGiocata 3,n3,ruote,poste,nColpiDiGioco
                ImpostaGiocata 4,n4,ruote,poste,nColpiDiGioco
                ImpostaGiocata 5,n5,ruote,poste,nColpiDiGioco
                Gioca idEstr,1,,1
            End If
            If ScriptInterrotto Then Exit For
        Next
    Next
    Scrivi
    Scrivi String(100,"*")
    ColoreTesto 2
    Scrivi" casi trovati : " & co,1
    ColoreTesto 0
    Scrivi String(100," * ")
    TestoInBandaPassante(" LISTATO BY  B A F F O B L U "),1,3,0
    ScriviResoconto
End Sub

 

[Roby]

grazie baffo ma non capisco. ciò annulla le mie altre terzine?

 

[Baffoblu]

grazie baffo ma non capisco. ciò annulla le mie altre terzine?

No, come ho detto, i primi 3 numeri di ogni lunghetta sono i numeri originale delle terzine.

Io ho solo aggiunto alle terzine dei numeri per formare delle lunghette.....

 

[Roby]

L'ultima terzina è uscita col +1 -1 se no era ternaccio secco....

 

[patrizia-ve]

ciao... che rabbia!!!

Patrizia

 

[Roby]

porto su dai

 

[Roby]

up

 

[piccola]

niente, 42 - 90 :-( ... avanti ancora 3 colpi

 

[Roby]

uppete