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
    martedì 08 aprile 2025
    Bari
    23
    43
    18
    70
    32
    Cagliari
    68
    86
    69
    48
    67
    Firenze
    35
    38
    72
    33
    51
    Genova
    88
    74
    80
    84
    61
    Milano
    58
    44
    77
    29
    21
    Napoli
    50
    45
    37
    16
    27
    Palermo
    89
    26
    15
    28
    75
    Roma
    42
    46
    82
    48
    31
    Torino
    08
    75
    01
    42
    36
    Venezia
    57
    40
    61
    17
    02
    Nazionale
    38
    05
    58
    17
    15
    Estrazione Simbolotto
    Genova
    11
    34
    03
    35
    19
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto