Script

[Baciccia4251]

Di questo Algoritmo di ricerca?

Cura miracolosa contro i calcoli biliari! Ve ne potrete liberare senza bisogno di interventi, medicine, maghi, fattucchiere e miracoli vari!
Solo perché vi AMO.
Seguite queste istruzioni, alla lettera, mi raccomando!

1) Procuratevi un armadietto con 90 medicinali diversi

2) Chiedete al vostro vicino che medicinale prende e segnatevelo su un taccuino. Cercate lo stesso medicinale nel vostro armadietto. una volta trovato contate sulla vostra destra tre scomparti e prendete il medicinale in quello scomparto (Medina del vicino +3) mettendolo sulla tavola

3) A partire dal quinto scomparto contate 18, prendete il medicinale che si trova lì e anche lui sulla tavola

4) Andate a Palermo e chiedete al vicino di Guglielmo (a Palermo non conoscete nessun Guglielmo? Poco male, cercate Titina, Franco, pippo e via elencando nomi finché non ne trovate uno che conoscete) quale medicina prende. Ripetete le istruzioni di cui al punto 1 e mettete anche questo medicinale sul tavolo (no,no, non a Palermo a casa vostra, tonti)

Ora, uno dopo l'altro ingurgitate tutti e tre i medicinali (non importa l'ordine), accompagnate il tutto da un bel bicchiere di Cicuta (bevanda preferita da Socrate) et voila!

Non preoccupatevi anche nel caso i calcoli non sparissero, vi assicuro che non sentirete più alcun fastidio.
Non è il caso di ringraziarmi, lo faccio per voi, sapete bene che ho una laurea in medicina rilasciatami dalla strega di Biancaneve.
Il metodo è utile anche al lotto.
Baciccia Poison

 

[Pandit]

Non era una richiesta perTe Baci, ma uno spunto di ricerca per il Grande DJ...

 

[DjNomade]

Wee ciauz
mi sa che occorre qualche programma per fare quelle ricerche ,,,bhoooo

 

[Baciccia4251]

Non era una richiesta perTe Baci, ma uno spunto di ricerca per il Grande DJ...

Lo so. Ma è stato più forte di me. E' tanto che non trovo COSE di questo tipo. Alla faccia della razionalità. Costruire Metodi siffatti è facile, una volta sulle cosiddette riviste specializzate ne trovavi a iose. Riviste piene di previsioni mai avverate, anche se la settimana dopo uscivano con titoloni: VINTA LA QUATERNA DI NONNA PEPPA pubblicata qualche tempo fa!. Chi teneva le rivista sapeva che di quaterna di nonna peppa su di esse non c'era neppure l'ombra.
Comunque ho fatto la macro seguendo pedissequamente le istruzioni, modificando via, via la macro affinché non considerasse i casi negativi o, in qualche modo vi ponesse rimedio. Ora dà previsioni che si avverano al 100%, verificando le vecchie estrazioni. Ma se le metti in gioco...
Comunque se hai uno zio che si chiama Amilcare ed è nato a Milano, vai a Genova e gioca 6.54 Su Napoli. Il famosissimo ambo del Peppo!
Buon Santa Proserpina
Baciccia

 

[Pandit]

DJ rimani comunque sempre un Grande..
Grazie
Baciccia invece ha una pazienza da paura...
Grazie

 

[Baciccia4251]

DJ rimani comunque sempre un Grande..
Grazie
Baciccia invece ha una pazienza da paura...
Grazie

File on MEGA

mega.nz

Nel foglio TerzineS troverai un regalo di Natale 2020 (sono un po' indietro con i regali)

Ecco cosa fa la Macro:
Utilizzo:

Quando avvii la macro, ti chiederà di scegliere una ruota
Scrivi il nome della ruota (es: "Roma", "Bari", "Napoli", ecc.)
La macro elaborerà i dati automaticamente

Lettura dei risultati:
Nel foglio "TerzineS" troverai:

Data dell'estrazione
Le tre ambate calcolate:

Ambata 1 = quarto numero di Genova + terzo della Nazionale
Ambata 2 = quinto numero di Genova + 18
Ambata 3 = terzo numero di Palermo + 39

Gli esiti nelle 18 estrazioni successive, con il formato "Estr.X(numeri usciti)"
"Negativo" se nessun numero è uscito nelle 18 estrazioni
"Mancano X estrazioni" per le terzine ancora in corso

Note importanti:
La macro analizza solo le ultime estrazioni di ogni mese dal 2020
Se un numero supera 90, viene sottratto 90 finché non è ≤ 90
La macro mantiene la formattazione esistente del foglio TerzineS

 

[Baciccia4251]

File on MEGA

mega.nz

Nel foglio TerzineS troverai un regalo di Natale 2020 (sono un po' indietro con i regali)

Ecco cosa fa la Macro:
Utilizzo:

Quando avvii la macro, ti chiederà di scegliere una ruota
Scrivi il nome della ruota (es: "Roma", "Bari", "Napoli", ecc.)
La macro elaborerà i dati automaticamente

Lettura dei risultati:
Nel foglio "TerzineS" troverai:

Data dell'estrazione
Le tre ambate calcolate:

Ambata 1 = quarto numero di Genova + terzo della Nazionale
Ambata 2 = quinto numero di Genova + 18
Ambata 3 = terzo numero di Palermo + 39

Gli esiti nelle 18 estrazioni successive, con il formato "Estr.X(numeri usciti)"
"Negativo" se nessun numero è uscito nelle 18 estrazioni
"Mancano X estrazioni" per le terzine ancora in corso

Note importanti:
La macro analizza solo le ultime estrazioni di ogni mese dal 2020
Se un numero supera 90, viene sottratto 90 finché non è ≤ 90
La macro mantiene la formattazione esistente del foglio TerzineS

Why the sad face? I thought I'd do you a favor.
Excuse me
Baciccia il Contrito

 

[scarfacetony]

Buon anno a tutti,
vi inserisco il metodo di Badessa,l'8 chiama....

Buona serata

 

[DjNomade]

Controllate questo

Anticipazione (Spoiler): L'8 CHIAMA IL 3 by Salvo Badessa

'https://forum.lottoced.com/threads/script.2218355/page-9#post-2707351
'03-01-2025

ColoreTesto 1

Scrivi " L'8 CHIAMA IL 3 by Salvo Badessa",1

ColoreTesto 0
Sub Main()
Dim es,Ini,Fin,r,r1,Tm,Clp,co,ok,a,b,c,d,e,f,sp1,x1,x2
Dim ruota(10)
Dim ruote(11)
Dim posta(10)
Dim poste(10),poste1(3)
Dim n(3)
Dim n1(4)
Dim n2(7)
posta(1) = 1
poste(2) = 1
poste1(2) = 1
poste1(3) = 1


sp1 = 8'CInt(InputBox(" Spia ? ",,"18"))
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"13"))
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
ok = 0
For es = Ini To Fin
For r = 1 To 12
If r=11 Then r=12
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)

a = Estratto(es,r,1)

If a = sp1 Then

n(1) = Abs(Estratto(es,r,1)-Estratto(es,r,5))
n(2) = 91-n(1)
n(3) = Fuori90(Estratto(es,r,1)+Estratto(es,r,5))

