SpazioLight.net

[Mike58]

Scaricata nuova versione e provato script su formazioni registrate.
Tutto Ok , funzionante e velocissimo.
P.s. Richiesta : nella finestra sezione script sarebbe meglio fare una sezione con Affianca Finestre Orizzontali - Verticale - Affiancate
io infatti apro + finestre e poi le ridimensiono a oc per il mio scopo di visione.
Ciao e grazie.

 

[Mike58]

Per Luigi, ho visto il video ma purtroppo ho capito poco mi riservo di riguardarlo sarebbe interessante riuscire a Creare una funzione in proprio.
Poi Ci devi anche regalare il codice SetColoraCella per colorare la colonna con il valore che si vuole evidenziare.

per Test metto un semplice script
che utilizza il codice Posizione e GetNumeriRuota e la mia Routine Per Elenco Ritardi.

Class Script
    Sub Main
        Dim aRetN() , elencoRit() , ess As Integer
        Dim Pos1 , pos2  As Integer
        Dim ini , fin , es , r , n ,m , k , rit  As Integer
        ini = 1 'estrazioniarchivio - 300
        fin = EstrazioniArchivio
        r = 1 : n = 48 : m = 81
        Dim Testo As String
        Scrivi ("Cerca Estrazioni con Ambo : " & n & "." & m  & " Su Ruota di " & NomeRuota(r)  ,1,,ColoreVerde ,ColoreBianco ,120)
        Testo = "Casi -- Estraz. -- Estratti ---   Rit --- ElencoRitardo "
        Scrivi (Testo,1)
        For es = ini To fin
            Pos1 = Posizione (es,r,n)
            pos2 = Posizione (es,r,m)
            If Pos1 > 0  And pos2 > 0 Then
                k +=1
                '-------- Mia Routine x elenco ritardi ----------
                ReDim Preserve elencoRit(k)
                elencoRit(k) = es
                ess = elencoRit(k) - elencoRit(k - 1)
                '------------------------------------------------
                rit = fin-es
                GetNumeriRuota (es,r,aRetN)
                Scrivi (FormatSpace(k,2) & vbTab & FormatSpace (es,5) & vbTab & StringaNumeri (aRetN,,1) & vbTab & rit & vbTab & ess )
            End If
        Next
        'inserire qui il proprio codice...
    End Sub
End Class

 

[LuigiB]

no setcolore cella ormai non l'ho fatto ,i colori si devono preimpostare prima.
Riguardo al video non c0era molto da capire , se ha ivisulastudio puoi trasformare l oscript dal programma in un progetto di visulastudio.
Aperto il progetto si scrive il proprio codice come prima per mandare in esecuzione si preme i ltastino sopra come da video.
Usare l'ambientedi visualstudio consente di fare il debug durante l'esecuzione , ha in intellisense che funziona bene .. se ce l'hai inizia a prenderci familiarità

 

[Mike58]

Scusa Luigi non So, se è esatto lo script ma il verifica esito mi dovrebbe restituire il numero sortito su entrambe le ruote - Rm-To - del n.14 in esame


ti metto lo script per capire se è un mio errore di compilazione o altro.

Class Script
    Sub Main
        'Estratto Ritardatario su 2 Ruote (7.1.2022)
        Dim Nu(1),Ru(2) As Integer
        Dim Ini As Integer  = 1'7440
        Dim fin As Integer = EstrazioniArchivio  - 1
        Dim n , r1 , r2 , er1 , er2 As Integer
        Dim rit,max,fre,incr,pre , k   As Integer
        Dim esa() , esito  As String
        '-------------------------------------------------------------------------
        Dim aT() As String = {"  Ruote  ", "  Numero  " , "  Ritardo  " , "  RitMax  ", "  InCr  " , " Rit R1  ", "  Rit R2 "," Esito Fine "}
        InitTabella(aT,ColoreVerde,,100,ColoreBianco  )
        Dim V() As String
        ReDim V(aT.GetUpperBound(0))
        '-------------------------------------------------------------------------
        For n = 1 To 90
            For r1 = 1 To 10
                For r2 = r1 + 1 To 11
                    Ru(1) = r1 : Ru(2) = r2 : Nu(1) = n
                    Call SerieStat (Nu,Ru,1,rit,max,fre,pre,incr,Ini,fin)
                    er1 = EstrattoRitardo(Nu(1),r1,fin)
                    er2 = EstrattoRitardo(Nu(1),r2,fin)
                    If incr > 0 Then
                        esito = "-"
                        If VerificaEsito (Nu,Ru,1,fin+1,,1,,esa) Then
                            For k  = 0 To esa.GetUpperBound(0)
                                If esa(k) <> "" Then esito = esa(k)
                            Next
                        End If
                        V(0) = ArrayRuoteToString(Ru)
                        V(1) = StringaNumeri(Nu)
                        V(2) = rit
                        V(3) = max
                        V(4) = incr
                        V(5) = er1
                        V(6) = er2
                        V(7) = esito
                        Call AddRigaTabella(V)
                    End If
                Next
            Next
        Next
        CreaTabella
        Scrivi (FormattaSecondi (SecondiTrascorsi))
    End Sub
End Class

 

[LuigiB]

ciao mike , qui fai un ciclo che dovrebbe accodare gl iesiti ma in realtà prende solo l'ultimo ..

For k = 0 To esa.GetUpperBound(0)
If esa(k) <> "" Then esito = esa(k)
Next
forse c'è da concatenare esito a se stesso.

 

[Mike58]

