Novità

Oggi per il mio comple voglio condividere con tutti voi questo "pasticcino" digitale...

lotto_tom75

Advanced Premium Member
Codice:
Sub Main
   ColoreTesto 2
   Scrivi "METODO BABOOM! Metodo sommativo automatizzato modulare."
   Scrivi "Estrazione di rilevamento: la 6° del mese."
   Scrivi "Metodo AMBATA ORO in 30 colpi su BA ottimizzato con ricerca ottimale x pochi colpi (max 5)"
   Scrivi "LIST e METODO BY lotto_tom75 of NLT"
   Scrivi
   Scrivi "Nessuna Certezza Solo Poca Probabilità"
   Scrivi
   ColoreTesto 0
   Dim poste(5)
   Dim ruote1(1)
   Dim ruote2(1)
   Dim cinquina(5)
   Dim Ini,fin,es,clp,nu1,nu2,nu3,nu4,nu5,nu6,nu7,nu8,nu9,nu10,a,b,c,d,e,k
   poste(1) = 1
   clp = 30
   k = CInt(InputBox("SCEGLI QUANTE ESTRAZIONI ANALIZZARE",,3000))
   Ini = EstrazioneFin - k
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      Messaggio("Attendi")
      Call AvanzamentoElab(Ini,fin,es)
      nu1 = Estratto(es,BA_,2)
      ok = 0
      a =(Fuori90(nu1 + 2))
      b =(Fuori90(nu1 + 82))
      If IndiceMensile(es) = 6 Then
         cinquina(1) = a
         cinquina(2) = b
         ok = 1
      End If
      If ok = 1 Then
         co = co + 1
         ColoreTesto 1
         Scrivi String(80,"=") & " Caso n°" & co,1
         ColoreTesto 1
         Scrivi "AMBATA SECCA GENERATA" & " " & "=" & " " & a & "." & b '& "." & c & "." & d & "."' & e
         Scrivi String(80,"="),1
         ruote2(1) = BA_
         ImpostaGiocata 1,cinquina,ruote2,poste,clp
         Gioca es
      End If
   Next
   Scrivi ScriviDistribuzioneCasiInCorso("true","1,2,3,4,5")
   ScriviResoconto
End Sub

Con piccola previsioncina inclusa relativa... su... BA ovviamente... 🙃

🤞🤞👋🧑‍🍳🙂


Ringrazio anche qui gli amici che mi hanno già fatto gli auguri, bepy, serse e nikor 🤗

Nessuna Certezza Solo Poca Probabilità
 
Auguroni Tooooommmm scusa ma non sò dove si prendono tutti i bei disegni degli auguri,sono proprio impedito :ROFLMAO: :ROFLMAO: :ROFLMAO: . Ma qual'è la previsione non so leggere gli script?? Grazie
 
Codice:
Sub Main
   ColoreTesto 2
   Scrivi "METODO BABOOM! Metodo sommativo automatizzato modulare."
   Scrivi "Estrazione di rilevamento: la 6° del mese."
   Scrivi "Metodo AMBATA ORO in 30 colpi su BA ottimizzato con ricerca ottimale x pochi colpi (max 5)"
   Scrivi "LIST e METODO BY lotto_tom75 of NLT"
   Scrivi
   Scrivi "Nessuna Certezza Solo Poca Probabilità"
   Scrivi
   ColoreTesto 0
   Dim poste(5)
   Dim ruote1(1)
   Dim ruote2(1)
   Dim cinquina(5)
   Dim Ini,fin,es,clp,nu1,nu2,nu3,nu4,nu5,nu6,nu7,nu8,nu9,nu10,a,b,c,d,e,k
   poste(1) = 1
   clp = 30
   k = CInt(InputBox("SCEGLI QUANTE ESTRAZIONI ANALIZZARE",,3000))
   Ini = EstrazioneFin - k
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      Messaggio("Attendi")
      Call AvanzamentoElab(Ini,fin,es)
      nu1 = Estratto(es,BA_,2)
      ok = 0
      a =(Fuori90(nu1 + 2))
      b =(Fuori90(nu1 + 82))
      If IndiceMensile(es) = 6 Then
         cinquina(1) = a
         cinquina(2) = b
         ok = 1
      End If
      If ok = 1 Then
         co = co + 1
         ColoreTesto 1
         Scrivi String(80,"=") & " Caso n°" & co,1
         ColoreTesto 1
         Scrivi "AMBATA SECCA GENERATA" & " " & "=" & " " & a & "." & b '& "." & c & "." & d & "."' & e
         Scrivi String(80,"="),1
         ruote2(1) = BA_
         ImpostaGiocata 1,cinquina,ruote2,poste,clp
         Gioca es
      End If
   Next
   Scrivi ScriviDistribuzioneCasiInCorso("true","1,2,3,4,5")
   ScriviResoconto
End Sub

Con piccola previsioncina inclusa relativa... su... BA ovviamente... 🙃

🤞🤞👋🧑‍🍳🙂


Ringrazio anche qui gli amici che mi hanno già fatto gli auguri, bepy, serse e nikor 🤗

Nessuna Certezza Solo Poca Probabilità
Codice:
Sub Main
   ColoreTesto 2
   Scrivi "METODO BABOOM! Metodo sommativo automatizzato modulare."
   Scrivi "Estrazione di rilevamento: la 6° del mese."
   Scrivi "Metodo AMBATA ORO in 30 colpi su BA ottimizzato con ricerca ottimale x pochi colpi (max 5)"
   Scrivi "LIST e METODO BY lotto_tom75 of NLT"
   Scrivi
   Scrivi "Nessuna Certezza Solo Poca Probabilità"
   Scrivi
   ColoreTesto 0
   Dim poste(5)
   Dim ruote1(1)
   Dim ruote2(1)
   Dim cinquina(5)
   Dim Ini,fin,es,clp,nu1,nu2,nu3,nu4,nu5,nu6,nu7,nu8,nu9,nu10,a,b,c,d,e,k
   poste(1) = 1
   clp = 30
   k = CInt(InputBox("SCEGLI QUANTE ESTRAZIONI ANALIZZARE",,3000))
   Ini = EstrazioneFin - k
   fin = EstrazioneFin
   co = 0
   For es = Ini To fin
      Messaggio("Attendi")
      Call AvanzamentoElab(Ini,fin,es)
      nu1 = Estratto(es,BA_,2)
      ok = 0
      a =(Fuori90(nu1 + 2))
      b =(Fuori90(nu1 + 82))
      If IndiceMensile(es) = 6 Then
         cinquina(1) = a
         cinquina(2) = b
         ok = 1
      End If
      If ok = 1 Then
         co = co + 1
         ColoreTesto 1
         Scrivi String(80,"=") & " Caso n°" & co,1
         ColoreTesto 1
         Scrivi "AMBATA SECCA GENERATA" & " " & "=" & " " & a & "." & b '& "." & c & "." & d & "."' & e
         Scrivi String(80,"="),1
         ruote2(1) = BA_
         ImpostaGiocata 1,cinquina,ruote2,poste,clp
         Gioca es
      End If
   Next
   Scrivi ScriviDistribuzioneCasiInCorso("true","1,2,3,4,5")
   ScriviResoconto
End Sub

Con piccola previsioncina inclusa relativa... su... BA ovviamente... 🙃

🤞🤞👋🧑‍🍳🙂


Ringrazio anche qui gli amici che mi hanno già fatto gli auguri, bepy, serse e nikor 🤗

Nessuna Certezza Solo Poca Probabilità
Auguri lotto tom
Buon compleanno.
Non ho capito la previsione, scusami.
La scrivi? Grazie
 
Intanto tanti auguri Tom !!! Poi per i numeri da giocare(per chi volesse) a rigor di logica sembrerebbero ..... 2 e 82 la coppia per estr. su BA.
Fino ad ora su 246 casi il metodo è andato a segno 242 volte (ma bisogna considerare 30 estraz!!) tuttavia il metodo offre attualmente questa coppia (2 e 82 ) ancora assente dopo 27 estrazioni, quindi da giocare solo per altre 3 estrazioni......
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 17 giugno 2025
    Bari
    50
    69
    29
    20
    42
    Cagliari
    90
    18
    15
    24
    70
    Firenze
    01
    53
    24
    25
    36
    Genova
    89
    49
    67
    05
    30
    Milano
    17
    16
    53
    87
    56
    Napoli
    78
    28
    67
    30
    55
    Palermo
    08
    69
    05
    85
    22
    Roma
    28
    76
    19
    77
    17
    Torino
    71
    56
    03
    15
    09
    Venezia
    57
    82
    76
    52
    62
    Nazionale
    83
    49
    07
    12
    13
    Estrazione Simbolotto
    Napoli
    30
    33
    28
    44
    11
Indietro
Alto