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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto