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
    sabato 04 aprile 2026
    Bari
    81
    21
    69
    24
    65
    Cagliari
    40
    01
    30
    38
    25
    Firenze
    18
    84
    24
    58
    63
    Genova
    86
    64
    56
    89
    60
    Milano
    38
    07
    06
    50
    25
    Napoli
    72
    16
    90
    85
    74
    Palermo
    23
    13
    20
    73
    14
    Roma
    24
    52
    22
    01
    78
    Torino
    16
    80
    35
    84
    22
    Venezia
    36
    83
    09
    89
    51
    Nazionale
    03
    67
    45
    71
    86
    Estrazione Simbolotto
    Genova
    34
    36
    17
    40
    32
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto