Novità

PROGRAMMA SPAZIOMETRIA

lotto69

Member
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
 
L

LuigiB

Guest
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

Member
+------------------------------------------------------------------------------------------------+
| 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
L

LuigiB

Guest
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...




 

joe

Advanced Member >PLATINUM PLUS<
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:

i legend

Premium Member
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

Advanced Member >PLATINUM PLUS<
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:

i legend

Premium Member
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:)
 
L

LuigiB

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

joe

Advanced Member >PLATINUM PLUS<
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.
 
B

Beppignello

Guest
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.

 
B

Beppignello

Guest
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:
L

LuigiB

Guest
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.
 
B

Beppignello

Guest
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:
L

LuigiB

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

i legend

Premium Member
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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto