| 'La spia 53 su Milano per Ambate Ambi e Terni niente
'=================listato da pescespada37================
Sub main()
Dim ruote(5)
Dim am(10)
Dim n1(10)
Dim n2(10)
Dim n3(10)
Dim n4(10)
Dim n5(10)
Dim n6(10)
Dim n7(10)
Dim n8(10)
Dim n9(10)
Dim n10(10)
Dim n11(10)
Dim n12(10)
Dim n13(10)
Dim n14(10)
Dim n15(10)
Dim n16(10)
Dim n17(10)
Dim n18(10)
Dim n19(10)
Dim n20(10)
Dim n21(10)
Dim n22(10)
Dim n23(10)
Dim posta1(5),poste2(10),poste3(10),poste4(10)
posta1(1)=1.50
poste2(2)=1.50
poste3(3)=1.50
casi=0
fin=EstrazioneFin
ini=EstrazioneFin-292
For es=ini To fin
For r1=1 To 1
For p1=1 To 1
a=Estratto(es,5,1)
b=Estratto(es,5,2)
c=Estratto(es,5,3)
d=Estratto(es,5,4)
e=Estratto(es,5,5)
If (a)=53 Or (b)=53 Or (c)=53 Or (d)=53 Or (e)=53 Then
cont=cont+1
ruote(1)=5
n22(1)=18
ImpostaGiocata 22,n22,ruote,posta1,13,3
n23(1)=78
ImpostaGiocata 23,n23,ruote,posta1,13,3
n1(1)=18
n1(2)=78
ImpostaGiocata 1,n1,ruote,poste2,13,3
n2(1)= 18
n2(2)= 78
n2(3)= 07
n2(4)= 26
ImpostaGiocata 2,n2,ruote,poste2,13,3
n3(1)= 18
n3(2)= 78
n3(3)= 07
n3(4)= 26
ImpostaGiocata 3,n3,ruote,poste3,13,3
n4(1)= 18
n4(2)= 78
n4(4)= 26
n4(5)= 30
ImpostaGiocata 4,n4,ruote,poste2,13,3
n5(1)= 18
n5(2)= 78
n5(4)= 26
n5(5)= 30
ImpostaGiocata 5,n5,ruote,poste3,13,3
n6(1)= 18
n6(2)= 78
n6(5)= 30
n6(6)= 57
ImpostaGiocata 6,n6,ruote,poste2,13,3
n7(1)= 18
n7(2)= 78
n7(5)= 30
n7(6)= 57
ImpostaGiocata 7,n7,ruote,poste3,13,3
n8(1)= 18
n8(2)= 78
n8(6)= 57
n8(7)= 90
ImpostaGiocata 8,n8,ruote,poste2,13,3
n9(1)= 18
n9(2)= 78
n9(6)= 57
n9(7)= 90
ImpostaGiocata 9,n9,ruote,poste3,13,3
n10(1)= 18
n10(2)= 78
n10(7)= 90
n10(3)= 07
ImpostaGiocata 10,n10,ruote,poste2,13,3
n11(1)= 18
n11(2)= 78
n11(7)= 90
n11(3)= 07
ImpostaGiocata 11,n11,ruote,poste3,13,3
n12(1)= 18
n12(2)= 78
n12(3)= 26
n12(5)= 57
ImpostaGiocata 12,n12,ruote,poste2,13,3
n13(1)= 18
n13(2)= 78
n13(3)= 26
n13(5)= 57
ImpostaGiocata 13,n13,ruote,poste3,13,3
n14(1)= 18
n14(2)= 78
n14(3)= 26
n14(6)= 90
ImpostaGiocata 14,n14,ruote,poste2,13,3
n15(1)= 18
n15(2)= 78
n15(3)= 26
n15(6)= 90
ImpostaGiocata 15,n15,ruote,poste3,13,3
n16(1)= 18
n16(2)= 78
n16(4)= 30
n16(5)= 57
ImpostaGiocata 16,n16,ruote,poste2,13,3
n17(1)= 18
n17(2)= 78
n17(4)= 30
n17(5)= 57
ImpostaGiocata 17,n17,ruote,poste3,13,3
n18(1)= 18
n18(2)= 78
n18(4)= 30
n18(6)= 90
ImpostaGiocata 18,n18,ruote,poste2,13,3
n19(1)= 18
n19(2)= 78
n19(4)= 30
n19(6)= 90
ImpostaGiocata 19,n19,ruote,poste3,13,3
n20(1)= 18
n20(2)= 78
n20(5)= 57
n20(6)= 90
ImpostaGiocata 20,n20,ruote,poste2,13,3
n21(1)= 18
n21(2)= 78
n21(5)= 57
n21(6)= 90
ImpostaGiocata 21,n21,ruote,poste3,13,3
Scrivi : ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° " &cont&"",1
ColoreTesto 0 : Scrivi
Gioca es
casi=casi+1
End If
Next
Next
Next
ScriviResoconto
End Sub
|
