Novità

SOMMATIVI SU BARI

Grazie luciano! Preso anch'io, secco e in terzina...ci ho messo anche 52....Non sono maga 😉 ,cerco di trovare convergenze per non sperperare denaro...
Complimenti a tutti i vincitori!
L'altra col 78 continua,vero?
Brava come cerco di fare anch'io.................si l'altra si continua e incrociamo le dita
 
Ultima modifica:
Ciao luciano! Ci siamo? Domani l'ultimo colpo mi sa. Mi concentro sul 78-61. È da un po' che inseguo quest'ambo che ha un forte debito con me 😉. Ce l'avevo su Mi-Na 61-16/ 78-73....e chi l'ha visto? Da qualche estrazione stessa prev. questa volta Ro-To,ancora nulla. Speriamo che Bari piglia tutto,intanto mi gioco anche il terno con i numeri sopracitati. Ovvio che giocherò anche gli altri abbinamenti del tuo metodo.
Incrociamo le dita!
 
Ciao luciano! Ci siamo? Domani l'ultimo colpo mi sa. Mi concentro sul 78-61. È da un po' che inseguo quest'ambo che ha un forte debito con me 😉. Ce l'avevo su Mi-Na 61-16/ 78-73....e chi l'ha visto? Da qualche estrazione stessa prev. questa volta Ro-To,ancora nulla. Speriamo che Bari piglia tutto,intanto mi gioco anche il terno con i numeri sopracitati. Ovvio che giocherò anche gli altri abbinamenti del tuo metodo.
Incrociamo le dita!
Ciao Dorina,si domani e' l'ultimo colpo speriamo in qualcosa di buono,sabato ci siamo andati vicino con 60-62-77,non ci resta che incrociare le dita x martedi
 
Sarebbe il caso che uscisse a casa sua,cioè Ba,perché io ce l'ho da un sacco di tempo dalle somme tra Ba e Ve...e non si è visto manco su altre ruote.
 
Beh,non tutte le ciambelle escono col buco. Accontentiamoci dell'ambo 25-71!
Poi,così male non mi è andata,ho vinto l'ambo secco 1-57 su Pa,metodo di Donatella Pa-Mi-Ro( che io avevo calcolato per questo mese) e avevo convergenza proprio su Pa.
Peccato aver puntato solo 1 euro
 
Beh,non tutte le ciambelle escono col buco. Accontentiamoci dell'ambo 25-71!
Poi,così male non mi è andata,ho vinto l'ambo secco 1-57 su Pa,metodo di Donatella Pa-Mi-Ro( che io avevo calcolato per questo mese) e avevo convergenza proprio su Pa.
Peccato aver puntato solo 1 euro
Io mi sono salvato con il 10 e lotto
 
ELABORATI ALLA SECONDA ESTRAZIONE DEL MESE
2 metodi sommativi facili facili con positivita' corta di soli 9 mesi x 10 estrazioni
1° metodo
5° PA + 28 = 78 ambata
abbinamenti
2° MI + 71 = 14
3° BA + 3° NA = 37
5° RO - 2° VE = 61
3° TO X 3° VE = 10

2° metodo
1° FI + 55 = 25 = ambata
abbinamenti
2° PA + 58 = 79
2° RO + 5 = 77
4° TO + 19 = 22
5° PA + 21 = 71

volendo anche la lunghetta dal terno in su


Letto richiesta di Alien riguardo a uno script

1° metodo

Elabora la lunghetta a ruota e a tutte





Codice:
Option Explicit
Sub Main()
   ' da metodo sul forum
   Dim es,Ini,Fin,r,r1,Tm,Clp,co,a,b,c,d,e,f,g,h,n1(5)
   Dim ruota(10)
   Dim ruote(11)
   Dim posta(10)
   Dim poste(10)
   posta(1) = 1
   poste(2) = 1
   r = 7
   r1 = 11
   Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"10"))
   Ini = EstrazioneFin - Tm
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      If IndiceMensile(es) = 2 Then
         ruota(1) = r
         ruote(1) = r1
         a = Estratto(es,r,5)
         b = Estratto(es,5,2)
         c = Estratto(es,1,3)
         d = Estratto(es,6,3)
         e = Estratto(es,8,5)
         f = Estratto(es,10,2)
         g = Estratto(es,9,3)
         h = Estratto(es,10,3)
         '---------------------
         n1(1) = Fuori90(a + 78)
         n1(2) = Fuori90(b + 71)
         n1(3) = Fuori90(c + d)
         n1(4) = Differenza(e,f)
         n1(5) = Fuori90(g * h)
         r = 7
         r1 = 11
         ruota(1) = r
         ruote(1) = r1
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * Ambata " & Format2(n1(1)) & " - Abbinamenti " & Format2(n1(2)) & " * " & Format2(n1(3)) & " * " & Format2(n1(4)) & " * " & Format2(n1(5)),1
         Scrivi String(100,"°"),1
         ImpostaGiocata 1,n1,ruota,poste,Clp
         ImpostaGiocata 2,n1,ruote,poste,Clp,2
         Gioca es,1,,1
         If ScriptInterrotto Then Exit For
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub
 
