BA-CA-FI - 8° Estrazione

[Giulio Pedrinelli]

Ciao a tutti;

Inizio: 14/03/2025
Fine: 13/12/2025
Estrazione di calcolo: 8°

A = 3° MI + 7
B = 2° PA + 1
C = 4° PA + 3
D = 4° TO + 3

La previsione in gioco è: 9 estrazioni
BA-CA-FI
77-73-20-71

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 'colpi di gioco
rt(1)=1 '1a ruota di gioco
rt(2)=2
rt(3)=3

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

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

End Sub

PS: calendario delle estrazioni di Dicembre.

24/12 - ore 18:30
27/12
29/12
30/12
2/1
3/1
5/1
7/1

Ho evidenziato in grassetto l'orario dell'estrazione del 24/12, normalmente è alle ore 20:00.