Domanda x luigi

[i legend]

Ciao luigi apro un post nuovo
Per una domanda nuova

Ho cominciato a vedere con i ragazzi i file di test con le relative funzioni
Ho visto che statisticaformazioneturbo include l array pos.
Se volessi analizzare un file di testo c.è qualcosa di analogo?
Praticamente devo passare l array numeri in una singola pos w trovare rit e Freq ecc.
Grazie e ti faccio gli auguri anche qui.
Ciao

 

[LuigiB]

ciao legend per i file di testo le funzioni turbo non ci sono , si puo usare la classe esterna clsHSS
, se l'array delle posizioni è gestito (non mi ricordo) dovrebbe funzionare..

buon Natale !

 

[Membro cancellato 16574]

Buonanotte ,
Rinnovando gli auguri.
Postiamo un listato , da migliorare sulle posizioni, da cui i legend puo' trarre degli spunti , per i suoi studi.
Facendo notare a Luigi , che la classe esterna clsHSS , non funziona sulle posizioni.

Option Explicit
Dim clsHSS
Sub Main
    Dim Ini,Fin,Tot
    Dim sRecord
    Dim k
    Dim sFileArchivio
    sFileArchivio = GetDirectoryAppData & "Archivio LottoUK\Lotto UK 49's.txt"
    If ApriBaseDatiFT(sFileArchivio,07,",",49) Then
        Set clsHSS = CreateObject("HSS.ClsHighSpeedStat")
        Call clsHSS.Init(sFileArchivio,09,",",07)
        Ini = 2939' PER RICERCHE SU POSIZIONI
        Fin = EstrazioniArchivioFT
        Tot = Fin - Ini
        Scrivi " Statistica dal " & DataEstrazioneFT(Ini) & " al " & DataEstrazioneFT(Fin) & " ",1,0,6
        Scrivi" ****** Per Lotto UK 49 ******** ",1,0,3
        Scrivi " totali estrazioni " & Format2(Tot) & " ",1,- 1,4
        Scrivi
        sRecord = "L'archivio letto va da " & DataEstrazioneFT(Ini) & " a " & DataEstrazioneFT(Fin) & Format2(vbCrLf)
        sRecord = sRecord & "si compone di " & Format2(Tot) & " estrazioni " & Format2(vbCrLf)
        sRecord = sRecord & "di seguito la lista dei Ritardo e la Frequenza Attuale e per Posizione " & Format2(vbCrLf)
        Call Scrivi(sRecord)
        ReDim aTitoli(17)
        aTitoli(01) = " Numero "
        aTitoli(02) = " Rit. Attuale "
        aTitoli(03) = " Rit. 1 pos. "
        aTitoli(04) = " Rit. 2 pos. "
        aTitoli(05) = " Rit. 3 pos. "
        aTitoli(06) = " Rit. 4 pos. "
        aTitoli(07) = " Rit. 5 pos. "
        aTitoli(08) = " Rit. 6 pos. "
        aTitoli(09) = " Rit. JOLLY "
        aTitoli(10) = " Freq. Attuale "
        aTitoli(11) = " Freq. 1 pos. "
        aTitoli(12) = " Freq. 2 pos. "
        aTitoli(13) = " Freq. 3 pos. "
        aTitoli(14) = " Freq. 4 pos. "
        aTitoli(15) = " Freq. 5 pos. "
        aTitoli(16) = " Freq. 6 pos. "
        aTitoli(17) = " Freq. JOLLY "
        Call InitTabella(aTitoli,2,,,5)
        ReDim aPos01(07),aPos02(07),aPos03(07),aPos04(07),aPos05(07),aPos06(07),aPos07(07)
        aPos01(01) = True
        aPos02(02) = True
        aPos03(03) = True
        aPos04(04) = True
        aPos05(05) = True
        aPos06(06) = True
        aPos07(07) = True
        For k = 01 To 49
            Call Messaggio(k)
            Call AvanzamentoElab(01,49,k)
            ReDim aValori(17)
            aValori(01) = Format2(k)
            aValori(02) = clsHSS.EstrattoRitardoFT(k,Ini,Fin)
            aValori(03) = EstrattoRitardoFT(k,Ini,Fin,aPos01)'clsHSS.EstrattoRitardoFT(k,Ini,Fin,aPos01)'NON FUNZIONANO
            aValori(04) = EstrattoRitardoFT(k,Ini,Fin,aPos02)'clsHSS.EstrattoRitardoFT(k,Ini,Fin,aPos02)'NON FUNZIONANO
            aValori(05) = EstrattoRitardoFT(k,Ini,Fin,aPos03)'clsHSS.EstrattoRitardoFT(k,Ini,Fin,aPos03)'NON FUNZIONANO
            aValori(06) = EstrattoRitardoFT(k,Ini,Fin,aPos04)'clsHSS.EstrattoRitardoFT(k,Ini,Fin,aPos04)'NON FUNZIONANO
            aValori(07) = EstrattoRitardoFT(k,Ini,Fin,aPos05)'clsHSS.EstrattoRitardoFT(k,Ini,Fin,aPos05)'NON FUNZIONANO
            aValori(08) = EstrattoRitardoFT(k,Ini,Fin,aPos06)'clsHSS.EstrattoRitardoFT(k,Ini,Fin,aPos06)'NON FUNZIONANO
            aValori(09) = EstrattoRitardoFT(k,Ini,Fin,aPos07)'clsHSS.EstrattoRitardoFT(k,Ini,Fin,aPos07)'NON FUNZIONANO
            aValori(10) = clsHSS.EstrattoFrequenzaFT(k,Ini,Fin)
            aValori(11) = EstrattoFrequenzaFT(k,Ini,Fin,aPos01)' clsHSS.EstrattoFrequenzaFT(k,Ini,Fin,aPos01)'NON FUNZIONANO
            aValori(12) = EstrattoFrequenzaFT(k,Ini,Fin,aPos02)' clsHSS.EstrattoFrequenzaFT(k,Ini,Fin,aPos02)'NON FUNZIONANO
            aValori(13) = EstrattoFrequenzaFT(k,Ini,Fin,aPos03)' clsHSS.EstrattoFrequenzaFT(k,Ini,Fin,aPos03)'NON FUNZIONANO
            aValori(14) = EstrattoFrequenzaFT(k,Ini,Fin,aPos04)' clsHSS.EstrattoFrequenzaFT(k,Ini,Fin,aPos04)'NON FUNZIONANO
            aValori(15) = EstrattoFrequenzaFT(k,Ini,Fin,aPos05)' clsHSS.EstrattoFrequenzaFT(k,Ini,Fin,aPos05)'NON FUNZIONANO
            aValori(16) = EstrattoFrequenzaFT(k,Ini,Fin,aPos06)' clsHSS.EstrattoFrequenzaFT(k,Ini,Fin,aPos06)'NON FUNZIONANO
            aValori(17) = EstrattoFrequenzaFT(k,Ini,Fin,aPos07)' clsHSS.EstrattoFrequenzaFT(k,Ini,Fin,aPos07)'NON FUNZIONANO
            Call AddRigaTabella(aValori)
            If k = 01 Or k = 08 Or k = 15 Or k = 22 Or k = 29 Or k = 36 Or k = 43 Then Call(SetColoreCella(01,RGB(0,255,0))):End If 'Colore Verde
            If k = 02 Or k = 09 Or k = 16 Or k = 23 Or k = 30 Or k = 37 Or k = 44 Then Call(SetColoreCella(01,RGB(255,0,0))):End If 'Colore Rosso
            If k = 03 Or k = 10 Or k = 17 Or k = 24 Or k = 31 Or k = 38 Or k = 45 Then Call(SetColoreCella(01,RGB(255,147,56))):End If 'Colore Arakcione
            If k = 04 Or k = 11 Or k = 18 Or k = 25 Or k = 32 Or k = 39 Or k = 46 Then Call(SetColoreCella(01,RGB(255,255,0))):End If 'Colore Giallo
            If k = 05 Or k = 12 Or k = 19 Or k = 26 Or k = 33 Or k = 40 Or k = 47 Then Call(SetColoreCella(01,RGB(210,105,30))):End If 'Colore Marrone
            If k = 06 Or k = 13 Or k = 20 Or k = 27 Or k = 34 Or k = 41 Or k = 48 Then Call(SetColoreCella(01,RGB(238,130,238))):End If 'Colore Viola
            If k = 07 Or k = 14 Or k = 21 Or k = 28 Or k = 35 Or k = 42 Or k = 49 Then Call(SetColoreCella(01,RGB(30,144,255))):End If 'Colore Blu
        Next
        Call CreaTabellaOrdinabile
    End If
End Sub

 

[i legend]

Ciao magia grazie se vai nel altro post ho già fatto il listato sulle pos determinate.
Con statistica formazione turbo si ottiene lo stesso risultato con pochissime righe di codice.
Appena finisco il nuovo listato lo posto sono a 5 routine.
Mi mancano i colori e gestire con un codice bello il numero jolly.
Non è la velocità ma il parametro che non cè .
È come la vecchia funzione.
Buon batale