lotto_tom75
Advanced Premium Member
Codice:
Option Explicit
Sub Main
' SCRIPTuzzo by lotto_tom75 x inviduare e ordinare tutti i parametri voluti per qualsiasi lunghetta di classe massima 20 e/o ruota decisa (nell’es. MI)
Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot
Dim contatore
contatore = 1
ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)
ReDim aRuoteSel(12)
Call Scrivi(" ---------------------------------------------------------------------------------------------------- ")
Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate UNITE e oridnate per frequenza crescente! ")
Call Scrivi(" ---------------------------------------------------------------------------------------------------- ")
Call Scrivi
Call Scrivi("Data elaborazione: " & giorno(EstrazioneFin) & "-" & Mese(EstrazioneFin) & "-" & Anno(EstrazioneFin))
Call Scrivi
ReDim aTitoli(9)
aTitoli(1) = "Formazione"
aTitoli(2) = "Ruota"
aTitoli(3) = "Sorte"
aTitoli(4) = "Ritardo"
aTitoli(5) = "Ritardo Massimo"
aTitoli(6) = "Incremento di RItardo Massimo"
aTitoli(7) = "Frequenza"
aTitoli(8) = "Diff"
aTitoli(9) = "Counter"
Call InitTabella(aTitoli)
nSorte = 2
Classe = 2
Call Scrivi
Call Scrivi("Classe: " & Classe & " sorte: " & nSorte)
Call Scrivi
ColTot = InitSviluppoIntegrale(aNum,Classe)
If ColTot > 0 Then
Do While GetCombSviluppo(aCol) = True
i = i + 1
Dim clsN
Dim Coll
Set Coll = GetNewCollection
ReDim aruote7(1)
aruote7(1) = MI_
Call StatisticaFormazioneTurbo(aCol,aruote7,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)
Diff = RetRitMax - RetRit1
Set clsN = New clsRitardo
clsN.numero = StringaNumeri(aCol)
clsN.aRuote = "ruota:" & NomeRuota(aruote7(1))
clsN.nSorte = nSorte
clsN.nritardo = RetRit1
clsN.RetRitMax = RetRitMax
clsN.RetRitIncrRitMax = RetIncrRitMax
clsN.RetFreq = RetFreq
clsN.difforo = Diff
clsN.contatore = contatore
Dim Diff
Diff = RetRitMax - RetRit1
Dim rapportoRARS
rapportoRARS = RetRit1/RetRitMax
Call AvanzamentoElab(1,ColTot,i)
If(RetRit1 >= 0) Then
Call Messaggio("Trovata!!! :) per la ruota di: " & NomeRuota(aruote7(1))) '& NomeRuota(aruote7(2)))
contatore = contatore + 1
Else
Call Messaggio("Colonna " & i)
End If
If ScriptInterrotto Then Exit Do
Coll.Add clsN,"k" & clsN.numero
For Each clsN In Coll
ReDim aValue(9)
aValue(1) = clsN.numero
aValue(2) = clsN.aRuote
aValue(3) = clsN.nSorte
aValue(4) = clsN.nritardo
aValue(5) = clsN.RetRitMax
aValue(6) = clsN.RetRitIncrRitMax
aValue(7) = clsN.RetFreq
aValue(8) = clsN.difforo
aValue(9) = clsN.contatore
Call AddRigaTabella(aValue)
Next
Loop
Call CreaTabella(7,2,0)
End If
End Sub
Class clsRitardo
Dim numero
Dim nRitardo
Dim aCol
Dim aRuote
Dim nSorte
Dim RetRit1
Dim RetRitMax
Dim RetRitIncrRitMax
Dim RetFreq
Dim difforo
Dim contatore
End ClassChiedo ai massimi esperti del campo (quali ad es. ilegend, joe, magia, mike58, claudio8, beppignello ecc...) o a chi è comunque in grado di rispondermi come sia possibile estrapolare dall'output di questo script solo una riga desiderata (es. appunto quella con fq max o quella con fq min) fra tutte quelle dinamiche risultanti e ordinate per frequenza crescente?
Grazie mille a chiunque interverrà 
Ultima modifica:
sembra che faccia proprio quello che mi ero proposto di automatizzare! 
