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ì 13 giugno 2025
    Bari
    51
    31
    66
    49
    01
    Cagliari
    64
    05
    11
    31
    84
    Firenze
    61
    56
    04
    64
    45
    Genova
    47
    16
    74
    79
    12
    Milano
    31
    90
    08
    40
    19
    Napoli
    20
    73
    56
    22
    82
    Palermo
    28
    02
    25
    39
    06
    Roma
    53
    38
    88
    45
    74
    Torino
    54
    40
    81
    78
    01
    Venezia
    04
    50
    61
    39
    62
    Nazionale
    67
    43
    87
    38
    54
    Estrazione Simbolotto
    Napoli
    08
    36
    22
    42
    45
Indietro
Alto