Come fare ?

[genios]

Se ho una lunghetta di 10 numeri come posso fare per trovare il ritardo ?



Numeri(10)



Ciao Eugenio

 

[Antonio Pagano]

Semplice : Rit = SerieRitardo(Ini,fin,vetnum,vetruote,1)

 

[i legend]

Conviene usare serieritardoturbo , è molto piu speed

 

[genios]

Mi fate un esempio di script

 

[i legend]

Dim alung: alung=array(0,1,2,3,4,5,6,7,8,9,10)
Dim ar(1): ar(1)=1
Dim rit, sorte
Sorte=2
Rit = SerieRitardoturbo(1,estrazionefin,alung,ar,sorte)
Scrivi rit
Scritto da cellulare
Vedi se i parametri scritti nella funzione siano esatti
Scusate array con l h credo fosse l orrore

 

[genios]

i llegend da errorre

 

[giomi]

prova ,corretto ,
inconvenienti da cell.

Option Explicit
Sub Main
   Dim alung: alung = Array(0,1,2,3,4,5,6,7,8,9,10)
   Dim ar(1): ar(1) = 1
   Dim rit,sorte
   sorte = 2
   rit = SerieRitardoTurbo(EstrazioneIni,EstrazioneFin,alung,ar,sorte)
   Scrivi rit
   Scrivi DataEstrazione(EstrazioneFin - rit) & vbTab & _
   NomeRuota(ar(1)) & vbTab & StringaEstratti(EstrazioneFin - rit,ar(1))
End Sub

 

[i legend]

prova ,corretto ,
inconvenienti da cell.

Option Explicit
Sub Main
   Dim alung: alung = Array(0,1,2,3,4,5,6,7,8,9,10)
   Dim ar(1): ar(1) = 1
   Dim rit,sortecorretto
   sorte = 2
   rit = SerieRitardoTurbo(1,EstrazioneFin,alung,ar,sorte)
   Scrivi rit
   Scrivi DataEstrazione(EstrazioneFin - rit) & vbTab & -
   NomeRuota(ar(1)) & vbTab & StringaEstratti(EstrazioneFin - rit,ar(1))
End Sub

Giomi, sorte così credo possa dare errore, perché è dichiarato sortecorretto.
Grazie

 

[giomi]

grazie , corretto .
inconvenienti della scemenza

 

[i legend]

Grazie ancora

 

[genios]

Mi spiegate questa riga ?

Dim alung: alung = Array(0,1,2,3,4,5,6,7,8,9,10)

e se i numeri variano di numero ?
come fare

 

[i legend]

Se ho una lunghetta di 10 numeri come posso fare per trovare il ritardo ?



Numeri(10)



Ciao Eugenio

Mi spiegate questa riga ?

Dim alung: alung = Array(0,1,2,3,4,5,6,7,8,9,10)

e se i numeri variano di numero ?
come fare

L ho dichiarata così perché è più veloce da scrivere da cellulare
Ecco così è proprio come il tuo esempio
Dim alung(10)
Alung(1)=1
Alung(2)=2
Alung(3)=3
Alung(4)=4
Alung(5)=5
Alung(6)=6
Alung(7)=7
Alung(8)=8
Alung(9)=9
Alung(10)=10

Non conosco il numer massimo di elementi che serieritardoturbo possa analizzare, devi controllare nella guida del programma.
Nella cartella degli script ci sono tantissimi esempi sull utilizzo delle funzioni sono molto utili per imparare


Ciao e buon studio