Giulio Pedrinelli
Super Member >PLATINUM<
Ciao a tutti;
Inizio: 05/12/2024
Fine: 04/12/2025
Estrazione di Calcolo : 2° Estrazione
Periodo di gioco: 9 estrazioni
A = 1° NZ + 1
B = 3° GE + 1
C = 1° NA + 22
D = 1° TO + 59
Nel periodo dal 05/12/2024 al 04/12/2025 ha totalizzato 17 ambi.
Previsione calcolata con l'estrazione del 04/12/2025:
G 1: A 53.80.40.14 Ca Fi Ge 0/9
i.c. (9 colpi)
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)=2
rt(2)=3
rt(3)=4
ini=10556
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=2 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,12,1) + 1
b=Estratto (es,4,3) + 1
c=Estratto (es,6,1) + 22
d=Estratto (es,9,1) + 59
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
Inizio: 05/12/2024
Fine: 04/12/2025
Estrazione di Calcolo : 2° Estrazione
Periodo di gioco: 9 estrazioni
A = 1° NZ + 1
B = 3° GE + 1
C = 1° NA + 22
D = 1° TO + 59
Nel periodo dal 05/12/2024 al 04/12/2025 ha totalizzato 17 ambi.
Previsione calcolata con l'estrazione del 04/12/2025:
G 1: A 53.80.40.14 Ca Fi Ge 0/9
i.c. (9 colpi)
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)=2
rt(2)=3
rt(3)=4
ini=10556
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=2 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,12,1) + 1
b=Estratto (es,4,3) + 1
c=Estratto (es,6,1) + 22
d=Estratto (es,9,1) + 59
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
