PROGRAMMA SPAZIOMETRIA

[lotto69]

Ciao Luigi, troncando l'estrazione ora funziona, però rimane con sempre senze le ultime estrazioni

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Oro
--------------------------------------------------------------------------------------------------
05 06 14 27 30 31 41 42 46 51 53 54 56 61 64 67 71 72 79 83 06

+------------------------------------------------------------------------------------------------+
| venerdì, mag 10 2019 |
+---------------------------------------------000043---------------------------------------------+
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Oro
--------------------------------------------------------------------------------------------------
05 13 25 28 35 36 40 42 45 48 53 65 66 68 70 72 73 76 78 88 05

+------------------------------------------------------------------------------------------------+
| venerdì, mag 10 2019 |
+---------------------------------------------000044---------------------------------------------+
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Oro
--------------------------------------------------------------------------------------------------
03 09 15 19 22 25 26 27 29 35 36 53 56 57 58 68 72 75 76 90 68

+------------------------------------------------------------------------------------------------+
| venerdì, mag 10 2019 |
+---------------------------------------------000045---------------------------------------------+
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Oro
--------------------------------------------------------------------------------------------------
11 15 27 30 34 43 48 51 52 55 56 61 62 68 72 77 80 83 84 85 43

 

[LuigiB]

ciao ,devi troncare eliminando le precedenti non le successive ... ci credo che non vedi le ultime se hai fatto cosi ..(mi riferisco allo screen shot che hai postato)

 

[lotto69]

+------------------------------------------------------------------------------------------------+
| venerdì, mag 10 2019 |
+---------------------------------------------000042---------------------------------------------+
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Oro
--------------------------------------------------------------------------------------------------
05 06 14 27 30 31 41 42 46 51 53 54 56 61 64 67 71 72 79 83 06

+------------------------------------------------------------------------------------------------+
| venerdì, mag 10 2019 |
+---------------------------------------------000043---------------------------------------------+
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Oro
--------------------------------------------------------------------------------------------------
05 13 25 28 35 36 40 42 45 48 53 65 66 68 70 72 73 76 78 88 05

+------------------------------------------------------------------------------------------------+
| venerdì, mag 10 2019 |
+---------------------------------------------000044---------------------------------------------+
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Oro
--------------------------------------------------------------------------------------------------
03 09 15 19 22 25 26 27 29 35 36 53 56 57 58 68 72 75 76 90 68

+------------------------------------------------------------------------------------------------+
| venerdì, mag 10 2019 |
+---------------------------------------------000045---------------------------------------------+
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Oro
--------------------------------------------------------------------------------------------------
11 15 27 30 34 43 48 51 52 55 56 61 62 68 72 77 80 83 84 85 43

 

[lotto69]

Se osservi è come aggiornado l'estrazione nel database rimane quella vecchia senza le ultime 32 estrazioni

 

[LuigiB]

io ho fatto cosi dato che e le estrazioni di silop sono troppe.

1) da programma -- Apri directory dati e chiudere il programma
2) cancellato il file BaseDati10ELotto5M.dat
3) riaperto il programma ho fatto aggiornamento da web (non quello di silop) e ho preso gli ultimi 10 giorni di estrazioni
4)chiudo il programma e nella directory dati apro il file Spaziometria.Ini e vado a modificare queste 2 voci
RANGE_INIZIO_10ELOTTO5M=1
RANGE_FINE_10ELOTTO5M=300
salvo la modifica.
5) riapro il programma
6) faccio questo scrpt di test

Option Explicit
Sub Main
  Dim sRiga , k , i
  ImpostaArchivio10ELotto (2)
  For k = EstrazioniArchivioDL - 45 To EstrazioniArchivioDL
     sRiga = DataEstrazioneDL ( k) & " - "  & IndiceAnnualeDL( k) & " ---> "
     For i = 1 To 20
        sRiga = sRiga &  Format2 (EstrattoDL (k , i)) & "."
     Next
     Scrivi RimuoviLastChr( sRiga , "." )
  Next  
End Sub

ottengo questo ... per me è tutto ok...

 

[lotto69]

Grazie

 

[joe]

Ciao Luigi.

Ti disturbo per questo:

