i legend
Premium Member
Ciao Cinzia,
questo script , invece analizza la cinquina che ancora non si è sfaldata anche sulle altre ruote
dimmi che ne pensi
anche qui nessuna garanzia sulla correttezza dei dati
questo script , invece analizza la cinquina che ancora non si è sfaldata anche sulle altre ruote
dimmi che ne pensi
anche qui nessuna garanzia sulla correttezza dei dati
Codice:
Option Explicit
' lo script è regalato cosi com e
' non si garantisce la correttezza dei dati
'lo script non da previsioni
' il ritardo attuale può superare lo storico l approssimarsi del ritardo corrente al suo massimo storico in nessun caso indica la sortita sicura della formazione.
Sub Main
Call SetColorSezione(RGB(228,227,232))
Dim IdEstr,PrimaEstr,p,R,Rt,m,N,Nn
Dim Ini,Rc,Rit,RitMax,sca,Freq
Dim aR(1),aN(1),aRt(1),aCol(2),k,aRig(1)
Dim bRet
Call GetTitoliTab()
PrimaEstr = TrovaPrimoConcorsoUtile() ' prima riga del tabellone analitico
Ini = 3950
Nn = 0
For IdEstr = PrimaEstr To EstrazioneFin
Call AvanzamentoElab(PrimaEstr,EstrazioneFin,IdEstr)
For R = 1 To 12
If R <> 11 Then
ReDim aEstr(0)
ReDim aSort(5)
ReDim aNum(5)
aR(1) = R
Call GetArrayNumeriRuota(IdEstr,R,aEstr)
If SerieFreqTurbo(IdEstr + 1,EstrazioneFin,aEstr,aR,2) = 0 Then
m = 0:N = 0
bRet = True
For p = 1 To 5
aN(1) = aEstr(p)
Freq = SerieFreqTurbo(IdEstr + 1,EstrazioneFin,aN,aR,1)
If Freq = 0 Then
N = N + 1
aNum(N) = aN(1)
ElseIf Freq = 1 Then
m = m + 1
aSort(m) = aN(1)
Else
bRet = False
End If
Next
If N = 1 And bRet = True Then
Rc = EstrazioneFin - IdEstr
Nn = Nn + 1
If pari(Nn) Then aRig(1) = RGB(55,55,55):Else aRig(1) = RGB(151,0,0)
Scrivi Space(2),,0
Scrivi "|",,0,vbWhite
Scrivi FormatSpace(IdEstr,5,1) & " ",1,0,vbWhite,RGB(128,64,64)
Scrivi Space(1),,0,vbWhite
Scrivi FormatSpace(Rc,3),1,0,vbWhite
Scrivi Space(1),,0,vbWhite
Scrivi Space(2) & SiglaRuota(R) & Space(2),1,0,vbWhite,RGB(0,64,128)',RGB(240,248,255)
Scrivi "|",,0,vbWhite
Scrivi Space(2) & StringaNumeri(aSort,,True) & Space(2),1,0,vbWhite,RGB(0,128,64)
Scrivi Space(3) & Format2(aNum(1)) & Space(2),1,0,vbWhite,aRig(1)
k = 0
For Rt = 1 To 12
If Rt <> 11 Then
aRt(1) = Rt
Rit = SerieRitardoTurbo(Ini,EstrazioneFin,aEstr,aRt,2)
RitMax = SerieStoricoTurbo(Ini,EstrazioneFin,aEstr,aRt,2)
sca = RitMax - Rit
k = k + 1
If Rt = R Then
aCol(1) = RGB(55,55,55)
aCol(2) = RGB(200,200,200)
Else
If pari(k) Then
aCol(1) = RGB(193,194,225)
aCol(2) = RGB(64,66,130)
Else
aCol(1) = RGB(128,128,255)
aCol(2) = RGB(240,240,255)
End If
If sca >= 0 And sca <= 25 Then
aCol(1) = vbRed
aCol(2) = vbWhite
ElseIf sca < 0 Then
aCol(1) = vbWhite
aCol(2) = vbRed
End If
End If
Scrivi "|",,0,vbWhite
Scrivi FormatSpace(SerieRitardoTurbo(Ini,EstrazioneFin,aNum,aRt,1),4,1) & _
" |" & FormatSpace(SerieRitardoTurbo(Ini,EstrazioneFin,aEstr,aRt,2),4,1) & "|" & FormatSpace(SerieStoricoTurbo(Ini,EstrazioneFin,aEstr,aRt,2),4,1) & _
"|" & FormatSpace(SerieFreqTurbo(Ini,EstrazioneFin,aEstr,aRt,2),4),1,0,aCol(1),aCol(2)
End If
Next
Scrivi
End If
End If
End If
Next
Next
Scrivi
EndColorSezione
End Sub
Function TrovaPrimoConcorsoUtile()
Dim R,RitMax,RitTemp
Dim aN(1),aR(1)
RitMax = EstrazioneFin
For R = 1 To 12
If R <> 11 Then
aR(1) = R
aN(1) = PiuRitardatarioTurbo(EstrazioneFin,R)
RitTemp = SerieUltima(EstrazioneFin - 500,EstrazioneFin,aN,aR,1)
If RitMax > RitTemp Then RitMax = RitTemp
End If
Next
TrovaPrimoConcorsoUtile = RitMax
End Function
Sub GetTitoliTab()
Scrivi Space(2),,0
Scrivi"| RICERCA | BARI | CAGLIARI | FIRENZE | GENOVA | MILANO | NAPOLI |" & _
" PALERMO | ROMA | TORINO | VENEZIA | NAPZIONALE |",1,,RGB(245,244,249),RGB(128,64,64)
Scrivi Space(2),,0
Scrivi"| Conc_|Rit| Ru | CADUTI | L1 | E_Rc|A_Rc|A_St|A_Fr| E_Rc|A_Rc|A_St|A_Fr| E_Rc|A_Rc|A_St|A_Fr| E_Rc|A_Rc|A_St|A_Fr| E_Rc|A_Rc|A_St|A_Fr| E_Rc|A_Rc|A_St|A_Fr|" & _
" E_Rc|A_Rc|A_St|A_Fr| E_Rc|A_Rc|A_St|A_Fr| E_Rc|A_Rc|A_St|A_Fr| E_Rc|A_Rc|A_St|A_Fr| E_Rc|A_Rc|A_St|A_Fr|",1,,RGB(245,244,249),RGB(128,64,64)
End Sub
