a chi puo servire eccovi il listato di longo " l'ambo oltre "
Sub Main()
Dim am(1),ab(2),j(2),qu(5),ruota(2),ruote(1),posta(1), poste(2)
posta(1)=1 : poste(2)=1
Dim prog(5,100)
prog(1,1)=1
prog(1,2)=1
prog(1,3)=1
prog(1,4)=1.50
prog(1,5)=2
prog(1,6)=3
prog(1,7)=4
prog(1,8)=5.50
prog(1,9)=8
prog(1,10)=11
prog(1,11)=15.50
prog(1,12)=21.50
prog(1,13)=30
Rem utile min. 50% unica bolletta
For es=EstrazioneFin-20 To EstrazioneFin
Messaggio "Estrazione: ["&es&"]ª"
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2)
For r2=r1+1 To 12
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3) : d=Estratto(es,r2,p4)
If (a=c And b=d) Or (a=d And b=c) Then
cont=cont+1
Scrivi : ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° "&cont&"",1
ColoreTesto 0 : Scrivi
Scrivi DataEstrazione(es,1)&""&Space(2)&_
"["&es&"]ª"&Space(3)&""&Left(NomeRuota(r1),3)&_
""&Space(3)&""& StringaEstratti (es,r1)&""&Space(6)&_
""& Format2(a)&""&Space(1)&""& Format2(b)&_
""&Space(4)&"("&p1&"-"&p2&")"
Scrivi DataEstrazione(es,1)&""&Space(2)&_
"["&es&"]ª"&Space(3)&""&Left(NomeRuota(r2),3)&_
""&Space(3)&""& StringaEstratti (es,r2)&""&Space(6)&_
""& Format2(c)&""&Space(1)&""& Format2(d)&_
""&Space(4)&"("&p3&"-"&p4&")" : Scrivi
If a=c And b=d Then
a1=Fuori90(a+c) : b1=Fuori90(b+d)
c1=Abs(a1-b1) : d1=c1\2
j(1)=a1 : j(2)=b1
e=Fuori90(Minimo(j(1),j(2))+d1)
f=Fuori90(Massimo(j(1),j(2))-d1)
x=Fuori90(a+e) : y=Fuori90(b+e)
If a<b Then am(1)=y
If a>b Then am(1)=x
End If
If a=d And b=c Then
a1=Fuori90(a+d) : b1=Fuori90(b+c)
c1=Abs(a1-b1) : d1=c1\2
j(1)=a1 : j(2)=b1
e=Fuori90(Minimo(j(1),j(2))+d1)
f=Fuori90(Massimo(j(1),j(2))-d1)
x=Fuori90(a+e) : y=Fuori90(b+e)
am(1)=y
End If
am(1)=y
ruota(1)=r1 : ruota(2)=r2 : ruote(1)=11
ImpostaGiocata 1,am,ruota,posta,14
ImpostaProgressione 1,prog
ab(1)=y : ab(2)=Fuori90(x+y)
ImpostaGiocata 2,ab,ruota,poste,14
ImpostaGiocata 3,ab,ruote,poste,14
Gioca es : Scrivi String(67,151)
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "METODO: AMBO OLTRE",1
Scrivi "AUTORE: A. Longo-",1
ColoreTesto 2 : Scrivi "•damper•",1 : End Sub
Sub Main()
Dim am(1),ab(2),j(2),qu(5),ruota(2),ruote(1),posta(1), poste(2)
posta(1)=1 : poste(2)=1
Dim prog(5,100)
prog(1,1)=1
prog(1,2)=1
prog(1,3)=1
prog(1,4)=1.50
prog(1,5)=2
prog(1,6)=3
prog(1,7)=4
prog(1,8)=5.50
prog(1,9)=8
prog(1,10)=11
prog(1,11)=15.50
prog(1,12)=21.50
prog(1,13)=30
Rem utile min. 50% unica bolletta
For es=EstrazioneFin-20 To EstrazioneFin
Messaggio "Estrazione: ["&es&"]ª"
For r1=1 To 10
For p1=1 To 4
For p2=p1+1 To 5
a=Estratto(es,r1,p1) : b=Estratto(es,r1,p2)
For r2=r1+1 To 12
If r2=11 Then r2=12
For p3=1 To 4
For p4=p3+1 To 5
c=Estratto(es,r2,p3) : d=Estratto(es,r2,p4)
If (a=c And b=d) Or (a=d And b=c) Then
cont=cont+1
Scrivi : ColoreTesto 2 : Scrivi String(40,32)&" Pronostico n° "&cont&"",1
ColoreTesto 0 : Scrivi
Scrivi DataEstrazione(es,1)&""&Space(2)&_
"["&es&"]ª"&Space(3)&""&Left(NomeRuota(r1),3)&_
""&Space(3)&""& StringaEstratti (es,r1)&""&Space(6)&_
""& Format2(a)&""&Space(1)&""& Format2(b)&_
""&Space(4)&"("&p1&"-"&p2&")"
Scrivi DataEstrazione(es,1)&""&Space(2)&_
"["&es&"]ª"&Space(3)&""&Left(NomeRuota(r2),3)&_
""&Space(3)&""& StringaEstratti (es,r2)&""&Space(6)&_
""& Format2(c)&""&Space(1)&""& Format2(d)&_
""&Space(4)&"("&p3&"-"&p4&")" : Scrivi
If a=c And b=d Then
a1=Fuori90(a+c) : b1=Fuori90(b+d)
c1=Abs(a1-b1) : d1=c1\2
j(1)=a1 : j(2)=b1
e=Fuori90(Minimo(j(1),j(2))+d1)
f=Fuori90(Massimo(j(1),j(2))-d1)
x=Fuori90(a+e) : y=Fuori90(b+e)
If a<b Then am(1)=y
If a>b Then am(1)=x
End If
If a=d And b=c Then
a1=Fuori90(a+d) : b1=Fuori90(b+c)
c1=Abs(a1-b1) : d1=c1\2
j(1)=a1 : j(2)=b1
e=Fuori90(Minimo(j(1),j(2))+d1)
f=Fuori90(Massimo(j(1),j(2))-d1)
x=Fuori90(a+e) : y=Fuori90(b+e)
am(1)=y
End If
am(1)=y
ruota(1)=r1 : ruota(2)=r2 : ruote(1)=11
ImpostaGiocata 1,am,ruota,posta,14
ImpostaProgressione 1,prog
ab(1)=y : ab(2)=Fuori90(x+y)
ImpostaGiocata 2,ab,ruota,poste,14
ImpostaGiocata 3,ab,ruote,poste,14
Gioca es : Scrivi String(67,151)
End If
Next
Next
Next
Next
Next
Next
Next
ScriviResoconto
ColoreTesto 1
Scrivi "METODO: AMBO OLTRE",1
Scrivi "AUTORE: A. Longo-",1
ColoreTesto 2 : Scrivi "•damper•",1 : End Sub