Novità

terno metodo camaleonte

vengio

Super Member >GOLD<
Ho rimesso mano allo script poichà da segnalazione di Abitte mi sono reso conto che non leggeva tutte le combinazioni.
Codice:
Sub Main()
   Dim n(5)
   Dim x(5)
   Dim y(5)
   Dim nn(5)
   Dim xx(5)
   Dim yy(5)
   Dim Ruotedigioco(12)
   Dim Poste(4)
   'Poste(1) = 3
   Poste(2) = 2
   Poste(3) = 1
   clp = 13
   Scrivi String(22," ") & " NUMERO RIPETUTO ISOTOPO IN 2 ESTRAZIONI CONSECUTIVE SULLA STESSA RUOTA"
   esaritroso = InputBox("Inserisci le estrazioni di controllo","",20)
   fin = EstrazioneFin
   ini = EstrazioneFin - esaritroso
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            w = p - 1
            ww = p + 1
            If w = 0 Then w = 5
            If ww = 6 Then ww = 1
            a = Estratto(es - 1,r,p)
            b = Estratto(es,r,p)
            c = Estratto(es - 1,r,ww)
            d = Estratto(es,r,ww)
            e = Estratto(es - 1,r,w)
            f = Estratto(es,r,w)
            If a = b Then
               h = Differenza(c,d)
               i = a + b
               g = i + h
               k = Fuori90(g/2)
               j = Fuori90(Differenza(i,k))
               qq = Fuori90(k + j)
               ss = Fuori90(qq + 1)
               vv = Fuori90(qq + 2)
               If pari(c) = True And pari(d) = True Or dispari(c) = True And dispari(d) = True Then
                  xx(1) = j
                  xx(2) = k
                  xx(3) = ss
                  nn(1) = j
                  nn(2) = k
                  yy(1) = j
                  yy(2) = k
                  yy(4) = vv
                  Ruotedigioco(1) = r
                  'Ruotedigioco(2) = 11
                  Scrivi String(110,"*"),1
                  Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                  ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                  Scrivi Format2(j) & " " & Format2(k) & " " & Format2(ss) & " " & Format2(vv) & " Posizione destra  " & c & " e " & d,1,,,10
                  Scrivi String(110,"*"),1
                  ImpostaGiocata 4,nn,Ruotedigioco,Poste,clp
                  ImpostaGiocata 5,xx,Ruotedigioco,Poste,clp
                  ImpostaGiocata 6,yy,Ruotedigioco,Poste,clp
                  Gioca es,1,,1
                  End If
                  'Scrivi String(110,"*"),1
                  ' _______________________________________________________________
                  l = Differenza(e,f)
                  m = i + l
                  u = Fuori90(m/2)
                  o = Fuori90(Differenza(i,u))
                  q = Fuori90(U + o)
                  s = Fuori90(q + 1)
                  v = Fuori90(q + 2)
                  If pari(e) And pari(f) = True Or dispari(e) And dispari(f) = True Then
                     x(1) = u
                     x(2) = o
                     x(3) = s
                     n(1) = u
                     n(2) = o
                     y(1) = u
                     y(2) = o
                     y(4) = v
                     'Scrivi String(110,"*"),1
                     Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                     ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                     Scrivi Format2(u) & " " & Format2(o) & " " & Format2(s) & " " & Format2(v) & " Posizione sinistra  " & e & " e " & f,1,,,10
                     'Scrivi
                     Scrivi String(110,"*"),1
                     Ruotedigioco(1) = r
                     'Ruotedigioco(2) = 11
                     ImpostaGiocata 1,n,Ruotedigioco,Poste,clp
                     ImpostaGiocata 2,x,Ruotedigioco,Poste,clp
                     ImpostaGiocata 3,y,Ruotedigioco,Poste,clp
                     Gioca es,1,,1
                  End If
               'End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
Questo è quello richiesto da Alberto in terzine.
 

vengio

