Cinzia27 |
|
| Grazie, Joe, con la tua ottima memoria hai trovato la soluzione.Non ci possono essere altre ragioni dell' errore. Infatti nelle vecchissime versione di L8 l' istruzione siglaruota era nomeruota. Ecco lo script adattato . Sub main() 'Santani - stesso ambo su 2 ruote con ritardo minimo da impostare - ritardo di caduta (Cinzia)
Dim n(2),ru(2) f=EstrazioneFin qe= CInt(InputBox(" Quante estrazioni vuoi esaminare ? ultime ",,100)) If qe="" Then Exit Sub rm= CInt(InputBox(" Ritardo minimo",,1200)) If rm="" Then Exit Sub
Scrivi "Ritardo minimo "& rm For es=f-qe To f c=c+1 For r=1 To 10 For r1=r+1 To 11 If r1=11 Then r1=12 ru(1)=r ru(2)=r1
For i=1 To 89 For j=i+1 To 90 n(1)=i n(2)=j If Estratto(es,r,1)>0 Then If Estratto(es,r1,1)>0 Then
If SerieFreq(es,es,n,ru,2)>0 Then
ur=SerieRitardo(es-3000,es-1,n,ru,2) If ur>rm Then cc=cc+1 Scrivi " "&FormatSpace(cc,4,1)&" "&FormatSpace(es,4,1)&" "&Left(NomeRuota(r),2)&" "&Left(NomeRuota(r1),2)&" "&stringanumeri(n)&" ur "&FormatSpace(ur,4,1)&" ",0,0 If cc>1 Then Scrivi " colpi "&FormatSpace(c,4,1)Else Scrivi
c=0 End If End If End If End If
Next Next Next Next Next End Sub Cinzia Edited by Cinzia27 - 15/12/2018, 23:25
|
| |