| Ciao a tutti, di seguito lo script per SpazioMetria che trova i Terni Bivalenti e poi verifica il ritardo di sortita sulla 1a Ruota, sulla 2a Ruota e a Tutte. Calcola anche Il Ritardo di Livello per la sortita sulla ruota residua. Option Explicit
Sub Main()
'Gam - 15.02.2018
Dim nu(3),tt(1),ru(2),n(6),ru1(1),ru2(1)
Dim eFin,eIni,es,r1,r2,p1,p2,p3,a1,b1,c1,a2,b2,c2,q1,q2,q3,caso,x1,x2,x3,x1a,x2a,x3a, sorte,ss,RdL
tt(1)=11
sorte = 3 ' specificare la sorte
If sorte = 1 Then ss="AMBATA"
If sorte = 2 Then ss="AMBO"
If sorte = 3 Then ss="TERNO"
eIni = 1
eFin = EstrazioneFin
Scrivi "STATISTICA TERNI BIVALENTI per "& ss & " a Ruota e a TUTTE - archivio dal " & DataEstrazione(eIni) & " al " & DataEstrazione (eFin)
Scrivi String(102,"-")
Scrivi Space(67) & "Ruota 1 Ruota 2 TUTTE RdL"
Scrivi String(102,"-")
For es=eIni To eFin
Messaggio "Elaboro " & es
Call AvanzamentoElab(eIni,eFin,es)
If ScriptInterrotto Then Exit For
For r1 = 1 To 10
For p1= 1 To 3
For p2= p1+1 To 4
For p3= p2+1 To 5
a1= Estratto(es,r1,p1)
b1= Estratto(es,r1,p2)
c1= Estratto(es,r1,p3)
nu(1)=a1
nu(2)=b1
nu(3)=c1
If (a1<>0) And SerieFreqTurbo(es,es,nu,tt,3)>1 Then
For r2= r1+1 To 10
For q1= 1 To 3
For q2= q1+1 To 4
For q3= q2+1 To 5
a2= Estratto(es,r2,q1)
b2= Estratto(es,r2,q2)
c2= Estratto(es,r2,q3)
If a2<>0 Then
n(1)=a1
n(2)=b1
n(3)=c1
n(4)=a2
n(5)=b2
n(6)=c2
OrdinaMatriceTurbo n,1
EliminaRipetuti (n)
OrdinaMatriceTurbo n,1
If n(3)=0 Then
caso=caso+1
ru(1)=r1:ru(2)=r2
ru1(1)=r1:ru2(1)=r2
x1= SeriePrima (es+1,eFin,n,ru1,sorte)-es
If x1<0 Then: x1=0: x1a=eFin-es
x2= SeriePrima (es+1,eFin,n,ru2,sorte)-es
If x2<0 Then x2=0: x2a=eFin-es
x3= SeriePrima (es+1,eFin,n,tt,sorte)-es
If x3<0 Then:x3=0: x3a=eFin-es
If (x1=0 And x2>0 And x3>0) Then
RdL = x1a-x2
ColoreTesto 2
Scrivi FormattaStringa (es,"0000") & " " & DataEstrazione(es) & " " &_
SiglaRuota (r1) & " (" & StringaEstratti(es,r1)& ") " &_
SiglaRuota (r2) & " (" & StringaEstratti(es,r2)& ") " &_
"(" & StringaNumeri(n,,1) &") ATT " &_
FormattaStringa(x1a,"0000") & " STO "&_
FormattaStringa(x2,"0000") & " STO "&_
FormattaStringa(x3,"0000") & " RDL " & FormattaStringa(RdL,"0000") & " **** "
ColoreTesto 0
Else
If (x1=0 And x2>0 And x3=0) Then
RdL = x1a-x2
ColoreTesto 2
Scrivi FormattaStringa(es,"0000") & " " & DataEstrazione(es) & " " &_
SiglaRuota (r1) & " (" & StringaEstratti(es,r1)& ") " &_
SiglaRuota (r2) & " (" & StringaEstratti(es,r2)& ") " &_
"(" & StringaNumeri(n,,1) &") ATT " &_
FormattaStringa(x1a,"0000") & " STO "&_
FormattaStringa(x2,"0000") & " ATT " &_
FormattaStringa(x3a,"0000") & " RDL " & FormattaStringa(RdL,"0000") & " **** "
ColoreTesto 0
Else
If (x1>0 And x2=0 And x3>0) Then
RdL = x2a-x1
ColoreTesto 2
Scrivi FormattaStringa (es,"0000") & " " & DataEstrazione(es) &" " &_
SiglaRuota (r1) & " (" & StringaEstratti(es,r1)& ") " &_
SiglaRuota (r2) & " (" & StringaEstratti(es,r2)& ") " &_
"(" & StringaNumeri(n,,1) &") STO " &_
FormattaStringa(x1,"0000") & " ATT "&_
FormattaStringa(x2a,"0000") & " STO "&_
FormattaStringa(x3,"0000") & " RDL " & FormattaStringa(RdL,"0000") & " **** "
ColoreTesto 0
Else
If (x1>0 And x2=0 And x3=0) Then
RdL = x2a - x1
ColoreTesto 2
Scrivi FormattaStringa (es,"0000") & " " & DataEstrazione(es) &" "&_
SiglaRuota (r1) & " (" & StringaEstratti(es,r1)& ") " &_
SiglaRuota (r2) & " (" & StringaEstratti(es,r2)& ") " &_
"(" & StringaNumeri(n,,1) &") STO " &_
FormattaStringa(x1,"0000") & " ATT "&_
FormattaStringa(x2a,"0000") & " ATT "&_
FormattaStringa(x3a,"0000") & " RDL " & FormattaStringa(RdL,"0000") & " **** "
ColoreTesto 0
Else
If (x1>0 And x2>0 And x3=0) Then
If x2 > x1 Then
RdL = x2-x1
Else
If x1> x2 Then
RdL = x1-x2
Else
RdL = "0"
End If
End If
ColoreTesto 2
Scrivi FormattaStringa (es,"0000") & " " & DataEstrazione(es) &" "&_
SiglaRuota (r1) & " (" & StringaEstratti(es,r1)& ") " &_
SiglaRuota (r2) & " (" & StringaEstratti(es,r2)& ") " &_
"(" & StringaNumeri(n,,1)&") STO " &_
FormattaStringa(x1,"0000") & " STO "&_
FormattaStringa(x2,"0000") & " ATT "&_
FormattaStringa(x3a,"0000") & " RDL " & FormattaStringa(RdL,"0000") & " **** "
ColoreTesto 0
Else
If (x1=0 And x2=0 And x3=0) Then
If x2 > x1 Then
RdL = x2-x1
Else
If x1> x2 Then
RdL = x1-x2
Else
RdL = "0"
End If
End If
ColoreTesto 1
Scrivi FormattaStringa (es,"0000") & " " & DataEstrazione(es)&" "&_
SiglaRuota (r1) & " (" & StringaEstratti(es,r1)& ") " &_
SiglaRuota (r2) & " (" & StringaEstratti(es,r2)& ") " &_
"(" & StringaNumeri(n,,1)&") ATT " &_
FormattaStringa(x1a,"0000") & " ATT "&_
FormattaStringa(x2a,"0000") & " ATT "&_
FormattaStringa(x3a,"0000") & " RDL " & FormattaStringa(RdL,"0000") & " **** "
ColoreTesto 0
Else
ColoreTesto 0
If (x1>0 And x2>0 And x3>0) Then
If x2 > x1 Then
RdL = x2-x1
Else
If x1> x2 Then
RdL = x1-x2
Else
RdL = "0"
End If
End If
Scrivi FormattaStringa (es,"0000") & " " & DataEstrazione(es)&" "&_
SiglaRuota (r1) & " (" & StringaEstratti(es,r1)& ") " &_
SiglaRuota (r2) & " (" & StringaEstratti(es,r2)& ") " &_
"(" & StringaNumeri(n,,1) &") STO " &_
FormattaStringa(x1,"0000") & " STO " & _
FormattaStringa(x2,"0000") & " STO "&_
FormattaStringa(x3,"0000") & " RDL " & FormattaStringa(RdL,"0000")
ColoreTesto 0
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next: Next: Next:Next
End If
Next:Next:Next:Next:Next
Scrivi String(102,"-")
Scrivi "Casi totali: " &caso
Scrivi "Tempo di elaborazione: " &(TempoTrascorso)
End Sub |
