Novità

terno metodo camaleonte

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.
 
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
 
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.
 
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
 
: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
 
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:
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 ???
 
: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
 
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
 
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
 
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
    venerdì 04 luglio 2025
    Bari
    08
    45
    67
    28
    03
    Cagliari
    70
    57
    26
    88
    80
    Firenze
    83
    77
    22
    86
    67
    Genova
    04
    20
    78
    36
    47
    Milano
    12
    53
    34
    18
    57
    Napoli
    07
    19
    35
    75
    10
    Palermo
    06
    65
    11
    07
    23
    Roma
    01
    53
    48
    80
    46
    Torino
    30
    44
    71
    05
    21
    Venezia
    45
    67
    14
    44
    40
    Nazionale
    22
    27
    05
    18
    67
    Estrazione Simbolotto
    Nazionale
    12
    31
    32
    04
    44

Ultimi Messaggi

Indietro
Alto