3° Estrazione - BA / CA / FI

[Giulio Pedrinelli]

Ciao a tutti;

Questo mio metodo alla 3° estrazione del mese mette in gioco su Ba-Ca-Fi una cinquina per 13 estrazioni.

Inizio: 05/09/2025
Fine: 25/09/2026

Cinquina.
3° Estratto di NA + 3
5° Estratto di CA + 11
4° Estratto di MI + 40
3° Estratto di NA + 77
5° Estratto di VE + 7

Seguirà script.

 

[Alien.]

È ho provato con excel non male.....ma con excel è un pò noioso...

 

[andrea211]

Buongiorno, prov con quest

Sub Main()
Dim ruff(3), posta(5)
Dim num(5)
Dim ini, fin, es, clp

' Definizione delle ruote di gioco (BA=1, CA=2, FI=3)
ruff(1) = 1
ruff(2) = 2
ruff(3) = 3

' Configurazione delle poste (1 = Ambata, 2 = Ambo, 3 = Terno, ecc.)
posta(1) = 1.00 ' Mette in gioco l'Estratto Semplice (Ambata)
posta(2) = 1.00 ' Ambo
posta(3) = 1.00 ' Terno
posta(4) = 0.50 ' Quaterna
posta(5) = 0.50 ' Cinquina

clp = 13 ' Durata del gioco: 13 estrazioni
ini = EstrazioneFin - 1000 ' Analisi delle ultime 300 estrazioni
fin = EstrazioneFin

For es = ini To fin
Messaggio "Estrazione analizzata: " & es
Call AvanzamentoElab(ini, fin, es)

' Condizione: 3ª estrazione del Mese
If IndiceMensile(es) = 3 Then

' Calcolo matematico dei 5 numeri (Ruote espresse in numeri fissi: CA=2, MI=5, NA=6, VE=10)
num(1) = Fuori90(Estratto(es, 6, 3) + 3) ' 3° di Napoli + 3
num(2) = Fuori90(Estratto(es, 2, 5) + 11) ' 5° di Cagliari + 11
num(3) = Fuori90(Estratto(es, 5, 4) + 40) ' 4° di Milano + 40
num(4) = Fuori90(Estratto(es, 6, 3) + 77) ' 3° di Napoli + 77
num(5) = Fuori90(Estratto(es, 10, 5) + 7) ' 5° di Venezia + 7

' Controllo e correzione automatica di eventuali numeri duplicati
Dim i, j
For i = 1 To 4
For j = i + 1 To 5
If num(i) = num(j) Then num(j) = Fuori90(num(j) + 1)
Next
Next

' Scrittura dei dati calcolati nel report di Output
Call Scrivi("-----------------------------------------------------------------")
Call Scrivi("Data: " & DataEstrazione(es) & " - 3ª Estrazione del Mese")
Call Scrivi("Cinquina calcolata: " & StringaNumeri(num))

' Registrazione della giocata: ID=1, vettore numeri, vettore ruote, vettore poste, colpi, sorte minima (1=Ambata)
Call ImpostaGiocata(1, num, ruff, posta, clp, 1)

' Avvia il motore di ricerca degli esiti
Call Gioca(es)

End If
Next

' Genera il tabellone statistico finale con vincite/perdite
Call ScriviResoconto
End Sub

 

[Giulio Pedrinelli]

Ciao a tutti;

il metodo l'ho testato su un periodo di 14 casi.
Su un periodo di 1000 estrazioni i risultati poterebbero essere differenti.
Verificherò gli algoritmi con Spiamaster, aveva un efficacia diversa.
Tra parentesi ho fatto girare lo script a 14 casi/mesi.
Vi farò sapere in seguito.

Grazie ad andrea211 per lo script.

 

[andrea211]

Ciao a tutti;

il metodo l'ho testato su un periodo di 14 casi.
Su un periodo di 1000 estrazioni i risultati poterebbero essere differenti.
Verificherò gli algoritmi con Spiamaster, aveva un efficacia diversa.
Tra parentesi ho fatto girare lo script a 14 casi/mesi.
Vi farò sapere in seguito.

Grazie ad andrea211 per lo script.

Di nulla ha provveduto il mio amico Antropic,
Buona giornata

 

[bubù]

Ciao a tutti;

il metodo l'ho testato su un periodo di 14 casi.
Su un periodo di 1000 estrazioni i risultati poterebbero essere differenti.
Verificherò gli algoritmi con Spiamaster, aveva un efficacia diversa.
Tra parentesi ho fatto girare lo script a 14 casi/mesi.
Vi farò sapere in seguito.

Grazie ad andrea211 per lo script.

nei 13 colpi non è malissimo

 

[Giulio Pedrinelli]

Ho utilizzato uno dei miei script creati in precedenza.
Mettendo il periodo dal 5/8/2025 fino al 26/09/2026 per 13 estrazioni su BA-CA-FI.
Adesso i risultati dall'elaborazione dello script corrispondono agli esiti con Spiamaster.
Allego lo script.

