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