x LuigiB info

[Rubino]

Ciao LuigiB

vorrei chiederti una informazione

secondo il tuo parere, sarebbe possibile avere una istruzione nuova che
mi possa facilitare la ricerca di un

ElencoritardidelGruppoTurbo?

l'istruzione attuale a disposizione è ElencoRitardiTurbo, ma agisce su un unico vettore di n.numeri
ma non su un gruppo di vettori diversi.

se possibile e se condivisa da te la possibilità di metterla in piedi, con comodo e senza fretta da parte tua.

grazie

 

[LuigiB]

Ad essere possibile dovrebbe esserlo...per evitare equivoci pero dimmi come dovrebbe funzionare...

 

[Rubino]

Supponiamo
ho un gruppo di 5 ambi


vorrei elenco di tutti i ritardi dei 5 ambi tutti insieme ordinati per estrazione di uscita

ELENCORITARDITURBO attualmente posso usarlo solo per un ambo alla volta, perché non è una cinquina o quartina
ma sono 5 ambi diversi

ElencoRitardiTurbo
mi consegna i campi aretritardi e aretidestr solo di quell'ambo

dovrei poter avere un contenitore unico del gruppo dei 5 ambi che contenga
i campi AretRitardi e AretIdestr di tutti i 5 ambi

naturalmente tutti ordinati per aretidestr

domanda:
come posso aggiungere ad una arrays tutti gli aretritardi e tutti gli aretidestr
in modo veloce?
Posso usare Preserve su Aretritardi e Aretidestr, in modo di non perdere il contenuto?
quando elaboro il 2 ambo, si accodano automaticamente i dati di questo ambo?
e così anche per tutti gli altri ambi che devo elaborare?

se c'è una soluzione semplice per accodare il tutto, non serve fare una nuova istruzione
in quanto aggiungo il tutto ad una nuova arrays e poi ci faccio sopra una ordinamatrice per aretidestr
e sono a posto.

se invece è più articolata la risposta, mi chiedevo se con una istruzione nuova potesse
essere a noi trasparente, e di semplice soluzione creando una volta, qualcosa che poi diventa solo di utilizzo

 

[LuigiB]

ciao Rubino , avevo letto il tuo post mentre ero al lavoro e non ci avevo riflettuto molto , ineffetti la richiesta è particolare non si addice alla creazione di una funzione apposita , però ovviamente si puo fare un afunzione nello script , e dato che hai vb6 te lo puoi compilare per mandarlo piu veloce.

La funzione l'ho scritta io e non ci dovrebbe essere bisogno di modificarla anche se non ho commentato nulla ..
solo due parole per dire che la sub main la puoi fare come vuoi io l'ho fatta per dimostrare l'uso della funzione.
Inoltre la funzione accetta anche lunghette di classe diversa
la funzione devi prenderla e incollarla nel tuo script cosi com'è e poi usarla , naturalemte se funziona .. verificare e fare sapere .. ciao

Option Explicit
Sub Main

    Dim nRitTot,aStat  
    Dim aLunghette (5 ,2)
    Dim k
    Const cIdRit = 1 : Const cIdEstr = 2 : Const cIdNumeri = 3



    aLunghette (1,1) =1 :aLunghette (1,2) =2
    aLunghette (2,1) =1 :aLunghette (2,2) =3
    aLunghette (3,1) =1 :aLunghette (3,2) =4
    aLunghette (4,1) =1 :aLunghette (4,2) =5
    aLunghette (5,1) =1 :aLunghette (5,2) =6

    ReDim aRt(1)
    aRt(1) = BA_

    nRitTot = ElencoRitardiPiuForm ( aLunghette , aRt , 2 , EstrazioneIni , EstrazioneFin , aStat , 100 )

    ReDim aV(3)
    aV(1) = "Numeri" : aV(2) = "Ritardo" : aV(3) = " Id Estrazione"
    Call InitTabella ( aV )
    For k =  (UBound(aStat )- nRitTot) +1 To UBound(aStat)
        aV(1) = aStat(k , cIdNumeri)
        aV(2) = aStat(k , cIdRit)
        aV(3) = aStat( k , cIdEstr)
        Call AddRigaTabella (aV)
    Next
    Call CreaTabella


End Sub

Function  ElencoRitardiPiuForm ( aLunghette , aRt,nSorte,Ini,Fin,aRetStat  , nMaxRitardiPerFormazione)

    Dim k , j ,y , nClasse , nLunghette
    Dim iMax  , i ,nLimiteInf
    Const cIdRit = 1 : Const cIdEstr = 2 : Const cIdNumeri = 3




    nLunghette =  UBound (aLunghette)

    iMax =nMaxRitardiPerFormazione * nLunghette
    ReDim aRetStat   (iMax ,3)
    i =0

    For k  =1 To nLunghette
        ReDim aRetRitardi(0)
        ReDim aRetIdEstr(0)
        ReDim aNum (90)
        nClasse =0
        For j = 1 To UBound(aLunghette ,2)


            If aLunghette(k , j) > 0 Then
                nClasse = nClasse +1
                aNum(nClasse) =aLunghette(k , j)
            End If
        Next    
        If nClasse > 0 Then
            ReDim Preserve aNum(nClasse)
            Call ElencoRitardiTurbo(aNum,aRt,nSorte,Ini,Fin,aRetRitardi,aRetIdEstr)
            nLimiteInf = (UBound (aRetRitardi) - nMaxRitardiPerFormazione) +1
            If nLimiteInf <=0 Then nLimiteInf = 1
            For y = UBound (aRetRitardi) To nLimiteInf Step -1
                i = i +1
                aRetStat (i, cIdRit) = aRetRitardi(y)
                aRetStat (i, cIdEstr) = aRetIdEstr(y)
                  aRetStat (i, cIdNumeri) = StringaNumeri(aNum)

            Next

        End If


    Next

    Call OrdinaMatrice(aRetStat ,1,cIdEstr )

    ElencoRitardiPiuForm  = i
End Function

 

[Rubino]

Grazie LuigiB

oggi ci guardo

ciao