ciao a tutti ,

[franca46]

buongiorno amici , avevo visto qui un listato che dava i frequenti al 10elotto , ma non lo trovo più, sapreste indicarmi?

grazie

 

[Mike58]

Ciao Franca senza andare a cercare eccoti un listato delle Presenze con Numeri Raggruppati per presenze.

Sub Main
   Dim T,V,Nu(1)
   estr = InputBox("Quante estrazioni Analizzo",,10)
   Ini = EstrazioniArchivioDL - estr
   fin = EstrazioniArchivioDL
   Tot = fin - Ini + 1
   Scrivi "Presenze Dieci e Lotto Serale",1,1,,1,3,,1
   Scrivi "Range Inizio  : " & DataEstrazioneDL(Ini)
   Scrivi "Range Fine    : " & DataEstrazioneDL(fin)
   Scrivi "Totali Estraz.: " & Tot
   Scrivi
   T = Array(T,"N.Presenze","Numeri","Q.tà","Ritardo Serie","Verifica","esito")
   Call InitTabella(T)
   'ReDim riga(10,8)
   For x = 0 To estr
      For n = 1 To 90
         Nu(1) = n
         If SerieFreqDL(Ini,fin,Nu,1) = x Then
            k = k + 1
            ReDim Preserve riga(k)
            riga(k) = n
            'Riga = Riga & Nu(1) & " "
            sr = SerieRitardoDL(Ini,fin,riga,1)
            'sr = EstrattoRitardoDL(n,Ini,fin)
            Call VerificaEsitoDL(riga,fin,1,,esito,,es1)
         End If
      Next
      If k > 0 Then
         V = Array(V,x,StringaNumeri(riga),k,sr,es1,esito)
         Call AddRigaTabella(V)
      End If
      'riga = ""
      k = 0
   Next
   Call CreaTabella()
   Scrivi StringaEstrattiDL(fin),1
End Sub

 

[franca46]

ciao mike sempre cortese , grazie ,