Gli array e gli estratti nei vettori li numeriamo da 1 ...

e così è per GetArraynumeriRuota

Quando tuttavia chiamiamo PuntiSuArray ...

per verificare la presenza di 1 numero

inteso come SOLO UN NUMERO nell'Array dei 5 Estratti, ...

... il risultato atteso dovrebbe essere o ZERO oppure 1.

come puoi facilmente verificare con questo semplice script ...

il risultato delle presenze del terzo estratto dell' ultima estrazione di Bari

per questa funzione ... è 2.

Non credo fosse così in passato ... per quando ricordo di aver usato e verificato queste istruzioni.

Quindi ti chiedo se devo adottare in futuro facili accortezze

come: Risultato- 1 / A(0)="" ed anche N(0)=99

oppure interverrai sulle istruzioni del programma.

Grazie

Option Explicit
Sub Main
  Dim Es,R,A,N(1)
  Es = EstrazioneFin : R = BA_
  GetArrayNumeriRuota Es,R,A
  N(1) = A(3)
  Scrivi PuntiSuArray (N,A)

End Sub

 

[i legend]

Ciao Joe hai provato a scrivere
puntisuarray(A,N)
Purtroppo non ho modo di verificare .
Ciao a tutti un grandissimo saluto a tutti gli amicissimi del forum .

 

[joe]

Ciao Ilegend si,

diciamo che normalmente non uso queste comode istruzioni,

e sinceramente mi stupisce anche ...

che chi le utilizza, per contro non si sia mai ritrovato risultati "strani".

Accettandoli.

Per me è semplicissimo dedurre ... sia che "A" contenga caratteri come stringa

(se assegno un valore numerico con A(0)=0 ottengo un errore per il tipo non corrispondente.)

e che il 6° risultato sia "attualmente conteggiato" sugli indici zeresimi di "A" e di "N".

Cioè A(0) = N(0) = True = 1

Pertanto 5 Estratti + 1 Zeresimo elemento = 6

Option Explicit
Sub Main
  Dim Es,R,A,N(5)
  Es = EstrazioneFin : R = BA_
  GetArrayNumeriRuota Es,R,A
  N(1) = A(1)
  N(2) = A(2)
  N(3) = A(3)
  N(4) = A(4)
  N(5) = A(5)
  Scrivi PuntiSuArray(A,N)
End Sub

 

[i legend]

Ciao Joe, non ho l ultima versione, non ho modo di verificare.

Purtroppo non aggiorno più neanche le estrazioni tanto il tempo è pochissimo.
spero di non dimenticare tutto quello che mi avete insegnato.
Buona domenica

 

[LuigiB]

ciao Joe , con la nuova versionei l problema si potra correggere cosi

Option Explicit
Sub Main
  Dim Es,R,A(5),N(5)
  Es = EstrazioneFin : R = BA_
  GetArrayNumeriRuota Es,R,A
  N(1) = A(1)
  N(2) = A(2)
  N(3) = A(3)
  N(4) = A(4)
  N(5) = A(5)
  Scrivi PuntiSuArray(A,N ,1)
  'oppure
  Scrivi PuntiSuArray(A,N ,1 ,5)
End Sub

 

[joe]

Ciao Luigi.

Buona giornata a tutte/i.

Non mi hai convinto, completamente, con la soluzione adottata,

perché essa "risolve" introducendo, la necessità di modificare i vecchi script.

Comunque la annovero tra le soluzioni e per questo ti ringrazio.

Non mi dilungo in complimenti per la competenza, pazienza ....

... che sai sono sempre sinceri ed inclusi.

Cordiali saluti.

 

[Beppignello]

con la versione 33​

ogni apertura di spaziometria va ​

corrotto l'archivio 10eLotto, ​

anche cancellandolo e ricreandolo, lo guardo tutto ok​

ma quando lancio uno script qualsiasi di lettura dell'archivio compare un errore.​

se vado a vedere o visualizzare l'archivio risulta un errore che ​

segnala senza nessuna estrazione.​

 

[LuigiB]

Seguire direttive post 1547

 

[Beppignello]

ciao

eseguito tutto come da specifiche #1547

tutto funziona bene fino a quando spaziometria rimane aperto.

quando chiudo e riapro la volta successiva, tutto ritorna da capo, non funzione e stesso errore.

vedere menu tendina 10elotto

 

[LuigiB]

A spaziometria chiuso fare quanto scritto a me ha funzionato. Il problema è dipeso dal fatto che le 600mila estrazioni del file di silop oltre a non servire a nulla sono troppe per essere gestite.

 

[Beppignello]

Luigi, a me del 10eLotto 5 minuti, non mi interessa

quello a cui sto evidenziando è relativo al 10 e lotto serale o classico o quello legato alle estrazioni del lotto

l'archivio del lotto va bene, ma del 10elotto serale , si corrompe di continuo.

mi viene fuori sempre quello specchietto sopra da me postato "380 invalid property value"

pensavo ad un problema di autorizzazioni, invece no, perchè le autorizzazione sono complete!

in range ini 10elotto c'è 3950
in range fine 10elotto c'è 9632

e mi sembrano corretti i dati, ma sta di fatto che succede sempre quando apro spaziometria
mentre quando eseguo l'aggiornamento dell'archivio ci sono, fino a nuova apertura

 

[LuigiB]

Boh spero che tu possa risolvere...non so se si e capito ma spazziometria mi ha rotto un attimino i coglioni

 

[i legend]

Ciao Ilegend si,

diciamo che normalmente non uso queste comode istruzioni,

e sinceramente mi stupisce anche ...

che chi le utilizza, per contro non si sia mai ritrovato risultati "strani".

Accettandoli.

Per me è semplicissimo dedurre ... sia che "A" contenga caratteri come stringa

(se assegno un valore numerico con A(0)=0 ottengo un errore per il tipo non corrispondente.)

e che il 6° risultato sia "attualmente conteggiato" sugli indici zeresimi di "A" e di "N".

Cioè A(0) = N(0) = True = 1

Pertanto 5 Estratti + 1 Zeresimo elemento = 6

Option Explicit
Sub Main
Dim Es,R,A,N(5)
Es = EstrazioneFin : R = BA_
GetArrayNumeriRuota Es,R,A
N(1) = A(1)
N(2) = A(2)
N(3) = A(3)
N(4) = A(4)
N(5) = A(5)
Scrivi PuntiSuArray(A,N)
End Sub

ciao Joe , utilizzo la versione 1.6.31
non riesco a replicare il tuo errore ,sicuramente non trovo riferimento alla tua estrazionefin
ti riporto uno script di esempio e relativo output
potresti fare riferimento piu specifico ? vorrei riuscire a replicare i tuoi risultati

Option Explicit
' test verifica funzione puntisuarray
Sub Main
   ReDim aE(0)
   Dim aN(5),aP(1),p,aCol(1)
   ' carico i numeri in un array
   Dim idestr,k:k = 0
   For idestr = EstrazioneFin - 1 To EstrazioneFin
      Scrivi "Estrazione esaminata:          " & GetInfoEstrazione(idestr)
      Scrivi "Ruota esaminata:               " & NomeRuota(1)
      Scrivi "stringaestratti:               " & StringaEstratti(idestr,1)
      Scrivi
      For p = 1 To 5
         aN(p) = Estratto(idestr,1,p)
      Next
      Scrivi "Estratti caricati:             " & StringaNumeri(aN,,True)
      Call GetArrayNumeriRuota(idestr,1,aE)
      Scrivi
      Scrivi "funzione GetArrayNumeriRuota : " & StringaNumeri(aE,,True)
      Scrivi
      Scrivi "Punti totali:                  " & PuntiSuArray(aE,aN)
      Scrivi String(55,"^")
      Scrivi "Selezione Singola |  Num  | Pos | Punti: "
      For p = 1 To 5
         aP(1) = Estratto(idestr,1,p)
         If PuntiSuArray(aE,aP) = 1 Then aCol(1) = vbBlue Else aCol(1) = vbRed
         Scrivi StringaNumeri(aE,,True) & "       " & Format2(aP(1)) & "     " & p & "      " & PuntiSuArray(aE,aP),,,,aCol(1)
      Next
      Scrivi String(55,"-")
   Next
End Sub

 

[i legend]

ciao Luigi Un grandissimo saluto
ciao a tutti