bari l ultima del mese

[Roby]

all ultima del mese dal rerno alla cinquina
Sub main()
Dim ruote(10)
Dim numeri1(5)
Dim numeri(5)
Dim posta(5)
posta(2)=1
posta(3)=1
posta(4)=1
posta(5)=1
ruote(1)=11

For es=7872 To EstrazioneFin
If IndiceMensile(es+1)=1 Then

numeri(1)=Fuori90(Estratto(es,10,3)+Estratto(es,10,4)+70)
numeri(2)=Fuori90(Estratto(es,8,5)+Estratto(es,10,2)+30)
numeri(3)=Fuori90(Estratto(es,6,3)+Estratto(es,9,5)+71)
numeri(4)=Fuori90(Estratto(es,4,2)+Estratto(es,10,5)+3)
numeri(5)=Fuori90(Estratto(es,2,2)+Estratto(es,2,3)+51)
ImpostaGiocata 1,numeri,ruote,posta,12,5

numeri(1)=Fuori90(Estratto(es,1,5)+Estratto(es,5,5)+23)
numeri(2)=Fuori90(Estratto(es,4,4)+Estratto(es,6,1)+14)
numeri(3)=Fuori90(Estratto(es,4,5)+Estratto(es,10,5)+68)
numeri(4)=Fuori90(Estratto(es,3,1)+Estratto(es,8,5)+38)
numeri(5)=Fuori90(Estratto(es,2,4)+Estratto(es,8,2)+77)
ImpostaGiocata 2,numeri,ruote,posta,12,5

numeri(1)=Fuori90(Estratto(es,1,1)+Estratto(es,1,2)+21)
numeri(2)=Fuori90(Estratto(es,4,1)+Estratto(es,4,4)+19)
numeri(3)=Fuori90(Estratto(es,5,2)+Estratto(es,5,1)+8)
numeri(4)=Fuori90(Estratto(es,6,4)+Estratto(es,6,2)+4)
numeri(5)=Fuori90(Estratto(es,10,3)+Estratto(es,10,4)+18)
ImpostaGiocata 3,numeri,ruote,posta,12,5

numeri(1)=Fuori90(Estratto(es,2,2)+Estratto(es,2,1)+73)
numeri(2)=Fuori90(Estratto(es,1,3)+Estratto(es,1,1)+54)
numeri(3)=Fuori90(Estratto(es,5,2)+Estratto(es,5,5)+14)
numeri(4)=Fuori90(Estratto(es,3,1)+Estratto(es,3,4)+34)
numeri(5)=Fuori90(Estratto(es,7,1)+Estratto(es,7,5)+12)
ImpostaGiocata 4,numeri,ruote,posta,12,5
Gioca es
End If
Next
ScriviResoconto
End Sub


massimiliano

 

[Roby]

che numeri ti escono per questo mese?

 

[imported_n/a]

bisogna aspp ancora unpochetto per l ultima


massimiliano