Novità

URGE SCRIPT

Ciao Marco-elle ti chiedevo la tua "BARI alla 6° mensile, gioca 6 terni " non ha calcolato la sesta estrazione di questo mese, come posso fare per ricavare le giocate ?
PS. intendo giocarla ,grazie intanto!
 
Ma non credo se uno si scorda una cosa ,"sia un cretino" non sottovalutarti Mai.Ognuno di Noi ha Pregi e Difetti.
 
E' siamo felici in due, siamo Italiani diamoci una mano ,vedi siamo come un ramoscello che con due dita si può spezzare ma prova a spezzare 100 ramoscelli con due dita !!
Un 'abbraccio.
 
Ambo zerato sortito su TT....Gioca previsione su ruote più congeniali

Codice:
Sub Main()
   ColoreTesto 2
   Scrivi "AMBO ZERATO SORTITO SU TT "
   Scrivi "GIOCA PREVISIONE SU RUOTE CONGENIALI "
   Scrivi "METODO E LIST BY Marco"
   ColoreTesto 0
   Dim poste(2)
   Dim ruota(2)
   Dim a1(4)
   poste(2) = 1
   clp = 12
   ini = EstrazioneFin - 350
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      Messaggio es
      Call AvanzamentoElab(Ini,Fin,es)
      For r1 = 1 To 10
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r1,p1)
               b = Estratto(es,r1,p2)
               ok = 0
               If a = 10 And b = 20 Or a = 2 And b = 10 Then
                  a1(1) = 6
                  a1(2) = 13
                  a1(3) = 15
                  a1(4) = 47
                  ruota(1) = 2
                  ruota(2) = 9
                  ok = 1
               End If
               If a = 10 And b = 30 Or a = 30 And b = 10 Then
                  a1(1) = 2
                  a1(2) = 12
                  a1(3) = 13
                  a1(4) = 40
                  ruota(1) = 1
                  ruota(2) = 5
                  ok = 1
               End If
               If a = 10 And b = 40 Or a = 40 And b = 10 Then
                  a1(1) = 1
                  a1(2) = 5
                  a1(3) = 7
                  a1(4) = 77
                  ruota(1) = 2
                  ruota(2) = 6
               End If
               If a = 10 And b = 50 Or a = 50 And b = 10 Then
                  a1(1) = 8
                  a1(2) = 26
                  a1(3) = 56
                  a1(4) = 73
                  ruota(1) = 3
                  ruota(2) = 7
                  ok = 1
               End If
               If a = 10 And b = 60 Or a = 60 And b = 10 Then
                  a1(1) = 13
                  a1(2) = 16
                  a1(3) = 26
                  a1(4) = 82
                  ruota(1) = 2
                  ruota(2) = 8
                  ok = 1
               End If
               If a = 10 And b = 70 Or a = 70 And b = 10 Then
                  a1(1) = 4
                  a1(2) = 26
                  a1(3) = 40
                  a1(4) = 44
                  ruota(1) = 1
                  ruota(2) = 9
                  ok = 1
               End If
               If a = 10 And b = 80 Or a = 80 And b = 10 Then
                  a1(1) = 4
                  a1(2) = 10
                  a1(3) = 16
                  a1(4) = 66
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 10 And b = 90 Or a = 90 And b = 10 Then
                  a1(1) = 19
                  a1(2) = 69
                  a1(3) = 83
                  a1(4) = 88
                  ruota(1) = 1
                  ruota(2) = 6
                  ok = 1
               End If
               If a = 20 And b = 30 Or a = 30 And b = 20 Then
                  a1(1) = 7
                  a1(2) = 20
                  a1(3) = 30
                  a1(4) = 45
                  ruota(1) = 1
                  ruota(2) = 6
                  ok = 1
               End If
               If a = 20 And b = 40 Or a = 40 And b = 20 Then
                  a1(1) = 4
                  a1(2) = 34
                  a1(3) = 48
                  a1(4) = 77
                  ruota(1) = 1
                  ruota(2) = 9
                  ok = 1
               End If
               If a = 20 And b = 50 Or a = 50 And b = 20 Then
                  a1(1) = 1
                  a1(2) = 25
                  a1(3) = 70
                  a1(4) = 84
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 20 And b = 60 Or a = 60 And b = 20 Then
                  a1(1) = 6
                  a1(2) = 12
                  a1(3) = 18
                  a1(4) = 52
                  ruota(1) = 3
                  ruota(2) = 9
                  ok = 1
               End If
               If a = 20 And b = 70 Or a = 70 And b = 20 Then
                  a1(1) = 16
                  a1(2) = 44
                  a1(3) = 52
                  a1(4) = 66
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 20 And b = 80 Or a = 80 And b = 20 Then
                  a1(1) = 16
                  a1(2) = 20
                  a1(3) = 22
                  a1(4) = 59
                  ruota(1) = 1
                  ruota(2) = 7
                  ok = 1
               End If
               If a = 20 And b = 90 Or a = 20 And b = 90 Then
                  a1(1) = 2
                  a1(2) = 6
                  a1(3) = 7
                  a1(4) = 27
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 30 And b = 40 Or a = 40 And b = 30 Then
                  a1(1) = 3
                  a1(2) = 12
                  a1(3) = 15
                  a1(4) = 26
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 30 And b = 50 Or a = 50 And b = 30 Then
                  a1(1) = 14
                  a1(2) = 22
                  a1(3) = 47
                  a1(4) = 87
                  ruota(1) = 2
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 30 And b = 60 Or a = 60 And b = 30 Then
                  a1(1) = 9
                  a1(2) = 31
                  a1(3) = 47
                  a1(4) = 54
                  ruota(1) = 1
                  ruota(2) = 6
                  ok = 1
               End If
               If a = 30 And b = 70 Or a = 70 And b = 30 Then
                  a1(1) = 17
                  a1(2) = 24
                  a1(3) = 31
                  a1(4) = 54
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 30 And b = 80 Or a = 80 And b = 30 Then
                  a1(1) = 9
                  a1(2) = 20
                  a1(3) = 58
                  a1(4) = 86
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
                  If a = 30 And b = 90 Or a = 30 And b = 90 Then
                     a1(1) = 5
                     a1(2) = 17
                     a1(3) = 34
                     a1(4) = 47
                     ruota(1) = 1
                     ruota(2) = 3
                     ok = 1
                  End If
               End If
               If a = 40 And b = 50 Or a = 50 And b = 40 Then
                  a1(1) = 6
                  a1(2) = 12
                  a1(3) = 13
                  a1(4) = 66
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 40 And b = 60 Or a = 60 And b = 40 Then
                  a1(1) = 6
                  a1(2) = 11
                  a1(3) = 16
                  a1(4) = 43
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 40 And b = 70 Or a = 70 And b = 40 Then
                  a1(1) = 3
                  a1(2) = 7
                  a1(3) = 14
                  a1(4) = 22
                  ruota(1) = 1
                  ruota(2) = 5
                  ok = 1
               End If
               If a = 40 And b = 80 Or a = 80 And b = 40 Then
                  a1(1) = 16
                  a1(2) = 35
                  a1(3) = 61
                  a1(4) = 67
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 40 And b = 90 Or a = 90 And b = 40 Then
                  a1(1) = 1
                  a1(2) = 5
                  a1(3) = 30
                  a1(4) = 83
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 50 And b = 60 Or a = 60 And b = 50 Then
                  a1(1) = 1
                  a1(2) = 28
                  a1(3) = 48
                  a1(4) = 63
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 50 And b = 70 Or a = 70 And b = 50 Then
                  a1(1) = 47
                  a1(2) = 55
                  a1(3) = 67
                  a1(4) = 83
                  ruota(1) = 1
                  ruota(2) = 2
                  ok = 1
               End If
               If a = 50 And b = 80 Or a = 80 And b = 50 Then
                  a1(1) = 13
                  a1(2) = 14
                  a1(3) = 41
                  a1(4) = 52
                  ruota(1) = 2
                  ruota(2) = 9
                  ok = 1
               End If
               If a = 50 And b = 90 Or a = 90 And b = 50 Then
                  a1(1) = 9
                  a1(2) = 35
                  a1(3) = 47
                  a1(4) = 70
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 60 And b = 70 Or a = 70 And b = 60 Then
                  a1(1) = 1
                  a1(2) = 10
                  a1(3) = 16
                  a1(4) = 61
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 60 And b = 80 Or a = 80 And b = 60 Then
                  a1(1) = 5
                  a1(2) = 22
                  a1(3) = 40
                  a1(4) = 47
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 60 And b = 90 Or a = 90 And b = 60 Then
                  a1(1) = 6
                  a1(2) = 47
                  a1(3) = 54
                  a1(4) = 89
                  ruota(1) = 1
                  ruota(2) = 3
                  ok = 1
               End If
               If a = 70 And b = 80 Or a = 80 And b = 70 Then
                  a1(1) = 21
                  a1(2) = 22
                  a1(3) = 31
                  a1(4) = 77
                  ruota(1) = 1
                  ruota(2) = 6
                  ok = 1
               End If
               If a = 70 And b = 90 Or a = 90 And b = 70 Then
                  a1(1) = 8
                  a1(2) = 25
                  a1(3) = 26
                  a1(4) = 40
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If a = 90 And b = 80 Or a = 80 And b = 90 Then
                  a1(1) = 20
                  a1(2) = 51
                  a1(3) = 65
                  a1(4) = 78
                  ruota(1) = 1
                  ruota(2) = 4
                  ok = 1
               End If
               If ok = 1 Then
                  co = co + 1
                  ColoreTesto 1
                  Scrivi String(80,"^") & " Caso n°" & co,1
                  Scrivi DataEstrazione(es) & "   ambo zerato spia sortito su TT    " & a & " - " & b,1
                  Scrivi String(80,"^"),1
                  ColoreTesto 0
                  ImpostaGiocata 1,a1,ruota,poste,clp
                  Gioca es,1
               End If
            Next
         Next
      Next
   Next
   ScriviResoconto
End Sub
 
Marco....Ricercatore da Paura, hai sempre degli script ad alto rendimento...Grazie..
Mi hai regalato un' Ambo con "AMBI SPIA CON I NUMERETTI USCITI SU RO"
V N. [55.46.64.51 ] [RO] [51 46 .. .. ..] C. 12 Ambo 09874 [ 7 - 16/01/2021]
Grazie...
 
Marco....Ricercatore da Paura, hai sempre degli script ad alto rendimento...Grazie..
Mi hai regalato un' Ambo con "AMBI SPIA CON I NUMERETTI USCITI SU RO"
V N. [55.46.64.51 ] [RO] [51 46 .. .. ..] C. 12 Ambo 09874 [ 7 - 16/01/2021]
Grazie...
Bravo!....io da pirla non lo ho continuato e me lo sono perso ma confido nelle prossime previsioni ,Stay Tuned
 
visto i risultati ho insistito, vabbe che tu ne hai diversi metodi che danno sodisfazioni, ..........grazie per la tua disponibilità ............... in bocca al lupo per le future previsioni
 
Questo metodo gioca una ambata in posizione su FI-VE calcolata alla 1° e 6° del mese,era inserito già da tempo sul thread di Salvo50 e come si evince continua a funzionare.....utile a chi piace questo gioco con una discreta resa