Super Member >GOLD<
E questo modificato col fuori 90.
Codice:
Sub Main()
   Dim n(5)
   Dim x(5)
   Dim y(5)
   Dim nn(5)
   Dim xx(5)
   Dim yy(5)
   Dim z(6)
   Dim Ruotedigioco(12)
   Dim Poste(5)
   'Poste(1) = 3
   Poste(2) = 2
   Poste(3) = 1
   'Poste(4) = 0.7
   'Poste(5) = 0.3
   clp = 13
   Scrivi String(22," ") & " NUMERO RIPETUTO ISOTOPO IN 2 ESTRAZIONI CONSECUTIVE SULLA STESSA RUOTA"
   esaritroso = InputBox("Inserisci le estrazioni di controllo","",20)
   fin = EstrazioneFin
   ini = EstrazioneFin - esaritroso
   For es = ini To fin
      AvanzamentoElab ini,fin,es
      Messaggio(es)
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            w = p - 1
            ww = p + 1
            If w = 0 Then w = 5
            If ww = 6 Then ww = 1
            a = Estratto(es - 1,r,p)
            b = Estratto(es,r,p)
            c = Estratto(es - 1,r,ww)
            d = Estratto(es,r,ww)
            e = Estratto(es - 1,r,w)
            f = Estratto(es,r,w)
            If a = b Then
               h = Differenza(c,d)
               i = Fuori90(a + b)
               g = Fuori90(i + h)
               k = Fuori90(g/2)
               j = Fuori90(Differenza(i,k))
               qq = Fuori90(k + j)
               ss = Fuori90(qq + 1)
               vv = Fuori90(qq + 2)
               If pari(c) = True And pari(d) = True Or dispari(c) = True And dispari(d) = True Then
                  xx(1) = j
                  xx(2) = k
                  xx(3) = ss
                  nn(1) = j
                  nn(2) = k
                  yy(1) = j
                  yy(2) = k
                  yy(4) = vv
                  Ruotedigioco(1) = r
                  'Ruotedigioco(2) = 11
                  Scrivi String(110,"*"),1,,,4
                  Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                  ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                  Scrivi Format2(j) & " " & Format2(k) & " " & Format2(ss) & " " & Format2(vv) & " Posizione destra  " & c & " e " & d,1,,,10
                  Scrivi String(110,"*")
                  ImpostaGiocata 4,nn,Ruotedigioco,Poste,clp
                  ImpostaGiocata 5,xx,Ruotedigioco,Poste,clp
                  ImpostaGiocata 6,yy,Ruotedigioco,Poste,clp
                  Gioca es,1,,1
               End If
               'Scrivi String(110,"*"),1
               ' _______________________________________________________________
               l = Differenza(e,f)
               m = Fuori90(i + l)
               u = Fuori90(m/2)
               o = Fuori90(Differenza(i,u))
               q = Fuori90(U + o)
               s = Fuori90(q + 1)
               v = Fuori90(q + 2)
               If pari(e) And pari(f) = True Or dispari(e) And dispari(f) = True Then
                  x(1) = u
                  x(2) = o
                  x(3) = s
                  n(1) = u
                  n(2) = o
                  y(1) = u
                  y(2) = o
                  y(4) = v
                  'Scrivi String(110,"*"),1
                  Scrivi DataEstrazione(es - 1) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es - 1,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(a) & " in " & p & "° Posizione ",1
                  ColoreTesto 1:Scrivi DataEstrazione(es) & "   " & SiglaRuota(r) & "  " & StringaEstratti(es,(r)) & "      " & Left(SiglaRuota(r),3) & " " & Format2(b) & " in " & p & "° Posizione(Ripetuto in estrazione consecutiva)",1
                  Scrivi Format2(u) & " " & Format2(o) & " " & Format2(s) & " " & Format2(v) & " Posizione sinistra  " & e & " e " & f,1,,,10
                  'Scrivi
                  Scrivi String(110,"*")
                  Ruotedigioco(1) = r
                  'Ruotedigioco(2) = 11
                  ImpostaGiocata 1,n,Ruotedigioco,Poste,clp
                  ImpostaGiocata 2,x,Ruotedigioco,Poste,clp
                  ImpostaGiocata 3,y,Ruotedigioco,Poste,clp
                  ImpostaGiocata 4,y,Ruotedigioco,Poste,clp
                  Gioca es,1,,1
               End If
            
               If pari(e) And pari(f) = True Or dispari(e) And dispari(f) = True And pari(c) And pari(d) = True Or dispari(c) And dispari(d) = True Then
                                          z(1) = j
                        z(2) = k
                        z(3) = u
                        z(4) = o
                        z(5) = s
                        z(6) = v
                        Scrivi String(110,"*"),,,,10
                        Scrivi Format2(j) & " " & Format2(k) & " " & Format2(u) & " " & Format2(o) & " " & Format2(s) & " " & Format2(v) & " Combinata ",1,,,10
                        Scrivi String(110,"*"),1,,,10
                        Ruotedigioco(1) = r
                        'Ruotedigioco(2) = 11
                        ImpostaGiocata 1,z,Ruotedigioco,Poste,clp
                        Gioca es,1,,1
                
                  End If
               End If
            'End If
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   ScriviResoconto
End Sub
 

