Ciauz
- Codice: Seleziona tutto
'http://www.lottopassion.it/forum/viewtopic.php?f=10&p=15995&sid=12e013a6f531c1ae9f18c66c94971e28#p15995
ColoreTesto 2 :Scrivi "-- 1° del mese TORINO 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(4)=.5
posta(3)=1.5
posta(2)=1
posta1(1)=1
casi=0
k=12
fin=EstrazioneFin
ini=9260
For es=ini To fin
If IndiceMensile(es)=1 Then
a1=Fuori90(Estratto(es,9,4)+58)
a2=Fuori90(Estratto(es,2,4)+3)
a3=Fuori90(Estratto(es,8,1)+29)
a4=Fuori90(Estratto(es,10,2)+7)
a5=Fuori90(Estratto(es,3,2)*24)
a6=Fuori90(Estratto(es,9,2)*78)
ColoreTesto 2 :Scrivi "---------------------------",1
ColoreTesto 0
ruote(1)=9
n1(1)=a1
ImpostaGiocata 1,n1,ruote,posta,k
n2(1)=a1
n2(2)=a2
ImpostaGiocata 2,n2,ruote,poste,k
n2(1)=a1
n2(2)=a3
ImpostaGiocata 3,n2,ruote,poste,k
n2(1)=a1
n2(2)=a4
ImpostaGiocata 4,n2,ruote,poste,k
n2(1)=a1
n2(2)=a5
ImpostaGiocata 5,n2,ruote,poste,k
n2(1)=a1
n2(2)=a6
ImpostaGiocata 6,n2,ruote,poste,k
n3(1)=a1
n3(2)=a2
n3(3)=a3
n3(4)=a4
n3(5)=a5
n3(6)=a6
EliminaRipetuti(n3)
ImpostaGiocata 7,n3,ruote,posta,k
Gioca es
casi=casi+1
End If
Next
Scrivi
Scrivi
Scrivi "Numero Totale mesi analizzati : "&Cint(casi)
ScriviResoconto
End Sub