Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
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