Codice:
Sub Main() ColoreTesto 1
   Scrivi
   Scrivi "AMBATA SU' FIRENZE-VENEZIA SEMPLICE E 2° E 4° POSIZIONE  ALLA 1° E 6° MENSILE",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(2)
   Dim ambata(2):Dim posta(1):Dim postaa(7):Dim poste(9)
   posta(1) = 1
   postaa(7) = 1
   poste(9) = 1
   klp = 9
   ini = 9600
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 1 Or IndiceMensile(es) = 6 Then
         ruote(1) = 3
         ruote(2) = 10
         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
         ambata(1) = Fuori90(Estratto(es,2,2) + Estratto(es,6,5) + 9)
         ImpostaGiocata 1,ambata,ruote,posta,klp,1
         ambata(1) = Fuori90(Estratto(es,2,2) + Estratto(es,6,5) + 9)
         ImpostaGiocata 2,ambata,ruote,postaa,klp,7
         ambata(1) = Fuori90(Estratto(es,2,2) + Estratto(es,6,5) + 9)
         ImpostaGiocata 3,ambata,ruote,poste,klp,9
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub
 
FI alla 1° e 7° mensile gioca con 2 capogiochi e 3 abbinamenti
Codice:
Sub Main() ColoreTesto 1
   Scrivi
   Scrivi "FI alla 1^ e 7^ mensile gioca 2 ambate + 3 abbimamenti ",1
   Scrivi
   Scrivi
   Scrivi " METODO E LIST BY  Marco",1
   Scrivi
   ColoreTesto 0
   Dim ruote(1)
   Dim poste(2)
   Dim ambo(2)
   poste(2) = 1
   klp = 9
   ini = 9650
   fin = EstrazioneFin
   co = 0
   For es = ini To fin
      If IndiceMensile(es) = 1 Or IndiceMensile(es) = 7 Then
         Call AvanzamentoElab(Ini,Fin,es)
         ruote(1) = 3
         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
         ambo(1) = Fuori90(Estratto(es,1,1) + Estratto(es,4,3) + 33)
         ambo(2) = Fuori90(90 +(Estratto(es,2,5)) - Estratto(es,7,4) + 64)
         ImpostaGiocata 1,ambo,ruote,poste,klp
         ambo(1) = Fuori90(Estratto(es,1,1) + Estratto(es,4,3) + 33)
         ambo(2) = Fuori90(90 +(Estratto(es,6,5)) - Estratto(es,7,2) + 80)
         ImpostaGiocata 2,ambo,ruote,poste,klp
         ambo(1) = Fuori90(Estratto(es,1,1) + Estratto(es,4,3) + 33)
         ambo(2) = Fuori90(Estratto(es,1,4) + Estratto(es,4,2) + 44)
         ImpostaGiocata 3,ambo,ruote,poste,klp
         ambo(1) = Fuori90(Estratto(es,5,5) + Estratto(es,7,3) + 2)
         ambo(2) = Fuori90(90 +(Estratto(es,2,5)) - Estratto(es,7,4) + 64)
         ImpostaGiocata 4,ambo,ruote,poste,klp
         ambo(1) = Fuori90(Estratto(es,5,5) + Estratto(es,7,3) + 2)
         ambo(2) = Fuori90(90 +(Estratto(es,6,5)) - Estratto(es,7,2) + 80)
         ImpostaGiocata 5,ambo,ruote,poste,klp
         ambo(1) = Fuori90(Estratto(es,5,5) + Estratto(es,7,3) + 2)
         ambo(2) = Fuori90(Estratto(es,1,4) + Estratto(es,4,2) + 44)
         ImpostaGiocata 6,ambo,ruote,poste,klp
         Gioca es,1
      End If
   Next
   Scrivi:Scrivi:Scrivi:Scrivi:Scrivi "Casi Rilevati " & CInt(co)
   ScriviResoconto
