E' già stato fatto questo tipo di script? Se si me lo indicate?

[lotto_tom75]

E' già stato fatto uno script che sommi i vari RA per qualunque sorte e lunghetta di tutte le 10 ruote + nz (separate) dato un gruppo tot voluto di elementi?

es. fittizio

da tabella immetto 1-2-3-4-5-6-7-8-9-10

sorte 2

classe 4

si clicca "esegui elaborazione"

e lo script genera tutte le 4ine x A su BA , CA , ecc.. NZ compresa considerandole separate e poi per ogni quartina x A generata fa la somma di tutti i singoli RA per le 10 ruote + nz ottenendo un valore finale chiamato ad esempio "somma RA di ogni singola 4ina x A su tutte le 10 ruote separate + nz" = RA1diBA+RA2diCA ecc... fino a + RA11diNZ = valore RA "globale per quella data 4ina" ecc... per qualunque sorte e lunghetta si voglia...

E' già stato fatto questo tipo di script? Se si me lo indicate? Se no qualcuno/a lo potrebbe realizzare?

Grazie anticipate e buona serata a tutti/e scripters e non

 

[lotto_tom75]

Ho ritrovato questo script che analizza gli RA in modo integrale per la sorte voluta in lunghetta voluta su ruote separate partendo da un gruppo di base numerico desiderato. Lo dovrei modificare in modo che riporti in output (per ciascuna lunghetta analizzata) anche il suo RA totale ovvero (la somma dei suoi RA sulle singole 11 ruote nz compresa) magari in tabella ordinabile in senso crescente o decrescente per questo nuovo valore di RA globale. Non so da che parte cominciare per ottenere ciò. Qualche scripter con la S maiuscola mi darebbe una mano o lo modificherebbe in tal senso a beneficio di tutti/e? Grazie

[Option Explicit
Sub Main


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 = 0


ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)


ReDim aRuoteSel(12)

    ReDim aRuoteSel(12)
    RuoteSelezionate = ScegliRuote(aRuoteSel)
    
    Call Scrivi(" ---------------------------------------------------------------- ")
    Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
    Call Scrivi(" ---------------------------------------------------------------- ")


    For k = 1 To RuoteSelezionate
        Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))
        
    Next


nSorte = 1

Classe = 1




ColTot = InitSviluppoIntegrale(aNum,Classe)



If ColTot > 0 Then


Do While GetCombSviluppo(aCol) = True


i = i + 1


ReDim aRuoteTmp(1)



For k = 1 To RuoteSelezionate
        

aRuoteTmp(1) = aRuoteSel(k)




Call StatisticaFormazioneTurbo(aCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)

Dim Diff
Diff = RetRitMax - RetRit1



Dim rapportoRARS
rapportoRARS = RetRit1/RetRitMax

If(RetRit1 >= 0) Then

contatore = contatore + 1

Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " Diff " & Diff & " " & contatore)

End If




Call AvanzamentoElab(1,ColTot,i)



Call Messaggio("Colonna " & i)

If ScriptInterrotto Then Exit Do
Next
Loop
End If
End Sub