qualcuno di voi si intende di numeri spia per il 10 e lotto ?

[mar]

ciao a tutto il gruppo, cerco consigli su come trovare numeri spia per 10 e lotto . qualcuno mi può aiutare? grazie

 

[Membro cancellato 16574]

Buongiorno ,
Qui nel forum , nella sezione Download ,
trovera' i listati , sui numeri spia per il 10elotto.
Questo e' un esempio , compilato da LuigiB.
Da usare con il programma spaziometria di LuigiB .

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,IncrRitMax,RetFreq
Dim Tipoarchivio
Tipoarchivio = ScegliArchivioDL
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
Inizio = EstrazioniArchivioDL - 5000
Fine = EstrazioniArchivioDL
For k = Inizio To Fine
For e = 01 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr = k + c
For ee = 01 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 01
Next
Next
Next
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next
ReDim aTitoli(07)
aTitoli(01) = "Numero Spia"
aTitoli(02) = "Numero Piu Freq"
aTitoli(03) = "Uscite"
aTitoli(04) = "Ritardo"
aTitoli(05) = "RitardoMax"
aTitoli(06) = "Frequenza"
aTitoli(07) = "IncrRitMax"
Call InitTabella(aTitoli)
For nBase = 01 To 90
ReDim aValori(07)
aValori(01) = nBase
aValori(02) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
aValori(03) = nUscite
ReDim aN(01)
aN(01) = aValori(02)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,IncrRitMax,RetFreq,Inizio,Fine)
aValori(04) = RetRit
aValori(05) = RetRitMax
aValori(06) = RetFreq
aValori(07) = IncrRitMax
Call AddRigaTabella(aValori)
Next
Call CreaTabellaOrdinabile
End If
End Sub
Function ScegliArchivioDL()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01
End Function
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)
Dim k
ReDim aOrd(90,02)
For k = 01 To 90
aOrd(k,01) = k
aOrd(k,02) = aPresenze(nBase,k)
Next
Call OrdinaMatriceTurbo(aOrd,- 01,02)
GetNumeroPiuFreq = aOrd(01,01)
nUscite = aOrd(01,02)
End Function

 

[cavaleri]

Buongiorno ,
Qui nel forum , nella sezione Download ,
trovera' i listati , sui numeri spia per il 10elotto.
Questo e' un esempio , compilato da LuigiB.
Da usare con il programma spaziometria di LuigiB .

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,IncrRitMax,RetFreq
Dim Tipoarchivio
Tipoarchivio = ScegliArchivioDL
If Tipoarchivio > 00 Then
If Tipoarchivio = 02 Then
If MsgBox("Vuoi aggiornare le estrazioni prima di eseguire il listato",vbQuestion + vbYesNo) = vbYes Then
Call AggiornaArchivioDL
End If
End If
Call ImpostaArchivio10ELotto(Tipoarchivio)
EntroColpi = CInt(InputBox("Entro quanti colpi ?","Colpi",1))
Inizio = EstrazioniArchivioDL - 5000
Fine = EstrazioniArchivioDL
For k = Inizio To Fine
For e = 01 To 20
nBase = EstrattoDL(k,e)
For c = 1 To EntroColpi
idEstr = k + c
For ee = 01 To 20
nUscito = EstrattoDL(idEstr,ee)
aPresenze(nBase,nUscito) = aPresenze(nBase,nUscito) + 01
Next
Next
Next
Call AvanzamentoElab(Inizio,Fine,k)
If ScriptInterrotto Then Exit For
Next
ReDim aTitoli(07)
aTitoli(01) = "Numero Spia"
aTitoli(02) = "Numero Piu Freq"
aTitoli(03) = "Uscite"
aTitoli(04) = "Ritardo"
aTitoli(05) = "RitardoMax"
aTitoli(06) = "Frequenza"
aTitoli(07) = "IncrRitMax"
Call InitTabella(aTitoli)
For nBase = 01 To 90
ReDim aValori(07)
aValori(01) = nBase
aValori(02) = GetNumeroPiuFreq(nBase,aPresenze,nUscite)
aValori(03) = nUscite
ReDim aN(01)
aN(01) = aValori(02)
Call StatisticaFormazioneDL(aN,1,RetRit,RetRitMax,IncrRitMax,RetFreq,Inizio,Fine)
aValori(04) = RetRit
aValori(05) = RetRitMax
aValori(06) = RetFreq
aValori(07) = IncrRitMax
Call AddRigaTabella(aValori)
Next
Call CreaTabellaOrdinabile
End If
End Sub
Function ScegliArchivioDL()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivioDL = ScegliOpzioneMenu(aVoci,00,"Scegli archivio 10eLotto") + 01
End Function
Function GetNumeroPiuFreq(nBase,aPresenze,nUscite)
Dim k
ReDim aOrd(90,02)
For k = 01 To 90
aOrd(k,01) = k
aOrd(k,02) = aPresenze(nBase,k)
Next
Call OrdinaMatriceTurbo(aOrd,- 01,02)
GetNumeroPiuFreq = aOrd(01,01)
nUscite = aOrd(01,02)
End Function

Si potrebbe avere il listato per L8+?
Grazie.