vengio

Super Member >GOLD<
10.12.2019 MI 37.22.09.03.50 MI 50 in 5° Posizione
12.12.2019 MI 40.47.64.43.50 MI 50 in 5° Posizione(Ripetuto in estrazione consecutiva)
25 15 41 42 Posizione sinistra 3 e 43

**************************************************************************************************************
Estrazione generatrice del pronostico 09720 [149 - 12/12/2019]
G 0001 Numeri in gioco : 25.15 su MI per Ambo,Terno

In corso per altre 9 estrazioni
G 0002 Numeri in gioco : 25.15.41 su MI per Ambo,Terno
In corso per altre 9 estrazioni
G 0003 Numeri in gioco : 25.15.42 su MI per Ambo,Terno
In corso per altre 9 estrazioni
G 0004 Numeri in gioco : 25.15.42 su MI per Ambo,Terno
In corso per altre 9 estrazioni
**************************************************************************************************************
19.12.2019 NA 75.89.71.80.48 NA 80 in 4° Posizione
21.12.2019 NA 70.33.10.80.12 NA 80 in 4° Posizione(Ripetuto in estrazione consecutiva)
62 08 71 72 Posizione destra 48 e 12

**************************************************************************************************************
Estrazione generatrice del pronostico 09724 [153 - 21/12/2019]
G 0004 Numeri in gioco : 62.08 su NA per Ambo,Terno

In corso per altre 13 estrazioni
G 0005 Numeri in gioco : 62.08.71 su NA per Ambo,Terno
In corso per altre 13 estrazioni
G 0006 Numeri in gioco : 62.08.72 su NA per Ambo,Terno
In corso per altre 13 estrazioni
Queste sono le ultime previsioni da metodo con fuori 90.
 

vengio

Super Member >GOLD<
Queste sono le ultime previsioni con il fuori 90.
10.12.2019 MI 37.22.09.03.50 MI 50 in 5° Posizione
12.12.2019 MI 40.47.64.43.50 MI 50 in 5° Posizione(Ripetuto in estrazione consecutiva)
70 30 11 12 Posizione sinistra 3 e 43
**************************************************************************************************************
Estrazione generatrice del pronostico 09720 [149 - 12/12/2019]
G 0001 Numeri in gioco : 70.30 su MI per Ambo,Terno

In corso per altre 9 estrazioni
G 0002 Numeri in gioco : 70.30.11 su MI per Ambo,Terno
In corso per altre 9 estrazioni
G 0003 Numeri in gioco : 70.30.12 su MI per Ambo,Terno
In corso per altre 9 estrazioni
**************************************************************************************************************
19.12.2019 NA 75.89.71.80.48 NA 80 in 4° Posizione
21.12.2019 NA 70.33.10.80.12 NA 80 in 4° Posizione(Ripetuto in estrazione consecutiva)
62 08 71 72 Posizione destra 48 e 12
**************************************************************************************************************
Estrazione generatrice del pronostico 09724 [153 - 21/12/2019]
G 0004 Numeri in gioco : 62.08 su NA per Ambo,Terno

