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
    sabato 25 ottobre 2025
    Bari
    68
    58
    45
    69
    51
    Cagliari
    31
    24
    11
    47
    87
    Firenze
    80
    18
    17
    60
    53
    Genova
    64
    54
    09
    48
    38
    Milano
    34
    29
    12
    63
    39
    Napoli
    79
    75
    44
    69
    43
    Palermo
    28
    75
    85
    22
    47
    Roma
    21
    39
    55
    43
    88
    Torino
    09
    40
    76
    84
    16
    Venezia
    26
    36
    52
    66
    25
    Nazionale
    22
    38
    88
    65
    40
    Estrazione Simbolotto
    34
    26
    09
    31
    04

Ultimi Messaggi

Indietro
Alto