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