Novità

Per Favore sono bloccato qualcuno puo sbloccarmi.

xabio

Super Member >GOLD<
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..
 
Ultima modifica:
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
 
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.

Codice:
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

:)
 
Ultima modifica:
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.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 09 ottobre 2025
    Bari
    09
    10
    42
    73
    59
    Cagliari
    14
    65
    66
    79
    83
    Firenze
    71
    15
    32
    04
    61
    Genova
    08
    02
    18
    87
    84
    Milano
    33
    08
    84
    80
    41
    Napoli
    29
    81
    50
    17
    83
    Palermo
    14
    28
    74
    19
    60
    Roma
    76
    32
    55
    67
    90
    Torino
    07
    02
    66
    15
    70
    Venezia
    34
    73
    70
    40
    09
    Nazionale
    87
    79
    36
    46
    02
    Estrazione Simbolotto
    25
    07
    23
    17
    30
Indietro
Alto