DendroAspys
Advanced Member >GOLD<
quote:Originally posted by ghost
Dendro come posso fare a contattarti in privato?
----------------------
Cerca qui........
[|)]
Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
quote:Originally posted by ghost
Dendro come posso fare a contattarti in privato?
Sub main()
Dim r(10)
Dim n1(10)
Dim n2(10)
Dim n3(10)
Dim n4(10)
Dim p1(5)
Dim p2(5)
Dim p3(5)
Dim p4(5)
Dim p5(5)
Dim pp(5,100)
' Puntata fissa per terno 1 euro, per quaterna 1 euro.
' __________________________________________________
' | Progressione | Recupero | Vincita netta |
pp(2,1)=1 '| 03,00 | 03,00 | 05,22 |
pp(2,2)=1.5 '| 03,50 | 06,50 | 07,83 |
pp(2,3)=2.5 '| 04,50 | 11,00 | 13,06 |
pp(2,4)=3.5 '| 05,50 | 16,50 | 18,28 |
pp(2,5)=4.5 '| 06,50 | 23,00 | 23,50 |
pp(2,6)=6 '| 08,00 | 31,00 | 31,33 |
pp(2,7)=8 '| 10,00 | 41,00 | 41,78 |
pp(2,8)=10.5 '| 12,50 | 53,50 | 54,83 |
pp(2,9)=13.5 '| 15,50 | 69,00 | 70,50 |
pp(2,10)=17 '| 19,00 | 88,00 | 88,78 |
' |__________________|___________|___________________|
p1(1)=1
p2(2)=1
p3(3)=1
p4(4)=1
p5(5)=.1
c=10
k1=1
k2=2
k3=3
k4=4
k5=5
r(1)=1
co=0
For n=7312 To EstrazioneFin
If IndiceMensile(n)=3 Then
co=co+1
n1(1)=Fuori90(Estratto(n,4,2)+Fuori90(Estratto(n,7,2))+49)
n1(2)=Fuori90(Estratto(n,5,4)+Fuori90(Estratto(n,7,5))+34)
n1(3)=Fuori90(Estratto(n,7,1)+Fuori90(Estratto(n,8,2))+06)
n1(4)=Fuori90(Estratto(n,8,4)+Fuori90(Estratto(n,10,3))+35)
n1(5)=Fuori90(Estratto(n,1,3)+Fuori90(Estratto(n,4,3))+67)
n1(6)=Fuori90(Estratto(n,1,2)+Fuori90(Estratto(n,8,1))+79)
n1(7)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,5,4))+09)
n1(8)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,10,1))+68)
n1(9)=Fuori90(Estratto(n,3,1)+Fuori90(Estratto(n,9,5))+77)
n1(10)=Fuori90(Estratto(n,4,5)+Fuori90(Estratto(n,6,3))+61)
ImpostaGiocata 1,n1,r,p2,c,k2
ImpostaProgressione 1,pp
n2(1)=Fuori90(Estratto(n,4,2)+Fuori90(Estratto(n,7,2))+49)
n2(2)=Fuori90(Estratto(n,5,4)+Fuori90(Estratto(n,7,5))+34)
n2(3)=Fuori90(Estratto(n,7,1)+Fuori90(Estratto(n,8,2))+06)
n2(4)=Fuori90(Estratto(n,8,4)+Fuori90(Estratto(n,10,3))+35)
n2(5)=Fuori90(Estratto(n,1,3)+Fuori90(Estratto(n,4,3))+67)
n2(6)=Fuori90(Estratto(n,1,2)+Fuori90(Estratto(n,8,1))+79)
n2(7)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,5,4))+09)
n2(8)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,10,1))+68)
n2(9)=Fuori90(Estratto(n,3,1)+Fuori90(Estratto(n,9,5))+77)
n2(10)=Fuori90(Estratto(n,4,5)+Fuori90(Estratto(n,6,3))+61)
ImpostaGiocata 2,n2,r,p3,c,k3
n3(1)=Fuori90(Estratto(n,4,2)+Fuori90(Estratto(n,7,2))+49)
n3(2)=Fuori90(Estratto(n,5,4)+Fuori90(Estratto(n,7,5))+34)
n3(3)=Fuori90(Estratto(n,7,1)+Fuori90(Estratto(n,8,2))+06)
n3(4)=Fuori90(Estratto(n,8,4)+Fuori90(Estratto(n,10,3))+35)
n3(5)=Fuori90(Estratto(n,1,3)+Fuori90(Estratto(n,4,3))+67)
n3(6)=Fuori90(Estratto(n,1,2)+Fuori90(Estratto(n,8,1))+79)
n3(7)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,5,4))+09)
n3(8)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,10,1))+68)
n3(9)=Fuori90(Estratto(n,3,1)+Fuori90(Estratto(n,9,5))+77)
n3(10)=Fuori90(Estratto(n,4,5)+Fuori90(Estratto(n,6,3))+61)
ImpostaGiocata 3,n3,r,p4,c,k4
n4(1)=Fuori90(Estratto(n,4,2)+Fuori90(Estratto(n,7,2))+49)
n4(2)=Fuori90(Estratto(n,5,4)+Fuori90(Estratto(n,7,5))+34)
n4(3)=Fuori90(Estratto(n,7,1)+Fuori90(Estratto(n,8,2))+06)
n4(4)=Fuori90(Estratto(n,8,4)+Fuori90(Estratto(n,10,3))+35)
n4(5)=Fuori90(Estratto(n,1,3)+Fuori90(Estratto(n,4,3))+67)
n4(6)=Fuori90(Estratto(n,1,2)+Fuori90(Estratto(n,8,1))+79)
n4(7)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,5,4))+09)
n4(8)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,10,1))+68)
n4(9)=Fuori90(Estratto(n,3,1)+Fuori90(Estratto(n,9,5))+77)
n4(10)=Fuori90(Estratto(n,4,5)+Fuori90(
Sub main()
Dim r(10)
Dim n1(10)
Dim n2(10)
Dim n3(10)
Dim n4(10)
Dim p1(5)
Dim p2(5)
Dim p3(5)
Dim p4(5)
Dim p5(5)
Dim pp(5,100)
' Puntata fissa per terno 1 euro, per quaterna 1 euro.
' __________________________________________________
' | Progressione | Recupero | Vincita netta |
pp(2,1)=1 '| 03,00 | 03,00 | 05,22 |
pp(2,2)=1.5 '| 03,50 | 06,50 | 07,83 |
pp(2,3)=2.5 '| 04,50 | 11,00 | 13,06 |
pp(2,4)=3.5 '| 05,50 | 16,50 | 18,28 |
pp(2,5)=4.5 '| 06,50 | 23,00 | 23,50 |
pp(2,6)=6 '| 08,00 | 31,00 | 31,33 |
pp(2,7)=8 '| 10,00 | 41,00 | 41,78 |
pp(2,8)=10.5 '| 12,50 | 53,50 | 54,83 |
pp(2,9)=13.5 '| 15,50 | 69,00 | 70,50 |
pp(2,10)=17 '| 19,00 | 88,00 | 88,78 |
' |__________________|___________|___________________|
p1(1)=1
p2(2)=1
p3(3)=1
p4(4)=1
p5(5)=.1
c=10
k1=1
k2=2
k3=3
k4=4
k5=5
r(1)=1
co=0
For n=7312 To EstrazioneFin
If IndiceMensile(n)=3 Then
co=co+1
n1(1)=Fuori90(Estratto(n,4,2)+Fuori90(Estratto(n,7,2))+49)
n1(2)=Fuori90(Estratto(n,5,4)+Fuori90(Estratto(n,7,5))+34)
n1(3)=Fuori90(Estratto(n,7,1)+Fuori90(Estratto(n,8,2))+06)
n1(4)=Fuori90(Estratto(n,8,4)+Fuori90(Estratto(n,10,3))+35)
n1(5)=Fuori90(Estratto(n,1,3)+Fuori90(Estratto(n,4,3))+67)
n1(6)=Fuori90(Estratto(n,1,2)+Fuori90(Estratto(n,8,1))+79)
n1(7)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,5,4))+09)
n1(8)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,10,1))+68)
n1(9)=Fuori90(Estratto(n,3,1)+Fuori90(Estratto(n,9,5))+77)
n1(10)=Fuori90(Estratto(n,4,5)+Fuori90(Estratto(n,6,3))+61)
ImpostaGiocata 1,n1,r,p2,c,k2
ImpostaProgressione 1,pp
n2(1)=Fuori90(Estratto(n,4,2)+Fuori90(Estratto(n,7,2))+49)
n2(2)=Fuori90(Estratto(n,5,4)+Fuori90(Estratto(n,7,5))+34)
n2(3)=Fuori90(Estratto(n,7,1)+Fuori90(Estratto(n,8,2))+06)
n2(4)=Fuori90(Estratto(n,8,4)+Fuori90(Estratto(n,10,3))+35)
n2(5)=Fuori90(Estratto(n,1,3)+Fuori90(Estratto(n,4,3))+67)
n2(6)=Fuori90(Estratto(n,1,2)+Fuori90(Estratto(n,8,1))+79)
n2(7)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,5,4))+09)
n2(8)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,10,1))+68)
n2(9)=Fuori90(Estratto(n,3,1)+Fuori90(Estratto(n,9,5))+77)
n2(10)=Fuori90(Estratto(n,4,5)+Fuori90(Estratto(n,6,3))+61)
ImpostaGiocata 2,n2,r,p3,c,k3
n3(1)=Fuori90(Estratto(n,4,2)+Fuori90(Estratto(n,7,2))+49)
n3(2)=Fuori90(Estratto(n,5,4)+Fuori90(Estratto(n,7,5))+34)
n3(3)=Fuori90(Estratto(n,7,1)+Fuori90(Estratto(n,8,2))+06)
n3(4)=Fuori90(Estratto(n,8,4)+Fuori90(Estratto(n,10,3))+35)
n3(5)=Fuori90(Estratto(n,1,3)+Fuori90(Estratto(n,4,3))+67)
n3(6)=Fuori90(Estratto(n,1,2)+Fuori90(Estratto(n,8,1))+79)
n3(7)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,5,4))+09)
n3(8)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,10,1))+68)
n3(9)=Fuori90(Estratto(n,3,1)+Fuori90(Estratto(n,9,5))+77)
n3(10)=Fuori90(Estratto(n,4,5)+Fuori90(Estratto(n,6,3))+61)
ImpostaGiocata 3,n3,r,p4,c,k4
n4(1)=Fuori90(Estratto(n,4,2)+Fuori90(Estratto(n,7,2))+49)
n4(2)=Fuori90(Estratto(n,5,4)+Fuori90(Estratto(n,7,5))+34)
n4(3)=Fuori90(Estratto(n,7,1)+Fuori90(Estratto(n,8,2))+06)
n4(4)=Fuori90(Estratto(n,8,4)+Fuori90(Estratto(n,10,3))+35)
n4(5)=Fuori90(Estratto(n,1,3)+Fuori90(Estratto(n,4,3))+67)
n4(6)=Fuori90(Estratto(n,1,2)+Fuori90(Estratto(n,8,1))+79)
n4(7)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,5,4))+09)
n4(8)=Fuori90(Estratto(n,2,3)+Fuori90(Estratto(n,10,1))+68)
n4(9)=Fuori90(Estratto(n,3,1)+Fuori90(Estratto(n,9,5))+77)
n4(10)=Fuori90(Estratto(n,4,5)+Fuori90(