R
Roby
Guest
Alla 7° estrazione mensile si ricavano 5 ambi secchi ed una sestina per recupero e sorti superiori; le ruote in gioco sono MI-NA-PA;
Il capogioco x ambata è il primo numero. Ecco il listato:
Sub main()
Dim r(3)
Dim n1(4)
Dim n2(4)
Dim n3(4)
Dim n4(4)
Dim n5(4)
Dim n6(10)
Dim p1(2)
Dim p2(3)
p1(1)=1
p1(2)=1
p2(2)=2
p2(3)=1
r(1)=5
r(2)=6
r(3)=7
c=6
k1=2
For n=7478 To EstrazioneFin
If IndiceMensile =7 Then
n1(1)=Fuori90(Estratto(n,1,1)+18)
n1(3)=Fuori90(Estratto(n,10,1)+23)
EliminaRipetuti(n1)
ImpostaGiocata 1,n1,r,p1,c,k1
n2(1)=Fuori90(Estratto(n,1,1)+18)
n2(2)=Fuori90(Estratto(n,5,1)+50)
EliminaRipetuti(n2)
ImpostaGiocata 2,n2,r,p1,c,k1
n3(1)=Fuori90(Estratto(n,1,1)+18)
n3(2)=Fuori90(Estratto(n,7,1)*46)
EliminaRipetuti(n3)
ImpostaGiocata 3,n3,r,p1,c,k1
n4(1)=Fuori90(Estratto(n,1,1)+18)
n4(2)=Fuori90(Estratto(n,3,5)+37)
EliminaRipetuti(n4)
ImpostaGiocata 4,n4,r,p1,c,k1
n5(1)=Fuori90(Estratto(n,1,1)+18)
n5(2)=Fuori90(Estratto(n,8,1)+15)
EliminaRipetuti(n5)
ImpostaGiocata 5,n5,r,p1,c,k1
n6(1)=Fuori90(Estratto(n,1,1)+18)
n6(2)=Fuori90(Estratto(n,8,1)+15)
n6(3)=Fuori90(Estratto(n,10,1)+23)
n6(4)=Fuori90(Estratto(n,5,1)+50)
n6(5)=Fuori90(Estratto(n,7,1)*46)
n6(6)=Fuori90(Estratto(n,3,5)+37)
EliminaRipetuti(n6)
ImpostaGiocata 6,n6,r,p2,c,k1
Gioca n
End If
Next
ScriviResoconto
End Sub
(Segue la statistica)
Il capogioco x ambata è il primo numero. Ecco il listato:
Sub main()
Dim r(3)
Dim n1(4)
Dim n2(4)
Dim n3(4)
Dim n4(4)
Dim n5(4)
Dim n6(10)
Dim p1(2)
Dim p2(3)
p1(1)=1
p1(2)=1
p2(2)=2
p2(3)=1
r(1)=5
r(2)=6
r(3)=7
c=6
k1=2
For n=7478 To EstrazioneFin
If IndiceMensile =7 Then
n1(1)=Fuori90(Estratto(n,1,1)+18)
n1(3)=Fuori90(Estratto(n,10,1)+23)
EliminaRipetuti(n1)
ImpostaGiocata 1,n1,r,p1,c,k1
n2(1)=Fuori90(Estratto(n,1,1)+18)
n2(2)=Fuori90(Estratto(n,5,1)+50)
EliminaRipetuti(n2)
ImpostaGiocata 2,n2,r,p1,c,k1
n3(1)=Fuori90(Estratto(n,1,1)+18)
n3(2)=Fuori90(Estratto(n,7,1)*46)
EliminaRipetuti(n3)
ImpostaGiocata 3,n3,r,p1,c,k1
n4(1)=Fuori90(Estratto(n,1,1)+18)
n4(2)=Fuori90(Estratto(n,3,5)+37)
EliminaRipetuti(n4)
ImpostaGiocata 4,n4,r,p1,c,k1
n5(1)=Fuori90(Estratto(n,1,1)+18)
n5(2)=Fuori90(Estratto(n,8,1)+15)
EliminaRipetuti(n5)
ImpostaGiocata 5,n5,r,p1,c,k1
n6(1)=Fuori90(Estratto(n,1,1)+18)
n6(2)=Fuori90(Estratto(n,8,1)+15)
n6(3)=Fuori90(Estratto(n,10,1)+23)
n6(4)=Fuori90(Estratto(n,5,1)+50)
n6(5)=Fuori90(Estratto(n,7,1)*46)
n6(6)=Fuori90(Estratto(n,3,5)+37)
EliminaRipetuti(n6)
ImpostaGiocata 6,n6,r,p2,c,k1
Gioca n
End If
Next
ScriviResoconto
End Sub
(Segue la statistica)