Salve a tutti, se interessa a qualcuno x divertirsi ecco il listato x L8+ ver. 5.2.39
Sub main()
Dim r(10)
Dim n1(10)
Dim poste(5)
'--poste(1)=10.00
poste(2)=1.00
poste(3)=1.00
'--poste(4)=1.00
'--poste(5)=0.10
'r(1)=1
'r(2)=2 '--CA
'r(3)=3
'r(4)=4 '--GE
'r(5)=5 '--MI
'r(6)=6 '--NA
'r(7)=7 '--PA
'r(8)=8
'r(9)=9 '--TO
'r(10)=10
'r(1)=11
k=10 '--colpi di gioco
y=3 '--sorte interr.
For n=7693 To EstrazioneFin '-- 03/01/2005 7405 ** 29/12/1999 6876 ** 29/12/2005 7536
ng=0
If IndiceMensile(n+1)=1 Then
'--BARI---: 1° di Ba + 28 ** 5° di Naz + 87 ** 2° di Ba + 47--34-35-80
n1(1)=Fuori90(Estratto(n,1,1)+28)
n1(2)=Fuori90(Estratto(n,12,5)+87)
n1(3)=Fuori90(Estratto(n,1,2)+47)
r(1)=1
ng=ng+1
ImpostaGiocata ng,n1,r,poste,k,y
'--CAGLIARI---: 1° di Ba + 10 ** 4° di Ge + 12 ** 2° di Ba + 3--17-70-80
n1(1)=Fuori90(Estratto(n,1,1)+10)
n1(2)=Fuori90(Estratto(n,4,4)+12)
n1(3)=Fuori90(Estratto(n,1,2)+3)
r(1)=2
ng=ng+1
ImpostaGiocata ng,n1,r,poste,k,y
'--FIRENZE---: 1° di Ba + 42 ** 4° di Ba + 55 ** 4° di Ba + 49--49-81-87
n1(1)=Fuori90(Estratto(n,1,1)+42)
n1(2)=Fuori90(Estratto(n,1,4)+55)
n1(3)=Fuori90(Estratto(n,1,4)+49)
r(1)=3
ng=ng+1
ImpostaGiocata ng,n1,r,poste,k,y
'--GENOVA--- 1° di Ba + 44 ** 4° di To + 70 ** 3° di Naz +26--51-52-65
n1(1)=Fuori90(Estratto(n,1,1)+44)
n1(2)=Fuori90(Estratto(n,9,4)+70)
n1(3)=Fuori90(Estratto(n,12,3)+26)
r(1)=4
ng=ng+1
ImpostaGiocata ng,n1,r,poste,k,y
'--MILANO---: 1° di Ba + 5 ** 2° di Mi + 70 ** 3° di Ba + 26-- 12-40-78
n1(1)=Fuori90(Estratto(n,1,1)+5)
n1(2)=Fuori90(Estratto(n,5,2)+70)
n1(3)=Fuori90(Estratto(n,1,3)+26)
r(1)=5
ng=ng+1
ImpostaGiocata ng,n1,r,poste,k,y
'--NAPOLI---: 1° di Ba + 23 ** 4° di Ve + 83 ** 1° di Ba x 86--27-30-62
n1(1)=Fuori90(Estratto(n,1,1)+23)
n1(2)=Fuori90(Estratto(n,10,4)+83)
n1(3)=Fuori90(Estratto(n,1,1)*86)
r(1)=6
ng=ng+1
ImpostaGiocata ng,n1,r,poste,k,y
'--PALERMO---: 1° di Ba + 22 ** 2° di Na + 4 ** 5° di Naz + 20--13-25-29
n1(1)=Fuori90(Estratto(n,1,1)+22)
n1(2)=Fuori90(Estratto(n,6,2)+4)
n1(3)=Fuori90(Estratto(n,12,5)+20) '--5° di Naz + 20
r(1)=7
ng=ng+1
ImpostaGiocata ng,n1,r,poste,k,y
'--ROMA---: 1° di Ba + 3 ** 5° di Ge + 7 ** 1° di Ca + 5--10-18-29
n1(1)=Fuori90(Estratto(n,1,1)+3)
n1(2)=Fuori90(Estratto(n,4,5)+7)
n1(3)=Fuori90(Estratto(n,2,1)+5)
r(1)=8
ng=ng+1
ImpostaGiocata ng,n1,r,poste,k,y
'--TORINO---: 1° di Ba + 5 ** 4° di Ve + 20 ** 1° di Ba + 72--12-54-79
n1(1)=Fuori90(Estratto(n,1,1)+5)
n1(2)=Fuori90(Estratto(n,10,4)+20)
n1(3)=Fuori90(Estratto(n,1,1)+72)
r(1)=9
ng=ng+1
ImpostaGiocata ng,n1,r,poste,k,y
'--VENEZIA---: 1° di Ba + 37 ** 3° di Ve + 30 ** 1° di Ba + 18--21-25-44
n1(1)=Fuori90(Estratto(n,1,1)+37)
n1(2)=Fuori90(Estratto(n,10,3)+30)
n1(3)=Fuori90(Estratto(n,1,1)+18)
r(1)=10
ng=ng+1
ImpostaGiocata ng,n1,r,poste,k,y
'--NAZIONALE---: 1° di Ba + 49 ** 5° di Naz + 44 ** 1° di Ba x 62-- 37-56-74
n1(1)=Fuori90(Estratto(n,1,1)+49)
n1(2)=Fuori90(Estratto(n,12,5)+44)
n1(3)=Fuori90(Estratto(n,1,1)*62)
r(1)=12
ng=ng+1
ImpostaGiocata ng,n1,r,poste,k,y
'For z=1 To ng
'For z1=1 To ng
' ImpostaInterruzioni z,z1,y
'Next
'Next
Gioca n,True
End If
Next
ScriviResoconto
'ScriviResoconto 1
'ScriviResoconto 2
'ScriviResoconto 3
'ScriviResoconto 4
'ScriviResoconto 5
'ScriviResoconto 6
'ScriviResoconto 7
'ScriviResoconto 8
'ScriviResoconto 9
'ScriviResoconto 10
End Sub
Max