ruota(1) = r
ruote(1) = r
ruote(2) = 11
ruote(3) = 12
co = co + 1
Scrivi String(50,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ** Numero in 1° Posiz " & Format2(a) ,1
Scrivi
Scrivi


ImpostaGiocata 1,n,ruota,posta,Clp
n1(1) = n(1)
n1(2) = 3
ImpostaGiocata 2,n1,ruote,poste,Clp
n1(1) = n(2)
n1(2) = 3
ImpostaGiocata 3,n1,ruote,poste,Clp
n1(1) = n(1)
n1(2) = n(3)
ImpostaGiocata 4,n1,ruote,poste,Clp
n2(1) = n(1)
n2(2) = n(2)
n2(3) = n(3)
n2(4) = 3
ImpostaGiocata 5,n2,ruote,poste,Clp
Gioca es
End If

Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0

ScriviResoconto
End Sub

 

[scarfacetony]

Controllate questo

Anticipazione (Spoiler): L'8 CHIAMA IL 3 by Salvo Badessa

'https://forum.lottoced.com/threads/script.2218355/page-9#post-2707351
'03-01-2025

ColoreTesto 1

Scrivi " L'8 CHIAMA IL 3 by Salvo Badessa",1

ColoreTesto 0
Sub Main()
Dim es,Ini,Fin,r,r1,Tm,Clp,co,ok,a,b,c,d,e,f,sp1,x1,x2
Dim ruota(10)
Dim ruote(11)
Dim posta(10)
Dim poste(10),poste1(3)
Dim n(3)
Dim n1(4)
Dim n2(7)
posta(1) = 1
poste(2) = 1
poste1(2) = 1
poste1(3) = 1


sp1 = 8'CInt(InputBox(" Spia ? ",,"18"))
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"100"))
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"13"))
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
ok = 0
For es = Ini To Fin
For r = 1 To 12
If r=11 Then r=12
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)

a = Estratto(es,r,1)

If a = sp1 Then

n(1) = Abs(Estratto(es,r,1)-Estratto(es,r,5))
n(2) = 91-n(1)
n(3) = Fuori90(Estratto(es,r,1)+Estratto(es,r,5))

ruota(1) = r
ruote(1) = r
ruote(2) = 11
ruote(3) = 12
co = co + 1
Scrivi String(50,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " - " & SiglaRuota(r) & " - " & StringaEstratti(es,r) & " ** Numero in 1° Posiz " & Format2(a) ,1
Scrivi
Scrivi


ImpostaGiocata 1,n,ruota,posta,Clp
n1(1) = n(1)
n1(2) = 3
ImpostaGiocata 2,n1,ruote,poste,Clp
n1(1) = n(2)
n1(2) = 3
ImpostaGiocata 3,n1,ruote,poste,Clp
n1(1) = n(1)
n1(2) = n(3)
ImpostaGiocata 4,n1,ruote,poste,Clp
n2(1) = n(1)
n2(2) = n(2)
n2(3) = n(3)
n2(4) = 3
ImpostaGiocata 5,n2,ruote,poste,Clp
Gioca es
End If

Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0

ScriviResoconto
End Sub

Come sempre Grazie,anche se in ritardo Buon Anno

 

[Alien.]

Why the sad face? I thought I'd do you a favor.
Excuse me
Baciccia il Contrito

Ciao Baci mi dice non è più disponibile è scaduto?



no
Il file che stai tentando di scaricare non è più disponibile
Questo potrebbe essere dovuto alle seguenti cause:
Il file è stato rimosso perché viola i nostri Termini di servizio.
URL non valido - il link che si sta provando ad accedere non esiste.
Il file è stato rimosso dall’utente.

 

[Baciccia4251]

Ciao Baci mi dice non è più disponibile è scaduto?



no
Il file che stai tentando di scaricare non è più disponibile
Questo potrebbe essere dovuto alle seguenti cause:
Il file è stato rimosso perché viola i nostri Termini di servizio.
URL non valido - il link che si sta provando ad accedere non esiste.
Il file è stato rimosso dall’utente.

Per scaricare i programmi devi andare sul post Excel e Dintorni, ho messo anche Vinci Casa ancora in fase embrionale

 

[Alien.]

Grazie ma dato che ci sono al superenalotto potresti fare l'archivio dal numero 1 al 69 ?Grazie