X Joe o chi è capace

[solare]

Ciao, volevo chiederti se possibile modificare questo tuo listato
oltre a dare i numeri mai sortiti in tot estrazioni
se puo' mostrare anche quelli sortiti maggiormente nello stesso periodo analizzato

Sub Main
Dim Nu(1),tipoarchivio
tipoarchivio = ScegliArchivio
Call ImpostaArchivio10ELotto(tipoarchivio)
Fin = EstrazioniArchivioDL
q = CInt(InputBox("Quante Estrazioni ?","RITARDO MINIMO",9)) - 1
Ini = Fin - q
Scrivi "10eLotto Ritardatari (By Joe)",1 :Scrivi
Scrivi q + 1 & " Estrazioni dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin),1 :Scrivi
Scrivi "NUMERI NON ESTRATTI : ",1,0
For N = 1 To 90 : Nu(1) = N
If SerieFreqDL(Ini,Fin,Nu,1) = 0 Then Scrivi Format2(N) & " ",1,0
Next
End Sub
Function ScegliArchivio()
ReDim aVoci(1)
aVoci(0) = "10 e lotto"
aVoci(1) = "10 e lotto 5 min"
ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Secegli aechivio") + 1
End Function

 

[joe]

Ciao Solare.

Quello script non è mio o perlomeno ad esso,

sono state fatte modifiche da altri.

Non garantisco che quanto è mio, o è di altri, funzioni.

Per prova ti propongo:

Sub Main
Dim Nu(1),tipoarchivio
tipoarchivio = ScegliArchivio
Call ImpostaArchivio10ELotto(tipoarchivio)
Fin = EstrazioniArchivioDL
q = CInt(InputBox("Quante Estrazioni ?","RITARDO MINIMO",9)) - 1
Ini = Fin - q
Scrivi "10eLotto Ritardatari (By Joe)",1 :Scrivi
Scrivi q + 1 & " Estrazioni dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin),1 :Scrivi
Scrivi "NUMERI NON ESTRATTI : ",1,0
For N = 1 To 90 : Nu(1) = N
If SerieFreqDL(Ini,Fin,Nu,1) = 0 Then Scrivi Format2(N) & " ",1,0
Next
ColoreTesto 2 : Scrivi : Scrivi : Scrivi "Frequenti >= 4 volte",1
For N = 1 To 90 : Nu(1) = N
If SerieFreqDL(Ini,Fin,Nu,1) >= 4 Then Scrivi Format2(N) & " ",1,0
Next
ColoreTesto 0
End Sub
Function ScegliArchivio()
ReDim aVoci(1)
aVoci(0) = "10 e lotto"
aVoci(1) = "10 e lotto 5 min"
ScegliArchivio = ScegliOpzioneMenu(aVoci,0,"Secegli Archivio") + 1
End Function

Auguri di Buona Pasqua a tutte/i.

 

[solare]

Ok grazie come sempre della tua disponibilità