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 10 maggio 2025
    Bari
    13
    59
    06
    79
    87
    Cagliari
    72
    15
    60
    08
    41
    Firenze
    33
    12
    20
    40
    43
    Genova
    46
    01
    70
    16
    19
    Milano
    69
    55
    02
    44
    20
    Napoli
    33
    10
    38
    87
    72
    Palermo
    79
    55
    11
    62
    10
    Roma
    43
    29
    79
    05
    31
    Torino
    25
    26
    61
    75
    63
    Venezia
    47
    33
    64
    31
    20
    Nazionale
    56
    46
    38
    41
    74
    Estrazione Simbolotto
    Milano
    43
    28
    34
    03
    20
Indietro
Alto