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 21 febbraio 2026
    Bari
    72
    63
    35
    12
    01
    Cagliari
    02
    31
    01
    53
    10
    Firenze
    30
    35
    05
    87
    42
    Genova
    74
    32
    43
    68
    80
    Milano
    39
    06
    64
    16
    83
    Napoli
    56
    65
    71
    07
    12
    Palermo
    11
    57
    50
    28
    71
    Roma
    35
    23
    58
    89
    46
    Torino
    27
    28
    74
    16
    75
    Venezia
    68
    70
    27
    77
    83
    Nazionale
    28
    52
    18
    26
    39
    Estrazione Simbolotto
    Cagliari
    42
    15
    21
    19
    13
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto