Ge-Mi-Na alla 4° Estrazione del mese

[Giulio Pedrinelli]

Ciao a tutti;

Inizio Statistica: 08/04/2023
Fine Statistica: 07/03/2025

Ruote: Ge-Mi-Na
Periodo di gioco: 9 estrazioni

1° Quartina: 1° NZ + 48 / 5° RO + 5 / 5° MI + 7 / 5° PA + 83
2° Quartina: 1° NZ + 48 / 1° TO + 89 / 3° BA + 1 / 5° RO +1

La previsione in gioco è: Ge-Mi-Na
Inizio da domani 08/03/2025 per 9 estrazioni

03-86-73-59
03-61-19-82

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)=4
rt(2)=5
rt(3)=6


ini=10222
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=4 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,12,1) + 48
b=Estratto (es,8,5) + 5
c=Estratto (es,5,5) + 7
d=Estratto (es,7,5) + 83
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,12,1) + 48
b=Estratto (es,9,1) + 89
c=Estratto (es,1,3) + 1
d=Estratto (es,8,5) + 1
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

Attesa media: 4,6 colpi