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
    martedì 18 febbraio 2025
    Bari
    72
    83
    64
    59
    43
    Cagliari
    60
    55
    49
    07
    14
    Firenze
    11
    68
    62
    04
    21
    Genova
    86
    23
    44
    85
    71
    Milano
    11
    82
    42
    09
    14
    Napoli
    89
    86
    65
    49
    14
    Palermo
    79
    34
    80
    78
    20
    Roma
    26
    21
    13
    64
    57
    Torino
    64
    11
    17
    02
    58
    Venezia
    64
    82
    30
    04
    19
    Nazionale
    26
    37
    68
    54
    87
    Estrazione Simbolotto
    Cagliari
    39
    30
    04
    11
    14
Indietro
Alto