X Luigi nuova funzione

[i legend]

ciao Luigi sarebbe possibile inserire due nuove funzioni in spaziometria?

allora al momento prendo i dati dal tuo modulo.
ma dovrei verificare ogni volta se cambiano ,
se li scrivessi tu all interno potresti usare i dati della tua tabella?

eccola:

Option Explicit
'questo e solo un esempio non è una funzione reale
' infatti con l uscita del 53 sulla nazionale il valore massimo di 1 livello cambierà
Sub Main
 Dim Liv,R
 For Liv = 1 To 5
            Scrivi "RSL_Ass(" & Liv & ")=" & GetRSLivStoAss(Liv),True,,,vbGreen
 Next

 Scrivi

 For R = 1 To 2
            For Liv = 1 To 5
                Scrivi "RSL_MaxRuota(" & SiglaRuota(R) & "[" & Liv & "])=" & GetRSLivStoRu(R,Liv),True,,,vbGreen

           Next
 Next
End Sub

Function GetRSLivStoAss(Liv)
' i dati sono soggetti a mutazione nel tempo
            Dim aId:aId = Array(0,175,98,63,53,49)
            GetRSLivStoAss = aId(Liv)
End Function
' questa funzione è di esempio
'ho scritto i valori delle ruote di bari e cagliari

Function GetRSLivStoRu(Ruota,Liv)
 ReDim aRsl(11,5)
 aRsl(1,1) = 175
 aRsl(1,2) = 73
 aRsl(1,3) = 52
 aRsl(1,4) = 39
 aRsl(1,5) = 41
 aRsl(2,1) = 175
 aRsl(2,2) = 74
 aRsl(2,3) = 58
 aRsl(2,4) = 40
 aRsl(2,5) = 36
 
GetRSLivStoRu=aRsl(Ruota,liv)
End Function

Una volta li avevo calcolati con una funzione e ci metteva tantissimo tempo ora invece se fosse cosi e' ultra veloce..

avevo pensato anche a un file txt che si aggiorna automaticamente all avvio del programma.
che ne pensi?

se non si puo fare rinuncio allo storico ruote e tengo solo lo storico assoluto che sono solo 5 valori.

cmq li salvo su un file txt che quando voglio usare queste funzioni le richiamo.
Fattibile?

ciao Prof

 

[i legend]

Ciao è la stessa domanda della volta precedente ,ma forse adesso mi sono spiegato meglio
se non è possibile sentiti libero di mandarmi dove vuoi tu.
l importante è che sia bello ,caldo tutto l anno, e abbia il mare incontaminato e color smeraldo,una semplice capanna va benissimo
ciao prof

 

[LuigiB]

ciao legend , come ti avevo detto non è previsto che con gli script si possa accedere alle tabelle e o comunque alle altre funzioni del programma quindi devi trovare i lsistema di usare le funzioni che ci sono
dedicate agli script.

 

[i legend]

Ciao luigi , neanche se la scrivessi tu , come funzione interna?

 

[i legend]

Cm mi bastava lo storico vedo di inventarmi qualcosa
Grazie lo stesso