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

 

[Alien.]

ok