Per Favore sono bloccato qualcuno puo sbloccarmi.

[xabio]

Ciao non so allegare lo script lo copio quindi :

Non capisco perche' i ritardi 2 e 3 rilevati sono errati !!

Sub Main
Scrivi GetInfoEstrazione(EstrazioneFin)
Scrivi
x=1
Dim p(5)
For w=1 To 5
p(w)=True
'p(w)=w
ab=RitardoEstratto(x,EstrazioneFin,1,p)
Scrivi w & " " & ab
Next
End Sub

--------------------
output
[09248] [146] 06.12.2016
1 78
2 78
3 78
4 52
5 30

Grazie per eventuale expl..

 

[Beppignello]

ciao

se non ho capito male

Sub Main
Scrivi GetInfoEstrazione(EstrazioneFin)
Scrivi
x=1
Dim p(5)
For w=1 To 5
p(w-1) = False
p(w)=True
'p(w)=w
ab=RitardoEstratto(x,EstrazioneFin,1,p)
Scrivi w & " " & ab
Next
End Sub


dopo aver messo "true" la posizione
il ciclo successivo
la devi mettere in "false" quella appena fatta

 

[joe]

Buona festività a tutte/i

Xabio, secondo me dovevi descrivere il tuo intento,

ed allegare lo script da correggere.

Sconosciute le tue intenzioni, è difficile dedurle

in special modo se, lo script è errato (come lo hai descritto).

In sintesi, se volevi i ritardi nelle 5 posizioni, dovevi scriverlo.

Giusto, quanto t'ha scritto Beppignello e se posso aggiungere alcuni consigli,

è meglio utilizzare nomi per le variabili, che siano standardizzati,

oltre che espliciti (nello script e nel suo output),

Cosicchè "tutti" sanno cosa dovrebbe fare lo script, cosa fa, ed in che modo cerca di farlo.

In sintesi, il suo eventuale debug, noti gli scopi ed i metodi, è più semplice per tutti.

Sub Main
R = BA_ : N = 1 : Fin = EstrazioneFin
Scrivi GetInfoEstrazione(Fin)
Scrivi
Scrivi  NomeRuota(R) &  " N° " & N ,True
Scrivi
For E = 1 To 5
ReDim P(5)  'AZZERA le 5 posizioni
P(E) = True 'ATTIVA la posizione "E"
Scrivi E & "° Estr.  Rit. " & RitardoEstrattoTurbo (N,Fin,R,P)
Next
End Sub

 

[xabio]

Grazie Mille Beppi e Joe entrambe le procedure mi vanno bene adesso mi e' chiaro il concetto.

Mi scuso per non commentato lo script e il suo intento
ed avervi fatto perdere piu' tempo
nel fare quello che avrei dovuto fare io anche a beneficio di tutti .

Grazie e Buonagiornata.