Giulio Pedrinelli
Super Member >PLATINUM<
Ciao a tutti;
Questo mio metodo mette in gioco 2 quartine su Mi-Na-Pa alla 1° Estrazione del mese, per 9 estrazioni.
Gioco ambo e terno.
Inizio: 02/01/2024
Fine: 02/12/2025
A = 2° PA + 57
B = 4° TO + 10
C = 2° TO + 11
D = 1° BA + 36
E = 1° GE + 5
1° Quartina: A-B-D-E
2° Quartina: A-C-D-E
La previsione calcolata dall'estrazione del 02/12/2025 è la seguente:
G 1: A 82.24.86.88 Mi Na Pa 0/9
i.c. (9 colpi)
G 2: A 82.50.86.88 Mi Na Pa 0/9
i.c. (9 colpi)
Nel periodo considerato le vincite di ambo e terno si sono sfaldate entro:
1° = 1
2° = 4
3° = 2
4° = 2
5° = 3
6° = 1
7° = 1
8° = 2
9° = 2
Consiglio di giocare fino all'8 colpo e di sospendere il gioco alla 1° vincita di ambo.
I casi in cui si è sfaldato il terno dopo l'uscita dell'ambo sono stati 2 (1/2/2025 e 03/11/2025).
Qui di seguito lo script.
Sub main()
Dim rt(3),pt(4),n1(7)
pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0
clp=9
rt(1)=5
rt(2)=6
rt(3)=7
ini=10362
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=1 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,7,2) + 57
b=Estratto (es,9,4) + 10
c=Estratto (es,1,1) + 36
d=Estratto (es,4,1) + 5
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 1,n1,rt,pt,clp
a=Estratto (es,7,2) + 57
b=Estratto (es,9,2) + 11
c=Estratto (es,1,1) + 36
d=Estratto (es,4,1) + 5
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 2,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
Questo mio metodo mette in gioco 2 quartine su Mi-Na-Pa alla 1° Estrazione del mese, per 9 estrazioni.
Gioco ambo e terno.
Inizio: 02/01/2024
Fine: 02/12/2025
A = 2° PA + 57
B = 4° TO + 10
C = 2° TO + 11
D = 1° BA + 36
E = 1° GE + 5
1° Quartina: A-B-D-E
2° Quartina: A-C-D-E
La previsione calcolata dall'estrazione del 02/12/2025 è la seguente:
G 1: A 82.24.86.88 Mi Na Pa 0/9
i.c. (9 colpi)
G 2: A 82.50.86.88 Mi Na Pa 0/9
i.c. (9 colpi)
Nel periodo considerato le vincite di ambo e terno si sono sfaldate entro:
1° = 1
2° = 4
3° = 2
4° = 2
5° = 3
6° = 1
7° = 1
8° = 2
9° = 2
Consiglio di giocare fino all'8 colpo e di sospendere il gioco alla 1° vincita di ambo.
I casi in cui si è sfaldato il terno dopo l'uscita dell'ambo sono stati 2 (1/2/2025 e 03/11/2025).
Qui di seguito lo script.
Sub main()
Dim rt(3),pt(4),n1(7)
pt(1)=0
pt(2)=1
pt(3)=0
pt(4)=0
clp=9
rt(1)=5
rt(2)=6
rt(3)=7
ini=10362
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=1 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,7,2) + 57
b=Estratto (es,9,4) + 10
c=Estratto (es,1,1) + 36
d=Estratto (es,4,1) + 5
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 1,n1,rt,pt,clp
a=Estratto (es,7,2) + 57
b=Estratto (es,9,2) + 11
c=Estratto (es,1,1) + 36
d=Estratto (es,4,1) + 5
n1(1)=Fuori90 (a+0)
n1(2)=Fuori90 (b+0)
n1(3)=Fuori90 (c+0)
n1(4)=Fuori90 (d+0)
ImpostaGiocata 2,n1,rt,pt,clp
Gioca es
End If
Next
Scrivi : Scrivi "Casi Rilevati "& CInt (co)
ScriviResoconto
End Sub
