Sub Main
Dim aCol
ReDim aNum(0)
Call ImpostaArchivio10ELotto(1)
Fin = CInt(InputBox(" ultimo concorso ","fine analisi",EstrazioneFin))
nConc = CInt(InputBox(" nConc da analizzare ","",300))
capog = CInt(InputBox("Quale capogioco ",,90))
ScegliNumeri(aNum)
Scrivi StringaNumeri(aNum),1
Scrivi "CapoGioco Inserito : " & capog,1
Scrivi
Scrivi "Qtà.numeri : " & UBound(aNum)
IdClasse = scegliClasse
Scrivi "classe combinazione : " & NomeSorte(IdClasse)
Npunti = CInt(InputBox(" punti max richiesti : " & IdClasse,"",IdClasse))
Scrivi "Punti Minimi analizzati : " & Npunti
For k = 1 To UBound(aNum)
aNum(0) = capog
aNum(k) = aNum(k)
Next
Ncol = InitSviluppoIntegrale(aNum,IdClasse)
Idcol = 0
Call GetTesto'Tab
Do While GetCombSviluppo(aCol) = True
Snum = StringaNumeri(aCol,,True)
Idcol = Idcol + 1
Call Messaggio(snum)
Call AvanzamentoElab(1,ncol,idcol)
Call StatisticaFormazioneDL(aCol,Npunti,rit,RitMax,Incr,Freq,ini,fin)
sf = SerieFreqDL(fin - rit,fin - rit,aCol,1)
Call VerificaEsitoDL(aCol,fin - rit,npunti,1,,,estratti)
ReDim aTab(8)
Call getTabella(aTab,idcol,snum,rit,RitMax,Incr,Freq,estratti,sf)
If aCol(1) = capog Then
Call AddRigaTabella(aTab)
End If
If ScriptInterrotto Then Exit Do
Loop
Call CreaTabellaOrdinabile(3)
End Sub
Sub GetTesto
Dim aTitoli
aTitoli = Array(" "," id","formazione ","rit ","rit max ","incr","freq","Verifica Esito al Ritardo","Punti")
Call InitTabella(aTitoli)
'
'
End Sub
Sub getTabella(atab,idcol,snum,rit,RitMax,Incr,Freq,estratti,sf)
'
atab(1) = idcol
atab(2) = snum
atab(3) = rit
atab(4) = RitMax
atab(5) = Incr
atab(6) = Freq
atab(7) = estratti
atab(8) = sf
End Sub
Function scegliClasse
Dim k
Dim aNum(5)
For k = 1 To UBound(aNum)
aNum(k) = NomeSorte(k)
Next
scegliClasse = ScegliOpzioneMenu(aNum,2,"classe comb ")
End Function