Giulio Pedrinelli
Super Member >PLATINUM<
Ciao a tutti;
vi propongo questo mio metodo su Roma, Torino e Venezia alla 1° Estrazione del mese.
Periodo di gioco: 4 estrazioni.
Inizio: 02/11/2024
Fine: 03/11/2025
N.1 = 5° NZ + 27
N.2 = 3° MI + 84
N.3 = 2° PA + 79
N.4 = 4° NZ + 84
N.5 = 4° RO + 4
La previsione calcolata con l'estrazione del 03/11/2025 è la seguente:
Roma-Torino-Venezia 88-42-54-65-24
Periodo di gioco: 4 estrazioni.
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=4
rt(1)=8
rt(2)=9
rt(3)=10
ini=10537
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=1 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,12,5) + 27
b=Estratto (es,5,3) + 84
c=Estratto (es,7,2) + 79
d=Estratto (es,12,1) + 84
e=Estratto (es,8,4) +4
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
				
			vi propongo questo mio metodo su Roma, Torino e Venezia alla 1° Estrazione del mese.
Periodo di gioco: 4 estrazioni.
Inizio: 02/11/2024
Fine: 03/11/2025
N.1 = 5° NZ + 27
N.2 = 3° MI + 84
N.3 = 2° PA + 79
N.4 = 4° NZ + 84
N.5 = 4° RO + 4
La previsione calcolata con l'estrazione del 03/11/2025 è la seguente:
Roma-Torino-Venezia 88-42-54-65-24
Periodo di gioco: 4 estrazioni.
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=4
rt(1)=8
rt(2)=9
rt(3)=10
ini=10537
fin=EstrazioneFin
co=0
For es=ini To fin
Messaggio (es)
If Indicemensile (es)=1 Then
casi=casi+1
Scrivi String(60,"=")&" Caso n° "&casi,1
co=co+1
a=Estratto (es,12,5) + 27
b=Estratto (es,5,3) + 84
c=Estratto (es,7,2) + 79
d=Estratto (es,12,1) + 84
e=Estratto (es,8,4) +4
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