Joe91 si inceppa su serie ultima

[genios]

Joe91 non gira su spaziometria .

Ciao Eugenio

Somma Ultimi Ritardi (10 ritardi di 10 ruote)
'Scritto da Joe91 Maggio 2007
Sub Main()
Dim R(10)
Dim NN(1),a 
For RR=1 To 10 
Scrivi NomeRuota (rr)
R(1)=RR
fin=EstrazioneFin 
For n=1 To 90
NN(1)=n
a=fin
For Rit= 1 To 10 
a = SerieUltima  (a-250,a,NN,R,1)-1
Next 
If fin-a > 270 Then Scrivi Format2 (N) & " " & Fin - a
Next
Scrivi 
Next
End Sub

 

[Joe91]

Ciao.

Attualmente non ho un pc con cui controllare.

L'unico errore apparente sembra essere un apice mancante all'inizio della prima linea.

Poi... dovresti cancellare Option Explicit ...

ed ancora ove scritto Dim NN (1),a

Lasciando scrtto solamente Din NN(1)

Ma se, correggere questo non sarà sufficiente

e/o in assenza di altri rimedi dovrai attendere qualche giorno.

Saluti a tutte/i.

 

[genios]

Anche facendo i cambiamenti suggeritemi non va Joe91.
Ti allego l' errore che da .

Ciao Eugenio

 

[genios]

Joe91 ho visto nella guida script di SpazioMetria e non ce la funzione o procedura serieultima .
Penso dipenda da ciò. Si può rimediare ?

Ciao Eugenio

 

[Joe91]

Ciao Eugenio.

Si sicuramente ...

ma quello script si incentra su quella istruzione.

Appena mi sarà possibile lo rifaccio per Spaziometria.

Come ti dicevo ... però, non mi è possibile per qualche giorno.

 

[genios]

Ok grazie Joe91

ciao

 

[Joe91]

Oppure ....

Puoi scrivere una semplice funzione con il nome di quella istruzione mancante.


Ovvero che contolli con quei parametri ...

Cioè nel periodo, e nella ruota trovando l'ultima estrazione del numero.

... la restituirà come serieultima.

 

[genios]

Sembra facile .

 

[Joe91]

Function SerieUltima (ini, fin, r, n)
For Es = ini To fin
If Posizione (es, r, n) > 0 then SerieUltima= es
next
end function

Da aggiungere dopo lo script ptecedente.

Poi devi osservare che uso "n" come numero

quindi dove richiami questa funzione

come parametro invii "n" invece di nn

E... che questa versione ridotta

Ha solo un estratto quindi cancelli anche

il quinto parametro (,1 ovvero sorte=1)

 

[genios]

Joe non gira .

Ciao


[CODE

'Somma Ultimi Ritardi (10 ritardi di 10 ruote)
'Scritto da Joe91 Maggio 2007
Sub Main()
Dim R(10)
Dim NN(1),a
For RR=1 To 10
Scrivi NomeRuota (rr)
R(1)=RR
fin=EstrazioneFin
For n=1 To 90
NN(1)=n
a=fin
For Rit= 1 To 10
a = SerieUltima (Ini,fin,R,n)-1
Next
If fin-a > 270 Then Scrivi Format2 (N) & " " & Fin - a
Next
Scrivi
Next
End Sub

Function SerieUltima (ini, fin, r, n)
For Es = ini To fin
If Posizione (es, r, n) > 0 Then SerieUltima= es
Next
End Function
][/CODE]

 

[Joe91]

Ciao ho dimenticato che anche la ruota non è

in vettore dunque se la chiamata era:

A = SerieUltima (a-250,a,N, RR)-1

Ruota e numero nella function devono

essere scambiati e seguire lo stesso ordine dei parametri.

 

[genios]

Joe91 anche con le modifiche consigliate continua a non girare .

Ciao Eugenio

 

[Joe91]

Ciao Eugenio.

mi spiace ma ... dovrebbe funzionare

anche se è uno script vecchio e con qualche

trucchetto, non dovrebbe dare problemi.

Buona serata a tutte/i.

 

[Joe91]

'Somma Ultimi Ritardi (10 ritardi di 10 ruote)
'Scritto da Joe91 Maggio 2007
Sub Main
Dim R(10)
Dim NN(1)
For RR=1 To 10 
Scrivi NomeRuota (rr)
R(1)=RR
fin=EstrazioneFin 
For n=1 To 90
NN(1)=n
a=fin
For Rit= 1 To 10 

A = SerieUltima (a-250,a,N, RR)-1


Next 
If fin-a > 270 Then Scrivi Format2 (N) &" "& Fin - a
Next
Scrivi 
Next
End Sub

Function SerieUltima (ini, fin, n, rr)
For Es = ini To fin
If Posizione (es, rr, n ) > 0 then SerieUltima= es
Next
End Function

 

[LuigiB]

ciao , se hp ben capito cosa deve fare l'istruzione cosi è molto piu veloce

Function SerieUltima (ini, fin, n, rr)
For Es = fin To to ini step -1
If Posizione (es, rr, n ) > 0 then  
SerieUltima= es
exit for
end if
Next
End Function

 

[Joe91]

Ciao Luigi.

Si. Giusto.

Infatti volevo riscrivere ottimizzando

questo script.

ma col telefonino è una impresa!

 

[fillotto]

ciao , se hp ben capito cosa deve fare l'istruzione cosi è molto piu veloce

Function SerieUltima (ini, fin, n, rr)
For Es = fin To to ini step -1
If Posizione (es, rr, n ) > 0 then
SerieUltima= es
exit for
end if
Next
End Function

C'è un "To" di troppo.....

 

[Joe91]

Giusto anche questo!

Il suggerimento di Luigi era nell'interpretare ...'alla rovescia"

L'ultimo partendo dall'inizio è il primo ... dal fondo.

ed in questo modo si evita di controllare inutilmente centinaia di estrazioni

velocizzando molto questa nuova funzione.

evidentemente anch'essa non testata su pc!

Grazie anche per queso tuo utile contributo

Buona giornata a tutte/i.

 

[LuigiB]

Ciao Joe avevo copiato la funzione direttamente dal forum e l hovreincollata cambiandola pero il copia incollacha scombussolato la formattazione cosi poi editando a mano c e scappato il to di troppo ..come ė ovvio il mio suggerimento era proprio quello giustamente interpretato da te. Comunque sta funzione la inseriro nello spazioscript. Mi era sfuggita...ciao

 

[Joe91]

Bhe ...

allora ti dirò che ricordo di aver scritto quello script..

giusto per provarla e... non ricordo di averla mai vista utilizzata dopo.

comunque sia ...

Nuovamente grazie.