Novità

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

LuigiB ha scritto:
si chiama elencouscite o qualcosa di simile
Clicca per espandere...
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


www.mediafire.com

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

www.mediafire.com

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
 
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.
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 18 febbraio 2025
    Bari
    72
    83
    64
    59
    43
    Cagliari
    60
    55
    49
    07
    14
    Firenze
    11
    68
    62
    04
    21
    Genova
    86
    23
    44
    85
    71
    Milano
    11
    82
    42
    09
    14
    Napoli
    89
    86
    65
    49
    14
    Palermo
    79
    34
    80
    78
    20
    Roma
    26
    21
    13
    64
    57
    Torino
    64
    11
    17
    02
    58
    Venezia
    64
    82
    30
    04
    19
    Nazionale
    26
    37
    68
    54
    87
    Estrazione Simbolotto
    Cagliari
    39
    30
    04
    11
    14
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto