Proviamo a Testare le funzioni script di spazio Light e chiedere delucidazioni sulle difficoltà riscontrate

[i legend]

Esiste la funzione elencoritardi?

 

[LuigiB]

È strano che impieghi tanto tempo anche perché non lavora subtutto l archivio.

non ti sbagliare legend come fa a sapere lo storico se non si spupazza tutto l'archivio ?

 

[LuigiB]

Esiste la funzione elencoritardi?

si chiama elencouscite o qualcosa di simile

 

[i legend]

linguaggio unmanaged
Hai scritto la funzione in assembly?

 

[i legend]

non ti sbagliare legend come fa a sapere lo storico se non si spupazza tutto l'archivio ?

Luigi Nike ha impostato come range 7440, estrazione fin. In teoria non dovrebbe spupazzarsi () tutto l archivio

 

[LuigiB]

tutto l'archivio si intende tutot il range da inizio a fine.

 

[Mike58]

Infatti SerieStorico senza il Turbo impiega in vbscript

00:01:12
con Turbo
00:00:12

 

[Mike58]

si chiama elencouscite o qualcosa di simile

SerieElencoUscite

Class Script
    Sub Main
        Dim idEstr  As Integer = EstrazioniArchivio()
        Dim Ruota As Integer = 12
        Dim Ritardo, RitardoMax, Frequenza, Presenze, EstrEsam, IncrRitMax As Integer
        Dim aNumeri() As Integer = {0, 9,90}
        Dim aUscite() As Struct_elenco_uscite
        Dim T() , V() As String
        T = {" Id Rilevato "," Ruota "," Ritardo Corr "," Ritardo_Max "," InCr_Max "," Frequenza ", " Presenze "," Estrazioni Esaminate "}
        Call InitTabella (T)
        Call SerieElencoUscite(aNumeri, Ruota, 2, aUscite, Ritardo, RitardoMax, Frequenza, Presenze, IncrRitMax, 5000, idEstr,, EstrEsam)
        Scrivi(StringaNumeri(aNumeri))
        Scrivi("Ritardo      : " & Ritardo)
        Scrivi("RitardoMax   : " & RitardoMax)
        Scrivi("Uscite Tot   : " & Frequenza)
        Scrivi("Presenze     : " & Presenze)
        Scrivi("IncrRitMax   : " & IncrRitMax)
        Scrivi("EstrEsam     : " & EstrEsam)
        Scrivi()
        For k As Integer = 0 To aUscite.GetUpperBound(0)
            V = { aUscite(k).IdEstr , NomeRuota(aUscite(k).Ruota),aUscite(k).Ritardo,aUscite(k).RitardoMax,aUscite(k).IncrRitMax,aUscite(k).Frequenza,aUscite(k).Presenze,aUscite(k).EstrEsam}
            Call AddRigaTabella (V)
        Next
        Call AddRigaTabella(T)
        CreaTabella
    End Sub
End Class

 

[LuigiB]

Infatti SerieStorico senza il Turbo impiega in vbscript

00:01:12
con Turbo
00:00:12

vedrò se posso risolvere ...

 

[Mike58]

Ok Luigi Lavoraci , intanto un altro script che utilizza serieStorico è velocissimo.

Class Script
    Sub Main
        'Ritardi storici su ruote 14.4.2021
        Dim Nu(1),Ru(1),rit(11),sto(11) As Integer
        Dim T() , V() As String
        Dim x , n1 , y ,max , maxx , xx As Integer
        Dim scelta As Integer
        Dim sceltafatta As String
        scelta = CInt (InputBox("Quale Ritardo " & Chr(13) & Chr(13) & "1 - Rit Attuale" & Chr(13) & "  2 - Rit Storico",,1))
        Dim Ini As Integer  = 1'EstrazioneIni' - 1000
        Dim fin As Integer = EstrazioniArchivio
        T = {"Numeri","Ba","Ca","Fi","Ge","Mi","Na","Pa","Rm","To","Ve","Nz","MaxRit","MaxSto"}
        Call InitTabella(T,ColoreVerde,,,ColoreBianco)
        For n1 = 1 To 90
            Nu(1) = n1
            For y = 1 To 11
                Ru(1) = y
                If scelta = 1 Then
                    rit(y) = SerieRitardo(Nu,Ru,1,fin)
                    sto(y) = SerieStorico(Nu,Ru,1,Ini,fin)
                End If
                If scelta = 2 Then
                    rit(y) = SerieStorico(Nu,Ru,1,Ini,fin)
                End If
                max = MassimoV(rit)
                maxx = MassimoV(sto)
            Next
            If scelta = 1 Then sceltafatta = "Ritardo Corrente"  & " Sript by Mike58 " & Chr(169)
            If scelta = 2 Then sceltafatta = "Ritardo Storico"   & " Sript by Mike58 " & Chr(169)
            Call AvanzamentoElab(1,90,n1)
            Call Messaggio("Ritardi Correnti o Storici " & Space(20) & "   Script By Mike58    ")
            V = {StringaNumeri(Nu),rit(1),rit(2),rit(3),rit(4),rit(5),rit(6),rit(7),rit(8),rit(9),rit(10),rit(11),max,maxx}
            Call AddRigaTabella(V)
            For xx = 2 To 11
                If V(12) = V(xx) Then Call SetColoreCellaRighe((xx),ColoreRosso,ColoreGiallo )
            Next
        Next
        Scrivi (sceltafatta)
        Call CreaTabella()
    End Sub
