Novità

aggiornamento estrazioni lotto spaziometria 1.6.31

  • Creatore Discussione Creatore Discussione Talia
  • Data di inizio Data di inizio
Talia

Talia

Advanced Member >PLATINUM PLUS<
Buongiorno
sto cercando di aggiornare le estrazioni lotto seguendo il percorso aggiornamento dal web.
Al momento non si aggiorna
La cosa è solo momentanea ?
grazie
 
Buongiorno Mafalda, anche io stavo per fare la stessa domanda, spero che qualcuno ci risponda almeno non facciamo casini sull'archivio estrazioni. Io sarei tentato anche di aggiornarlo a mano ma non so come comportarmi sul buco creato dalle estrazioni non fatte, se crearle e riempiendo con tutti "00" o se lasciare tutto così e inserire solo l'ultima estrazione cioè quella di ieri sera .
Grazie a chi ci risponderà ??
 
Io ho inserito le estrazioni manualmente dal 24/03/2020, perchè il programma vede come errore la mancanza dei concorsi, ho inserito tutti zeri nelle estrazioni e per il momento mi va tutto bene.
Spero di essere stato d'aiuto.
Buona giornata a Tutti. (y) ;)
 
toon ha scritto:
Io ho inserito le estrazioni manualmente dal 24/03/2020, perchè il programma vede come errore la mancanza dei concorsi, ho inserito tutti zeri nelle estrazioni e per il momento mi va tutto bene.
Spero di essere stato d'aiuto.
Buona giornata a Tutti. (y) ;)
Clicca per espandere...
Grazie era quello che volevo fare anche io , ma preferisco aspettare che qualcuno dei creatori di questo spettacolare programma che ci regalano ci dia qualche risposta , onde evitare di combinare guai all'archivio (y) ?
 
non credo da ignorante sia la soluzione corretta
mettiamo il caso che andiamo a verificare le ultime 40 estrazioni quelle tutte a 9 altererebbero la ricerca
no non va bene cosi

molti altri programmi che possiedo sono passati alla 05/05/2020 direttamente dalla 21/03 e credo sia più corretto cosi
 
Io vi suggerisco di aggiornare da Televideo con script in modo che le estrazioni siano consecutive non importa la data mancante.
Codice: 
Sub Main()
   Dim sLink
   Dim sFileLocal
   Dim aRighe,aRigheTmp
   Dim aNumRuota(11,5)
   Dim nIdRuota
   Dim k,r
   Dim nRuoteLette
   Dim sData
   Dim sDataLastEstr
   Dim sTesto
   Dim nLastIndiceAnn,nNewIndiceAnn
   Dim sFileDati
   sFileDati = GetDirectoryAppData & "BaseDati.dat"
   Select Case ScegliEstrazione
   Case 0
      sLink = "http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=786&sottopagina=1"
   Case 1
      sLink = "http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=787&sottopagina=02"
   End Select
   nIdRuota = 0
   nRuoteLette = 0
   sDataLastEstr = DataEstrazione(EstrazioniArchivio,,,"/")
   nLastIndiceAnn = IndiceAnnuale(EstrazioniArchivio)
   sFileLocal = GetDirectoryAppData & "temp\Estrazione.htm"
   If DownloadFromWeb(sLink,sFileLocal) Then
      Call LeggiRigheFileDiTesto(sFileLocal,aRighe)
      For k = 0 To UBound(aRighe)
         If InStr(aRighe(k),"ESTRAZIONE DEL") Then
            aRigheTmp = Split(aRighe(k),vbLf)
            For r = 0 To UBound(aRigheTmp)
               nIdRuota = IdRigaRuota(aRigheTmp(r))
               If nIdRuota > 0 Then
                  If LeggiNumRuota(aRigheTmp(r),aNumRuota,nIdRuota) Then
                     nRuoteLette = nRuoteLette + 1
                  End If
               Else
                  If IsDate(Trim(aRigheTmp(r))) Then
                     sData = Trim(aRigheTmp(r))
                  End If
               End If
               If nRuoteLette = 11 Then Exit For
            Next
            Exit For
         End If
      Next
      If nRuoteLette = 11 Then
         If sData = sDataLastEstr Then
            MsgBox "Non ci sono estrazioni da scaricare",vbInformation
         Else
            sTesto = "Ultima estrazione presente " & FormattaStringa(sDataLastEstr,"Long Date") & vbCrLf
            sTesto = sTesto & "Estrazione scaricata " & FormattaStringa(sData,"Long Date") & vbCrLf & vbCrLf
            sTesto = sTesto & "Aggiungere l'estrazione del " & FormattaStringa(sData,"Long Date") & " ?" & vbCrLf & vbCrLf
            sTesto = sTesto & GetAnteprimaNumeri(aNumRuota)
            If MsgBox(sTesto,vbQuestion + vbYesNo) = vbYes Then
               If Year(sData) = Year(sDataLastEstr) Then
                  nNewIndiceAnn = nLastIndiceAnn + 1
               Else
                  nNewIndiceAnn = 1
               End If
               If SalvaEstrazione(aNumRuota,sData,nNewIndiceAnn,sFileDati) Then
                  MsgBox "Aggiornamento effettuato",vbInformation
               Else
                  MsgBox "Errore aggiornamento",vbCritical
               End If
            End If
         End If
      End If
   End If
   Scrivi "EstrazioneFine in Archivio : " &(sDataLastEstr),1
End Sub
Function IdRigaRuota(sRiga)
   Dim aRuote
   Dim k
   Dim nRet
   nRet = 0
   aRuote = Array("","Bari","Cagliari","Firenze","Genova","Milano","Napoli","Palermo","Roma","Torino","Venezia","Nazionale")
   For k = 1 To UBound(aRuote)
      If InStr(1,sRiga,aRuote(k),vbTextCompare) Then
         nRet = k
         Exit For
      End If
   Next
   IdRigaRuota = nRet
End Function
Function LeggiNumRuota(sRiga,aNumRuota,nIdRuota)
   Dim aV
   Dim k
   Dim nQNum
   nQNum = 0
   sRiga = Replace(sRiga,vbTab,"")
   sRiga = Trim(RiduciSpazi(sRiga))
   aV = Split(sRiga," ")
   If UBound(aV) = 5 Then
      For k = 1 To 5
         If IsNumeric(aV(k)) Then
            aNumRuota(nIdRuota,k) = aV(k)
            nQNum = nQNum + 1
         End If
      Next
      LeggiNumRuota =(nQNum = 5)
   Else
      LeggiNumRuota = False
   End If
End Function
Function RiduciSpazi(s)
   Dim sTmp
   sTmp = s
   Do While InStr(sTmp,"  ")
      sTmp = Replace(sTmp,"  "," ")
   Loop
   RiduciSpazi = sTmp
End Function
Function GetAnteprimaNumeri(aNumRuota)
   Dim r,e,sRet
   For r = 1 To 11
      sRet = sRet & NomeRuota(Iif(r <= 10,r,12)) & " "
      For e = 1 To 5
         sRet = sRet & FormatSpace(aNumRuota(r,e),2,True) & " "
      Next
      sRet = Trim(sRet) & vbCrLf
   Next
   GetAnteprimaNumeri = sRet
End Function
Function ScegliEstrazione
   Dim aVoci
   Dim r
   aVoci = Array("Ultima","Penultima")
   r = ScegliOpzioneMenu(aVoci,0,"Aggiornamento da televideo")
   ScegliEstrazione = r
End Function
Attenzione la barra potrebbe non risultare aggiornata ma basta spostarla per vederla aggiornta

 
Se fate caso nell'archivio esistente di spaziometria esistono già le ruote con "00" , credo che questo serva per far girare correttamente il programma che altrimenti avrebbe difficolta a trovare l'estrazione numero 1 , 2 , 3 .... questo serve anche per gli eventuali script che lavorano con i numero dell'estrazione di partenza . Ovviamente io sono ignorante in materia e aspetto notizie ufficiali da chi ha più esperienza . Grazie
 
Mike58 ha scritto:
Io vi suggerisco di aggiornare da Televideo con script in modo che le estrazioni siano consecutive non importa la data mancante.
Codice: 
Sub Main()
   Dim sLink
   Dim sFileLocal
   Dim aRighe,aRigheTmp
   Dim aNumRuota(11,5)
   Dim nIdRuota
   Dim k,r
   Dim nRuoteLette
   Dim sData
   Dim sDataLastEstr
   Dim sTesto
   Dim nLastIndiceAnn,nNewIndiceAnn
   Dim sFileDati
   sFileDati = GetDirectoryAppData & "BaseDati.dat"
   Select Case ScegliEstrazione
   Case 0
      sLink = "http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=786&sottopagina=1"
   Case 1
      sLink = "http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=787&sottopagina=02"
   End Select
   nIdRuota = 0
   nRuoteLette = 0
   sDataLastEstr = DataEstrazione(EstrazioniArchivio,,,"/")
   nLastIndiceAnn = IndiceAnnuale(EstrazioniArchivio)
   sFileLocal = GetDirectoryAppData & "temp\Estrazione.htm"
   If DownloadFromWeb(sLink,sFileLocal) Then
      Call LeggiRigheFileDiTesto(sFileLocal,aRighe)
      For k = 0 To UBound(aRighe)
         If InStr(aRighe(k),"ESTRAZIONE DEL") Then
            aRigheTmp = Split(aRighe(k),vbLf)
            For r = 0 To UBound(aRigheTmp)
               nIdRuota = IdRigaRuota(aRigheTmp(r))
               If nIdRuota > 0 Then
                  If LeggiNumRuota(aRigheTmp(r),aNumRuota,nIdRuota) Then
                     nRuoteLette = nRuoteLette + 1
                  End If
               Else
                  If IsDate(Trim(aRigheTmp(r))) Then
                     sData = Trim(aRigheTmp(r))
                  End If
               End If
               If nRuoteLette = 11 Then Exit For
            Next
            Exit For
         End If
      Next
      If nRuoteLette = 11 Then
         If sData = sDataLastEstr Then
            MsgBox "Non ci sono estrazioni da scaricare",vbInformation
         Else
            sTesto = "Ultima estrazione presente " & FormattaStringa(sDataLastEstr,"Long Date") & vbCrLf
            sTesto = sTesto & "Estrazione scaricata " & FormattaStringa(sData,"Long Date") & vbCrLf & vbCrLf
            sTesto = sTesto & "Aggiungere l'estrazione del " & FormattaStringa(sData,"Long Date") & " ?" & vbCrLf & vbCrLf
            sTesto = sTesto & GetAnteprimaNumeri(aNumRuota)
            If MsgBox(sTesto,vbQuestion + vbYesNo) = vbYes Then
               If Year(sData) = Year(sDataLastEstr) Then
                  nNewIndiceAnn = nLastIndiceAnn + 1
               Else
                  nNewIndiceAnn = 1
               End If
               If SalvaEstrazione(aNumRuota,sData,nNewIndiceAnn,sFileDati) Then
                  MsgBox "Aggiornamento effettuato",vbInformation
               Else
                  MsgBox "Errore aggiornamento",vbCritical
               End If
            End If
         End If
      End If
   End If
   Scrivi "EstrazioneFine in Archivio : " &(sDataLastEstr),1
End Sub
Function IdRigaRuota(sRiga)
   Dim aRuote
   Dim k
   Dim nRet
   nRet = 0
   aRuote = Array("","Bari","Cagliari","Firenze","Genova","Milano","Napoli","Palermo","Roma","Torino","Venezia","Nazionale")
   For k = 1 To UBound(aRuote)
      If InStr(1,sRiga,aRuote(k),vbTextCompare) Then
         nRet = k
         Exit For
      End If
   Next
   IdRigaRuota = nRet
End Function
Function LeggiNumRuota(sRiga,aNumRuota,nIdRuota)
   Dim aV
   Dim k
   Dim nQNum
   nQNum = 0
   sRiga = Replace(sRiga,vbTab,"")
   sRiga = Trim(RiduciSpazi(sRiga))
   aV = Split(sRiga," ")
   If UBound(aV) = 5 Then
      For k = 1 To 5
         If IsNumeric(aV(k)) Then
            aNumRuota(nIdRuota,k) = aV(k)
            nQNum = nQNum + 1
         End If
      Next
      LeggiNumRuota =(nQNum = 5)
   Else
      LeggiNumRuota = False
   End If
End Function
Function RiduciSpazi(s)
   Dim sTmp
   sTmp = s
   Do While InStr(sTmp,"  ")
      sTmp = Replace(sTmp,"  "," ")
   Loop
   RiduciSpazi = sTmp
End Function
Function GetAnteprimaNumeri(aNumRuota)
   Dim r,e,sRet
   For r = 1 To 11
      sRet = sRet & NomeRuota(Iif(r <= 10,r,12)) & " "
      For e = 1 To 5
         sRet = sRet & FormatSpace(aNumRuota(r,e),2,True) & " "
      Next
      sRet = Trim(sRet) & vbCrLf
   Next
   GetAnteprimaNumeri = sRet
End Function
Function ScegliEstrazione
   Dim aVoci
   Dim r
   aVoci = Array("Ultima","Penultima")
   r = ScegliOpzioneMenu(aVoci,0,"Aggiornamento da televideo")
   ScegliEstrazione = r
End Function
Attenzione la barra potrebbe non risultare aggiornata ma basta spostarla per vederla aggiornta

Clicca per espandere...
Grazie , ma se ho uno script che prende per riferimento la prima estrazione del mese per elaborare eventuale previsione cosa succede nel mese di Aprile e Maggio dove la prima estrazione non c'è o meglio come legge l'estrazione del 5 maggio ???
 
Bubu, se devo dire la mia le estrazioni con Zero esistono perché ci sono Numeri in altre ruote e quindi INDICE estrazione valido.
Invece non esistono estrazioni con Zero a Tutte le 10 Ruote.
 
Grazie , ma se ho uno script che prende per riferimento la prima estrazione del mese per elaborare eventuale previsione cosa succede nel mese di Aprile e Maggio dove la prima estrazione non c'è o meglio come legge l'estrazione del 5 maggio ???

La risposta è nella Domanda.
Per maggio L'indice 1 è 5 maggio
per aprile al 21-3-2020 l'indice è l'ultimo.
Purtroppo il buco si è creato e bisogna accettarlo così.
Ciao
 
Magari mi sbaglio, anzi certamente, ma penso che cambiando il numero dei concorsi, saranno pregiudicati gli aggiornamenti automatici del programma tramite internet, perchè il concorso 36° non esiste, in realtà l'unico esatto è il 54°e facendo l'aggiornamento alla lottomatica non risulterà esatto.
Magari mi sbaglio, anzi lo spero.
 
Ultima modifica:
toon ha scritto:
Magari mi sbaglio, anzi certamente, ma penso che cambiando il numero dei concorsi, saranno pregiudicati gli aggiornamenti automatici del programma tramite internet, perchè il concorso 36° non esiste, in realtà l'unico esatto è il 45°e facendo l'aggiornamento alla lottomatica non risulterà esatto.
Magari mi sbaglio, anzi lo spero.
Clicca per espandere...
Forse volevi dire il 54 ??? io mi aggiorno con il sito del Monopolio di Stato che secondo me è quello ufficiale se non combaciano i numeri le eventuali vincite non vengono pagate. Questo è il link e guarda caso l'estrazione del 5 Maggio risulta la NR 54 che è giusta se inserite tutte le estrazioni anche quelle che non ci sono state . https://www.adm.gov.it/portale/monopoli/giochi/gioco-del-lotto/lotto_g
 
Esatto, mi sono corretto..Grazie
ovviamente lo sapevo, se ho correto le estrazioni, ogni tanto la dislessia si fa sentire, ho invertito.
(y) ;)
 
Mike58 ha scritto:
Io vi suggerisco di aggiornare da Televideo con script in modo che le estrazioni siano consecutive non importa la data mancante.
Codice: 
Sub Main()
   Dim sLink
   Dim sFileLocal
   Dim aRighe,aRigheTmp
   Dim aNumRuota(11,5)
   Dim nIdRuota
   Dim k,r
   Dim nRuoteLette
   Dim sData
   Dim sDataLastEstr
   Dim sTesto
   Dim nLastIndiceAnn,nNewIndiceAnn
   Dim sFileDati
   sFileDati = GetDirectoryAppData & "BaseDati.dat"
   Select Case ScegliEstrazione
   Case 0
      sLink = "http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=786&sottopagina=1"
   Case 1
      sLink = "http://www.televideo.rai.it/televideo/pub/solotesto.jsp?pagina=787&sottopagina=02"
   End Select
   nIdRuota = 0
   nRuoteLette = 0
   sDataLastEstr = DataEstrazione(EstrazioniArchivio,,,"/")
   nLastIndiceAnn = IndiceAnnuale(EstrazioniArchivio)
   sFileLocal = GetDirectoryAppData & "temp\Estrazione.htm"
   If DownloadFromWeb(sLink,sFileLocal) Then
      Call LeggiRigheFileDiTesto(sFileLocal,aRighe)
      For k = 0 To UBound(aRighe)
         If InStr(aRighe(k),"ESTRAZIONE DEL") Then
            aRigheTmp = Split(aRighe(k),vbLf)
            For r = 0 To UBound(aRigheTmp)
               nIdRuota = IdRigaRuota(aRigheTmp(r))
               If nIdRuota > 0 Then
                  If LeggiNumRuota(aRigheTmp(r),aNumRuota,nIdRuota) Then
                     nRuoteLette = nRuoteLette + 1
                  End If
               Else
                  If IsDate(Trim(aRigheTmp(r))) Then
                     sData = Trim(aRigheTmp(r))
                  End If
               End If
               If nRuoteLette = 11 Then Exit For
            Next
            Exit For
         End If
      Next
      If nRuoteLette = 11 Then
         If sData = sDataLastEstr Then
            MsgBox "Non ci sono estrazioni da scaricare",vbInformation
         Else
            sTesto = "Ultima estrazione presente " & FormattaStringa(sDataLastEstr,"Long Date") & vbCrLf
            sTesto = sTesto & "Estrazione scaricata " & FormattaStringa(sData,"Long Date") & vbCrLf & vbCrLf
            sTesto = sTesto & "Aggiungere l'estrazione del " & FormattaStringa(sData,"Long Date") & " ?" & vbCrLf & vbCrLf
            sTesto = sTesto & GetAnteprimaNumeri(aNumRuota)
            If MsgBox(sTesto,vbQuestion + vbYesNo) = vbYes Then
               If Year(sData) = Year(sDataLastEstr) Then
                  nNewIndiceAnn = nLastIndiceAnn + 1
               Else
                  nNewIndiceAnn = 1
               End If
               If SalvaEstrazione(aNumRuota,sData,nNewIndiceAnn,sFileDati) Then
                  MsgBox "Aggiornamento effettuato",vbInformation
               Else
                  MsgBox "Errore aggiornamento",vbCritical
               End If
            End If
         End If
      End If
   End If
   Scrivi "EstrazioneFine in Archivio : " &(sDataLastEstr),1
End Sub
Function IdRigaRuota(sRiga)
   Dim aRuote
   Dim k
   Dim nRet
   nRet = 0
   aRuote = Array("","Bari","Cagliari","Firenze","Genova","Milano","Napoli","Palermo","Roma","Torino","Venezia","Nazionale")
   For k = 1 To UBound(aRuote)
      If InStr(1,sRiga,aRuote(k),vbTextCompare) Then
         nRet = k
         Exit For
      End If
   Next
   IdRigaRuota = nRet
End Function
Function LeggiNumRuota(sRiga,aNumRuota,nIdRuota)
   Dim aV
   Dim k
   Dim nQNum
   nQNum = 0
   sRiga = Replace(sRiga,vbTab,"")
   sRiga = Trim(RiduciSpazi(sRiga))
   aV = Split(sRiga," ")
   If UBound(aV) = 5 Then
      For k = 1 To 5
         If IsNumeric(aV(k)) Then
            aNumRuota(nIdRuota,k) = aV(k)
            nQNum = nQNum + 1
         End If
      Next
      LeggiNumRuota =(nQNum = 5)
   Else
      LeggiNumRuota = False
   End If
End Function
Function RiduciSpazi(s)
   Dim sTmp
   sTmp = s
   Do While InStr(sTmp,"  ")
      sTmp = Replace(sTmp,"  "," ")
   Loop
   RiduciSpazi = sTmp
End Function
Function GetAnteprimaNumeri(aNumRuota)
   Dim r,e,sRet
   For r = 1 To 11
      sRet = sRet & NomeRuota(Iif(r <= 10,r,12)) & " "
      For e = 1 To 5
         sRet = sRet & FormatSpace(aNumRuota(r,e),2,True) & " "
      Next
      sRet = Trim(sRet) & vbCrLf
   Next
   GetAnteprimaNumeri = sRet
End Function
Function ScegliEstrazione
   Dim aVoci
   Dim r
   aVoci = Array("Ultima","Penultima")
   r = ScegliOpzioneMenu(aVoci,0,"Aggiornamento da televideo")
   ScegliEstrazione = r
End Function
Attenzione la barra potrebbe non risultare aggiornata ma basta spostarla per vederla aggiornta

Clicca per espandere...
io solitamente aggiorno con il sito ufficiale del monopolio di Stato https://www.adm.gov.it/portale/monopoli/giochi/gioco-del-lotto/lotto_g , se ci fai caso l'estrazione del 5 maggio è la NR 54 come se ha tenuto conto delle estrazioni non fatte . Quindi ho paura che se aggiorno l'estrazione come la numero 36 in seguito avrò problemi con l'archivio . Scusami se ti faccio perdere tempo, ma secondo me è importante la scelta che si fa oggi per far funzionare il programma correttamente . Ciao Buona giornata e grazie di tutto ? ?
 
Concordo pienamente, meglio perdere poco tempo ed aggiornare manualmente, per poi fare gli aggiornamenti come sempre. piuttosto che poi farli sempre tramite script.
;) (y)
 
ho inserito ora l'estrazìone manualmente ho confermato e cosi mi sono ritrovata con la numerazione progressiva corretta
sulla voce aggionamento lotto
mi sono trovata aggiornata anche il plugin Arn che a me interessano
 
Il Lotto è fatto di convenzioni. Tutte possono essere ben accette o rifiutate.

A mio parere, la interpretazione data da Mike è corretta.

Mentre inserire degli zero ad aprile per le estrazioni mancanti è sbagliato.

Perché non ci sono state estrazioni.

Così pure non essendo stato possibile giocare, al pari, di come non ci sono state estrazioni,

non può e non deve "dare" la possibilità di stabilire e contare cambiamenti nei ritardi e nelle frequenze.

Cioè se si inseriscono delle estrazioni fittizie si aumenta artificiosamente il ritardo

e si diminuisce corrispondentemente le frequenze di tutte le formazioni possibili ed immaginabili.

Secondo me è lapalissianamente sbagliato.

Poi ... naturalmente ognuno farà come meglio crede.

:)
 
Alien. ha scritto:
Ma strano io ho aggiornato adesso tutto regolare è passato dal21/3 al 5/5/2020
Clicca per espandere...
===================================
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao alien ,
======================
sicuramente, non hai avuto problemi perché hai aggiornato da Spaziometria
dal percorso :
Base Dati / Aggiornamenti Archivi da web / archivi silop
======================
questo perché poche ore fa ho aggiornato il "MIO" programma spaziometria
con lo script del bravo Mike58
e poi ho usato la utility di LuigiB per l'aggiornamento per "TUTTI" voi appassionati.
======================
x Joe : vedi la posta.
======================
Buona giornata a tutto il forum.
stickman.gif
======================
A presto
Silop ;) ;) ;)
 
silop2005 ha scritto:
===================================
LOGOSILOP.gif
SPMT vers. 1.6.34_Agg.Web e relativo plugin SVP vers. 1.0.56 e Plugin_FTP vers. 1.0 e SpazioScript vers.1.0.9
======================
Ciao alien ,
======================
sicuramente, non hai avuto problemi perché hai aggiornato da Spaziometria
dal percorso :
Base Dati / Aggiornamenti Archivi da web / archivi silop
======================
questo perché poche ore fa ho aggiornato il "MIO" programma spaziometria
con lo script del bravo Mike58
e poi ho usato la utility di LuigiB per l'aggiornamento per "TUTTI" voi appassionati.
======================
x Joe : vedi la posta.
======================
Buona giornata a tutto il forum.
stickman.gif
======================
A presto
Silop ;) ;) ;)
Clicca per espandere...
Grazie ho provato prima ad aggiornare tramite archivi silop, sicuramente non era stato ancora aggiornato e allora ho deciso di aggiornare tutto a mano . Visto che ho oltre al fisso anche il pc portatile , in quello aggiorno tramite archivi Silop, ma so già che utilizzando gli stessi script ci saranno previsioni diversi , andando avanti vedremo chi darà più affidabilità e da giugno teoricamente dovrebbero azzerare le diversità tranne che per i ritardi e il numero delle estrazioni . grazie e buona serata ?
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto