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
    martedì 08 aprile 2025
    Bari
    23
    43
    18
    70
    32
    Cagliari
    68
    86
    69
    48
    67
    Firenze
    35
    38
    72
    33
    51
    Genova
    88
    74
    80
    84
    61
    Milano
    58
    44
    77
    29
    21
    Napoli
    50
    45
    37
    16
    27
    Palermo
    89
    26
    15
    28
    75
    Roma
    42
    46
    82
    48
    31
    Torino
    08
    75
    01
    42
    36
    Venezia
    57
    40
    61
    17
    02
    Nazionale
    38
    05
    58
    17
    15
    Estrazione Simbolotto
    Genova
    11
    34
    03
    35
    19
Indietro
Alto