Novità

terno metodo camaleonte

vengio

Super member
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
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
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
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

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
Grazie lo gioco
 

ciccioriccio

Advanced Member >PLATINUM<
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
    Saturday 17 October 2020
    Bari
    47
    24
    50
    84
    17
    Cagliari
    19
    11
    50
    89
    68
    Firenze
    44
    07
    43
    23
    11
    Genova
    27
    24
    60
    34
    05
    Milano
    27
    31
    10
    14
    47
    Napoli
    21
    40
    24
    68
    85
    Palermo
    67
    04
    11
    63
    49
    Roma
    28
    32
    49
    81
    72
    Torino
    50
    28
    40
    22
    18
    Venezia
    21
    49
    29
    47
    12
    Nazionale
    90
    32
    20
    10
    63
    Estrazione Simbolotto
    33
    13
    15
    14
    05
Alto