End Sub
 
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
qualquadra non cosa, Marco mi sai spiegare?
13.03.2021--->6° Estrazione Mensile
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 09898 [ 31 - 13/03/2021]
G 0001 Numeri in gioco : 77.24.04 su BA per Ambo,Terno

In corso per altre 12 estrazioni
G 0002 Numeri in gioco : 77.24.54 su BA per Ambo,Terno
In corso per altre 12 estrazioni
G 0003 Numeri in gioco : 77.07.04 su BA per Ambo,Terno
In corso per altre 12 estrazioni
G 0004 Numeri in gioco : 77.07.54 su BA per Ambo,Terno
In corso per altre 12 estrazioni
G 0005 Numeri in gioco : 77.77.04 su BA per Ambo,Terno
In corso per altre 12 estrazioni
G 0006 Numeri in gioco : 77.77.54 su BA per Ambo,Terno
In corso per altre 12 estrazioni
 
qualquadra non cosa, Marco mi sai spiegare?
13.03.2021--->6° Estrazione Mensile
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Estrazione generatrice del pronostico 09898 [ 31 - 13/03/2021]
G 0001 Numeri in gioco : 77.24.04 su BA per Ambo,Terno

In corso per altre 12 estrazioni
G 0002 Numeri in gioco : 77.24.54 su BA per Ambo,Terno
In corso per altre 12 estrazioni
G 0003 Numeri in gioco : 77.07.04 su BA per Ambo,Terno
In corso per altre 12 estrazioni
G 0004 Numeri in gioco : 77.07.54 su BA per Ambo,Terno
In corso per altre 12 estrazioni
G 0005 Numeri in gioco : 77.77.04 su BA per Ambo,Terno
In corso per altre 12 estrazioni
G 0006 Numeri in gioco : 77.77.54 su BA per Ambo,Terno
In corso per altre 12 estrazioni
A volte capita che 2 algoritmi diano lo stesso risultato e mi sono dimenticato di inserire il codice per eliminare i numeri ripetuti.In questi casi,significa che quel numero ha maggiori possibilità di uscita....ma il capogioco(77) è presente nella estrazione di calcolo,quindi è meglio lasciar perdere
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 13 dicembre 2025
    Bari
    61
    81
    73
    68
    78
    Cagliari
    76
    59
    33
    78
    23
    Firenze
    10
    37
    58
    30
    71
    Genova
    17
    45
    37
    36
    72
    Milano
    10
    71
    70
    46
    87
    Napoli
    21
    11
    51
    68
    01
    Palermo
    84
    72
    26
    17
    79
    Roma
    39
    63
    46
    67
    50
    Torino
    35
    86
    79
    68
    85
    Venezia
    67
    68
    22
    77
    76
    Nazionale
    46
    12
    72
    65
    70
    Estrazione Simbolotto
    Venezia
    05
    13
    40
    35
    10
Indietro
Alto