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ì 28 marzo 2025
    Bari
    72
    14
    10
    54
    15
    Cagliari
    89
    47
    13
    21
    14
    Firenze
    44
    81
    42
    41
    20
    Genova
    46
    26
    37
    43
    49
    Milano
    66
    13
    29
    81
    70
    Napoli
    80
    01
    38
    60
    54
    Palermo
    90
    41
    12
    20
    02
    Roma
    61
    07
    60
    43
    86
    Torino
    72
    20
    04
    44
    14
    Venezia
    52
    18
    28
    63
    58
    Nazionale
    62
    83
    48
    01
    88
    Estrazione Simbolotto
    Firenze
    08
    05
    41
    30
    33

Ultimi Messaggi

Indietro
Alto