Novità

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

Mike58

Mike58

Advanced Member >PLATINUM PLUS<
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
 
Mike58

Mike58

Advanced Member >PLATINUM PLUS<
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
 
L

LuigiB

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

Mike58

Advanced Member >PLATINUM PLUS<
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👏
 
L

LuigiB

Guest
Mike58 ha scritto:
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👏
Clicca per espandere...


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

Xeroxs

Advanced Member >PLATINUM<
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.
 
i legend

i legend

Premium Member
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:)
 
X

Xeroxs

Advanced Member >PLATINUM<
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

LottoPazzo

Advanced Member >PLATINUM PLUS<
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
 
L

LuigiB

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

Mike58

Advanced Member >PLATINUM PLUS<
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
 
X

Xeroxs

Advanced Member >PLATINUM<
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ì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto