Novità

PROGRAMMA SPAZIOMETRIA

  • Creatore Discussione Creatore Discussione LuigiB
  • Data di inizio Data di inizio
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



10_lotto.jpg10_lotto.jpg
 
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)
 
+------------------------------------------------------------------------------------------------+
| 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

10lotto5m.jpg
 

Allegati

  • 10lotto5m.jpg
    10lotto5m.jpg
    45,4 KB · Visite: 3
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
Codice:
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...




 
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

Codice:
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
 
Ultima modifica:
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 .
 
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

:)

Codice:
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
 
Ultima modifica:
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:)
 
ciao Joe , con la nuova versionei l problema si potra correggere cosi

Codice:
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
 
Ultima modifica di un moderatore:
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.
 
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.

 
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
 
Ultima modifica di un moderatore:
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.
 
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
 
Ultima modifica di un moderatore:
Boh spero che tu possa risolvere...non so se si e capito ma spazziometria mi ha rotto un attimino i coglioni
 
joe;n2172154 ha scritto:
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

:)

Codice:
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
Codice:
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

provaFunzione.png
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 04 luglio 2025
    Bari
    08
    45
    67
    28
    03
    Cagliari
    70
    57
    26
    88
    80
    Firenze
    83
    77
    22
    86
    67
    Genova
    04
    20
    78
    36
    47
    Milano
    12
    53
    34
    18
    57
    Napoli
    07
    19
    35
    75
    10
    Palermo
    06
    65
    11
    07
    23
    Roma
    01
    53
    48
    80
    46
    Torino
    30
    44
    71
    05
    21
    Venezia
    45
    67
    14
    44
    40
    Nazionale
    22
    27
    05
    18
    67
    Estrazione Simbolotto
    Nazionale
    12
    31
    32
    04
    44
Indietro
Alto