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.
 
M

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
 
M

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
 
M

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
 
M

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
 
M

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
 
M

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]
 
M

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
 
M

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ì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto