Analisi archivio

[Edoardo_95]

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 .

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

 

[Reacher]

Si confermo

 

[Serse]

Discrepanza su Nazionale ( problema mio?)

 

[Reacher]

Si forse problema tuo
A me esce 761670
Riaggiorna estrazioni con scritp

 

[lotto_tom75]

Ho l'archivio da TORINO IN GIU' completamente sballato...

GRAZIE Edo e ben riletto!

 

[Serse]

 

[lotto_tom75]

già risolto anche io... GRAZIE di nuovo Edo!

 

[silop2005]

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 .

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

========================================================

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:

==================== ==================================

==================================

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.

======================

A presto

Silop

 

[rubino2]

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

 

[lotto_tom75]

 

[Edoardo_95]

========================================================

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:

==================== ==================================

==================================

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.

======================

A presto

Silop

Molto interessante.. potresti caricare qui il tuo archivio in modo da effettuare delle verifiche? Grazie mille

 

[rubino2]

con l'archivio Lotto che ho in twinbasic

è quasi simile a quello di edoardo_95





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 :

 

[genios]

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 .

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

Bari Somma :
Cagliari Somma :
Firenze Somma :
Genova Somma :
Milano Somma :
Napoli Somma :
Palermo Somma :
Roma Somma :
Torino Somma :
Venezia Somma :
Nazionale Somma :
CHISSA PERCHE ?

 

[genios]

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 .

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

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

 

[silop2005]

Molto interessante.. potresti caricare qui il tuo archivio in modo da effettuare delle verifiche? Grazie mille

=========================================================

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.

======================

A presto

Silop

 

[Lottopython]

con l'archivio Lotto che ho in twinbasic

è quasi simile a quello di edoardo_95

Vedi l'allegato 2312376

non esiste l'estrazione del 07/09/1946 su Milano

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

 

[silop2005]

Molto interessante.. potresti caricare qui il tuo archivio in modo da effettuare delle verifiche? Grazie mille

=========================================================

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: ==================== ================================== ================================== 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. ====================== A presto Silop

 

[Edoardo_95]

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

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

 

[Edoardo_95]

=========================================================

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: ==================== ================================== ================================== 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. ====================== A presto Silop

Ottimo grazie mille

 

[Lottopython]

con l'archivio Lotto che ho in twinbasic

è quasi simile a quello di edoardo_95

Vedi l'allegato 2312376



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 :

nessuna estrazione