Ciauz
- Codice: Seleziona tutto
'http://www.lottopassion.it/forum/viewtopic.php?f=10&p=16016#p16016
ColoreTesto 2 :Scrivi "-- 5° del mese BARI by NUNZIO65 ---------------------------",1
Scrivi " List. DjNomade",1
ColoreTesto 0
Scrivi
Sub main()
Dim posta(5),posta1(5)
Dim poste(5)
Dim ruote(5),ruota(2)
Dim am(10)
Dim n1(10),n2(10),n3(10)
poste(2)=1
posta(5)=.2
posta(4)=.5
posta(3)=1.8
posta(2)=1
posta1(1)=1
posta1(2)=1
casi=0
k=9
fin=EstrazioneFin
ini=8950
For es=ini To fin
If IndiceMensile(es)=5 Then
a1=Vert(Fuori90(Estratto(es,1,2)+Estratto(es,4,2)+82))'AMBATA
a2=Vert(Fuori90(Estratto(es,1,4)+Estratto(es,3,2)+38))'AMBATA
a3=Vert(Fuori90(Estratto(es,2,3)+Estratto(es,8,1)+20))
a4=Vert(Fuori90(Estratto(es,2,4)+Estratto(es,6,5)+57))
a5=Vert(Fuori90(Estratto(es,2,5)+Estratto(es,12,3)+48))
a6=Vert(Fuori90(Estratto(es,4,1)+Estratto(es,6,1)+55))
a7=Vert(Fuori90(Estratto(es,4,1)+Estratto(es,6,3)+70))
a8=Vert(Fuori90(Estratto(es,6,1)+Estratto(es,8,1)+4))
a9=Vert(Fuori90(Estratto(es,6,2)+Estratto(es,10,1)+63))
ColoreTesto 2 :Scrivi "---------------------------",1
ColoreTesto 0
ruote(1)=1
n1(1)=a1
n1(2)=a2
ImpostaGiocata 1,n1,ruote,posta1,k
n2(1)=a1
n2(2)=a2
n2(3)=a3
n2(4)=a4
n2(5)=a5
n2(6)=a6
n2(7)=a7
n2(8)=a8
n2(9)=a9
EliminaRipetuti(n2)
ImpostaGiocata 2,n2,ruote,posta,k
Gioca es
casi=casi+1
End If
Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto
End Sub