lo script va in loop

[Roby]

Salve a tutti, ho tentato di far elaborare il seguente script scritto per "lottodesk" dall'amico Enplain...ma in "spaziometria" va in loop, qualcuno è in grado di darmi una mano?

quote:
Sub Main()
Dim nu1(90)
Dim nu2(90)
Dim nu3(90)
Dim ru(1)

ru(1) = InputBox("Inserisci la Ruota",,8)
ruo = ru(1)
u = 0.700 'il valore minimo di Ic (Indice di convenienza)
es = EstrazioneFin
ColoreTesto(2)
Scrivi "Tabellone Analitico in Vericale"
Scrivi DataEstrazione(es)
Scrivi
Scrivi FormatSpace("Ruota",8) & FormatSpace("Posizione",15) & FormatSpace("Formazione",25) & _
FormatSpace("Ritardo Attuale",25) & FormatSpace("RSL",15) & FormatSpace("RSL/RC",10)
Scrivi String(95,"-")
For pos = 1 To 5
rsl = 0 : ic = 0
GeneraAnalitico es
For rit = 0 To TabelloneAnalitico(0,0,0) + 1

If TabelloneAnalitico(rit,ruo,pos) > 0 Then
k = k + 1
nu1(k) = TabelloneAnalitico(rit,ruo,pos)
flag = 1
End If
If TabelloneAnalitico(rit,ruo,pos) = 0 And flag = 1 Then
rr = SerieRitardo(EstrazioneIni,EstrazioneFin,nu1,ru,1,0)
For q = 1 To rr
GeneraAnalitico EstrazioneFin - q
For rit2 = 0 To TabelloneAnalitico(0,0,0) + 1

If TabelloneAnalitico(rit2,ruo,pos) > 0 Then
k2 = k2 + 1
nu2(k2) = TabelloneAnalitico(rit2,ruo,pos)
flag2 = 1
End If
If TabelloneAnalitico(rit2,ruo,pos) = 0 And flag2 = 1 Then
rr2 = SerieRitardo(EstrazioneIni,EstrazioneFin - q,nu2,ru,1,0)
If StringaNumeri(nu1) = StringaNumeri(nu2) Then
rsl = rsl + 1
End If
ic = rsl/rr
Erase nu2
flag2 = 0 : k2 = 0
End If
Next
Next
If ic => u Then riga = "**" Else riga = " "
ColoreTesto(1)
Scrivi FormatSpace(NomeRuota(ruo),11) & FormatSpace(pos,8) & _
FormatSpace(StringaNumeri(nu1),34) & FormatSpace(rr,21) & FormatSpace(rsl,15) & FormatNumber(ic,3) & " " & riga
Erase nu1
flag = 0 : k = 0 : rsl = 0
End If
GeneraAnalitico EstrazioneFin
Next
Scrivi String(95,"-")
Next
End Sub

saluti,
mauro

 

[claudio8]

Ho provato a farlo girare ma non sapendo cosa fà anzi non volendo capire cosa fà o ti rivolgi a Enplain o a Luigi oppure cerca di spiegare dettagliatamente cosa deve fare il listato se vuoi essere aiutato.
Ciao Claudio

Lo spot che conosciamo dice "Ti Piace vincere facile ? " che tradotto in pratica significa "Ti Piace..rebbe vincere facile !!!"