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
    venerdì 26 giugno 2026
    Bari
    03
    59
    02
    56
    05
    Cagliari
    12
    36
    81
    69
    49
    Firenze
    81
    79
    52
    34
    26
    Genova
    56
    17
    87
    66
    52
    Milano
    77
    59
    11
    43
    03
    Napoli
    27
    36
    43
    44
    71
    Palermo
    21
    81
    14
    77
    06
    Roma
    65
    29
    05
    52
    17
    Torino
    68
    20
    27
    58
    16
    Venezia
    34
    37
    89
    79
    73
    Nazionale
    10
    66
    80
    07
    77
    Estrazione Simbolotto
    Napoli
    04
    40
    29
    19
    35
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto