K
kjo
Guest
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
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
