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

 

[Pandit]

Richiesta script per chi gentilmente riesce a svilupparlo:
In una qualsiasi estrazione, trovare un numero Zerato e nella stessa estrazione e ruota un altro estratto
che sommato a quello isotopo, se possibile su ruota consecutiva, sommati siano uguali allo Zerato.
Esempio:
Ruota A 23 50 48 55 17 ---->diametrale in decina 12
Ruota B 51 46 53 02 33 - 17 = 16
17 + 33 = 50
Numeri da giocare sulle due ruote A e B.
1° ambo 12-16 -->Ambate
2° ambo 21-61
Lunghetta 12-16-21-61

 

[scarfacetony]

Buona serata a tutti,a chi può interessare S-90 di Badessa

https://www.mediafire.com/file/0y1rhygskxkhh6p/S90_250125_175622_250125_175847.pdf/file

 

[Pandit]

scarfacetony sei un Genio.... ​

 

[DjNomade]

Naturalmente da controllare

Anticipazione (Spoiler): Somma di 2 numeri Isotopi = ZERATO presente tra gli estratti X Pandit

'https://forum.lottoced.com/threads/script.2218355/page-9#post-2712260
'In una qualsiasi estrazione, trovare un numero Zerato e nella stessa estrazione e ruota un altro estratto
'che sommato a quello isotopo, se possibile su ruota consecutiva, sommati siano uguali allo Zerato.
'Esempio:
'Ruota A 23 50 48 55 17 ---->diametrale in decina 12
'Ruota B 51 46 53 02 33 - 17 = 16
'17 + 33 = 50
'Numeri da giocare sulle due ruote A e B.
'1° ambo 12-16 -->Ambate
'2° ambo 21-61
'Lunghetta 12-16-21-61


ColoreTesto 2 :Scrivi String(17,32)&" Somma di 2 numeri Isotopi = ZERATO presente tra gli estratti X Pandit",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(5)
Dim ruote(10),ruota(10)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1)=1
poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=2
poste3(3)=1
'poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",50))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",12))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" "


For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5

n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)

'If Figura(n1)=Figura(n2) Then


For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)

If (Fuori90(n3+n1)=n2 And Cadenza(n2)=0 And p3=p1) Or (Fuori90(n3+n2)=n1 And Cadenza(n1)=0 And p3=p2)Then

If (Fuori90(n3+n2)=n1 And Cadenza(n1)=0 And p3=p2)Then n4=DiametraleD(n2):n5=Abs(n3-n2)
If (Fuori90(n3+n1)=n2 And Cadenza(n2)=0 And p3=p1)Then n4=DiametraleD(n1):n5=Abs(n3-n1)
If n3=n2 And p3=p2 Then n5=90
If n3=n1 And p3=p1 Then n5=90
n6= Vert(n4)
n7= Vert(n5)

casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& " "&Format2(n1)& " "&Format2(n2),1
If p3=p2 Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& " "&Format2(n3),1
If p3=p1 Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& " "&Format2(n3),1
Scrivi
ColoreTesto 2
If Distanza(r1,r2)=1 Then Scrivi " > RUOTE CONSECUTIVE ",1
If Distanza(r1,r2)=5 And r1<12 And r2<12 Then Scrivi " > RUOTE DIAMETRALI ",1
If (r1+r2)=11 Then Scrivi " > RUOTE GEMELLARI ",1

Scrivi
ColoreTesto 0
ruota(1)=r1:ruota(2)=r2:ruota(3)=11
ruote(1)=r1:ruote(2)=r2:co=0


am3(1)=n4
am3(2)=n5
ImpostaGiocata 1,am3,ruote,poste,k
am3(1)=n6
am3(2)=n7
ImpostaGiocata 2,am3,ruote,poste,k
am4(1)=n4
am4(2)=n5
am4(3)=n6
am4(4)=n7
ImpostaGiocata 3,am4,ruote,poste3,k
Gioca es
End If
End If
Next
Next
'End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Anticipazione (Spoiler): S-->90 SOMMA-SOTTRAZIONE RUOTE UNITE by Badessa Lotto

'06-10-2024

ColoreTesto 1 :Scrivi String(37,32)&"S-->90 SOMMA-SOTTRAZIONE RUOTE UNITE by Badessa Lotto",1

ColoreTesto 0
Sub main
Dim ruota(2),ruote(10),posta(2),postd(10),poste(10),n(2),n1(6),n2(4)
posta(1)=1

poste(2)=1
postd(2)=1
postd(3)=1

