Option Explicit
Sub Main
Dim r,fine,Classe,colonne,k,scolonna,frequenza,ritardo ,ritardomax,Incrritmax,Inizio,j,w,last,e,tutti,filtron
Dim nx,aretidestr,aretritardi,xAMBI,ambo,ritmin,retestratti,retidestr,x,conta,ctr,uscpre,aaaa,minmin,sommarit
Dim rt,est,es,ct,run,desrit
Dim nu(90),ambi(8990,4),anni(2200)
fine = InputBox("Estrazione n.",,EstrazioneFin)
filtron = CInt(InputBox("Elenca n.Ambi > di ",,4))
tutti = InputBox("Elenco completo S/N",,"S")
Scrivi "Situazione al " & fine & " / " & DataEstrazione(fine),1
Scrivi "------------------Bep-Ambi2019Top--------------------------",1
ColoreTesto(2)
Scrivi " Ambi secchi su più ruote aventi ritardi >= ritmax ",1
Scrivi "NBer 1 ambo su più ruote diverse i valori sono minori",1
Scrivi
ColoreTesto(0)
''''''''''''''''''''''''''''''''''
ReDim atitoli2(5),avalori2(5)
' preimposto i titoli delle colonne
atitoli2(1) = " Ambo "
atitoli2(2) = " n. "
atitoli2(3) = " Rit.min."
atitoli2(4) = " Som.Rit."
atitoli2(5) = " R u o t e "
' ' inizializzo la tabella
SetTableWidth("90%")
Call InitTabella(atitoli2,2,"center",1.7,5,"Cambria")
Inizio = 3950
''''''' carico i 90 numeri o quelli scelti
ScegliNumeri(nu)
'''''''''''''sviluppo i 4005 ambi
ReDim ar(1)
Classe = 2
colonne = SviluppoIntegrale(nu,Classe)
For k = 1 To UBound(colonne)
scolonna = "" : x = 0
Call Messaggio(" Elaboro Sviluppo " & k)
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(1,UBound(colonne),k)
ReDim nm(2),ru(11)
For j = 1 To Classe
nm(j) = colonne(k,j)
ambo = Format2(nm(1)) & Format2(nm(2))
Next
''''''''''''''''''''''''buoni solo gli ambi con ritardo > 1000 e ultimi 2 ritardi su 3 ritardo max 600
minmin = 9999:sommarit = 0
For r = 1 To 12
If r <> 11 Then
ar(1) = r
Call StatisticaFormazione(nm,ar,2,ritardo,ritardomax,Incrritmax,frequenza,3950,fine)
If ritardo >= ritardomax Or ritardo >= 1000 Then
ambi(ambo,1) = ambi(ambo,1) + 1
ambi(ambo,2) = ambi(ambo,2) & SiglaRuota(r) & " | "
ambi(ambo,4) = ambi(ambo,4) & FormattaStringa(ritardo,"0000") & " | "
x = x + 1
ru(x) = r
If ritardo < minmin Then
minmin = ritardo
End If
sommarit = sommarit + ritardo
End If
End If
Next
''''''''tutti gli ambi con almeno 3 ruote rit>=ritmax
If ambi(ambo,1) > filtron And tutti = "S" Then
conta = conta + 1
''''''''''calcola originale e ritardi a Tutte
est = fine - minmin:es = fine:ct = 0:desrit = ""
ReDim sei(6,2)
For rt = 1 To 6
If ru(rt) > 0 Then
run = ru(rt)
Else
run = 0
End If
Next
ColoreTesto(0)
''''accoda alla tabella record
avalori2(1) = Left(ambo,2) & " " & Right(ambo,2)
avalori2(2) = ambi(ambo,1)
avalori2(3) = FormattaStringa(minmin,"0000")
avalori2(4) = FormattaStringa(sommarit,"00000")
avalori2(5) = Left(ambi(ambo,2),35)
Call AddRigaTabella(avalori2,Bianco_,"center",1)
ColoreTesto(0)
''''verifica esiti
ReDim nr(2)
nr(1) = Left(ambo,2) : nr(2) = Right(ambo,2)
Call VerificaEsitoTurbo(nr,ru,fine + 1,2,,,,,retestratti,retidestr)
If retestratti <> "" Then
ctr = ctr + 1
ColoreTesto(0)
Scrivi ">>>>>>>>>>> " & retidestr & "..." & ambo & "...." & retestratti & " al colpo n." & retidestr - fine,1
ColoreTesto(0)
End If
Else
If ambi(ambo,1) > filtron And minmin > 1000 Then
conta = conta + 1
''''''''''calcola originale e ritardi a Tutte
est = fine - minmin:es = fine:ct = 0:desrit = ""
ReDim sei(6,2)
For rt = 1 To 6
If ru(rt) > 0 Then
run = ru(rt)
Else
run = 0
End If
Next
ColoreTesto(0)
''''accoda alla tabella record
avalori2(1) = Left(ambo,2) & " " & Right(ambo,2)
avalori2(2) = ambi(ambo,1)
avalori2(3) = FormattaStringa(minmin,"0000")
avalori2(4) = FormattaStringa(sommarit,"00000")
avalori2(5) = Left(ambi(ambo,2),35)
Call AddRigaTabella(avalori2,Bianco_,"center",1)
''''''''
ColoreTesto(0)
''''verifica esiti
ReDim nr(2)
nr(1) = Left(ambo,2) : nr(2) = Right(ambo,2)
Call VerificaEsitoTurbo(nr,ru,fine + 1,2,,,,,retestratti,retidestr)
If retestratti <> "" Then
ctr = ctr + 1
ColoreTesto(0)
Scrivi ">>>>>>>>>>> " & retidestr & "..." & ambo & "...." & retestratti & " al colpo n." & retidestr - fine,1
ColoreTesto(0)
End If
End If
End If
Next
ColoreTesto(1)
Scrivi
Scrivi "Situazione al " & fine & " / " & DataEstrazione(fine),1
Scrivi "------------------Bep-Ambi2019Top--------------------------",1
ColoreTesto(2)
Call CreaTabella(2)
Scrivi "Elaborati e trovati n.ambi..." & conta,1
Scrivi TempoTrascorso,1
End Sub