Per Luigi

[solare]

Ciao Luigi, volevo chiederti sempre che che si possa modificare questo listato attualmente è per il 10elotto modificarlo per 10elotto ogni 5 minuti.
Ciao e grazie
OptionExplicit
SubMain
DimInizio,Fine,idEstr
Dimk,EntroColpi,e,ee,c
DimnBase,nUscito
DimnUscite
ReDimaPresenze(90,90)
DimRetRit,RetRitMax,RetFreq
CallImpostaArchivio10ELotto(1)
EntroColpi=CInt(InputBox("Entro quanti colpi ?","Colpi",1))
Inizio=EstrazioneIni
Fine=EstrazioneFin
Fork=InizioToFine
Fore= 1 To 20
nBase=EstrattoDL(k,e)
Forc= 1 ToEntroColpi
idEstr=k+c
Foree= 1 To 20
nUscito=EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) =aPresenze(nBase,nUscito) + 1
Next
Next
Next
CallAvanzamentoElab(Inizio,Fine,k)
IfScriptInterrottoThenExitFor
Next
ReDimaTitoli(6)
aTitoli(1) = "Numero Spia"
aTitoli(2) = "Numero Piu Freq"
aTitoli(3) = "Uscite"
aTitoli(4) = "Ritardo"
aTitoli(5) = "RitardoMax"
aTitoli(6) = "Frequenza"
CallInitTabella(aTitoli)
FornBase= 1 To 90
ReDimaValori(6)
aValori(1) =nBase
aValori(2) =GetNumeroPiuFreq(nBase,aPresenze,nUscite)
aValori(3) =nUscite
ReDimaN(1)
aN(1) =aValori(2)
CallStatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
aValori(4) =RetRit
aValori(5) =RetRitMax
aValori(6) =RetFreq
CallAddRigaTabella(aValori)
Next
CallCreaTabella
EndSub
FunctionGetNumeroPiuFreq(nBase,aPresenze,nUscite)

Dimk
ReDimaOrd(90,2)
Fork= 1 To 90
aOrd(k,1) =k
aOrd(k,2) =aPresenze(nBase,k)
Next
CallOrdinaMatrice(aOrd,- 1,2)
GetNumeroPiuFreq=aOrd(1,1)
nUscite=aOrd(1,2)
EndFunction

 

[keeper]

se non erro dovresti impostare così l'archivio
Call ImpostaArchivio10ELotto(1) in Call ImpostaArchivio10ELotto(2)

 

[keeper]

poi postalo così con la formattazione
Option Explicit
Sub Main
Dim Inizio,Fine,idEstr
Dim k,EntroColpi,e,ee,c
Dim nBase,nUscito
Dim nUscite
ReDim aPresenze(90,90)
Dim RetRit,RetRitMax,RetFreq
Call ImpostaArchivio10ELotto(2)
EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
Inizio = EstrazioneIni
Fine = EstrazioneFin
For k = Inizio To Fine
For e = 1 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr = k + c
For ee = 1 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 1
Next
Next
Next
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next
ReDim aTitoli(6)
aTitoli(1) = "Numero Spia"
aTitoli(2) = "Numero Piu Freq"
aTitoli(3) = "Uscite"
aTitoli(4) = "Ritardo"
aTitoli(5) = "RitardoMax"
aTitoli(6) = "Frequenza"
Call InitTabella(aTitoli)
For nBase = 1 To 90
ReDim aValori(6)
aValori(1) = nBase
aValori(2) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
aValori(3) = nUscite
ReDim aN(1)
aN(1) = aValori(2)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)
aValori(4) = RetRit
aValori(5) = RetRitMax
aValori(6) = RetFreq
Call AddRigaTabella(aValori)
Next
Call CreaTabella
End Sub
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)
Dim k
ReDim aOrd(90,2)
For k = 1 To 90
aOrd(k,1) = k
aOrd(k,2) = aPresenze(nBase,k)
Next
Call OrdinaMatrice(aOrd,- 1,2)
GetNumeroPiuFreq = aOrd(1,1)
nUscite = aOrd(1,2)
End Function

 

[solare]

Grazie keeper ma così non funziona

 

[Mike58]

Nello script di Keeper da una lettura veloce sono errate 3 righe

Inizio = EstrazioneIni
Fine = EstrazioneFin

e la 3à che risulta staccata nel codice retfreq

Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,Ret Freq,Inizio,Fine)

io le ho corrette con

Inizio=EstrazioniArchivioDL- 5000
Fine=EstrazioniArchivioDL
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,0,RetFreq,Inizio,Fine)

 

[keeper]

si così funziona meglio ma dipende sempre dalla formattazione di quanto si posta lo script a me funzionava

 

[solare]

OK perfetto Grazie