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

[lotto_tom75]

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à

 

[rudivall]

Grazie Tom, tantissimi auguri buon compleanno...

 

[Bepy78]

Auguroni Tooooommmm scusa ma non sò dove si prendono tutti i bei disegni degli auguri,sono proprio impedito . Ma qual'è la previsione non so leggere gli script?? Grazie

 

[Ciccio90]

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à

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

 

[lla]

Tanti auguri Lotto_Tom🍰
🎂🎂🎂🎂🎂🎂🎂🎂🎂🥂🥂

 

[i legend]

Tanti auguri Tom. 💯 di questi giorni

 

[rocco63]

Tantissimi Auguri

 

[cetty]

auguri

 

[pot pourri]

🎂 Auguri lotto_ tom !!!!

 

[isabel]

Ottimo compleanno lotto-tom!!

Isabel

 

[fillotto]

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......

 

[Cinzia27]

Grazie dello script, Tom. AUGURONI

 

[Roberto57]

Buon Compleanno, allora sei un pesciolino come me.
🐟🍾🍾🍾

 

[micro__]

Auguri Tom!!!

 

[Matematico]

Auguri!

 

[Zac]

Mi unisco anch'io ai tanti che hanno già provveduto e ti faccio quindi tanti auguri
Ciao Tom

 

[chips]

Auguri Tom🥳🍾🥂🎂

 

[JOTIS50]

 

[LOTTO2021]

 

[rosablu]

Buon Compleanno 🎂🎂