Aspettando la 1° estrazione di Novembre

[Giulio Pedrinelli]

Ciao a tutti;

Vi propongo questo metodo sulle ruote di Ge-Mi-Na-Pa-Ro alla 15° estrazione del mese, per 4 estrazioni.
Estrazione di calcolo = 15 del mese

Inizio: 25/10/2024
Fine: 25/10/2025

1° Colpo = 6
2° Colpo = 5
3° Colpo = 4
4° Colpo = 4

Totale 19

Se un numero è maggiore di 90, va fatto il fuori 90.
Le vincite multiple sono abbastanza frequenti (7 su 12), comunque consiglio di sospendere la giocata alla prima vincita.

Calcolo previsione:

1° CA + 1
3° Ba + 10
5° GE + 7
1° CA + 11
4° BA + 78

Qui di seguito lo script.

Sub main()
Dim rt(5),pt(4),n1(7)

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

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

ini=10531
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=15 Then '12 Estrazione del mese
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,2,1) + 1
b=Estratto (es,1,3) + 10
c=Estratto (es,4,5) + 7
d=Estratto (es,2,1) + 11
e=Estratto (es,1,4) + 78
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

Direi che vale la pena di provare.