Letto richiesta di Alien riguardo a uno script

1° metodo

Elabora la lunghetta a ruota e a tutte





Codice:
Option Explicit
Sub Main()
   ' da metodo sul forum
   Dim es,Ini,Fin,r,r1,Tm,Clp,co,a,b,c,d,e,f,g,h,n1(5)
   Dim ruota(10)
   Dim ruote(11)
   Dim posta(10)
   Dim poste(10)
   posta(1) = 1
   poste(2) = 1
   r = 7
   r1 = 11
   Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"10"))
   Ini = EstrazioneFin - Tm
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      If IndiceMensile(es) = 2 Then
         ruota(1) = r
         ruote(1) = r1
         a = Estratto(es,r,5)
         b = Estratto(es,5,2)
         c = Estratto(es,1,3)
         d = Estratto(es,6,3)
         e = Estratto(es,8,5)
         f = Estratto(es,10,2)
         g = Estratto(es,9,3)
         h = Estratto(es,10,3)
         '---------------------
         n1(1) = Fuori90(a + 78)
         n1(2) = Fuori90(b + 71)
         n1(3) = Fuori90(c + d)
         n1(4) = Differenza(e,f)
         n1(5) = Fuori90(g * h)
         r = 7
         r1 = 11
         ruota(1) = r
         ruote(1) = r1
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * Ambata " & Format2(n1(1)) & " - Abbinamenti " & Format2(n1(2)) & " * " & Format2(n1(3)) & " * " & Format2(n1(4)) & " * " & Format2(n1(5)),1
         Scrivi String(100,"°"),1
         ImpostaGiocata 1,n1,ruota,poste,Clp
         ImpostaGiocata 2,n1,ruote,poste,Clp,2
         Gioca es,1,,1
         If ScriptInterrotto Then Exit For
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub
Grazie a Nome d i tutti Baffo
 
Questo è del secondo metodo




Codice:
Option Explicit
Sub Main()
   ' da 2° metodo sul forum
   Dim es,Ini,Fin,r,r1,Tm,Clp,co,a,b,c,d,e,n1(5)
   Dim ruota(10)
   Dim ruote(11)
   Dim posta(10)
   Dim poste(10)
   posta(1) = 1
   poste(2) = 1
   r = 3
   r1 = 11
   Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"10"))
   Ini = EstrazioneFin - Tm
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      If IndiceMensile(es) = 2 Then
         ruota(1) = r
         ruote(1) = r1
         a = Estratto(es,r,1)
         b = Estratto(es,7,2)
         c = Estratto(es,8,2)
         d = Estratto(es,9,4)
         e = Estratto(es,7,5)
         '--------------------
         '---------------------
         n1(1) = Fuori90(a + 55)
         n1(2) = Fuori90(b + 58)
         n1(3) = Fuori90(c + 5)
         n1(4) = Fuori90(d + 19)
         n1(5) = Fuori90(e + 21)
         r = 3
         r1 = 11
         ruota(1) = r
         ruote(1) = r1
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * Ambata " & Format2(n1(1)) & " - Abbinamenti " & Format2(n1(2)) & " * " & Format2(n1(3)) & " * " & Format2(n1(4)) & " * " & Format2(n1(5)),1
         Scrivi String(100,"°"),1
         ImpostaGiocata 1,n1,ruota,poste,Clp
         ImpostaGiocata 2,n1,ruote,poste,Clp,2
         Gioca es,1,,1
         If ScriptInterrotto Then Exit For
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub
 
Chiedo venia, gli script fatti in piena notte portano dimenticanze...

eccovi gli script corretti e funzionanti per quello che è stato richiesto



1° Metodo




