ciao a tutti
Per chi avesse nuove idee per migliorare il metodo è ben accetto
metto lo script per verificare gli esiti passati
Sub Main()
ColoreTesto 2
Scrivi " Metodo Somma90 BA per 2 ambi a tutte 8 colpi ",1
ColoreTesto 0
Dim postaA(2),ruote(11)
Dim ambo1(2),ambo2(2)
postaA(2) = 1
fin = EstrazioneFin
ini = fin - 250
For es = ini To fin
AvanzamentoElab Ini,fin,es
r1 = 1 : ruote(1) = 11
For p1 = 1 To 4
For p2 = p1 + 1 To 5
n1 = Estratto(es,r1,p1)
n2 = Estratto(es,r1,p2)
d = Fuori90(n1 + n2)
If d = 90 Then
If(Cadenza(n1) <> 0) Or Cadenza(n2) <> 0 Then
If(Cadenza(n1) <> Cadenza(n2)) Then
n3 = Decina(n1) : n4 = Cadenza(n2) : n5 =(n3 & n4)
'-------------------
n6 = Decina(n2) : n7 = Cadenza(n1)
'-------------------
n8 =(n6 & n7)
'-------------------
n9 = Minimo(n1,n2) : n10 = Massimo(n5,n8)
'------------------
ambo1(1) = n5 : ambo1(2) = n8
'-------------------
ambo2(1) = n10 : ambo2(2) = Fuori90(n10 + n9)
'------------------
a = SerieRitardo(es - 250,es,ambo1,ruote,2)
b = SerieRitardo(es - 250,es,ambo2,ruote,2)
Scrivi String(65,"-"),1
Scrivi DataEstrazione(es) & " -> " & SiglaRuota(r1) & " " & StringaEstratti(es,r1) & " [" & Format2(n1) & "." & Format2(n2) & _
"] Somma 90",1
Scrivi : ColoreTesto 1
Scrivi "Primo Ambo " & Format2(ambo1(1)) & "-" & Format2(ambo1(2)) & " RITARDO SU TUTTE --> " & Format2(a) & " ESTRAZIONI"
Scrivi "Secondo Ambo " & Format2(ambo2(1)) & "-" & Format2(ambo2(2)) & " RITARDO SU TUTTE --> " & Format2(b) & " ESTRAZIONI"
Scrivi: ColoreTesto 0
ImpostaGiocata 1,ambo1,ruote,postaA,8,2
ImpostaGiocata 2,ambo2,ruote,postaA,8,2
Gioca es
End If
End If
End If
Next
Next
Next
ScriviResoconto
End Sub