Novità

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

si chiama elencouscite o qualcosa di simile
SerieElencoUscite

Codice:
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
 
Ok Luigi Lavoraci , intanto un altro script che utilizza serieStorico è velocissimo.

Codice:
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
 
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


 
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 (y)grazie👏
 
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

Codice:
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.
 
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:)
 
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.
 
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
 
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


le funzioni SerieStorico,SerieRitardo ,SerieStat saranno piu veloci
 
Per Xeroxs un modo semplice per fare una tabella applicata al tuo script sui Ritardatari.

Codice:
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
 
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 20 febbraio 2025
    Bari
    40
    17
    10
    33
    32
    Cagliari
    07
    10
    01
    52
    17
    Firenze
    60
    80
    86
    48
    19
    Genova
    05
    60
    61
    52
    41
    Milano
    59
    30
    58
    78
    34
    Napoli
    62
    54
    33
    29
    31
    Palermo
    46
    37
    19
    05
    67
    Roma
    59
    51
    05
    47
    74
    Torino
    74
    32
    52
    21
    18
    Venezia
    26
    75
    54
    15
    19
    Nazionale
    51
    43
    48
    40
    59
    Estrazione Simbolotto
    Cagliari
    44
    15
    12
    31
    33
Indietro
Alto