Novità

Analisi archivio

E

Edoardo_95

Advanced Member
1771631360905.png

Buonasera a tutti. Se qualcuno può, ed ha tempo, potrebbe verificare il proprio archivio per vedere la corrispondenza dei suoi dati con i miei?

Per chi non fosse molto pratico di script ne allego uno semplicissimo scritto in un minuto .

Codice: 
Option Explicit
Sub Main
   Dim SommaTotaleEstratti
   Dim Estrazione,Ruota,Pos,RuotaDaScrivere
   Dim SommaNumeri()
   ReDim SommaNumeri(12)
   For Estrazione = EstrazioneIni To EstrazioneFin
      For Ruota = 1 To 11
         If Ruota = 11 Then
            Ruota = 12
         End If
         For Pos = 1 To 5
            SommaNumeri(Ruota) = SommaNumeri(Ruota) + Estratto(Estrazione,Ruota,Pos)
         Next
      Next
      Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,Estrazione)
   Next
   For RuotaDaScrivere = 1 To 11
      If RuotaDaScrivere = 11 Then
         RuotaDaScrivere = 12
      End If
      Scrivi(NomeRuota(RuotaDaScrivere) & " " & "Somma : " & SommaNumeri(RuotaDaScrivere))
   Next
End Sub
 
Edoardo_95 ha scritto:
Vedi l'allegato 2312356

Buonasera a tutti. Se qualcuno può, ed ha tempo, potrebbe verificare il proprio archivio per vedere la corrispondenza dei suoi dati con i miei?

Per chi non fosse molto pratico di script ne allego uno semplicissimo scritto in un minuto .

Codice: 
Option Explicit
Sub Main
   Dim SommaTotaleEstratti
   Dim Estrazione,Ruota,Pos,RuotaDaScrivere
   Dim SommaNumeri()
   ReDim SommaNumeri(12)
   For Estrazione = EstrazioneIni To EstrazioneFin
      For Ruota = 1 To 11
         If Ruota = 11 Then
            Ruota = 12
         End If
         For Pos = 1 To 5
            SommaNumeri(Ruota) = SommaNumeri(Ruota) + Estratto(Estrazione,Ruota,Pos)
         Next
      Next
      Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,Estrazione)
   Next
   For RuotaDaScrivere = 1 To 11
      If RuotaDaScrivere = 11 Then
         RuotaDaScrivere = 12
      End If
      Scrivi(NomeRuota(RuotaDaScrivere) & " " & "Somma : " & SommaNumeri(RuotaDaScrivere))
   Next
End Sub
Clicca per espandere...
========================================================
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e LottoProjeectLB.net V.1.0.38
======================
Ciao @Edoardo_95 ,
======================
ecco le mie risultanze dell'archivio intero del lotto con il tuo script.
Vedi immagine:
==================== ==================================
stickman.gif
differenzeEDO.jpg
==================================
Se mi indichi le estrazioni in cui ci sono le divergenze
posso fare una ricerca più approfondita con le estrazioni reali.
Buona continuazione…
==================== ==================================
Buon sabato a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 
ho lanciato anche io lo script per controllo

tutti i dati sono esatti eccetto
la ruota di Milano

Milano Somma : 2461090

mi pare che non quadra
 
silop2005 ha scritto:
========================================================
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e LottoProjeectLB.net V.1.0.38
======================
Ciao @Edoardo_95 ,
======================
ecco le mie risultanze dell'archivio intero del lotto con il tuo script.
Vedi immagine:
==================== ==================================
stickman.gif
differenzeEDO.jpg
==================================
Se mi indichi le estrazioni in cui ci sono le divergenze
posso fare una ricerca più approfondita con le estrazioni reali.
Buona continuazione…
==================== ==================================
Buon sabato a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
Clicca per espandere...

Molto interessante.. potresti caricare qui il tuo archivio in modo da effettuare delle verifiche? Grazie mille 😃
 
con l'archivio Lotto che ho in twinbasic

è quasi simile a quello di edoardo_95

archiviolottotwinb.gif



chi mi dice estrazioni n. 03949 07.09.1946 : che numeri ci sono della ruota di Milano?
e queste su firenze?

FI 03840 05.08.1944 :
FI 03841 12.08.1944 :
FI 03842 19.08.1944 :
FI 03843 26.08.1944 :
FI 03844 02.09.1944 :
FI 03845 09.09.1944 :
FI 03846 16.09.1944 :
 
Ultima modifica:
Edoardo_95 ha scritto:
Vedi l'allegato 2312356

Buonasera a tutti. Se qualcuno può, ed ha tempo, potrebbe verificare il proprio archivio per vedere la corrispondenza dei suoi dati con i miei?

Per chi non fosse molto pratico di script ne allego uno semplicissimo scritto in un minuto .

Codice: 
Option Explicit
Sub Main
   Dim SommaTotaleEstratti
   Dim Estrazione,Ruota,Pos,RuotaDaScrivere
   Dim SommaNumeri()
   ReDim SommaNumeri(12)
   For Estrazione = EstrazioneIni To EstrazioneFin
      For Ruota = 1 To 11
         If Ruota = 11 Then
            Ruota = 12
         End If
         For Pos = 1 To 5
            SommaNumeri(Ruota) = SommaNumeri(Ruota) + Estratto(Estrazione,Ruota,Pos)
         Next
      Next
      Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,Estrazione)
   Next
   For RuotaDaScrivere = 1 To 11
      If RuotaDaScrivere = 11 Then
         RuotaDaScrivere = 12
      End If
      Scrivi(NomeRuota(RuotaDaScrivere) & " " & "Somma : " & SommaNumeri(RuotaDaScrivere))
   Next
End Sub
Clicca per espandere...
Bari Somma :
Cagliari Somma :
Firenze Somma :
Genova Somma :
Milano Somma :
Napoli Somma :
Palermo Somma :
Roma Somma :
Torino Somma :
Venezia Somma :
Nazionale Somma :
CHISSA PERCHE ?
 
Edoardo_95 ha scritto:
Vedi l'allegato 2312356

Buonasera a tutti. Se qualcuno può, ed ha tempo, potrebbe verificare il proprio archivio per vedere la corrispondenza dei suoi dati con i miei?

Per chi non fosse molto pratico di script ne allego uno semplicissimo scritto in un minuto .

Codice: 
Option Explicit
Sub Main
   Dim SommaTotaleEstratti
   Dim Estrazione,Ruota,Pos,RuotaDaScrivere
   Dim SommaNumeri()
   ReDim SommaNumeri(12)
   For Estrazione = EstrazioneIni To EstrazioneFin
      For Ruota = 1 To 11
         If Ruota = 11 Then
            Ruota = 12
         End If
         For Pos = 1 To 5
            SommaNumeri(Ruota) = SommaNumeri(Ruota) + Estratto(Estrazione,Ruota,Pos)
         Next
      Next
      Call AvanzamentoElab(EstrazioneIni,EstrazioneFin,Estrazione)
   Next
   For RuotaDaScrivere = 1 To 11
      If RuotaDaScrivere = 11 Then
         RuotaDaScrivere = 12
      End If
      Scrivi(NomeRuota(RuotaDaScrivere) & " " & "Somma : " & SommaNumeri(RuotaDaScrivere))
   Next
End Sub
Clicca per espandere...
Ruota 1 Somma : 0
Ruota 2 Somma : 0
Ruota 3 Somma : 22402
Ruota 4 Somma : 0
Ruota 5 Somma : 22852
Ruota 6 Somma : 22401
Ruota 7 Somma : 23519
Ruota 8 Somma : 23350
Ruota 9 Somma : 22302
Ruota 10 Somma : 22713
Ruota 12 Somma : 0
 
Edoardo_95 ha scritto:
Molto interessante.. potresti caricare qui il tuo archivio in modo da effettuare delle verifiche? Grazie mille 😃
Clicca per espandere...
=========================================================
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e LottoProjeectLB.net V.1.0.38
======================
Ciao @Edoardo_95 ,
======================
ho due archivi del lotto con due programmi di Spaziometria con versioni differenti (vers.1.6.34 e vers. 1.6.54).
L'immagine che ti ho pubblicato prima è riferita alla versione 1.6.34 di SPMT
dove ci sono le differenze evidenziate sopra
e ti allego l'archivio "BaseDati.dat.txt"
e successivamente ti allego anche l'altro archivio più simile al tuo.
==================== ==================================
Buon sabato a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 

Allegati

Edoardo_95 ha scritto:
Molto interessante.. potresti caricare qui il tuo archivio in modo da effettuare delle verifiche? Grazie mille 😃
Clicca per espandere...
=========================================================
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e LottoProjeectLB.net V.1.0.38
======================
Ciao @Edoardo_95 ,
======================
ecco l'altro archivio del lotto che ho con SPMT vers. 1.6.54
prelevato interamente dalle pagine del TELEVIDEO RAI
Vedi immagine:
==================== ==================================
stickman.gif
1differenzeEDO.jpg
==================================
Fai i tuoi controlli con tutti e due gli archivi.
e ti allego il secondo archivio "BaseDati.dat.txt"
==================== ==================================
Buon sabato a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
 

Allegati

genios ha scritto:
Ruota 1 Somma : 0
Ruota 2 Somma : 0
Ruota 3 Somma : 22402
Ruota 4 Somma : 0
Ruota 5 Somma : 22852
Ruota 6 Somma : 22401
Ruota 7 Somma : 23519
Ruota 8 Somma : 23350
Ruota 9 Somma : 22302
Ruota 10 Somma : 22713
Ruota 12 Somma : 0
Clicca per espandere...
Lo script utilizza EstrazioneIni ed EstrazioneFin che puntano al valore impostato globalmente nella barra sotto. Devi impostare manualmente la prima e l'ultima estrazione in archivio. Oppure modificare lo script inserendo valore 1 e 10809
 
silop2005 ha scritto:
=========================================================
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vs.1.0.9 e RicercaLunghetta vers.1.0.31 e LottoOpen v.1.0.62 e LottoProjeectLB.net V.1.0.38
======================
Ciao @Edoardo_95 ,
======================
ecco l'altro archivio del lotto che ho con SPMT vers. 1.6.54
prelevato interamente dalle pagine del TELEVIDEO RAI
Vedi immagine:
==================== ==================================
stickman.gif
1differenzeEDO.jpg
==================================
Fai i tuoi controlli con tutti e due gli archivi.
e ti allego il secondo archivio "BaseDati.dat.txt"
==================== ==================================
Buon sabato a tutto il forum.
======================
stickman.gif
A presto
Silop ;) ;) ;)
Clicca per espandere...
Ottimo grazie mille 😃
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 25 giugno 2026
    Bari
    18
    55
    23
    57
    84
    Cagliari
    07
    82
    45
    52
    14
    Firenze
    84
    78
    39
    33
    59
    Genova
    42
    24
    73
    17
    38
    Milano
    51
    69
    38
    54
    23
    Napoli
    25
    49
    75
    85
    13
    Palermo
    05
    37
    74
    28
    04
    Roma
    29
    64
    63
    85
    75
    Torino
    57
    23
    70
    21
    68
    Venezia
    59
    11
    55
    60
    14
    Nazionale
    14
    07
    12
    72
    41
    Estrazione Simbolotto
    Napoli
    42
    29
    39
    14
    44
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto