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.
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 
Alien.

Alien.

Advanced Premium Member
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
 
Oscar

Oscar

Advanced Member >GOLD<
Anonimo quel metodo che mi avevi dato ha preso di nuovo il terno a tutte 15 79 80 a Roma 5° Colpo
 
Alien.

Alien.

Advanced Premium Member
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
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
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
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
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]
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
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:
Alien.

Alien.

Advanced Premium Member
Ecco alla prossima ti rimando a Settembre :unsure: :ROFLMAO:

ollio_che_ride.gif
 
Marco-elle

Marco-elle

Advanced Member >PLATINUM PLUS<
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ì 21 maggio 2024
    Bari
    54
    50
    84
    64
    62
    Cagliari
    53
    65
    02
    72
    32
    Firenze
    40
    80
    14
    19
    13
    Genova
    05
    82
    07
    61
    47
    Milano
    86
    37
    62
    02
    55
    Napoli
    86
    23
    73
    74
    31
    Palermo
    78
    01
    57
    33
    47
    Roma
    40
    66
    27
    45
    64
    Torino
    76
    29
    05
    49
    64
    Venezia
    44
    07
    66
    68
    87
    Nazionale
    28
    88
    09
    77
    72
    Estrazione Simbolotto
    Milano
    31
    39
    13
    17
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto