per chi ama  gli script di l8  e  lottodesk
metto a disposizione  questo script
del metodo di torino.
ciao salvozac
Sub main()
Dim numeri1(10),numeri2(10),numeri3(10) 
Dim ruote(10),ruota(10),ruota1(10)  
Dim posta(5),poste(5)                                             
posta(2)=1
poste(1)=1                                                
ruota(1)=9                                                                           
ruota(2)=12
ruota1(2)=11
For n= 7537 To EstrazioneFin                          
If IndiceMensile

=7 Then
co=0 
a1=Estratto(n,3,4)+Estratto(n,6,5):b1=Fuori90(a1+78):c1=Vert(b1)
a2=Estratto(n,5,3)*Estratto(n,8,1):b2=Fuori90(a2+72)
a3=Abs(Estratto(n,1,2)-Estratto(n,10,5)):b3=Fuori90(a3+8)
a4=Estratto(n,1,3)*Estratto(n,10,2):b4=Fuori90(a4+55):c2=Vert(b4)
numeri3(1)=c1                            
numeri3(2)=b2   
co=co+1
ImpostaGiocata co,numeri3,ruota,poste,11 
numeri2(1)=c1                            
numeri2(2)=b2   
co=co+1
ImpostaGiocata co,numeri2,ruota,posta,11
co=co+1
ImpostaGiocata co,numeri2,ruota1,posta,11
numeri2(1)=c1                            
numeri2(2)=c2   
co=co+1
ImpostaGiocata co,numeri2,ruota,posta,11
co=co+1
ImpostaGiocata co,numeri2,ruota1,posta,11
numeri2(1)=c1                            
numeri2(2)=b3   
co=co+1
ImpostaGiocata co,numeri2,ruota,posta,11
co=co+1
ImpostaGiocata co,numeri2,ruota1,posta,11
numeri2(1)=c1                            
numeri2(2)=c2   
co=co+1
ImpostaGiocata co,numeri2,ruota,posta,11
co=co+1
ImpostaGiocata co,numeri2,ruota1,posta,11
numeri2(1)=b2                         
numeri2(2)=b3   
co=co+1
ImpostaGiocata co,numeri2,ruota,posta,11
co=co+1
ImpostaGiocata co,numeri2,ruota1,posta,11
numeri2(1)=b2                           
numeri2(2)=c2   
co=co+1
ImpostaGiocata co,numeri2,ruota,posta,11
co=co+1
ImpostaGiocata co,numeri2,ruota1,posta,11
ImpostaInterruzioni 1,2,1
Gioca n 
End If 
Next 
ScriviResoconto 
End Sub
ciclometria e matematica sommativa