k=InputBox("quanti colpi di gioco? ","colpi",10)
fin=EstrazioneFin
ini=8109
For es=ini To fin

ng=0

For p=5 To 5
For r=1 To 9
r1=r+1

a=Estratto(es,r,p)

b=Estratto(es,r1,p)
If Fuori90(a+b)=90 Then


d=Fuori90(a+b)
ruota(1)=r : ruota(2)=r1:
ruote(1)=r : ruote(2)=r1:ruote(3)=11:ruote(4)=12

caso=caso+1
Scrivi "============================= Caso N. "&caso,1
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(r)&" "&_
StringaEstratti(es,r) &" ] [ "& Format2(a)&" ] pos."&p,1
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(r1)&" "&_
StringaEstratti(es,r1)&" ] [ "& Format2(b)&" ] pos."&p,1
Scrivi "somma"&" tra "& Format2 (a)&"."& Format2 (b)& " = "&(d),1
Scrivi

a1=Abs(a-b)'ambata
a2=Fuori90(a1*2)'abb

a3=Vert(a1)'abb
a4=Vert(a2)'abb
n1(1) = a1
n1(2) = a2
ImpostaGiocata 1,n1,ruota,posta,k
n1(1) = a1
n1(2) = a2
ImpostaGiocata 2,n1,ruota,poste,k
n1(1) = a3
n1(2) = a4
ImpostaGiocata 3,n1,ruota,poste,k
n2(1) = a1
n2(2) = a2
n2(3) = a3
n2(4) = a4
ImpostaGiocata 4,n2,ruote,postd,k
Gioca es
End If

Next
Next
Next

ScriviResoconto


End Sub

 

[Pandit]

DJ come al solito, fai paura....
Sei una scheggia, come ho gia scritto un Grande grazie non basta a ripagare la Tua cortesia e Competenza..
Grazie Mille

 

[scarfacetony]

Naturalmente da controllare

Anticipazione (Spoiler): Somma di 2 numeri Isotopi = ZERATO presente tra gli estratti X Pandit

'https://forum.lottoced.com/threads/script.2218355/page-9#post-2712260
'In una qualsiasi estrazione, trovare un numero Zerato e nella stessa estrazione e ruota un altro estratto
'che sommato a quello isotopo, se possibile su ruota consecutiva, sommati siano uguali allo Zerato.
'Esempio:
'Ruota A 23 50 48 55 17 ---->diametrale in decina 12
'Ruota B 51 46 53 02 33 - 17 = 16
'17 + 33 = 50
'Numeri da giocare sulle due ruote A e B.
'1° ambo 12-16 -->Ambate
'2° ambo 21-61
'Lunghetta 12-16-21-61


ColoreTesto 2 :Scrivi String(17,32)&" Somma di 2 numeri Isotopi = ZERATO presente tra gli estratti X Pandit",1
Scrivi
Scrivi Date &_
Chr (32) &Chr (108)& Chr (105)& Chr (115)&Chr (116)&Chr (46)& Chr (32) & Chr (98)& Chr (121)& Chr (32) & Chr (68) & Chr (106)& Chr (78) & Chr (111) & Chr ( 109) & Chr (97)& Chr ( 100) & Chr (101),1
Scrivi String (2,Chr(11)): ColoreTesto 1
ColoreTesto 0


Sub main()
Dim nu1(10),nu2(10),nu3(3),nu4(10),am(2),am3(3),am4(5)
Dim ruote(10),ruota(10)
Dim poste(5),posta(5),poste2(5),poste3(5)
posta(1)=1
poste(2)=1
poste2(2)=1
poste2(3)=1
poste3(2)=2
poste3(3)=1
'poste3(4)=.40
z=CInt(InputBox ("Quante estrazione controllare?","estrazioni",50))
k=CInt(InputBox ("Quanti colpi di Gioco?","colpi di Gioco",12))
fin=EstrazioneFin
ini=fin-z
For es=ini To fin
Messaggio DataEstrazione (es,1)&" "


For r1=1 To 12
If r1=11 Then r1=12
For p1=1 To 4
For p2=p1+1 To 5

n1=Estratto(es,r1,p1)
n2=Estratto(es,r1,p2)

'If Figura(n1)=Figura(n2) Then


For r2=1 To 12
If r2=11 Then r2=12
For p3=1 To 5
If r1<>r2 Then
n3=Estratto(es,r2,p3)

If (Fuori90(n3+n1)=n2 And Cadenza(n2)=0 And p3=p1) Or (Fuori90(n3+n2)=n1 And Cadenza(n1)=0 And p3=p2)Then

