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
    venerdì 11 luglio 2025
    Bari
    39
    28
    27
    01
    80
    Cagliari
    54
    79
    69
    43
    61
    Firenze
    62
    60
    86
    80
    05
    Genova
    45
    10
    42
    79
    84
    Milano
    28
    59
    23
    46
    11
    Napoli
    01
    55
    52
    50
    39
    Palermo
    75
    17
    74
    82
    54
    Roma
    38
    13
    79
    25
    44
    Torino
    68
    29
    26
    40
    06
    Venezia
    46
    84
    64
    27
    67
    Nazionale
    72
    77
    46
    61
    23
    Estrazione Simbolotto
    Nazionale
    12
    34
    36
    10
    39
Indietro
Alto