End Class

 

[LuigiB]

mike prova a vedere che succede se inserisci nella cartrelal del programam queste 2 dll presenti nel file zip , a me i ltuo script me l ofa in 4 secondi prima ce ne metteva 12

GiochiLib

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

 

[Mike58]

Ciao Luigi Lo stesso script copiato dal forum e dopo aver copiato le nuove dll, migliora il tempo e il mio pc analizza in

00:00:10

migliora di 45 sec.

ottimo grazie

 

[LuigiB]

Ciao Luigi Lo stesso script copiato dal forum e dopo aver copiato le nuove dll, migliora il tempo e il mio pc analizza in

00:00:10

migliora di 45 sec.

ottimo grazie

devo fare modifiche anche in altre parti ... ieri era un test .. ciao ..

 

[Xeroxs]

Buongiorno a Tutti

Ho Voluto cimentarmi nella creazione di una Pseudo Tabella, Mi sarebbe Piaciuto creare una vera è proprio tabella ma al momento non ci sono riuscito.
Ho usato le funzioni

NumeroPosRit e EstrattoRitardo

per avere i primi 10 Ritardatari per ciascuna Ruota

ecco lo script

Class Script
    Sub Main()
        Dim Ini,Fin As Integer
        Dim R,P,E,Rit As Integer
        Ini = 1
        Fin = EstrazioniArchivio 
        Scrivi (FormatSpace(" ",58),1,,RGB(0,117,234),RGB(236,255,245),120)
        Scrivi (Space(5) & "  I 10 Ritardatari Per Ogni Ruota * Al  " & DataEstrazione(Fin) & Space(5),1,,RGB(0,117,234),ColoreBianco,120) 
        Scrivi (FormatSpace(" ",58),1,,RGB(0,117,234),RGB(236,255,245),120)
        Scrivi
        For R = 1 To 11
            Scrivi (FormatSpace(NomeRuota(R,False),9,True),1,0,,ColoreRosso,120)
            For P = 1 To 10 ' Quì Impongo Quanti Ritardatari ---> Se Cambi Modificare anche sotto
                E = NumeroPosRit(Fin,R,P)
                If P < 10 Then
                    Scrivi ("  " & FormatSpace(Format2(E),4,True),True,False,,,120)
                Else
                    Scrivi ("  " & FormatSpace(Format2(E),4,True),True,,,,120)
                End If
            Next
            Scrivi ("Ritardo" & Space(3),1,0,,ColoreRosso,120)
            For P = 1 To 10
                E = NumeroPosRit(Fin,R,P)
                Rit = EstrattoRitardo(E,R,Fin)
                If P < 10 Then
                    Scrivi (FormatSpace(Rit,5,True),1,False,,ColoreBlu,120)
                Else
                    Scrivi (FormatSpace(Rit,5,True),1,,,ColoreBlu,120)
                End If
            Next
            Scrivi
        Next
        Scrivi
    End Sub
End Class

Ho verificato i dati e sembrano corretti.

Grazie ancora a Mike58 per i suoi spunti, script, Test e varie

Un Grazie ancora a LuigiB, ed Edoardo, I-Legend e agli altri che sono intervenuti.

 

[i legend]

Ciao xerox se imposti un ciclo for che va da 1 to 10 perché gli fai fare tanti if ? If p < 10 allora

Solo per andare a capo?
È sufficiente scrivere "scrivi "subito dopo il ciclo.
Oppure non ho capito cosa vuoi fare.
Ciao e buona giornata a tutti.
Ho appena finito di lavorare.
Sono distrutto

 

[Xeroxs]

Ciao, non sono ancora così bravo, perchè a volte magari sbagli ma se vedo che poi ottengo i risultati, magari sbagliando non mi accorgo degli eventuali miglioramenti o rallentamenti dello script, ma comunque ci provo, in quanto non riuscivo in altro modo ad andare a capo, ma questo non mi fermava nel tentare di aver un esito.... grazie anche per le tue osservazioni.... tutto mi aiuta.

 

[LottoPazzo]

Ciao Luigi, posso permettermi di chiedere una cosa, per facilitare l'uso del programma, non so se già ci sia, ma non l'ho visto.

potresti inserire un pulsante che faccia da doppia funzione di ordinamento verticale,

cioè quando visualizzo l'archivio o altre finestre, per vedere l'ultima estrazione oppure l'ultimo dato, devo scorrere tutto fino alla fine, il pulsante invertirebbe l'ordinamento dall'ultima alla prima, premendolo di nuovo dalla prima all'ultima.

credo che possa essere utile una cosa del genere

Ciao (8-D

 

[LuigiB]

ciao , quando Edoardo mi ridarà i sorgenti con le sue modifiche magari è una buona idea.

nel frattempo per gli script

sostituire le dll nella directory del programam con queste da scompattare

GiochiLib

MediaFire is a simple to use free service that lets you put all your photos, documents, music, and video in a single place so you can access them anywhere and share them everywhere.

www.mediafire.com

le funzioni SerieStorico,SerieRitardo ,SerieStat saranno piu veloci

 

[Mike58]

Per Xeroxs un modo semplice per fare una tabella applicata al tuo script sui Ritardatari.

Class Script
    Sub Main()
        Dim Ini,Fin As Integer
        Dim R,P,E(10),Rit(10) As Integer
        Dim T(),aT1(),aT2()  As String ' dimensione stringa per Tabelle
        Ini = 1
        Fin = EstrazioniArchivio
        Scrivi (FormatSpace(" ",58),1,,RGB(0,117,234),RGB(236,255,245),120)
        Scrivi (Space(5) & "  I 10 Ritardatari Per Ogni Ruota * Al  " & DataEstrazione(Fin) & Space(5),1,,RGB(0,117,234),ColoreBianco,120)
        Scrivi (FormatSpace(" ",58),1,,RGB(0,117,234),RGB(236,255,245),120)
        Scrivi ()
        '---------------------------- Titolo Tabella ---------------------------------------------
        T = { "Ruota"," Rit1 "," Rit2 "," Rit3 "," Rit4 "," Rit5 "," Rit6 "," Rit7 "," Rit8 "," Rit9 "," Rit10 " }
        Call InitTabella(T)
        '-----------------------------------------------------------------------------------------
        For R = 1 To 11
            For P = 1 To 10 ' Quì Impongo Quanti Ritardatari ---> Se Cambi Modificare anche sotto
                E(P)  = NumeroPosRit(Fin,R,P)
                Rit(P) = EstrattoRitardo(E(P) ,R,Fin )
            Next
            '--------------------------- AddRigatabella 1 ------------------------------------------------------
            aT1 = { NomeRuota(R), E(1),E(2) ,E(3) ,E(4) ,E(5),E(6) ,E(7) , E(8) ,E(9) ,E(10)  }
            Call AddRigaTabella (aT1)
            
            For x1 As Integer = 0 To 10
                If Rit(x1) > 99 Then Call SetColoreCellaRighe((x1),ColoreVerde,ColoreBianco )
            Next
            
            '...........................AddRigatabella 2 .......................................................
            aT2 = { "Ritardo " , Rit(1),Rit(2),Rit(3),Rit(4),Rit(5),Rit(6) , Rit(7) ,Rit(8) ,Rit(9) ,Rit(10) }
            Call AddRigaTabella(aT2)
            
            For x2 As Integer = 0 To 10
                If Rit(x2) > 99 Then Call SetColoreCellaRighe((x2),ColoreRosso,ColoreGiallo)
            Next
            '---------------------------------------------------------------------------------------------------
        Next
        CreaTabella ' creatabella
    End Sub
End Class

 

[Xeroxs]

Grazie Mike58,
ad essere sincero riesco a capire molto di più nel vedere uno script fatto su certi costrutti e non solo leggendo la funzione e nel frattempo capisco i vari collegamenti tra le funzioni, estratti ed altro.

Molto Utile per altre tabelle che proverò a fare.

Grazie ancora.