PROGRAMMA SPAZIOMETRIA

[LuigiB]

ciao , ho fatto una correzione sulla griglia ordinabile ed ho modificato le funzioni creatabella e creatabellaordinabile.
Queste funzioni ora possono funzionare o come prima oppure passando dei vettori per i parametri
Colonna ,Versoordinamento , TipoOrdinamento in questo caso è pssibile mostrare una tabella ordinata per un numero di colonne multiplo ciascuna col suo verso e tipo ordinamento

Option Explicit
Sub Main
    Dim k,j
    Dim n
    Dim s
    Const nUpper = 100
    ReDim avA(nUpper,7)


    ReDim aIdCol(2) ' contiene gli indici delle colonne per cui eseguire l'ordinamento
             ' in questo caso di esempio sono usate 2 colonne    

    ReDim aIdVerso(2) 'contiene il verso di ordinamento specifico per la colonna (desc = -1 asc = 1 )

    ReDim aIdTipo(2) 'contiene il tipo  di ordinamento specifico per la colonna (numerico  = 0 stringa = altro )



    ReDim aVTab(7)
    For k = 1 To 7
        aVTab(k) = "titolo " & k
    Next
    Call InitTabella(aVTab)

    'creo un array e lo valorizzo con numeri casuali
    For k = 1 To nUpper
        For j = 1 To 7
            n = NumeroCasuale(1,10)

            aVTab(j) = n
        Next
        Call AddRigaTabella(aVTab)
    Next




    ' valorizzo l'array che indica le colonne per cui si esegue l'ordimanto
    ' in questo caso dell'esempio susiamo le colonne 1 e 2
    aIdCol(1) = 1
    aIdCol(2) = 2

    ' valorizzo il verso di ordinamento specifico per la colonna
    aIdVerso(1) = - 1 ' decrescente per la prima col
    aIdVerso(2) = 1 ' crescente per la seconda col

    ' valorizzo il vettore per i ltipo ordinamento
    aIdTipo(1) = 0
    aIdTipo(2) = 0


    Call CreaTabella(aIdCol,aIdVerso,aIdTipo)


    Call CreaTabellaOrdinabile(aIdCol,aIdVerso,aIdTipo)





End Sub

 

[solare]

Ciao Luigi, volevo chiederti . Non potresti aggiungere a spaziometria la possibilità di stampare la pagina estrazione del lotto 10elotto con relativi numeri oro il tutto nella stessa pagina.
Grazie

 

[LuigiB]

Ciao Luigi, volevo chiederti . Non potresti aggiungere a spaziometria la possibilità di stampare la pagina estrazione del lotto 10elotto con relativi numeri oro il tutto nella stessa pagina.
Grazie

Ciao Solare , scarica questo file scompattalo e meti l'eseguibile in una directory dove sono le plugin di spaziometria, per trovarla fai apridirectorydati dal primo menu e poi nella finestra c'èe una directory che si chiam plugin , incolla il file li dentro se vuoi puoi creare anche una sottocartella

http://www.mediafire.com/file/7s5y45k21dt66d4/StampaEstrazione.rar

 

[solare]

Grazie Luigi.
Buona giornata

 

[claudio8]

Luigi, sto facendo girare uno script che costruisce una talellaordinabile con 4006righe e 120colonne, e mi viene fuori questo messaggio :

1) sarebbe possibile ampliare la memoria di gestion flex grid?
2) il controllo ActiveX può essere gestito dallo script con specifica istruzione? ( limita l'autonomia del compiuter, mi obbliga a stare vicino alla tastiera mentre sta elaborando e non mi lascia prendere il caffè tranquillamente. ) in un mondo pieno di AI pare di essere all'età della pietra.

ciao

 

[LuigiB]

Ciao ..no nessuna delle cose e possibile anche se no ho capito che vuol dire che ti obbliga a stare davanti al pc

 

[claudio8]

"che vuol dire che ti obbliga a stare davanti al pc"
che il controllo ActiveX ha bisogno di un Clic e quindi deve esserci un mio intervento prima di avere la tabellaordinata che con le elaborazioni che gli impongo impiega qualche minuto ad apparire.
Mi sarebbe piaciuto poter lasciare operare il pc sino a lavoro completo,ssenza il mio intervento.

ps: nelle opzioni di configurazionei, che differenza c'è tra SelTextHighlight e SelRtfHighlight

 

[claudio8]

Caro Luigi,
ho notato che il comando di massimizzazione dell'area script esclude dal video la ultima riga, quella dei parametri range archivio estrazioni.

Essendo questo importante nella gestione degli script, ti chiedo se è possibile lasciarlo anche in fase di massimizzazione oppure opzionarlo nelle impostazioni generali.

Ciao

 

[LuigiB]

ciao , ecco una nuova versione , mi è stato chiesto di inserire alcune nuove funzioni nello spazioscript
e dato che mi sembravano utili le ho implementate , di seguito la spiegazione e tra gli script di test ci sono gli esempi pratici.

Per Claudio , la griglia di cui ti sei innamorato è un controllo activex cioè un programma che gira nei browser microsoft , essendo un programma con esso è possibile anche eseguire operazioni malevole perciò ie ti fa quella domanda alla quale devi rispondere di persona .. per aggirarla dovresti impostare le protezioni del browser meno restrittive ma non ti consiglio.

Riguardo i parametri del range non ti posso accontentare ..si tratta di andare a mettere mano con l'interazione dei controlli per gestire il layout ..un gran casino ...non mi va..

invece forse ho un sistema per superare i limiti della griglia di cui mi parlavi tempo fa ..ti farò sapere..ciao


la prima Abbinamenti
Sub Abbinamenti(nSpia, aRetAbb, inizio, fine, Ruota, Optional idArchivio = 0) Descrizione
Ottiene una matrice di 90 elementi contenente i numeri ordinati per frequenza di abbianemento col numero specificato
Note
La matrice di ritorno è dimensionata aRetAbb(90,2)
la posizione (n,1) contiene il numero
la posizione (n,2) contiene le frequenze di abbinamento col numero specificato
n può spaziare da 1 a 90 e indica la posizione da leggere nella matrice che è ordinata per
frequenza di abbinamento
Parametri
[TABLE="border: 0, cellpadding: 1, cellspacing: 2"]
[TR]
[TD] nSpia
[/TD]
[TD] Numero per il quale si cercano gli abbinamenti
[/TD]
[/TR]
[TR]
[TD] aRetAbb
[/TD]
[TD] è la matrice che conterrà i valori statistici cercati
[/TD]
[/TR]
[TR]
[TD] inizio
[/TD]
[TD] estrazione inizio range
[/TD]
[/TR]
[TR]
[TD] fine
[/TD]
[TD] estrazione fine range
[/TD]
[/TR]
[TR]
[TD] Ruota
[/TD]
[TD] ruota in esame
[/TD]
[/TR]
[/TABLE]


La seconda funzione avrebbe dovuto chiamarsi Frequenze e sarebbe servita per ottenere un vettore con i primi n numeri piu frequenti ma io l'ho fatta a modo mio rendendola a mio avviso piu potente è naturalmente possibile ottenre con questa funzione quanto mi era stato chiesto in origine.
La nuova funzione si chiama StatEstratti ed ha le sue versioni per dicielotto superenalotto e winforlife.
Questa funzione oltre a consentire di ottenere un vettore con i primi n numeri voluti consente di conoscere dopo averla lanciata per ognuno dei 90 numeri i valori di frequenza , presenze, ritardo , ritardo massimo.
Al momento di lanciare la funzione si puo passare il parametro per ordinare in base ad uno dei valori
(frq,pres,rit,ritmax) e da questo dipende il vettore dei primi n numeri che la funzione fa tornare

StatEstratti(inizio, fine, aRetNum, aRuote, Optional Pos = 0, Optional QuantitaRet = 10, Optional OrdinaPerCol = 2, Optional idArchivio = 0)
Descrizione
Ottiene una matrice di 90 elementi contenente i numeri , per ogni numero sono disponibili i valori ritardo , ritardomassimo , presenze , frequenza , la matrice può essere ordinata per uno di questi valori.
Oltre ad alimentare l'array passato per parametro aRetNum la funzione torna un vettore con i primi N numeri voluti in funzione dell'ordinamento applicato.
Note
la matrice di ritorno è dimensionata aRetAbb(90,5)
Const cNum = 1
Const cFrq = 2
Const cPre = 3
Const cRit = 4
Const cRitMax = 5
la posizione (n,1) contiene il numero
la posizione (n,2) contiene le frequenze
la posizione (n,3) contiene le presenze
la posizione (n,4) contiene il ritardo
la posizione (n,5) contiene il ritardo massimo

n può spaziare da 1 a 90 e indica la posizione da leggere nella matrice
Parametri

[TABLE="border: 0, cellpadding: 1, cellspacing: 2"]
[TR]
[TD] Inizio
[/TD]
[TD] estrazione inizio range
[/TD]
[/TR]
[TR]
[TD] Fine
[/TD]
[TD] estrazione fine range
[/TD]
[/TR]
[TR]
[TD] aRetNum
[/TD]
[TD] matrice di ritorno dimensionata 90,5
[/TD]
[/TR]
[TR]
[TD] aRuote
[/TD]
[TD] può essere il valore numerico di una ruota o un vettore contenente piu ruote , specifica la ruota po le ruote su cui agisce la funzione
[/TD]
[/TR]
[TR]
[TD] Pos
[/TD]
[TD] Opzionale posizione estrazionale ,se =0 tutte le posizioni
[/TD]
[/TR]
[TR]
[TD] QuantitaRet
[/TD]
[TD] Quantità dei numeri da far tornare come return value della funzione (torna un vettore di n elementi)
[/TD]
[/TR]
[TR]
[TD] OrdinaPerCol
[/TD]
[TD] identifica la colonna su cui eseguire l'ordinamento per default è la frequenza
[/TD]
[/TR]
[/TABLE]

 

[claudio8]

Ricevuto e grazie.

 

[Mike58]

Provato le 2 funzioni.

Ottime e funzionali.

Grazie

 

[fillotto]

"La nuova funzione si chiama StatEstratti ed ha le sue versioni per dicielotto superenalotto e winforlife."
Le versioni per queste due nuove funzioni non comprendono " FT " vero? Se non comporta eccessivo lavoro magari in un altro aggiornamento.....

 

[Mike58]

Confermando e associandomi alla richiesta di Fillotto per il codice FT che può ritornare utile a tanti, debbo anche dire che questo codice è veramente molto potente, nato per vedere le migliori frequenze, esso è anche utile per i migliori ritardi e ritardoMax.

Ottimo.

 

[LuigiB]

Claudio mi mandi o mi posti (zippato) quel famoso file che non ti caricava la griglia ?

 

[claudio8]

Luigi, ti riferisci a questo problema?

Luigi, sto facendo girare uno script che costruisce una talellaordinabile con 4006righe e 120colonne, e mi viene fuori questo messaggio :

1) sarebbe possibile ampliare la memoria di gestion flex grid?
2) il controllo ActiveX può essere gestito dallo script con specifica istruzione? ( limita l'autonomia del compiuter, mi obbliga a stare vicino alla tastiera mentre sta elaborando e non mi lascia prendere il caffè tranquillamente. ) in un mondo pieno di AI pare di essere all'età della pietra.

ciao

Io ho risolto riducendole .

 

[claudio8]

Adesso mi è uscito questo doppio problema su un file.ls da 1690 righe di script,
ho provato a reinstallarlo, ma il primo errore vedi "EseguiScript" permane, sto usando spaziometria vers 1.6.9.



Ciao

 

[LuigiB]

hai fatto bene a ridurle .. ma la nuova versioen della griglia potrebeb anche gestirle ..devo fare una prova ..quindi se puoi darmi quel file .. anche se ti da errore vai nelal directory dove cè lìoutput dello script e troverai tra glia ltri un file di grandi dimesioni zippalo e mandamelo .. senno creerò io un file grande per le prove ma volevo fare la prova col tuo

 

[claudio8]

Luigi ti rispondo tra le righe.

hai fatto bene a ridurle .. ma la nuova versioen della griglia potrebeb anche gestirle ..devo fare una prova OK.
.quindi se puoi darmi quel file .. anche se ti da errore
Ti riferisci al file dell'errore griglia?
vai nella directory dove cè l'output dello script ,
non ho mai salvato griglie o output che mi davano errore.
e troverai tra glia ltri un file di grandi dimesioni
ho controllato diverse directory e non ho trovato nulla di grande. Che estensione ha?
zippalo e mandamelo .. senno creerò io un file grande per le prove ma volevo fare la prova col tuo

Ti cerco quello delle 4005righe x 120 colonne che dava l'errore 30006 FlexGrid e te lo invio.
ciao.

 

[claudio8]

Luigi, Inviato.

 

[claudio8]

X Luigi, o chi ha già provato, un quesito
E' possibile creare una tabellaordinabile e contemporaneamente alimentare una Matrice(bidimensionale)?
Io ci sto provando, ma mi da Errore Script ( vedi post 1232).