Qualcuno/a riuscirebbe a "potenziare" questo script in modo che riesca a...

[lotto_tom75]

Option Explicit
Sub Main
    ' script by lotto_tom75 per la generazione RANDOM di qualsiasi lunghetta per qualsiasi numero di colonne desiderato.
    ' lo script rileva RA , RS , INCMAX e FQ nonchè DIFF = RS-RA per qualsiasi formazione esaminata
    ' Lo script essendo di tipo RANDOM riesce a generare moltissime colonne (testato anche con il totale delle cinquine generabili con 90 numeri)
    ' per qualsiasi numero di elementi della lunghetta  [ es. 89 :-) ]
    Dim k
    Dim Classe
    Dim aCol
    ReDim aNum(90)
    Dim i
    Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
    Dim ColTot,aRetcol
    Dim valoreInizioelaborazione,valorefineelaborazione
    ReDim aNum(0)
    QuantitaNumeriScelti = ScegliNumeri(aNum)
    ReDim aRuoteSel(12)
    RuoteSelezionate = ScegliRuote(aRuoteSel)
    Call Scrivi(" ---------------------------------------------------------------- ")
    Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
    Call Scrivi(" ---------------------------------------------------------------- ")
    valoreInizioelaborazione = 1
    valorefineelaborazione = 100000 'qui è possibile variare il numero di colonne RANDOM desiderato
    Classe = 60 ' qui è possibile cambiare il numero di elementi della lunghetta
    ReDim aRuoteTmp(1)
    For k = 1 To RuoteSelezionate
        aRuoteTmp(1) = aRuoteSel(k)
        For i = valoreInizioelaborazione To valorefineelaborazione
            Call GetColonnaCasuale(Classe,aRetcol,aNum)
            Call StatisticaFormazioneTurbo(aRetcol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)
            Call AvanzamentoElab(1,valorefineelaborazione,i)
            Call Messaggio("Colonna " & i)
            nSorte = 2 ' qui è possibile variare la sorte ricercata (anche oltre la 5ina considerando ad es. macro gruppi non facenti parte di una sola ruota)
            Dim Diff
            Diff = RetRitMax - RetRit1
            If(RetRit1 >= 0 And RetIncrRitMax > 0) Then 'qui invece si possono mettere tutte le condizioni di "filtro" desiderate
                Call Scrivi("Ruota: " & SiglaRuota(aRuoteSel(k)) & " Colonna: " & i & " " & StringaNumeri(aRetcol,,True) & " RA " & RetRit1 & " RS " & RetRitMax & " INCMAX " & RetIncrRitMax & " FQ " & RetFreq & " Diff " & Diff)
            End If
            If ScriptInterrotto Then Exit For
        Next
    Next
End Sub

Siccome non mi funziona il tasto enter da questo portatile scrivo tutto senza spazi verticali I'm sorry . C'è qualcuno in grado di "potenziare" questo script in modo che faccia anche questo? Rilevi incmax massimo passato e incmax ultimo (relativo all'ultima estrazione del range voluto) per qualsiasi lunghetta e sorte si voglia in modo da permettere volendo anche un filtro in base a questa nuova condizione "forse interessante" che vi riporto qui di seguito brevemente in pseudo codice... in grassetto if (ultimo valore incmax = incmax massimo passato) then scrivi in output risultato altrimenti passa oltre... Sperando che le stelle di San Lorenzo avverino anche questo piccolo desiderio scriptico... Un saluto a tutti/e e Buon 10 agosto appunto!

 

[lotto_tom75]

up