Si è come dici.
Penso di aver capito devo chiudere il ciclo un pò dopo.
Corretto in parte.

Ruote ​	Numero ​	Ritardo ​	RitMax ​	InCr ​	Rit R1 ​	Rit R2 ​	Esito Fine ​
Rm.To​	14​	82​	61​	21​	82​	82​	Rm --.--.--.--.14​
Rm.To​	14​	82​	61​	21​	82​	82​	To --.--.--.14.--​
Na.Rm​	46​	65​	64​	1​	77​	65​	Na --.46.--.--.--​
Ba.To​	59​	61​	56​	5​	74​	61​	Ba --.--.59.--.--​

 

[Edoardo_95]

Aggiornamento 1.0.25

InstallazioneUtente_v_1_0_25

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

Cambiamenti:

- Corretta e cambiata sezione "Scomposizione lunghette"
- Aggiunta gestione allineamento finestre
- Inseriti nuovi condizionamenti nei sistemi condizionati
- Aggiunte 2 funzioni agli script.
- Aggiunta funzionalità in sezione statistica "Classifiche"

Per quanto concerne quest'ultima funzionalità, permette all'utente di rilevare ed ordinare in modo automatico e decrescente (per ritardo o freq/uscite) formazioni che vanno dall'estratto al terno sulla/e ruote selezionate. Vi è inoltre la possibilità di selezionare la quantità massima di visualizzazioni dei risultati (10,100,1000,MAX = 4005). Per quanto riguarda le formazioni con esito estratto vi è anche la possibilità di selezionare le posizioni di rilevamento.

 

[Zetrix]

xEdoardo ho visto il nuovo aggiornamento del programma nella sezione statistica ->classifiche
manca il tasto tt per vedere quale e il numero piu in rit a tt e bisogna cliccare su tutte
e dieci i tasti delle relative ruote..
poi volevo dire una altra cosa nella sezione ciclometrica ho visto che e un po scarsa
nel senso che disegna solo la figura ti chiedo e possibile inserire un quadretto che
calcola le quadrature somme dei numeri inseriti nel cerchio ciclometrico
perche tutte le volte si devono fare le somme con la calcolatrice
dopo metterò un esempio di come deve essere questo quadretto di numeri
e quale somme deve calcolare..
bene per la nuova prospettiva della scomposizione delle lunghette..

 

[Zetrix]

x Edoardo metto questo disegno che deve avere il quadretto delle somme
adesso vedi te come e meglio disporre questo quadretto delle somme
se il programma li calcola in automatico sarebbe meglio se no si possono inserire i numeri
e cliccare su calcola..

 

[Zetrix]

xEdoardo questo e il quadretto delle somme ovvio si deve applicare la regola del fuori 90

 

[Xeroxs]

Buongiorno a Tutti,

Nel vedere le descrizioni delle Funzioni inserite per trovare una "familiarità" nelle fasi successive, Non Vedo la "Funzione mese"
Oppure se inserita non la trovo, se Così fosse vorrei capire come usarla se inserita, o se per caso non è inserita chiedo troppo se si potesse creare?

Penso possa essere utile.

Grazie.

 

[LuigiB]

certo la posso inserire .. nella prossiam versioene che metteremo ci sarà

 

[Xeroxs]

Grazie

 

[i legend]

credo che sia MeseId , mese nome ,

 

[Xeroxs]

Ciao, I-Legend
Spero che vada tutto bene.

Credo si Tratti del solo nome

MeseId​

Function MeseId(Nome As String) As Integer

e quindi no da usare tipo indicemensile almeno credo di aver compreso in questo senso.

 

[i legend]

ciao se non ho fatto orrori ecco la funzione

Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim Fin As Integer =EstrazioniArchivio
        Dim Ini As Integer=Fin-99
        For idestr As Integer=Ini To Fin
            Scrivi( DataEstrazione(idestr)&" | "&mese(idestr) & " | " & MeseNome(mese(idestr)) & " | " & IndiceMensile(idestr))
        Next
    End Sub
    Function mese(idestr)
        Dim a As Integer
        a= Month(DataEstrazione(idestr))
        Return a
    End Function
End Class

 

[LuigiB]

bravo legend , certo si puo fare come dici ma avere una funzione che gia lo fa è piu utile in un 'ottica di script ...
anzi se vedete che manca qualcosa ditemelo e valutereo ...

 

[i legend]

ciao ecco un codice di esempio

Class Script
    Sub Main
        'inserire qui il proprio codice...
        Dim Fin As Integer =EstrazioniArchivio
        Dim Ini As Integer=Fin-700
        Dim idMese As Integer=5
        For idestr As Integer=Ini To Fin
            If mese(idestr)=idMese Then
                Scrivi( DataEstrazione(idestr)&" | "&mese(idestr) & " | " & MeseNome(mese(idestr)) & " | " & IndiceMensile(idestr),1,,ColoreRosso,ColoreBianco)
            Else
                Scrivi( DataEstrazione(idestr)&" | "&mese(idestr) & " | " & MeseNome(mese(idestr)) & " | " & IndiceMensile(idestr))
            End If
        Next
    End Sub
    Function mese(idestr)
        Dim a As Integer
        a= Month(DataEstrazione(idestr))
        Return a
    End Function
End Class

 

[Xeroxs]

Ciao,

Ho Visto il tuo script, quindi si può usare anche come indice, Tipo con questo posso realizzare uno script che verifica esiti solo nel mese indicato?

 

[Xeroxs]

Che dire, come sempre siete davvero molto oltre anche senza la Funzione specifica.