Novità

URGE SCRIPT

Alien.

Alien.

Advanced Premium Member

FIRENZE - GENOVA : per vincere a Palermo ambi e terni

Prima estrazione del mese : ruote di Firenze - Genova AMBATA : Sommare il 05° estratto di Firenze al 04° estratto di Genova ( con il fuori 90 ) Giocare a : Firenze - Genova AMBO Secco a : abbinare all'ambata la differenza tra il 05° estratto di Firenze e il 04° estratto di Genova ( il maggiore...
forum.lottoced.com

GRAZIE.
 
Codice: 
Sub Main() ColoreTesto 2
   Scrivi
   Scrivi "METODO DONATELLA",1
   Scrivi
   Scrivi
   Scrivi "   LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(11)
   Dim ambata(1):Dim ambo(2):Dim terno(3):Dim posta(1):Dim poste(2):Dim postee(3)
   posta(1) = 1
   poste(2) = 1
   postee(3) = 1
   klp = 15
   ini = 9400
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 1 Then
         ruote(1) = 3
         ruote(2) = 4
         ruote(3) = 7
         ruote(4) = 11
         casi = casi + 1
         co = co + 1
         ColoreTesto 1:Scrivi String(100,"*") & " Caso n° " & casi,1
         ColoreTesto 2:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 1:Scrivi String(100,"*")
         ColoreTesto 0
         a = Estratto(es,3,5)
         b = Estratto(es,4,4)
         nu1 = Fuori90(a + b)
         nu2 = Abs(a - b)
         nu3 = Vert(nu1)
         nu4 = a
         ambata(1) = nu1
         ImpostaGiocata 1,ambata,ruote,posta,klp
         ambo(1) = nu1
         ambo(2) = nu2
         ImpostaGiocata 2,ambo,ruote,poste,klp
         terno(1) = nu1
         terno(2) = nu2
         terno(3) = nu3
         ImpostaGiocata 3,terno,ruote,postee,klp
         terno(1) = nu1
         terno(2) = nu2
         terno(3) = nu4
         ImpostaGiocata 4,terno,ruote,postee,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub
 
E CHE CAVOLI..............DETTO E FATTO PIC. :unsure: :LOL::LOL::LOL: GRAZIE.

FIRENZE - GENOVA : per vincere a Palermo ambi e terni

Prima estrazione del mese : ruote di Firenze - Genova AMBATA : Sommare il 05° estratto di Firenze al 04° estratto di Genova ( con il fuori 90 ) Giocare a : Firenze - Genova AMBO Secco a : abbinare all'ambata la differenza tra il 05° estratto di Firenze e il 04° estratto di Genova ( il maggiore...
forum.lottoced.com
 
Anonimo quel metodo che mi avevi dato ha preso di nuovo il terno a tutte 15 79 80 a Roma 5° Colpo
 
Che te ...........possino ma non eri in letargo ? Hai preso un caffè..............complimenti lo hai sempre seguito ...io me no sono dimenticato ho 300 ed oltre di metodi se puoi me lo rinvii in script grazie.
Come va? credevo che eri a sciare ..
Sono contento di risentirti....un abbraccio.
ALIEN.

TI RICORDI COME SI CHIAMAVA VEDO SE LO RECUPERO !




1607988397499.png
 
Restando a tema della 6° del mese.....ambata semplice e in !° e 2° pos
su BARI

Codice: 
Sub Main() ColoreTesto 1
   Scrivi
   Scrivi "AMBATA SU BARI ALLA 6° MENSILE SEMPLICE E IN 1° E 2° POSIZIONE ",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(1)
   Dim ambata(1):Dim posta(10)
   posta(1) = 1
   posta(6) = 1
   posta(7) = 1
   klp = 9
   ini = 9680
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 6 Then
         ruote(1) = 1
         casi = casi + 1
         co = co + 1
         ColoreTesto 1:Scrivi String(100,"°") & " Caso n° " & casi,1
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 2:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 0
         ambata(1) = Fuori90(90 +(Estratto(es,7,4)) - Estratto(es,1,1) + 88)
         ImpostaGiocata 1,ambata,ruote,posta,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub
 
Ambata semplice in 1° e 3° pos + 3 abbinamenti alla 3° mensile su BARI
Codice: 
Sub Main() ColoreTesto 1
   Scrivi
   Scrivi "AMBATA SU BARI ALLA 3° MENSILE SEMPLE E IN 1° E 3° POSIZIONE+ 3 AMBI ",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(1)
   Dim ambata(1):Dim ambo(2):Dim posta(10):Dim poste(2)
   posta(1) = 1
   posta(6) = 1
   posta(8) = 1
   poste(2) = 1
   klp = 13
   ini = 9470
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 3 Then
         ruote(1) = 1
         casi = casi + 1
         co = co + 1
         ColoreTesto 1:Scrivi String(100,"°") & " Caso n° " & casi,1
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 2:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 1:Scrivi String(100,"°")
         ColoreTesto 0
         ambata(1) = Fuori90(Estratto(es,5,3) * Estratto(es,6,2) + 9)
         ImpostaGiocata 1,ambata,ruote,posta,klp
         ambo(1) = Fuori90(Estratto(es,5,3) * Estratto(es,6,2) + 9)
         ambo(2) = Fuori90(Estratto(es,1,2) + Estratto(es,3,5) + 35)
         ImpostaGiocata 2,ambo,ruote,poste,klp
         ambo(1) = Fuori90(Estratto(es,5,3) * Estratto(es,6,2) + 9)
         ambo(2) = Fuori90(Estratto(es,4,1) + Estratto(es,5,3) + 69)
         ImpostaGiocata 3,ambo,ruote,poste,klp
         ambo(1) = Fuori90(Estratto(es,5,3) * Estratto(es,6,2) + 9)
         ambo(2) = Fuori90(90 +(Estratto(es,4,1)) - Estratto(es,2,3) + 25)
         ImpostaGiocata 4,ambo,ruote,poste,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub
 
Formula 45-90 è una formula statistica che mette in gioco 4 ambi + 1 cinquina a recupero
da giocare nelle ruote di rilevamento......Robba made in home!
Codice: 
Sub Main()
   Scrivi
   Scrivi "FORMULA 45-90 GIOCA 4 AMBi E 1 CINQUINA ",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(10)
   Dim n1(1)
   Dim n2(2)
   Dim n3(2)
   Dim n4(2)
   Dim n5(2)
   Dim n6(5)
   Dim posta(1)
   Dim poste(10)
   posta(1) = 1
   poste(2) = 1
   ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",100)
   k = InputBox("per quanti colpi?","colpi di gioco",12)
   ini = EstrazioneFin - ce
   fin = EstrazioneFin
   casi = 0
   ok = 0
   For es = ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               For p2 = 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  If a = 45 And b = 90 Or a = 90 And b = 45 Then
                     ok = 1
                     If ok = 1 Then
                        n1(1) = 11
                        n2(1) = 11
                        n2(2) = 1
                        n3(1) = 11
                        n3(2) = 14
                        n4(1) = 11
                        n4(2) = 58
                        n5(1) = 11
                        n5(2) = 81
                        n6(1) = 56
                        n6(2) = 1
                        n6(3) = 14
                        n6(4) = 50
                        n6(5) = 81
                        casi = casi + 1
                        Scrivi String(100,"°") & " Caso n°" & casi,1
                        ColoreTesto 1
                        Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                        " ] * [ " & Format2(a) & " ]" & "  *   Figura : " & " [ " & Figura(a) & " ] ",1
                        Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                        " ] * [ " & Format2(b) & " ]" & "  *   Figura : " & " [ " & Figura(b) & " ] ",1
                        ruote(1) = r1
                        ruote(2) = r2
                        ColoreTesto 0
                        ImpostaGiocata 1,n1,ruote,posta,k
                        ImpostaGiocata 2,n2,ruote,poste,k,2
                        ImpostaGiocata 3,n3,ruote,poste,k,2
                        ImpostaGiocata 4,n4,ruote,poste,k,2
                        ImpostaGiocata 5,n5,ruote,poste,k,2
                        ImpostaGiocata 6,n6,ruote,poste,k,2
                        Gioca es,1
                     End If
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & casi,1
   ColoreTesto 0
   Scrivi String(100," * ")
   ColoreTesto 0
   ScriviResoconto
End Sub
 
Quando esce il 90 su 2 ruote,si mettono in gioco 4 ambi + 1 cinquina a recupero,nelle ruote di rilevamento.....Home Made
Codice: 
Sub Main()
   Scrivi
   Scrivi "SORTITA DEL 90 SU 2 RUOTE GIOCA 4 AMBI + 1 CINQUINA ",2
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",2
   Scrivi
   ColoreTesto 0
   Dim ruote(10)
   Dim n1(1)
   Dim n2(2)
   Dim n3(2)
   Dim n4(2)
   Dim n5(2)
   Dim n6(5)
   Dim posta(1)
   Dim poste(10)
   posta(1) = 1
   poste(2) = 1
   ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",300)
   k = InputBox("per quanti colpi?","colpi di gioco",12)
   ini = EstrazioneFin - ce
   fin = EstrazioneFin
   casi = 0
   ok = 0
   For es = ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               For p2 = 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  If a = 90 And b = 90 Then
                     ok = 1
                     If ok = 1 Then
                        n1(1) = 76
                        n2(1) = 76
                        n2(2) = 4
                        n3(1) = 76
                        n3(2) = 12
                        n4(1) = 76
                        n4(2) = 23
                        n5(1) = 76
                        n5(2) = 89
                        n6(1) = 31
                        n6(2) = 4
                        n6(3) = 12
                        n6(4) = 23
                        n6(5) = 89
                        casi = casi + 1
                        Scrivi String(100,"°") & " Caso n°" & casi,1
                        ColoreTesto 1
                        Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                        " ] * [ " & Format2(a) & " ]" & "  *   Figura : " & " [ " & Figura(a) & " ] ",1
                        Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                        " ] * [ " & Format2(b) & " ]" & "  *   Figura : " & " [ " & Figura(b) & " ] ",1
                        ruote(1) = r1
                        ruote(2) = r2
                        ColoreTesto 0
                        ImpostaGiocata 1,n1,ruote,posta,k
                        ImpostaGiocata 2,n2,ruote,poste,k,2
                        ImpostaGiocata 3,n3,ruote,poste,k,2
                        ImpostaGiocata 4,n4,ruote,poste,k,2
                        ImpostaGiocata 5,n5,ruote,poste,k,2
                        ImpostaGiocata 6,n6,ruote,poste,k,2
                        Gioca es,1
                     End If
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & casi,1
   ColoreTesto 0
   Scrivi String(100," * ")
   ColoreTesto 0
   ScriviResoconto
End Sub
 
Formula 69-90.....mette in gioco 4 ambi + 1 sestina (su base statistica)

Codice: 
Sub Main()
   Scrivi Space(3) & " Formula 69-90  - Metodo by Marco",1,,4,,3,,1
   Dim ruote(10)
   Dim n1(1)
   Dim n2(2)
   Dim n3(2)
   Dim n4(2)
   Dim n5(2)
   Dim n6(5)
   Dim n7(6)
   Dim posta(1)
   Dim poste(10)
   posta(1) = 1
   poste(2) = 1
   ce = InputBox(" Quante estrazioni vuoi controllare? ","estrazioni",1000)
   k = InputBox("per quanti colpi?","colpi di gioco",12)
   ini = EstrazioneFin - ce
   fin = EstrazioneFin
   casi = 0
   ok = 0
   For es = ini To fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,fin,es)
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               For p2 = 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  If a = 69 And b = 90 Or a = 90 And b = 69 Then
                     ok = 1
                     If ok = 1 Then
                        n1(1) = 9
                        n2(1) = 9
                        n2(2) = 2
                        n3(1) = 9
                        n3(2) = 6
                        n4(1) = 9
                        n4(2) = 15
                        n5(1) = 9
                        n5(2) = 52
                        n7(1) = 2
                        n7(2) = 6
                        n7(3) = 9
                        n7(4) = 25
                        n7(5) = 27
                        n7(6) = 47
                        casi = casi + 1
                        Scrivi String(100,"°") & " Caso n°" & casi,1
                        ColoreTesto 1
                        Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r1) & " - " & StringaEstratti(es,r1) & _
                        " ] * [ " & Format2(a) & " ]" & "  *   Figura : " & " [ " & Figura(a) & " ] ",1
                        Scrivi DataEstrazione(es,1) & " [ " & SiglaRuota(r2) & " - " & StringaEstratti(es,r2) & _
                        " ] * [ " & Format2(b) & " ]" & "  *   Figura : " & " [ " & Figura(b) & " ] ",1
                        ruote(1) = r1
                        ruote(2) = r2
                        ColoreTesto 0
                        ImpostaGiocata 1,n1,ruote,posta,k
                        ImpostaGiocata 2,n2,ruote,poste,k,2
                        ImpostaGiocata 3,n3,ruote,poste,k,2
                        ImpostaGiocata 4,n4,ruote,poste,k,2
                        ImpostaGiocata 5,n5,ruote,poste,k,2
                        ImpostaGiocata 6,n6,ruote,poste,k,2
                        ImpostaGiocata 7,n7,ruote,poste,k,2
                        Gioca es,1
                     End If
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & casi,1
   ColoreTesto 0
   Scrivi String(100," * ")
   ColoreTesto 0
   ScriviResoconto
End Sub
[/SIZE]
 
BARI alla 6° mensile,gioca 6 terni

Codice: 
Sub Main() ColoreTesto 2
   Scrivi
   Scrivi "6 TERNI SU BARI  ALLA 6° ESTRAZIONE MENSILE",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(1)
   Dim t1(3): Dim t2(3) : Dim t3(3) : Dim t4(3) : Dim t5(3): Dim t6(3): Dim poste(3)
   poste(2) = 1
   poste(3) = 1
   klp = 12
   ini = 9650
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 6 Then
         ruote(1) = 1
         casi = casi + 1
         co = co + 1
         ColoreTesto 7:Scrivi String(100,"°") & " Caso n° " & casi,1
         ColoreTesto 1:Scrivi DataEstrazione(es) & "--->" & IndiceMensile(es) & "° Estrazione Mensile"
         ColoreTesto 7:Scrivi String(100,"°")
         ColoreTesto 0
         t1(1) = Fuori90(Estratto(es,10,1) + Estratto(es,12,2) + 43)
         t1(2) = Fuori90(Estratto(es,6,1) + Estratto(es,6,4) + 19)
         t1(3) = Fuori90(Estratto(es,1,2) + Estratto(es,2,5) + 65)
         ImpostaGiocata 1,t1,ruote,poste,klp
         t2(1) = Fuori90(Estratto(es,10,1) + Estratto(es,12,2) + 43)
         t2(2) = Fuori90(Estratto(es,6,1) + Estratto(es,6,4) + 19)
         t2(3) = Fuori90(Estratto(es,3,1) + Estratto(es,8,1) + 4)
         ImpostaGiocata 2,t2,ruote,poste,klp
         t3(1) = Fuori90(Estratto(es,10,1) + Estratto(es,12,2) + 43)
         t3(2) = Fuori90(90 +(Estratto(es,2,2)) - Estratto(es,3,2) + 5)
         t3(3) = Fuori90(Estratto(es,1,2) + Estratto(es,2,5) + 65)
         ImpostaGiocata 3,t3,ruote,poste,klp
         t4(1) = Fuori90(Estratto(es,10,1) + Estratto(es,12,2) + 43)
         t4(2) = Fuori90(90 +(Estratto(es,2,2)) - Estratto(es,3,2) + 5)
         t4(3) = Fuori90(Estratto(es,3,1) + Estratto(es,8,1) + 4)
         ImpostaGiocata 4,t4,ruote,poste,klp
         t5(1) = Fuori90(Estratto(es,10,1) + Estratto(es,12,2) + 43)
         t5(2) = Fuori90(Estratto(es,3,5) + Estratto(es,5,4) + 1)
         t5(3) = Fuori90(Estratto(es,1,2) + Estratto(es,2,5) + 65)
         ImpostaGiocata 5,t5,ruote,poste,klp
         t6(1) = Fuori90(Estratto(es,10,1) + Estratto(es,12,2) + 43)
         t6(2) = Fuori90(Estratto(es,3,5) + Estratto(es,5,4) + 1)
         t6(3) = Fuori90(Estratto(es,3,1) + Estratto(es,8,1) + 4)
         ImpostaGiocata 6,t6,ruote,poste,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub
 
Ultima modifica:
Ecco alla prossima ti rimando a Settembre :unsure: :ROFLMAO:

ollio_che_ride.gif
 
Della serie "piuttosto di niente è meglio piuttosto"....ambo con gli abbinamenti x ambo e x terno 62-89...se usciva il capogioco scivolato su CA....era apoteosi

BA 62-89.png
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    lunedì 03 novembre 2025
    Bari
    80
    28
    11
    67
    50
    Cagliari
    20
    29
    71
    33
    15
    Firenze
    33
    50
    21
    09
    11
    Genova
    32
    15
    90
    09
    23
    Milano
    66
    22
    48
    03
    77
    Napoli
    57
    64
    27
    20
    26
    Palermo
    22
    65
    78
    90
    74
    Roma
    32
    57
    43
    20
    08
    Torino
    74
    80
    66
    54
    01
    Venezia
    01
    75
    82
    13
    11
    Nazionale
    71
    05
    55
    77
    61
    Estrazione Simbolotto
    Torino
    13
    06
    40
    02
    10
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto