Cupido metto i listati per chi ha L8+ dei due metodi, per onorarti ancor di + dei tuoi sforzi e rendere giusto merito ai tuoi lavori ...... bravo ancora
:
************************************************************************************************************
Milano:
Sub main()
Dim ruote(10)
Dim a(10)
Dim poste(5)
poste(2)=1
poste(3)=1
ruote(1)=5
For n=7403 To EstrazioneFin
If IndiceMensile
=1 Then
a(1)=Fuori90(Estratto(n,1,1)+21)
a(2)=Fuori90(Estratto(n,1,1)+22)
a(3)=Fuori90(Estratto(n,1,1)+49)
ImpostaGiocata 1,a,ruote,poste,13,3
a(1)=Fuori90(Estratto(n,1,1)+21)
a(2)=Fuori90(Estratto(n,1,1)+22)
a(3)=Fuori90(Estratto(n,1,1)+74)
ImpostaGiocata 2,a,ruote,poste,13,3
a(1)=Fuori90(Estratto(n,1,1)+30)
a(2)=Fuori90(Estratto(n,1,1)+49)
a(3)=Fuori90(Estratto(n,1,1)+81)
ImpostaGiocata 3,a,ruote,poste,13,3
a(1)=Fuori90(Estratto(n,1,1)+12)
a(2)=Fuori90(Estratto(n,1,1)+29)
a(3)=Fuori90(Estratto(n,1,1)+86)
ImpostaGiocata 4,a,ruote,poste,13,3
a(1)=Fuori90(Estratto(n,1,1)+6)
a(2)=Fuori90(Estratto(n,1,1)+37)
a(3)=Fuori90(Estratto(n,1,1)+52)
ImpostaGiocata 5,a,ruote,poste,13,3
Gioca n
End If
Next
ScriviResoconto
End Sub
**********************************************************************************************************
Venezia:
Sub main()
Dim ruote(10)
Dim a(10)
Dim poste(5)
poste(2)=1
poste(3)=1
ruote(1)=10
For n=7403 To EstrazioneFin
If IndiceMensile
=1 Then
a(1)=Fuori90(Estratto(n,1,1)+56)
a(2)=Fuori90(Estratto(n,1,1)+59)
a(3)=Fuori90(Estratto(n,1,1)+87)
ImpostaGiocata 1,a,ruote,poste,13,3
a(1)=Fuori90(Estratto(n,1,1)+38)
a(2)=Fuori90(Estratto(n,1,1)+60)
a(3)=Fuori90(Estratto(n,1,1)+83)
ImpostaGiocata 2,a,ruote,poste,13,3
a(1)=Fuori90(Estratto(n,1,1)+32)
a(2)=Fuori90(Estratto(n,1,1)+45)
a(3)=Fuori90(Estratto(n,1,1)+85)
ImpostaGiocata 3,a,ruote,poste,13,3
a(1)=Fuori90(Estratto(n,1,1)+21)
a(2)=Fuori90(Estratto(n,1,1)+41)
a(3)=Fuori90(Estratto(n,1,1)+87)
ImpostaGiocata 4,a,ruote,poste,13,3
a(1)=Fuori90(Estratto(n,1,1)+12)
a(2)=Fuori90(Estratto(n,1,1)+45)
a(3)=Fuori90(Estratto(n,1,1)+85)
ImpostaGiocata 5,a,ruote,poste,13,3
Gioca n
End If
Next
ScriviResoconto
End Sub
****************************************************************************************************
Ciao e Grazie
Sonic