E POSSIBILE AVERE UN LISTATO

[Roby]

DI QUESTO METODO CHE VA GIOCATO A BARI

:

ultima estrazione del mese
3 estratto CA + 43
4 estratto FI X 13

3 estratto CA + 86
2 estratto NA + 63

3 estratto CA + 4
2 estratto BA X 77

3 estratto CA X7
3 estratto NA + 36

3 estratto CA + 40
5 estratto BA + 8

3 estratto CA +51
1 estratto BA +60

3 estratto CA +73
3 estratto FI +32

3 estratto CAx 41
1 estratto BA+ 75


kum fortuna plena numerus superior discedit

 

[rudivall]

Ciao Luna io sono riuscito a farlo così

Sub main()
Dim ruote(10)
Dim numeri1(10)
Dim numeri2(10)
Dim poste(5)
Dim posta(5)
poste(1)=0
poste(2)=1
poste(3)=0
poste(4)=0

ruote(1)=1

For n=8000 To EstrazioneFin
If IndiceMensile(n+1)=1 Then

numeri1(1)=Fuori90(Estratto(n,2,3)+43)
numeri1(2)=Fuori90(Estratto(n,3,4)*13)
ImpostaGiocata 1,numeri1,ruote,poste,6,2

numeri1(1)=Fuori90(Estratto(n,2,3)+86)
numeri1(2)=Fuori90(Estratto(n,6,2)+63)
ImpostaGiocata 2,numeri1,ruote,poste,6,2

numeri1(1)=Fuori90(Estratto(n,2,3)+4)
numeri1(2)=Fuori90(Estratto(n,1,2)*77)
ImpostaGiocata 3,numeri1,ruote,poste,6,2


numeri1(1)=Fuori90(Estratto(n,2,3)*7)
numeri1(2)=Fuori90(Estratto(n,6,3)+36)
ImpostaGiocata 4,numeri1,ruote,poste,6,2

numeri1(1)=Fuori90(Estratto(n,2,3)+40)
numeri1(2)=Fuori90(Estratto(n,1,5)+8)
ImpostaGiocata 5,numeri1,ruote,poste,6,2

numeri1(1)=Fuori90(Estratto(n,2,3)+51)
numeri1(2)=Fuori90(Estratto(n,1,1)+60)
ImpostaGiocata 6,numeri1,ruote,poste,6,2

numeri1(1)=Fuori90(Estratto(n,2,3)+73)
numeri1(2)=Fuori90(Estratto(n,3,3)+32)
ImpostaGiocata 7,numeri1,ruote,poste,6,2

numeri1(1)=Fuori90(Estratto(n,2,3)*41)
numeri1(2)=Fuori90(Estratto(n,1,1)+75)
ImpostaGiocata 8,numeri1,ruote,poste,6,2


Gioca n
End If
Next
ScriviResoconto
End Sub

rodolfo