If (Fuori90(n3+n2)=n1 And Cadenza(n1)=0 And p3=p2)Then n4=DiametraleD(n2):n5=Abs(n3-n2)
If (Fuori90(n3+n1)=n2 And Cadenza(n2)=0 And p3=p1)Then n4=DiametraleD(n1):n5=Abs(n3-n1)
If n3=n2 And p3=p2 Then n5=90
If n3=n1 And p3=p1 Then n5=90
n6= Vert(n4)
n7= Vert(n5)

casi=casi+1:Scrivi String(75,"="),1
Scrivi String(65,"-")&" caso n° "&(casi),1
Scrivi
Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r1)& " "& StringaEstratti(es,r1)& " "&Format2(n1)& " "&Format2(n2),1
If p3=p2 Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& " "&Format2(n3),1
If p3=p1 Then Scrivi DataEstrazione(es,1)&" < "&siglaRuota(r2)& " "& StringaEstratti(es,r2)& " "&Format2(n3),1
Scrivi
ColoreTesto 2
If Distanza(r1,r2)=1 Then Scrivi " > RUOTE CONSECUTIVE ",1
If Distanza(r1,r2)=5 And r1<12 And r2<12 Then Scrivi " > RUOTE DIAMETRALI ",1
If (r1+r2)=11 Then Scrivi " > RUOTE GEMELLARI ",1

Scrivi
ColoreTesto 0
ruota(1)=r1:ruota(2)=r2:ruota(3)=11
ruote(1)=r1:ruote(2)=r2:co=0


am3(1)=n4
am3(2)=n5
ImpostaGiocata 1,am3,ruote,poste,k
am3(1)=n6
am3(2)=n7
ImpostaGiocata 2,am3,ruote,poste,k
am4(1)=n4
am4(2)=n5
am4(3)=n6
am4(4)=n7
ImpostaGiocata 3,am4,ruote,poste3,k
Gioca es
End If
End If
Next
Next
'End If
Next
Next
Next
Next
ScriviResoconto
End Sub

Anticipazione (Spoiler): S-->90 SOMMA-SOTTRAZIONE RUOTE UNITE by Badessa Lotto

'06-10-2024

ColoreTesto 1 :Scrivi String(37,32)&"S-->90 SOMMA-SOTTRAZIONE RUOTE UNITE by Badessa Lotto",1

ColoreTesto 0
Sub main
Dim ruota(2),ruote(10),posta(2),postd(10),poste(10),n(2),n1(6),n2(4)
posta(1)=1

poste(2)=1
postd(2)=1
postd(3)=1

k=InputBox("quanti colpi di gioco? ","colpi",10)
fin=EstrazioneFin
ini=8109
For es=ini To fin

ng=0

For p=5 To 5
For r=1 To 9
r1=r+1

a=Estratto(es,r,p)

b=Estratto(es,r1,p)
If Fuori90(a+b)=90 Then


d=Fuori90(a+b)
ruota(1)=r : ruota(2)=r1:
ruote(1)=r : ruote(2)=r1:ruote(3)=11:ruote(4)=12

caso=caso+1
Scrivi "============================= Caso N. "&caso,1
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(r)&" "&_
StringaEstratti(es,r) &" ] [ "& Format2(a)&" ] pos."&p,1
Scrivi DataEstrazione(es,1)&" [ "& SiglaRuota(r1)&" "&_
StringaEstratti(es,r1)&" ] [ "& Format2(b)&" ] pos."&p,1
Scrivi "somma"&" tra "& Format2 (a)&"."& Format2 (b)& " = "&(d),1
Scrivi

a1=Abs(a-b)'ambata
a2=Fuori90(a1*2)'abb

a3=Vert(a1)'abb
a4=Vert(a2)'abb
n1(1) = a1
n1(2) = a2
ImpostaGiocata 1,n1,ruota,posta,k
n1(1) = a1
n1(2) = a2
ImpostaGiocata 2,n1,ruota,poste,k
n1(1) = a3
n1(2) = a4
ImpostaGiocata 3,n1,ruota,poste,k
n2(1) = a1
n2(2) = a2
n2(3) = a3
n2(4) = a4
ImpostaGiocata 4,n2,ruote,postd,k
Gioca es
End If

Next
Next
Next

ScriviResoconto


End Sub

Grazie Mille

 

[nunzio65]

Buongiorno, qualcuno a lo script ho il PDF del metodo di Badessa (S90) GRAZIE IN ANTICIPO