script scherzo strano (risolto)

[kjo]

buonasera a tutti

mi capita una cosa strana con uno script (sicuramente sono io che sbaglio).

Ho fatto questo script (allegato sotto), per trovare un ambata alla prima estrazione
del mese.
Il problema è che l'output è molto strano (nel senso che mi mette tutte le estrazioni del mese !!)
Ma il calcolo lo fa giusto alla prima del mese.

eppure Ho messo : (If IndiceMensile(es) = 1 Then)

Perchè mi fa sto scherzo ?

anche i casi trovati sono giusti ( con il "co" ).

Ma niente, continua a fare sta stranezza di mettermi tutte le estrazione del mese nell'output.

AIUTO !!!!!!!!!!

Io voglio solo la prima del mese !!!

-------------------------------------------



'Nota che i calcoli per ricavare l'ambata sono solo un esempio fittizio per far girare lo script
Sub Main()
Dim ruote(2)
Dim posta(1)
Dim n(1)
ruote(1) = 1
posta(1) = 1
ini = 8400
fin = EstrazioneFin
For es = ini To fin
If IndiceMensile(es) = 1 Then
co = co + 1
h = Estratto(es,1,1)
i = Estratto(es,1,2)
l = Estratto(es,1,3)
m = Estratto(es,1,4)
q = Estratto(es,1,5)
s =(h + i + l + m + q)
g = Fuori90(s)
End If
n(1) = g
ImpostaGiocata 1,n,ruote,posta,10
Gioca es
Next
Scrivi
Scrivi String(65,"•")
ColoreTesto 2
Scrivi "casi trovati : " & co,1
ColoreTesto 0
Scrivi String(65,"•")
TestoInBandaPassante " ***** Listato by Kjo ***** ",1,3,0
ScriviResoconto
End Sub


Un grazie a chi mi risolve l'arcano




Frank

 

[DjNomade]

Ciauz prova a spostare End If dopo Gioca es








«Un giorno senza un sorriso è un giorno perso.»
Charles Spencer Chaplin

 

[Roby]

Ha ragione Dj Nomade
devi fare così:

Gioca es
End if
Next

Ciao

Blackmore

 

[Roby]

X DjNomade e Blackmore


Grazieeeeee !!!!!

Ragionandoci sopra ho capito anche il perchè e ho fatto un altro passo in più !

Grazie ancora


ciao





Frank