Sub main()
Dim rt(10),pt(4),n1(7)
'Metodo GIULIO
'https://forum.lottoced.com/threads/3°-estrazione-ba-ca-fi.2229420/#post-2837094
'Script GIULIO

pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0

clp=13 'colpi di gioco
rt(1)=1
rt(2)=2
rt(3)=3
ini=10695
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=3 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,6,3) + 3
b=Estratto (es,2,5) + 11
c=Estratto (es,5,4) + 40
d=Estratto (es,6,3) + 77
e=Estratto (es,10,5) + 7
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
n1(5)=Fuori90 (e+0)
ImpostaGiocata 1,n1,rt,pt,clp

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub
PS: devo andare al ristorante, rispoondo a Tutti al pomeriggio. Sorry

 

[Alien.]

Ecco GIULIO controlla che a volte AI fanno molto caos se non le istruisci con l'abbecedario...ti dicono quello che vogliono ma poi se gli dici guarda che......risposta hai ragione bla bla mi è successo spesso.....grazie ANDREA PER LO SCRIPT.

 

[Alien.]

ACC....hai già risposto ,provato il tuo script per quale motivo ad ANDREA viene una ciofeca !!! Ho dei dubbi.....

GIULIO fidati solo di te stesso ............. ....BUON APPETITO.

 

[Alien.]

ok

 

[bubù]

ACC....hai già risposto ,provato il tuo script per quale motivo ad ANDREA viene una ciofeca !!! Ho dei dubbi.....

GIULIO fidati solo di te stesso .............ti rifaccio la stessa domanda che non hai visto, sei solo qua o anche su altri forum Lotto eventualmente metti solo AVATAR o il tuo nome che hai come qua od altro che poi ti trovo,grazie......BUON APPETITO.

devi solo ampliare il gioco per i 13 colpi e vedrai che è uguale, quello di Andrea si ferma alla prima uscita di un solo numero

 

[Giulio Pedrinelli]

Ciao Alien,

lo script è uno dei miei, creati senza aiuto dell'IA.
E' vero spesso fa casino se non gli dici come procedere, comunque uso ChatGPT e mi trovo abbastanza bene.

 

[LoneWolf]

Ciao Alien,

lo script è uno dei miei, creati senza aiuto dell'IA.
E' vero spesso fa casino se non gli dici come procedere, comunque uso ChatGPT e mi trovo abbastanza bene.

Ciao Giulio ,
ho notato che non hai impostato almeno 1 nella posta per Terno, avrai un valore raddoppiato del gadagno !
Ho seguito tutti i tuoi Script e sono utilissimi, Grazie

 

[Giulio Pedrinelli]

Si, in effetti le vincite di terno sono state 6 su 14.

Qui di seguito lo script.

Sub main()
Dim rt(10),pt(4),n1(7)
'Metodo GIULIO
'https://forum.lottoced.com/threads/3°-estrazione-ba-ca-fi.2229420/#post-2837094
'Script GIULIO

pt(1)=0
pt(2)=1
pt(3)=1
pt(4)=0

clp=13 'colpi di gioco
rt(1)=1
rt(2)=2
rt(3)=3
ini=10695
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=3 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,6,3) + 3
b=Estratto (es,2,5) + 11
c=Estratto (es,5,4) + 40
d=Estratto (es,6,3) + 77
e=Estratto (es,10,5) + 7
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
n1(5)=Fuori90 (e+0)
ImpostaGiocata 1,n1,rt,pt,clp

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub

 

[bubù]

Si, in effetti le vincite di terno sono state 6 su 14.

Qui di seguito lo script.

Sub main()
Dim rt(10),pt(4),n1(7)
'Metodo GIULIO
'https://forum.lottoced.com/threads/3°-estrazione-ba-ca-fi.2229420/#post-2837094
'Script GIULIO

pt(1)=0
pt(2)=1
pt(3)=1
pt(4)=0

clp=13 'colpi di gioco
rt(1)=1
rt(2)=2
rt(3)=3
ini=10695
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If IndiceMensile (es)=3 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,6,3) + 3
b=Estratto (es,2,5) + 11
c=Estratto (es,5,4) + 40
d=Estratto (es,6,3) + 77
e=Estratto (es,10,5) + 7
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
n1(5)=Fuori90 (e+0)
ImpostaGiocata 1,n1,rt,pt,clp

Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto

End Sub

Non 6 ma 7 su 14 siamo al 50% sui 13 Colpi

 

[Alien.]

PECCATO CHE NON SONO 3 COLPI HAHAHHAAHHA

 

[Giulio Pedrinelli]

In effetti a 3 colpi è un pò cortino........ la coperta è corta
Ci sto lavorando su.......

 

[Alien.]

Sei un pò.... Genius è non male con 3 colpi si può vincere molto di più.€€€€€€€

 

[Acquafresca]

Buonasera ,ho provato lo script di Giulio e mi sembra un buon script ,ho fatto delle prove portando la data di inizio elaborazione a 7433 (data di inserimento della Nazionale (04/05/2005) ) a colpi 13 screenshot ( con 19 Terni) ,e screenshot ridotto a 9 colpi mi esce (con 14 Terni) non male direi....