AAA cercasi .....

[daniel]

...... cinquine ripetute nell'arco dell'intero archivio, non importa se su stessa ruota.
Ho provato a fare uno script, ma ...... so rimasto ingarbugliato da qualche parte.
Grazie in anticipo se qualcuno vorrà darmi qualche dritta.

 

[Rubino]

ciao daniel

uno script un po alla buona, ma ottiene il risultato, spero sia questo ciò che vuoi

Option Explicit
Sub Main
   Dim r,ini,fine,retrit,retritmax,retfre,p,ru,ct
   Dim ar(10),nr(5)
   ini = 1
   fine = InputBox("estraz.n.",,EstrazioneFin)
   Scrivi "Cerca in archivio cinquine con piu uscite a Tutte Le Ruote",1
   Scrivi "Periodo " & ini & "/" & DataEstrazione(ini) & "  :  " & fine & "/" & DataEstrazione(fine),1
   Scrivi
   ''' statistica su tutte le ruote imposto le 10 ruote
   For r = 1 To 10
      ar(r) = r
   Next
   ''' leggo l0archivio estrazioni
   For ini = 1 To fine
      ''
      Messaggio(ini)
      For ru = 1 To 10
         ''carica i 5 estratti
         For p = 1 To 5
            nr(p) = Estratto(ini,ru,p)
         Next
         Call StatisticaFormazioneTurbo(nr,ar,5,retrit,retritmax,,retfre,ini,fine)
         If retfre > 1 Then
            Scrivi "Cinquina.." & StringaNumeri(nr,".") & "   Uscite..." & retfre,1
            ct = ct + 1
         End If
      Next
   Next
   Scrivi "Totale cinquine trovate " & ct,1
   Scrivi:
   Scrivi TempoTrascorso
End Sub

 

[daniel]

Azz .... Rubino!!! Più veloce della luce!
Grazie infinite, le ruote provvedo io a trovarle.
Grazie di nuovo
Ciao ciao