Sub Main
Dim T,V,Nu(1)
ImpostaArchivio10ELotto(1)
estr = InputBox("Quante estrazioni Analizzo",,10)
Ini = EstrazioniArchivioDL - estr
fin = EstrazioniArchivioDL
Tot = fin - Ini
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)
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
sr = SerieRitardoDL(Ini,fin,riga,1)
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
k = 0
Next
Call CreaTabella()
Scrivi StringaEstrattiDL(fin),1
End Sub
N.Presenze | Numeri | Q.tà | Ritardo Serie | Verifica | esito |
0 | 4.34.39.50.64.72.75.76.80 | 9 | 11 | ||
1 | 19.24.30.41.47.54.58.66.67.68.71.73.84.86 | 14 | 0 | .. .. .. .. .. .. .. .. .. .. .. .. .. .. 67 .. .. .. .. .. | Estratto |
2 | 3.8.13.14.18.22.25.36.37.42.43.44.48.49.52.55.56.57.63.65.77.78.79.83.88.90 | 26 | 0 | .. .. .. .. .. .. .. .. 42 .. .. .. .. 63 .. .. .. .. .. .. | Ambo |
3 | 1.2.15.16.17.20.26.27.31.32.40.45.46.51.53.60.61.69.70.74.89 | 21 | 0 | .. .. .. 17 .. .. .. .. .. 51 .. 60 .. .. .. 74 .. .. .. 89 | Cinquina |
4 | 5.6.10.11.12.23.28.33.35.38.85.87 | 12 | 0 | .. 11 12 .. .. .. 33 35 .. .. .. .. .. .. .. .. .. 85 87 .. | Sestina |
5 | 9.21.29.62.82 | 5 | 0 | .. .. .. .. 21 29 .. .. .. .. .. .. 62 .. .. .. .. .. .. .. | Terno |
6 | 7.59.81 | 3 | 0 | 07 .. .. .. .. .. .. .. .. .. 59 .. .. .. .. .. 81 .. .. .. | Terno |