Coppia Sincrona su Ruota con 1 Ritardo Precedente > di valore impostabile

Sub Main()
' GAM - 11.04.2023
' Lo script scandaglia le 10 Coppie Sincrona che si formano da ciascuna Cinquina, su ogni ruota e ciascuna estrazione.
' Per tale coppia individua il Ritardo Precedente
' Se tale ritardo soddisfa la condizione impostata (RitPrec) trova il ritardo raggiunto per sortita di entrambi gli estratti
' Rilevando dunque il Ritardo Minimo ma anche il RdL (Ritardo di Livello), ovvero il ritardo dell'Ambata Residua

Dim RA(90,12),nu(2),ru(1),one(12,2),coppia(2),cn(1),cnr1(1),cnr2(1),esR1(1),esR2(1)
Dim rr1(1),rr2(1),rit1a(1),rit1b(1)
Dim RitMin,RitPrec,Ini,Fin,LivArch
Dim es,rt,a,b,i,r,r1,r2,p,p1

RitPrec = 54 '<==== NOTA: qui imposta il ritardo minimo precedente
LivArch = 0 '<==== NOTA: qui imposta l'Archivio di Ricerca (0 = tradizionale)

Ini = EstrazioneFin - 100'Ini
Fin = EstrazioneFin

Scrivi "Coppia Sincrona su Ruota con 1 Ritardo Precedente > di " & RitPrec & " Ricerca su Archivio L" & LivArch & " dal " & DataEstrazione(Ini) & " al " & DataEstrazione(Fin),1

For es = Ini To Fin
If ScriptInterrotto Then Exit For
Messaggio(es & " - L" & LivArch)
AvanzamentoElab Ini,Fin,es
For r1 = 1 To 12
If r1 = 11 Then r1 = 12
For p = 1 To 4
a = Estratto(es,r1,p,LivArch)
For p1 = p + 1 To 5
b = Estratto(es,r1,p1,LivArch)
esR1(1) = a
esR2(1) = b
coppia(1) = a
coppia(2) = b
rr1(1) = r1
cnr1(1) = SeriePrima(es + 1,EstrazioneFin,esR1,rr1,1,,,LivArch)
cnr2(1) = SeriePrima(es + 1,EstrazioneFin,esR2,rr1,1,,,LivArch)
rit1a(1) = SerieRitardoTurbo(es - 300,es - 1,esR1,rr1,1,,,LivArch)
rit1b(1) = SerieRitardoTurbo(es - 300,es - 1,esR2,rr1,1,,,LivArch)
'Scrivi cnr1(1)
'Scrivi cnr2(1)
If rit1a(1) > RitPrec And rit1b(1) > RitPrec Then


If cnr1(1) > 0 And cnr2(1) > 0 And es <> EstrazioneFin Then
Scrivi FormatSpace(es,5) & " " & DataEstrazione(es) & _
" " & SiglaRuota(r1) & " " & Format2(a) & " [Rit1 " & FormattaStringa(rit1a(1),"000") & " STO " & FormattaStringa(cnr1(1) - es,"000") & " P1_" & p & "]" & _
" " & SiglaRuota(r1) & " " & Format2(b) & " [Rit1 " & FormattaStringa(rit1b(1),"000") & " STO " & FormattaStringa(cnr2(1) - es,"000") & " P2_" & p1 & "]" & _
" RMin " & FormattaStringa(Minimo(cnr1(1) - es,cnr2(1) - es),"000") & " RdL " & FormattaStringa(Massimo(cnr1(1) - es,cnr2(1) - es) -(Minimo(cnr1(1) - es,cnr2(1) - es)),"000") & " L" & LivArch
Else If cnr1(1) = 0 And cnr2(1) = 0 And es <> EstrazioneFin Then
cnr1(1) = EstrazioneFin + cnr1(1)
cnr2(1) = EstrazioneFin + cnr2(1)
ColoreTesto(2)
Scrivi FormatSpace(es,5) & " " & DataEstrazione(es) & _
" " & SiglaRuota(r1) & " " & Format2(a) & " [Rit1 " & FormattaStringa(rit1a(1),"000") & " ATT " & FormattaStringa(cnr1(1) - es,"000") & " P1_" & p & "]" & _
" " & SiglaRuota(r1) & " " & Format2(b) & " [Rit1 " & FormattaStringa(rit1b(1),"000") & " ATT " & FormattaStringa(cnr2(1) - es,"000") & " P2_" & p & "]" & _
" RMin " & FormattaStringa(EstrazioneFin - es,"000") & " RdL ===" & " L" & LivArch & " ***"
ColoreTesto(0)
Else If cnr1(1) > 0 And cnr2(1) = 0 And es <> EstrazioneFin Then
cnr2(1) = EstrazioneFin + cnr2(1)
ColoreTesto(1)
Scrivi FormatSpace(es,5) & " " & DataEstrazione(es) & _
" " & SiglaRuota(r1) & " " & Format2(a) & " [Rit1 " & FormattaStringa(rit1a(1),"000") & " STO " & FormattaStringa(cnr1(1) - es,"000") & " P1_" & p & "]" & _
" " & SiglaRuota(r1) & " " & Format2(b) & " [Rit1 " & FormattaStringa(rit1b(1),"000") & " ATT " & FormattaStringa(cnr2(1) - es,"000") & " P2_" & p & "]" & _
" RMin " & FormattaStringa(cnr1(1) - es,"000") & " RdL " & FormattaStringa(cnr2(1) - cnr1(1),"000") & " L" & LivArch & " *"
ColoreTesto(0)
Else If cnr1(1) = 0 And cnr2(1) > 0 And es <> EstrazioneFin Then
cnr1(1) = EstrazioneFin + cnr1(1)
ColoreTesto(1)
Scrivi FormatSpace(es,5) & " " & DataEstrazione(es) & _
" " & SiglaRuota(r1) & " " & Format2(a) & " [Rit1 " & FormattaStringa(rit1a(1),"000") & " ATT " & FormattaStringa(cnr1(1) - es,"000") & " P1_" & p & "]" & _
" " & SiglaRuota(r1) & " " & Format2(b) & " [Rit1 " & FormattaStringa(rit1b(1),"000") & " STO " & FormattaStringa(cnr2(1) - es,"000") & " P2_" & p & "]" & _
" RMin " & FormattaStringa(cnr2(1) - es,"000") & " RdL " & FormattaStringa(cnr1(1) - cnr2(1),"000") & " L" & LivArch & " *"
ColoreTesto(0)
Else If cnr1(1) > 0 And cnr2(1) > 0 And es = EstrazioneFin Then
ColoreTesto(2)
Scrivi FormatSpace(es,5) & " " & DataEstrazione(es) & _
" " & SiglaRuota(r1) & " " & Format2(a) & " [Rit1 " & FormattaStringa(rit1a(1),"000") & " ATT 000 P1_" & p & "]" & _
" " & SiglaRuota(r1) & " " & Format2(b) & " [Rit1 " & FormattaStringa(rit1b(1),"000") & " ATT 000 P2_" & p & "]" & _
" RMin 000 RdL ===" & " L" & LivArch & " ***"
ColoreTesto(0)
End If

End If
End If
End If
End If
End If
Next
Next
Next
Next
Scrivi
Scrivi TempoTrascorso

End Sub