Novità

URGE SCRIPT

Alien.

Advanced Premium Member

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.

 
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
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17

Ultimi Messaggi

Indietro
Alto