AIUTO , SE POTETE, AGGIORNAMENTO 10ELOTTO5MIN

[Y10]

Ciao Carmine io non ti posso aiutare , per me è arabo, ma ti ringrazio per il tempo e l'impegno che ci stai mettendo, spero tanto che tu arrivi presto alla conclusione di questo plug in che in tanti aspettiamo.

 

[LuigiB]

ciao Moro , cosi va qasi bene .. io piu che numEstrazione avrei testrato se il primo dei 20 numeri dell'estrazione fose diverso da 0 ma diciamo che potrebbe andare anche cosi.
Tuttavia se quella funzione la lanci non ti torna nessun valore perche hai scordato di assegnarglielo.

function sommaNumeri (numA as integer , numB as integer) as long
dim Risultato as long

risultato = NumA + NumB

sommaNumeri = Risultato
end function

 

[Moro_80]

E' vero Luigi, in questo modo non mi da nessun risultato perchè non lo ho assegnato...

Potrebbe bastare aggiungere il valore di ritorno da ottenere....quindi fare:

Function TestPerLuigi(aNumeroEstrazioni() as STRUCT_ESTRAZIONE_10LOTTO) as Integer  'Dichiaro una funzione che mi torni un tipo dati Integer

Dim EstrazioniValide as integer 'Dichiaro la variabile  come Integer
Dim k as Long 'Dichiaro la variabile come long
Dim nTrovate as Integer 'Dichiaro la variabile  come Integer

EstrazioniValide = 0 'Per default parto da 0

For k = 1 to UBound(aNumeroEstrazioni) 'Ciclo l'array fino al suo massimo valore
        If aNumeroEstrazioni(k).strctData.nNumEstrazione <> 0 then 'Se il numero estrazione è diverso da 0
        nTrovate = nTrovate + 1  ' incremento la variabile con numeri estrazioni "valide" trovate
        End If 'Fine ciclo
Next 'Continua

EstrazioniValide = nTrovate  'La variabile assume il valore di nTrovate

[COLOR="#FF0000"][B]TestPerLuigi = EstrazioniValide[/B][/COLOR]

End Function

Giusto ?

 

[LuigiB]

ecco , dicevi che questo di vedere quante estrazioni c'erano era un tuo problema .. ora sembra risolto ..

 

[Moro_80]

Ciao Luigi,

si hai ragione, SEMBRA risolto...

Ora verifico quante ce ne sono e vedo se son 288 o meno, ma come faccio a far inserire le fittizie tutte a "0" ??

Ho fatto delle prove ma mi torna che tutte le estrazioni di quel giorno vengono inserite in bianco..diciamo.


Era troppo bello se bastava quella function e basta...

 

[LuigiB]

se non vedo le prove non posso sapere gli errori che hai fatto..
si fa nello stesso modo con cui si inseriscono le estrazioni normali...
solo che mentre con le estrazioni valide copi i numeri estratti dentro l'array che passerai a SalvaEstrazioniDl
nel caso di estrazioni fittizie in questo array valorizzi tutti i numeri a 0

 

[Moro_80]

Ciao Luigi,
una delle prove che ho fatto è questa, per il momento ho fatto un test solo per le estrazioni della data successiva all'odierna:

Private Sub SalvaEstrazioni(aEstr() As STRUCT_ESTRAZIONE_10LOTTO, sDataUltimaEstrArchivio As String, sDataCorrente As String, NumEstr As Long, nTotInsert As Long)
    Dim k As Long
    Dim n As Long
    Dim i As Long
    Dim sFile As String
    Dim sData As String
    Dim nNumEst As Integer
    sFile = GetDirectoryAppData & "BaseDati10Elotto5M.Dat"    ' Setto il path del percorso dove andare a scrivere le estrazioni
    ReDim aNumeri(0)    ' Ridimensiono l'array aNumeri a 0 elementi
    [B]ReDim aNumeriBlank(0)    ' Ridimensiono l'array aNumeri a 0 elementi[/B]
    If sDataUltimaEstrArchivio = sDataCorrente Then    ' Se l'ultima data rilevata in archivio è uguale alla data odierna
        For k = 1 To UBound(aEstr) ' Cicla l'array aEstr da 1 a quante estrazioni legge nella pagina html
            If aEstr(k).strctData.nNumEstrazione > NumEstr Then ' Se il numero estrazione della pagina html scaricata è maggiore dell'ultimo in archivio
            Call LeggiNumeriEstrazioni(aEstr(k), aNumeri)    ' Richiamo la funzione LeggiNumeriEstrazioni
            LblNumEstr.Caption = k ' Valorizzo la label Numero Estrazione che scorre man mano che vengono viste estrazioni
            LblOraEstr.Caption = GetOraEstrazione(k) ' Mostro l'ora dell'estrazione tramite la function GetoraEstrazione
            nTotInsert = nTotInsert + 1
            LblTotEstrAggiunte.Caption = Format(nTotInsert, "###,###")
            DoEvents
            Call SalvaEstrazioneDL(aNumeri, sDataCorrente, aEstr(k).strctData.nNumEstrazione, sFile) ' Richiamo la procedura che salva le estrazioni
            End If
        Next
    Else
        For k = 1 To UBound(aEstr) ' Cicla l'array aEstr da 1 a quante estrazioni legge nella pagina html
            Call LeggiNumeriEstrazioni(aEstr(k), aNumeri)    ' Richiamo la funzione LeggiNumeriEstrazioni
            LblNumEstr.Caption = k ' Valorizzo la label Numero Estrazione che scorre man mano che vengono viste estrazioni
            LblOraEstr.Caption = GetOraEstrazione(k) ' Mostro l'ora dell'estrazione tramite la function GetoraEstrazione
            nTotInsert = nTotInsert + 1
            LblTotEstrAggiunte.Caption = Format(nTotInsert, "###,###")
            DoEvents
                [B]If VerificaEstrazioni(aEstr) = 288 Then
                Call SalvaEstrazioneDL(aNumeri, sDataCorrente, aEstr(k).strctData.nNumEstrazione, sFile) ' Richiamo la procedura che salva le estrazioni
                Else
                Dim MinFittizie
                Dim MaxFittizie
                MinFittizie = UBound(aEstr)
                MaxFittizie = 287
                Dim l As Long
                For l = MinFittizie To MaxFittizie
                aEstr(k).strctData.nNumEstrazione = MinFittizie + 1
                Call NumeriEstrazioniaZero(aEstr(k), aNumeriBlank)
                Call SalvaEstrazioneDL(aNumeriBlank, sDataCorrente, aEstr(k).strctData.nNumEstrazione, sFile) ' Richiamo la procedura che salva le estrazioni
                Next
                End If[/B]
        Next
    End If
    
End Sub

Così facendo mi vengono aggiunte le estrazioni fino alla 288 ma il problema è che non solo aggiunge le mancanti a 0 ma addirittura quelle di tutta quella giornata...

Per le Function da richiamare invece ho scritto, per valorizzare l'array numeri quanto sotto:

Private Sub NumeriEstrazioniaZero(strctNum As STRUCT_ESTRAZIONE_10LOTTO, aNumeriBlank())
    Dim n As Long
    ReDim aNumeriBlank(20)    ' Ridimensiono l'array aNumeri a 20 elementi
    For n = 1 To 20    ' Cicla i numeri da 1 a 20
        aNumeriBlank(n) = "0"    ' Copio i 20 elementi dell'array (k) membro di aEstr dentro il nuovo array aNumeri"
    Next    ' Continua ciclo for
End Sub

La Function di verifica estrazioni e conteggio invece:

Private Function VerificaEstrazioni(aNumeroEstrazioni() As STRUCT_ESTRAZIONE_10LOTTO) As Integer  'Dichiaro una funzione che mi torni un tipo dati Integer

Dim EstrazioniValide As Integer 'Dichiaro la variabile  come Integer
Dim k As Long 'Dichiaro la variabile come long
Dim nTrovate As Integer 'Dichiaro la variabile  come Integer

EstrazioniValide = 0 'Per default parto da 0

For k = 1 To UBound(aNumeroEstrazioni) 'Ciclo l'array fino al suo massimo valore
        If aNumeroEstrazioni(k).strctData.nNumEstrazione <> 0 Then 'Se il numero estrazione è diverso da 0
        nTrovate = nTrovate + 1  ' incremento la variabile con numeri estrazioni "valide" trovate
        End If 'Fine ciclo
Next 'Continua

EstrazioniValide = nTrovate  'La variabile assume il valore di nTrovate

VerificaEstrazioni = EstrazioniValide

End Function

Immagino già l'arrabbiatura Tua nel trovare gli errori...

 

[LuigiB]

ciao , è sbagliatissimo

    For k = 1 To UBound(aEstr) ' Cicla l'array aEstr da 1 a quante estrazioni legge nella pagina html
            Call LeggiNumeriEstrazioni(aEstr(k), aNumeri)    ' Richiamo la funzione LeggiNumeriEstrazioni
            LblNumEstr.Caption = k ' Valorizzo la label Numero Estrazione che scorre man mano che vengono viste estrazioni
            LblOraEstr.Caption = GetOraEstrazione(k) ' Mostro l'ora dell'estrazione tramite la function GetoraEstrazione
            nTotInsert = nTotInsert + 1
            LblTotEstrAggiunte.Caption = Format(nTotInsert, "###,###")
            DoEvents
                If VerificaEstrazioni(aEstr) = 288 Then

tu fai un ciclo per leggere le ipotetiche 288 estrazioni
all'interno del ciclo secondo le intenzioni volevi salvare o la colonna reale o una fittizzia
solo che nel controllare l'estrazione ricontrolli l'intero array verificando se sono 288 ...
invece in questo caso devi verificare se quella singola estazione è valida o no .. non tutte le 288 ..

 

[Moro_80]

Ciao Luigi,
immaginavo che era sbagliato....e' vero va ricontrollato solo se la singola estrazione è valida o no.

Come fare? L'errore sta in quel "= 288" ???

Un piccolo aiutino please...

 

[LuigiB]

come come fare ? si prende l'elemento k di aEstr e si controlla se almeno il primo dei 20 numeri estratti è divers da 0 .. se è diverso probabilmente l'estrazione è valida senno no

 

[Moro_80]

Luigi, perdonami tanto...ma non mi è ancora chiarissimo sai.

Comunque non voglio farti imbestialire in questa giornata di festività..

 

[LuigiB]

tu hai un array
contiene teoricamente 288 estrazioni
di queste forse qaulcuna non è valida
tu devi verificare quale non è valida
se è valida la salvi
se non è valida ne salvi una fittizia
se alla fine della giornata mancano delle estrazioni pure quelle le metti fittizie

se non ti è chiaro lascia stare tutti sti controlli e salva le estrazioni cosi come sono

 

[Moro_80]

Ciao Luigi,
intanto grazie per la risposta...Allora il concetto mi è chiarissimo, anche il discorso che fai dell'estrazione "forse" non valida e o mancante.

Per il controllo dell'estrazione se valida o meno avevi già postato un esempio qualche post fa...e potrei riprendere quello. Il mio problema è il salvataggio delle fittizie...

Proprio questo è una difficoltoso per me ovviamente, come fare i SalvaEstrazioneDL delle fittizie???


Posso anche lasciar stare tutto come dici Tu, solo che se non ne inserisce alcune..non so perchè ma al successivo tentativo di aggiornamento non vengono lette in modo corretto dal plugin ed il tutto...si "incasina" ecco perchè sto insistendo nel riuscire nell'impresa.....FORSE.

 

[LuigiB]

ecco come fare , questo piccolo pezzetto di codice salva un'estrazione senza numeri e gli assegna il numero 100 , l'estrazione viene inserita alla fine del file diei dati

Sub Main
	ReDim aNumeri (20)
	Dim k 
	Dim sfile 
	
	sfile = GetDirectoryAppData & "BaseDati10Elotto5M.Dat"
	
	For k = 1 To 20
		aNumeri (k)=0
	Next
	
	Call SalvaEstrazioneDL ( aNumeri , "03/06/2014", 100 , sfile )

End Sub

 

[Moro_80]

Ciao Luigi,
una domanda tecnica :

come mai pur assegnando il valore alla variabile aNumeri(k) = 0, poi fisicamente in archivio vengono viste come "senza numeri" ??

Non dovrei ritrovarmi l'estrazione in questo formato?

03/06/2014 100 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

Invece in archivio mi ritrovo:

03/06/2014 100 "vuoto tutto a null"

E' per pura mia conoscenza saperlo, nient'altro.



Grazie!

 

[LuigiB]

non ho capito che intendi . dov'è che ti da quel valore ?

 

[Moro_80]

In spaziometria, guardando nell'elenco estrazioni vedo che vengono valorizzate come "null" o "niente" e non tutte con degli 0...come mai?

Inoltre, perchè pur mettendo la data corretta ed il numero estrazione corretto, vengono aggiunte alla fine??

Non so se mi sono spiegato...

 

[LuigiB]

perche se non passi l'ultimo parametro le aggiunge alla fine , invece se nell'ultimo parametro specifichi l'id dell'estrazione
la scrive e ricopre quella preesistente. (l'id è quel numero che va da 1 a N dove n sono le estrazioni totali presenti)
Il fatto che nelle varie liste le colonne si vedano a 0 dipende dal comportamento che ho scelto io per spaziometria,
mostrare 20 0 o solo 0 è una mia scelta

 

[Moro_80]

Perfetto Luigi, ora è molto più chiaro il tutto.

Diciamo che l'id estrazione anche se non passato come parametro viene incrementato in automatico quindi aggiunta alla fine in coda, ma non credo sia un problema per gestire l'aggiornamento.

 

[Moro_80]

Ciao Luigi,
tornando al codice io ho fatto per ora quanto segue :

 If VerificaEstrazioniValide(aEstr) Then
                Call SalvaEstrazioneDL(aNumeri, sDataCorrente, aEstr(k).strctData.nNumEstrazione, sFile) ' Richiamo la procedura che salva le estrazioni
                Else
                ' Come faccio a dirgli metti solo le mancanti a 0 non tutta la giornata??? <----Qui mi incasino!
                Call NumeriEstrazioniVuote(aEstr(k), aNumeri)
                Call SalvaEstrazioneDL(aNumeri, sDataCorrente, aEstr(k).strctData.nNumEstrazione + 1, sFile)
                End If

Con questo pezzo di codice vedo se l'estrazioni sono valide e le inserisco, altrimenti valorizzo a 0 tutto e devo inserire...ma come inserire solo le mancanti???

La function chiamata contiene:

Private Function VerificaEstrazioniValide(aNumEstr() As STRUCT_ESTRAZIONE_10LOTTO) As Long

Dim bRet As Boolean
Dim k As Long

bRet = True ' per default il ritornno della funzione è True

For k = 1 To UBound(aNumEstr)
    If aNumEstr(k).strctData.nNumEstrazione = 0 Then
    bRet = False
    Exit For
    End If
Next
    VerificaEstrazioniValide = bRet
End Function

E questa per valorizzare tutto a 0:

Private Function NumeriEstrazioniVuote(strctNum As STRUCT_ESTRAZIONE_10LOTTO, aNumeri())
    Dim n As Long
    ReDim aNumeri(20)    ' Ridimensiono l'array aNumeri a 20 elementi
    For n = 1 To 20    ' Cicla i numeri da 1 a 20
        aNumeri(n) = 0    ' Copio i 20 elementi dell'array (k) membro di aEstr dentro il nuovo array aNumeri
    Next    ' Continua ciclo for
End Function

Non ne esco proprio....