In corso per altre 13 estrazioni
G 0005 Numeri in gioco : 62.08.71 su NA per Ambo,Terno
In corso per altre 13 estrazioni
G 0006 Numeri in gioco : 62.08.72 su NA per Ambo,Terno
In corso per altre 13 estrazioni
 

Abitte

Advanced Member >PLATINUM PLUS<
:cool:porto su questo metodo che ultimamente ha ricominciato a dare....lo tengo controllato e non sempre lo gioco MA il 3 ed il 5 del mese è uscito il 6 sulla NAZ in doppia condizione e...le due condizioni davano lo stesso ambo ! 2-10 con il 13 e 14 come abbinamenti. Vista la previsione fuor dal comune l'ho giocata e ieri sera....AMBO SECCO,AMBETTO E AMBO IN QUARTINA SULLA NAZIONALE!!!!!

Se interessa ora ci sarebbe una previsione su GE dove è uscito isotopo il 47. Secondo i miei calcoli l'ambo è 38-56 con 5 e 6 come abbinamenti. Lo terrò monitorato e magari tra qualche colpo lo tento.....se non esce prima
 

eugenio.dj

Super Member >PLATINUM<
Ciao Abitte! Ho fatto calcolo: 69-51=18(distanza) 47+47=94=4 , poi 4+18=22/2=11(a-ta), 94-11=83(a-ta) Quindi, ambo 11-83 , terzine 11.83.5, 11.83.6 Dove sbaglio ? P.S. Non ho capito perche il metodo fa calcolare pure la somma 69+51=30?
 
Ultima modifica:

Abitte

Advanced Member >PLATINUM PLUS<
Ti rispondo subito.....tu hai calcolato l'ambo facendo il fuorinovanta a monte......ma l'autore teneva buoni i numeri come si calcolavano e faceva l'eventuale fuorinovanta se i risultati dell'ambo lo richiedevano. La somma non so neppure io perchè la calcola.....comunque volendo si possono giocare i due ambi secchi e la sestina per TQC e confermo anche l'ambo da te calcolato. Hai notato che comunque tutti i quattro numeri degli ambi sono figura 2 ???
 

Aline

Premium Member
:cool:porto su questo metodo che ultimamente ha ricominciato a dare....lo tengo controllato e non sempre lo gioco MA il 3 ed il 5 del mese è uscito il 6 sulla NAZ in doppia condizione e...le due condizioni davano lo stesso ambo ! 2-10 con il 13 e 14 come abbinamenti. Vista la previsione fuor dal comune l'ho giocata e ieri sera....AMBO SECCO,AMBETTO E AMBO IN QUARTINA SULLA NAZIONALE!!!!!

Se interessa ora ci sarebbe una previsione su GE dove è uscito isotopo il 47. Secondo i miei calcoli l'ambo è 38-56 con 5 e 6 come abbinamenti. Lo terrò monitorato e magari tra qualche colpo lo tento.....se non esce prima
Grazie lo gioco
 

ciccioriccio

Advanced Member >PLATINUM PLUS<
Buona sera abitte io ho una domanda che devo proprio chiederti da una fonte il 56 è un'mbata ricorrente su Genova. Dici che con qualche sistema si possa abbinare al 90.31.21 71?? Grazie infinite in anticipo
 

Abitte

Advanced Member >PLATINUM PLUS<
Non saprei ciccio.......ho il 90 sicuramente ma con figura 9 come abbinamenti ed i favoriti sono 27 e 45 , poi vedi tu. Gioco Camaleonte così com'è tra qualche colpo e vedremo cosa esce prima. Ciao
 

Abitte

Advanced Member >PLATINUM PLUS<
Era giusta sì! Non gioco le ambate se il metodo non lo richiede, ma giocherò la sestina per vedere come va.....
 

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