2 Quartine su Ge-Mi-Na alla 12° Estrazione

[Giulio Pedrinelli]

Ciao a tutti;

Inizio Ricerca: 27/04/2023
Fine Ricerca: 21/03/2025

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

1° Quartina: 2° NA + 2 / 5° FI + 85 / 5° PA + 12 / 5° CA + 12
2° Quartina: 2° NA + 2 / 3° NZ + 14 / 3° VE + 19 / 2° FI + 21

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


ini=10230
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=12 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,6,2) + 2
b=Estratto (es,3,5) + 85
c=Estratto (es,7,5) + 12
d=Estratto (es,2,5) + 12
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,6,2) + 2
b=Estratto (es,12,3) + 14
c=Estratto (es,10,3) + 19
d=Estratto (es,3,2) + 21
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

La previsione in gioco (da domani 22/03/2025):

GE-MI-NA

61-87-36-27 / 61-89-58-31