facciamo così, posto lo script della frammentazione, ho cercato di controllare il possibile
dei risultati , se trovate differenze e me le comunicate mi fate un favore.
fatene buon uso è L'idea De-frammentazione del ritardo di Rubino-Beppignello, non ne esistono
altre di questo tipo.
poniamo che come base sia questa, che andremo poi ad espandere con altri valori e dati
che si riterranno importanti per identificare un momento di rottura dove c'è l'attesa dell'uscita
dell'ambo.
Deduco che I-Legend pone come dato il valore somma totale o peso totale del ritardo?
se confermi una buona riuscita nei risultati pregressi, e a che valori o con quali dati, posso aggiungere
questo dato.
[codice]
Option Explicit
Sub Main
Dim n(90),ar(1)
Dim y,y2,ambott,amborf,cap,ctf1,ctf2,ctf3,ctf4,r,Ini,h ,livello,Ord,capev,ix
Dim f,T,Incrocio
r = InputBox("Ruota ",,11)
Ini = 3950 ' inizio tutte le altre ruote
If r = 12 Then Ini = 7440 'inizio nazionale
If r = 1 Then Ini = 3950 'inizio bari 174
If r = 2 Then Ini = 3950 'inizio cagliari 3649
If r = 4 Then Ini = 3950 'inizio genova 3577
h = InputBox("All'Estrazione n.",,EstrazioneFin)
livello = CInt(InputBox("Lista ambi Livello Richiesto (1:4) ",,1))
capev = CInt(InputBox("Cap.Evidenzia ambi ",,70))
Ord = 2 : ar(1) = r
ColoreTesto(2)
Scrivi " Situazione Frammentazione Ambi sulla ruota di " & NomeRuota(r),1
Scrivi " All'estrazione n." & h & "/" & DataEstrazione(h),1
Scrivi " Evidenzia a video livello richiesto " & livello & " del Capo gioco " & capev,1
ColoreTesto(1)
' Scrivi " Lista ambi Frammentazione Livello = " & livello & "...Estratto.Ritardo Attuale.." & EstrattoRitardo(r,aV(0),Ini,h),1
Scrivi "-----------------------------------------------------------",1
ColoreTesto(0)
ReDim aTitoli(10),avalori(10)
aTitoli(1) = " Ruota "
aTitoli(2) = " Cap "
aTitoli(3) = " Liv.1 "
aTitoli(4) = " Liv.2 "
aTitoli(5) = " Liv.3 "
aTitoli(6) = " Liv.4 "
aTitoli(7) = " Rit.E."
aTitoli(8) = " Freq."
aTitoli(9) = "Idr+Idf"
aTitoli(10) = " Incrocio Sel.Base-Cap.Fram.Liv. "
SetTableWidth("90%")
Call InitTabella(aTitoli,2,"center",1.45,5,"Cambria")
For cap = 1 To 90
ctf1 = 0:ctf2 = 0:ctf3 = 0:ctf4 = 0
Messaggio("Capogioco " & Format2(cap))
''''---------------------------------------------------
'''calcola ritardo livello 1° Nr.Capogioco
ReDim rit(9990,3),ritrf(9990,3),rtfr(90,8)
For y2 = 1 To 90
rtfr(y2,1) = y2
rtfr(y2,2) = EstrattoRitardoTurbo(r,y2,Ini,h)
rtfr(y2,4) = y2
rtfr(y2,5) = EstrattoFrequenzaTurbo(r,y2,Ini,h)
If cap <> y2 Then
ambott = AmboRitardoTurbo(11,cap,y2,Ini,h)
rit(ambott,1) = amborf
rit(ambott,2) = rit(ambott,2) & Format2(y2) & "."
rit(ambott,3) = rit(ambott,3) + 1
amborf = AmboRitardoTurbo(r,cap,y2,Ini,h)
ritrf(amborf,1) = amborf
ritrf(amborf,2) = ritrf(amborf,2) & Format2(y2) & "."
ritrf(amborf,3) = ritrf(amborf,3) + 1
End If
Next
Call OrdinaMatrice(ritrf,1,1)
Incrocio = ""
For y = 1 To 9990
If ritrf(y,3) = 1 Then
ctf1 = ctf1 + 1
End If
If ritrf(y,3) = 2 Then
ctf2 = ctf2 + 1
End If
If ritrf(y,3) = 3 Then
ctf3 = ctf3 + 1
End If
If ritrf(y,3) = 4 Then
ctf4 = ctf4 + 1
End If
If ritrf(y,1) > 0 And Int(ritrf(y,3)) = Int(livello) Then
Incrocio = Incrocio & ritrf(y,2)
End If
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''''''''''''''''''''''
Call OrdinaMatrice(rtfr,- 1,2)
'''aggiorna per graduatoria idr+idf in 3 elemento arrays
For T = 1 To 90
rtfr(T,3) = T
Next
Call OrdinaMatrice(rtfr,- 1,5)
For T = 1 To 90
rtfr(T,6) = T
rtfr(T,7) = rtfr(T,3) + rtfr(T,6)
' Scrivi rtfr(T,1) & "/" & rtfr(T,4) & " " & rtfr(T,2) & " || " & rtfr(T,5) & " " & " === " & rtfr(T,3) & " " & rtfr(T,6) & "..." & rtfr(T,7)
Next
' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''
' '''crea tabella
' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''
avalori(1) = SiglaRuota(r)
avalori(2) = Format2(cap)
avalori(3) = ctf1*1
avalori(4) = ctf2*2
avalori(5) = ctf3*3
avalori(6) = ctf4*4
avalori(7) = EstrattoRitardoTurbo(r,cap,Ini,h)
avalori(8) = EstrattoFrequenzaTurbo(r,cap,Ini,h)
avalori(9) = rtfr(cap,7)
avalori(10) = Incrocio
Call AddRigaTabella(avalori,Bianco_,"center",1)
Call SetColoreCella(2,RGB(253,251,179),vbBlack)
Call SetColoreCella(7,RGB(223,223,223),vbBlack)
Call SetColoreCella(8,RGB(223,223,223),vbBlack)
If Int(avalori(2)) = Int(capev) Then
Call SetColoreCella(7,RGB(242,190,159),vbBlue)
Call SetColoreCella(10,RGB(242,190,159),vbBlue)
ix = livello + 2
Call SetColoreCella(Int(ix),RGB(242,190,159),vbBlue)
End If
Next
Call CreaTabellaOrdinabile(Ord,1,,800)
End Sub
'''
[/codice]