8° Estrazione MI-NA

[Giulio Pedrinelli]

Ciao a tutti;

Questo mio metodo, mette in gioco due cinquine su Milano-Napoli per 3 estrazioni.
8° Estrazione del mese.
Inizio: 14/01/2025
Fine: 13/06/2026

1° Cinquina.
5° di CA + 38
1° di MI + 22
2° di MI + 25
1° di NZ + 4
2° di FI + 6

2° Cinquina.
5° di CA + 38
1° di MI + 22
3° di CA + 15
2° di BA + 16
3° di PA + 20

Le somme vanno fatte con il Fuori 90.

Ecco lo script.

Dim rt(2),pt(4),n1(7)

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

clp=3 'colpi di gioco
rt(1)=5 '1a ruota di gioco
rt(2)=6

ini=10579
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=8 Then '12 Estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,2,5) + 38
b=Estratto (es,5,1) + 22
c=Estratto (es,5,2) + 25
d=Estratto (es,12,1) + 4
e=Estratto (es,3,2) + 6
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
a=Estratto (es,2,5) + 38
b=Estratto (es,5,1) + 22
c=Estratto (es,2,3) + 15
d=Estratto (es,1,2) + 16
e=Estratto (es,7,3) + 20
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 2,n1,rt,pt,clp

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

End Sub

La previsione è:
Mi-Na
11-07-05-79-40
11-07-09-78-17

Validità 3 estrazioni