Domanda per Luigi

[LuigiB]

si con ordinabile2 si richiama la vecchia griglia ..comprese le anomalie che avevate riscontrato ciao ...

 

[i legend]

Ciao prof sei un grande .

 

[LuigiB]

troppo buono .. legend .. ciao ...

 

[claudio8]

Non so se mi spiego... ma usando in sequenza entrambe le funzioni con
Call AddRigaTabella (aV,,"center",1)
si ottiene anche questo ( tabella e grafico).



Smanettando, si aprono mondi nuovi

Grazie Luigi

 

[fillotto]

Non so se mi spiego... ma usando in sequenza entrambe le funzioni con
Call AddRigaTabella (aV,,"center",1)
si ottiene anche questo ( tabella e grafico).



Smanettando, si aprono mondi nuovi

Grazie Luigi

bello, ma se non metti anche lo script completo all'uopo modificato (A Natale si può) ,noi poveri mortali non ne possiamo usufruire e tutto si esaurisce fra pochi eletti Intanto approfitto per augurare buone feste eletti e non.

 

[claudio8]

Ciao Filotto, approfitto x salutarti affettuosamente.
Ci conosciamo da tanto tempo e dovresti sapere che preferisco insegnare l'uso della "canna da pesca" invece di regalare il pescato.

Posta tranquillamente un tuo script con anche solo il CreaTabella di qualsiasi tipo e ti spiego come poter visionare (con la versione ultima 1.6.31) contemporaneamente la tabella ed il grafico come da mio post.
Ciao

Ps: di miei script in giro ce ne sono a bizzeffe....

 

[fillotto]

Ad esempio questo ,è di Mike piccolo ma bello cosi è più facile orientarsi

Sub Main
   Dim Nu(2),Ru(1),T,V
   Ini = EstrazioneIni
   fin = EstrazioneFin
   dist = CInt(InputBox("Quale distanza",,18))
   r = InputBox("Quale ruota analizzo",,1)
   Scrivi "Ambi in distanza... " & dist & " con analisi su Ruota : " & NomeRuota(r),1,,,1,3,,1
   T = Array(T,"N","Ambi","Rit","Max","Incr","Freq")
   Call InitTabella(T)
   For x = 1 To 89
      For y = x + 1 To 90
         If Distanza(x,y) = dist Then
            k = k + 1
            Nu(1) = x
            Nu(2) = y
            Ru(1) = r
            Call StatisticaFormazione(Nu,Ru,2,rit,max,Incr,fre,Ini,fin)
            'Scrivi FormatSpace(k,3) & vbTab,0,0
            'Scrivi StringaNumeri(Nu,,1) & vbTab,0,0
            'Scrivi rit & vbTab & max & vbTab & fre
            V = Array(V,k,StringaNumeri(Nu),rit,max,Incr,fre)
            Call AddRigaTabella(V)
         End If
      Next
   Next
   CreaTabellaOrdinabile
End Sub

 

[claudio8]

Ciao Filotto eccoti lo script modificato con le spiegazione negli screenshot

 Sub Main
     Dim Nu(2),Ru(1),T,V
     Ini = EstrazioneIni
     fin = EstrazioneFin
     dist = CInt(InputBox("Quale distanza",,18))
     r = InputBox("Quale ruota analizzo",,1)
     'Scrivi "Ambi in distanza... " & dist & " con analisi su Ruota : " & NomeRuota(r),1,,,1,3,,1
     T = Array(T,"Num","Ambi","Rit","Max","Incr","Freq")
     Call InitTabella(T,3,"left",1,1,"Calibri")
     For x = 1 To 89
          For y = x + 1 To 90
               If Distanza(x,y) = dist Then
                    k = k + 1
                    Nu(1) = x
                    Nu(2) = y
                    Ru(1) = r
                    Call StatisticaFormazione(Nu,Ru,2,rit,max,Incr,fre,Ini,fin)
                    'Scrivi FormatSpace(k,3) & vbTab,0,0
                    'Scrivi StringaNumeri(Nu,,1) & vbTab,0,0
                    'Scrivi rit & vbTab & max & vbTab & fre
                    V = Array(V,k,StringaNumeri(Nu),rit,max,Incr,fre)
                    Call AddRigaTabella(V,,"center",1)
               End If
          Next
     Next
     Dim sTitolo
     sTitolo = " Ambi in distanza... " & dist & " con analisi su Ruota : " & NomeRuota(r)
     Call SetTableTitle(sTitolo,"Arial",10,False,2)
     Call SetTableHeight("50%")
     Call SetTableWidth("100%")
     Call CreaTabellaOrdinabile2(,,,0,0,False,False) ' possibile utilizzare anche qui la funzione CreaTabellaOrdinabile 
     Call CreaTabellaOrdinabile(,,,0,0,False,False)
End Sub

Dopo aver lanciato lo script ottieni le 2 tabelle

Quindi opera sulla 2a tabella seguendo le specifiche che ho inserito.


Spero che sia tutto chiaro e leggibile
Ciao

 

[Mike58]

Ottima Trovata Claudio.

Un salutone con il Battimano.

ciao

Mike

 

[claudio8]

Ottima Trovata Claudio.

Un salutone con il Battimano.

ciao

Mike

Grazie Mike, ma è tutto merito di Luigi, spetta a lui il Battimano
Ciao

 

[fillotto]

Grazie Claudio , ho visto , mi stavo a "cecà" per vedere le note che hai scritto poi ho scoperto che si possono allargare.Mi sono organizzato così: Ho messo sull' editor lo script di Mike remmato e lo script tuo così da vedere le differenze, ho ottenuto le tue stesse risultanze. Ora la parte + difficile mi tocca capire le istruzioni aggiunte e quelle tolte.... se po' fa!!

 

[claudio8]

Grazie Claudio , ho visto , mi stavo a "cecà" per vedere le note che hai scritto poi ho scoperto che si possono allargare.Mi sono organizzato così: Ho messo sull' editor lo script di Mike remmato e lo script tuo così da vedere le differenze, ho ottenuto le tue stesse risultanze. Ora la parte + difficile mi tocca capire le istruzioni aggiunte e quelle tolte.... se po' fa!!

Per chi si sta a "cecà" esiste il "ctrl+" per ingrandire lo schermo.
Per te Filotto, e meno male che ci sono poche righe nello script di Mike ..... con script da 1000-1300 righe che faresti.
Ciao .... ( se hai bisogno di spiegazioni chiedi pure)

 

[fillotto]

ciao Claudio ho già detto che ho ottenute le tue stesse risultanze del grafico che tu hai mostrato al num 106 quindi mi trovo perfettamente allieato con te però ,nel caso specifico
dello script sviluppato,faccio fatica ad interpretare quello che mi dice il grafico.
Esempio nella tabella sovrastante il grafico al primo posto abbiamo l'ambo 1-19 con un ritardo di 29 max rit 922 ecco questa situazione come la vedo sul grafico?

Options : History : Feedback : Donate

Close

 

[claudio8]

ciao Claudio ho già detto che ho ottenute le tue stesse risultanze del grafico che tu hai mostrato al num 106 quindi mi trovo perfettamente allieato con te però ,nel caso specifico
dello script sviluppato,faccio fatica ad interpretare quello che mi dice il grafico.
Esempio nella tabella sovrastante il grafico al primo posto abbiamo l'ambo 1-19 con un ritardo di 29 max rit 922 ecco questa situazione come la vedo sul grafico?

Options : History : Feedback : Donate

Close

filotto, non vedo la tua tabella, leggo Options:History: feedbak : Donate
ciao

 

[fillotto]

Scusa non so cosa sia"Options:History: feedbak : Donate" non ho messo nessuna tabella perchè la mia tabella è identica a quella che tu hai messo a corredo nel num. 106 di questa discussione quindi per tabella sosrastante intendevo la medesima alla tua , scusami ma non mi son reso conto dell'equivoco .

 

[claudio8]

Filotto il grafico non è nient'altro che la rappresentazione della tabella considerando ogni linea colorata ( valori da inserire ) come la rappresentazione dei valori nella colonna corrispondente presente della tabella.
In corrispondenza della num1 avrai un punto relativo ai vari valori presenti nelle altre colonne ( se le stesse vengono inserite nel grafico) della tabella.
Il grafico in sostanza ti da una visione grafica di valori che, può evidenziare anche relazioni tra i parametri che consideri

In questo grafico sotto ho solo inserito Rit- e Freq con ordin.decres prioritario del ritardo.
Come vedi le 2 righe hanno andamenti differenti
La riga verde delle freq. ha andamento quasi lineare (diritto) mentre quella dei ritardi, rossa, ha un andamento completamente diverso a dimostrazione (evidenza-grafica) che le 2 variabili (Rit.Attuale e Freq) non hanno tra loro alcuna relazione.
Se correlando altri parametri trovi andamenti simili, allora viene automatico ipotizzare che detti parametri hanno una relazione.

​

Altro non saprei che scriverti e come spiegarti. Spero di essere stato chiaro.
Ciao