Codice:
Option Explicit
Sub Main()
   ' da 1° metodo sul forum
   Dim es,Ini,Fin,r,r1,Tm,Clp,co,a,b,c,d,e,f,g,h
   Dim ruota(10)
   Dim ruote(11)
   Dim posta(10)
   Dim poste(10)
   Dim n(1)
   Dim n1(5)
   posta(1) = 1
   poste(2) = 1
   ruota(1) = r
   ruote(1) = r1
   r = 7
   r1 = 11
   Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"10"))
   Ini = EstrazioneFin - Tm
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      If IndiceMensile(es) = 2 Then
         ruota(1) = r
         ruote(1) = r1
         a = Estratto(es,r,5)
         b = Estratto(es,5,2)
         c = Estratto(es,1,3)
         d = Estratto(es,6,3)
         e = Estratto(es,8,5)
         f = Estratto(es,10,2)
         g = Estratto(es,9,3)
         h = Estratto(es,10,3)
         '---------------------
         n(1) = Fuori90(a + 78)
         n1(1) = n(1)
         n1(2) = Fuori90(b + 71)
         n1(3) = Fuori90(c + d)
         n1(4) = Differenza(e,f)
         n1(5) = Fuori90(g * h)
         ruota(1) = r
         ruote(1) = r1
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * Ambata " & Format2(n1(1)) & " - Abbinamenti " & Format2(n1(2)) & " * " & Format2(n1(3)) & " * " & Format2(n1(4)) & " * " & Format2(n1(5)),1
         Scrivi String(100,"°"),1
         ImpostaGiocata 1,n,ruota,posta,Clp,1
         ImpostaGiocata 2,n1,ruota,poste,Clp
         ImpostaGiocata 3,n1,ruote,poste,Clp,2
         Gioca es,1,,1
         If ScriptInterrotto Then Exit For
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub




2° Metodo





Codice:
Option Explicit
Sub Main()
   ' da 2° metodo sul forum
   Dim es,Ini,Fin,r,r1,Tm,Clp,co,a,b,c,d,e
   Dim ruota(10)
   Dim ruote(11)
   Dim posta(10)
   Dim poste(10)
   Dim n(1)
   Dim n1(5)
   posta(1) = 1
   poste(2) = 1
   ruota(1) = r
   ruote(1) = r1
   r = 3
   r1 = 11
   Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"10"))
   Ini = EstrazioneFin - Tm
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      If IndiceMensile(es) = 2 Then
         ruota(1) = r
         ruote(1) = r1
         a = Estratto(es,r,1)
         b = Estratto(es,7,2)
         c = Estratto(es,8,2)
         d = Estratto(es,9,4)
         e = Estratto(es,7,5)
         '--------------------
         '---------------------
         n(1) = Fuori90(a + 55)
         n1(1) = n(1)
         n1(2) = Fuori90(b + 58)
         n1(3) = Fuori90(c + 5)
         n1(4) = Fuori90(d + 19)
         n1(5) = Fuori90(e + 21)
         ruota(1) = r
         ruote(1) = r1
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * Ambata " & Format2(n1(1)) & " - Abbinamenti " & Format2(n1(2)) & " * " & Format2(n1(3)) & " * " & Format2(n1(4)) & " * " & Format2(n1(5)),1
         Scrivi String(100,"°"),1
         ImpostaGiocata 1,n,ruota,posta,Clp,1
         ImpostaGiocata 2,n1,ruota,poste,Clp
         ImpostaGiocata 3,n1,ruote,poste,Clp,2
         Gioca es,1,,1
         If ScriptInterrotto Then Exit For
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub
 
Chiedo venia, gli script fatti in piena notte portano dimenticanze...

eccovi gli script corretti e funzionanti per quello che è stato richiesto



1° Metodo




Codice:
Option Explicit
Sub Main()
   ' da 1° metodo sul forum
   Dim es,Ini,Fin,r,r1,Tm,Clp,co,a,b,c,d,e,f,g,h
   Dim ruota(10)
   Dim ruote(11)
   Dim posta(10)
   Dim poste(10)
   Dim n(1)
   Dim n1(5)
   posta(1) = 1
   poste(2) = 1
   ruota(1) = r
   ruote(1) = r1
   r = 7
   r1 = 11
   Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"10"))
   Ini = EstrazioneFin - Tm
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      If IndiceMensile(es) = 2 Then
         ruota(1) = r
         ruote(1) = r1
         a = Estratto(es,r,5)
         b = Estratto(es,5,2)
         c = Estratto(es,1,3)
         d = Estratto(es,6,3)
         e = Estratto(es,8,5)
         f = Estratto(es,10,2)
         g = Estratto(es,9,3)
         h = Estratto(es,10,3)
         '---------------------
         n(1) = Fuori90(a + 78)
         n1(1) = n(1)
         n1(2) = Fuori90(b + 71)
         n1(3) = Fuori90(c + d)
         n1(4) = Differenza(e,f)
         n1(5) = Fuori90(g * h)
         ruota(1) = r
         ruote(1) = r1
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * Ambata " & Format2(n1(1)) & " - Abbinamenti " & Format2(n1(2)) & " * " & Format2(n1(3)) & " * " & Format2(n1(4)) & " * " & Format2(n1(5)),1
         Scrivi String(100,"°"),1
         ImpostaGiocata 1,n,ruota,posta,Clp,1
         ImpostaGiocata 2,n1,ruota,poste,Clp
         ImpostaGiocata 3,n1,ruote,poste,Clp,2
         Gioca es,1,,1
         If ScriptInterrotto Then Exit For
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub




2° Metodo





Codice:
Option Explicit
Sub Main()
   ' da 2° metodo sul forum
   Dim es,Ini,Fin,r,r1,Tm,Clp,co,a,b,c,d,e
   Dim ruota(10)
   Dim ruote(11)
   Dim posta(10)
   Dim poste(10)
   Dim n(1)
   Dim n1(5)
   posta(1) = 1
   poste(2) = 1
   ruota(1) = r
   ruote(1) = r1
   r = 3
   r1 = 11
   Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"500"))
   Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"10"))
   Ini = EstrazioneFin - Tm
   Fin = EstrazioneFin
   co = 0
   For es = Ini To Fin
      Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
      Call AvanzamentoElab(Ini,Fin,es)
      If IndiceMensile(es) = 2 Then
         ruota(1) = r
         ruote(1) = r1
         a = Estratto(es,r,1)
         b = Estratto(es,7,2)
         c = Estratto(es,8,2)
         d = Estratto(es,9,4)
         e = Estratto(es,7,5)
         '--------------------
         '---------------------
         n(1) = Fuori90(a + 55)
         n1(1) = n(1)
         n1(2) = Fuori90(b + 58)
         n1(3) = Fuori90(c + 5)
         n1(4) = Fuori90(d + 19)
         n1(5) = Fuori90(e + 21)
         ruota(1) = r
         ruote(1) = r1
         co = co + 1
         Scrivi String(100,"°") & " Caso n°" & co,1
         Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " * Ambata " & Format2(n1(1)) & " - Abbinamenti " & Format2(n1(2)) & " * " & Format2(n1(3)) & " * " & Format2(n1(4)) & " * " & Format2(n1(5)),1
         Scrivi String(100,"°"),1
         ImpostaGiocata 1,n,ruota,posta,Clp,1
         ImpostaGiocata 2,n1,ruota,poste,Clp
         ImpostaGiocata 3,n1,ruote,poste,Clp,2
         Gioca es,1,,1
         If ScriptInterrotto Then Exit For
      End If
   Next
   Scrivi
   Scrivi String(100,"*")
   ColoreTesto 2
   Scrivi" casi trovati : " & co,1
   ColoreTesto 0
   Scrivi String(100," * ")
   TestoInBandaPassante(" Script by BaffoBlù "),1,3,0
   ScriviResoconto
End Sub
Potreste dirmi per favore come si eseguono questi script? Con quale app?
 
Potreste dirmi per favore come si eseguono questi script? Con quale app?
certo, ma devi essere disposto a leggere come fare e tutto quello che c'è dietro...

Vai qui, e trovi il programma ispirato da me e tradotto in programma da LuigiB





Puoi scaricarlo tranquillamente, ma segui PRIMA tutte le indicazioni.
se vedi che mancano immagini, scorri la pagine che le troverai riproposte tutte le problematiche dei vostri pc.

Se riscontri problemi, non è il programma, ma il tuo pc che ne ha...capisc a me...
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 24 ottobre 2025
    Bari
    33
    75
    32
    35
    10
    Cagliari
    73
    68
    58
    49
    59
    Firenze
    31
    11
    21
    13
    69
    Genova
    27
    35
    21
    42
    59
    Milano
    22
    11
    64
    62
    19
    Napoli
    77
    88
    51
    30
    75
    Palermo
    04
    43
    72
    59
    45
    Roma
    84
    58
    60
    46
    23
    Torino
    13
    27
    31
    86
    49
    Venezia
    45
    03
    70
    14
    56
    Nazionale
    68
    47
    02
    01
    18
    Estrazione Simbolotto
    11
    37
    05
    27
    28
Indietro
Alto