Option Explicit
Sub Main
Dim IniStart,FinEnd
Dim EstCo,Quant,Sorte,Colpi
Dim Ini,Fin,Es,Tot
Dim KN,KK,SF
Dim FasciaMin,FasciaMax,FasciaTmp,sRiga
Dim RetEsito,RetColpi,RetEstratti,RetIdEstr
Dim num(10)
Dim Tipoarchivio
Tipoarchivio = ScegliArchivio
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)
IniStart = Timer
EstCo = CInt(InputBox("QUANTE ESTRAZIONI CONROLLARE ? ",,100))
Quant = CInt(InputBox("QUAlE ESITO VUOI EVIDENZIARE ? ",,3))
Sorte = CInt(InputBox("QUALE SORTE VERIFICARE ?",,3))
Colpi = CInt(InputBox("QUANTI COLPI VERIFICARE ?",,1))
ScegliNumeri(num)
Fin = EstrazioniArchivioDL
Ini = Fin - EstCo
Tot = Fin - Ini
Scrivi " Statistica dal " & DataEstrazioneDL(Ini) & " al " & DataEstrazioneDL(Fin) & " ",1,0,6
If Tipoarchivio = 01 Then Scrivi " per il 10 e lotto Serale",1,0,3
If Tipoarchivio = 02 Then Scrivi " per il 10 e lotto 5minuti",1,0,3
Scrivi " Totale Estrazioni " & Format2(Tot),1,- 1,4
Scrivi
Scrivi " Verifica Esito dei Numeri..." & StringaNumeri(num,,True),3,3,3
Scrivi
Scrivi " Per la Sorte... " & NomeSorte(Sorte),4,4,4
Scrivi
ReDim atitoli(06)
atitoli(01) = " CASO "
atitoli(02) = " DATA ESTR. "
atitoli(03) = " ESTRATTI "
atitoli(04) = " ESITO "
atitoli(05) = " STRINGA ESITO"
atitoli(06) = " Q.Tà "
Call InitTabella(atitoli,1,,3,5)
FasciaMin = 001
FasciaMax = 288
For Es = Ini To Fin
Messaggio Es
AvanzamentoElab Ini,Fin,Es
KN = KN + 01
FasciaTmp = IndiceAnnualeDL(Es)
If FasciaTmp >= FasciaMin Then
If FasciaTmp <= FasciaMax Then
sRiga = GetInfoEstrazioneDL(Es)
Call VerificaEsitoDL(num,Es,Sorte,Colpi,RetEsito,RetColpi,RetEstratti,RetIdEstr)
SF = SerieFreqDL(Es,Es,num,01)
ReDim avalori(6)
avalori(01) = Format2(KN)
avalori(02) = sRiga
avalori(03) = StringaEstrattiDL(Es)
avalori(04) = RetEsito
avalori(05) = RetEstratti
avalori(06) = SF
Call AddRigaTabella(avalori,,,3)
If SF = Quant Then Call SetColoreCella(05,3,1):KK = KK + 01
FinEnd = Timer
End If
End If
Next
Call scegliTabella
Call Scrivi("Esiti evidenziati.... " & Format2(KK),1)
Call Scrivi
Call Scrivi("Aggiornato al " & GetInfoEstrazioneDL(Fin),1)
Call Scrivi
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((FinEnd + 01) - IniStart),1)
End If
End Sub
Function ScegliArchivio()
ReDim aVoci(01)
aVoci(00) = "10 e lotto Serale"
aVoci(01) = "10 e lotto 5minuti"
ScegliArchivio = ScegliOpzioneMenu(aVoci,00,"Secegli archivio") + 01
End Function
Function scegliTabella()
ReDim Voci(02)
Voci(01) = "Tabella Normale"
Voci(02) = "Tabella Ordinabile"
scegliTabella = ScegliOpzioneMenu(Voci,01,"seleziona tabella")
If scegliTabella = 01 Then Call CreaTabella(01)
If scegliTabella = 02 Then Call CreaTabellaOrdinabile(01)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
