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
    martedì 05 maggio 2026
    Bari
    13
    20
    43
    72
    40
    Cagliari
    88
    50
    81
    43
    47
    Firenze
    60
    32
    13
    23
    06
    Genova
    71
    19
    22
    55
    39
    Milano
    14
    09
    22
    16
    19
    Napoli
    51
    69
    89
    62
    46
    Palermo
    68
    78
    38
    27
    44
    Roma
    20
    47
    62
    56
    34
    Torino
    09
    29
    06
    14
    01
    Venezia
    34
    77
    11
    88
    83
    Nazionale
    56
    26
    22
    77
    75
    Estrazione Simbolotto
    Milano
    27
    16
    04
    30
    18
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto