Novità

aggiornamento estrazioni lotto spaziometria 1.6.31

Xeroxs

Advanced Member >PLATINUM<
Se può essere utile, si può aggiornare le estrazioni, per non copiarle a mano visto che possiamo anche sbagliare a scrivere

ho trovato questa soluzione dal
menù - aggiornamento lotto
manuale
copiando le estrazioni che vi riporto sotto, vi posizionate con il cursore sulla data e vi copia esattamente i numeri nelle giuste posizioni e salvate
Il copia deve partire esattamente con il cursore sul 5 della data 5 maggio 2020
dal menu delle estrazioni date il copia che trovate nel pannello delle estrazioni da salvare.

Prima estrazione

5 maggio 2020

Bari 8 17 27 62 14
Cagliari 53 84 11 48 13
Firenze 60 18 85 15 9
Genova 84 69 40 10 13
Milano 78 28 51 20 56
Napoli 8 15 39 63 78
Palermo 68 61 77 78 5
Roma 55 46 83 79 70
Torino 60 79 14 32 56
Venezia 87 32 27 78 59
Nazionale 68 32 48 21 35

seconda estrazione

7 maggio 2020

Bari 72 60 88 21 80
Cagliari 48 58 13 55 36
Firenze 68 69 3 49 56
Genova 49 66 7 33 27
Milano 15 24 48 25 22
Napoli 46 49 88 56 38
Palermo 18 22 23 90 19
Roma 40 32 56 46 75
Torino 73 87 23 34 53
Venezia 78 54 24 37 8
Nazionale 58 73 51 21 30

Ho provato a copiare da altri siti ma questa soluzione è una che funziona senza fare errori.
 

assunta55

Super Member >GOLD<
Salve avendo anche io lo stesso problema ho inserto manualmente l'estrazione 36 lo aggiornato dopo fatto questo son tornata nella schermata manuale e ho cambiato 36 con 53 e gli ho data la conferma e poi ho fatto l'aggiornamento quella del 7/5/20 e andato a buon fine
 

lonu

Junior Member
Aggiornamento di ogni ultima estrazione:
Con Spaziometria

Esegui la procedura di aggiornamento:

* Base dati

* Aggiornamento Lotto

* Manuale ...

dopo di che clicchi il secondo bottone in alto a destra

(quello con la scritta Lotto il blu dentro cerchi arancio)



Quando dopo la pubblicità si apre l'estrazione

(normalmente l'ultima ma è selezionabile)

EVIDENZI CON IL MOUSE (e il testo necessario diventa di colore blu)

... TUTTA LA PARTE DA COPIARE ...

Per fare questo si clicca e mantiene premuto il pulsante sinistro del mouse

e lo si fa scorrere verso il basso a destra.

Da poco prima della DATA (che attualmente è il 21/12/2019)

fino a dopo l' ULTIMO ESTRATTO della Nazionale (attualmente è il n° 12)

Quando hai attuato la situazione che ho descritto ...





premi il TASTO DESTRO del mouse e scegli COPIA (dal menù contestuale che si apre).


Ritornando ai menù di Spaziometria per l'Aggiornamento

(quello descritto nella prima immagine)

clicchi il pulsante NUOVA che si trova in basso ed in centro.

Successivamente dopo aver osservato che la nuova finestra è vuota

ed il numero progressivo annuale è incrementato di UNA ESTRAZIONE

rispetto al numero di estrazioni in archivio, che nel frattempo si è "attivato"

perché c'è in memoria una estrazione. ...

clicchi sul pulsante INCOLLA in alto a sinistra

La maschera, sarà riempita, della data e dei 55 estratti.

Se è tutto corretto ...

puoi premere in successione "CONFERMA" e "CHIUDI"

per terminare l'aggiornamento.
 

franca46

Advanced Member >PLATINUM PLUS<
buongiorno , ho aggiornato spaziometria come sempre , da agenzie dogane e monopoli

l'estrazione del 5/ 5 risulta essere la 54
quella del 7/5 risulta essere la 55
e quella del 9/5 risulta essere la 56

anche per voi è cosi?

grazie
 

salvo50

Advanced Member >PLATINUM PLUS<
buongiorno , ho aggiornato spaziometria come sempre , da agenzie dogane e monopoli

l'estrazione del 5/ 5 risulta essere la 54
quella del 7/5 risulta essere la 55
e quella del 9/5 risulta essere la 56

anche per voi è cosi?

grazie
Ciao.

Sistema Operativo Win7
release Spaziometria 1.6.31

è così
 

bubù

Advanced Member >PLATINUM PLUS<
buongiorno , ho aggiornato spaziometria come sempre , da agenzie dogane e monopoli

l'estrazione del 5/ 5 risulta essere la 54
quella del 7/5 risulta essere la 55
e quella del 9/5 risulta essere la 56

anche per voi è cosi?

grazie
Sull'arggiornamento delle estrazioni ci sono più modi di vedere e modi di aggiornare il proprio archivio . Io in particolare ne ho adottati 2 , il primo ho inserito a mano tutte le estrazioni mancanti a causa dell'interruzione inserendo in tutti i campi il doppio "00" giusto per continuare a dare la numerazione delle estrazioni anche se non sono state fatte . La seconda su l pc portatile ho aggiornato l'archivio utilizzando l'Archivio Silop che non tiene conto delle estrazioni non fatte e continua la sua numerazione 36 ; 37; ecc ecc.
Sto cercando di capire quale delle 2 può essere la più valida riguardo alla eleborazione dei script , purtroppo c'è anche il problema che con la prima l'estrazione di sabato 9 maggio sarebbe la 4^ estrazione del mese , mentre con la seconda è la terza infatti non conteggia l'estrazione non fatta del 2 Maggio . Tutto questo complica le cose specie sugli script che tengono conto del numero delle estrazioni .
Secondo me qualche risultato più giusto si comincerà a vedere dal mese prossimo quando, Speriamo, le estrazioni saranno regolari . Buona giornata a tutti e Buon inizio Settimana ??
 

giluge

Super Member >PLATINUM<
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
ciao
mi sono messo piu' volte a copiare lo script ma non riesco, ho difficolta'
mi puoi mandare il predetto script via email? grazie
attorrep chiocciola VIOLAZIONE: scambio email non consentito !
grazie mille
Attenzione la barra potrebbe non risultare aggiornata ma basta spostarla per vederla aggiornta

 

Mike58

Advanced Member >PLATINUM PLUS<
Io veramente non capisco l'importanza di avere 13 indici mensili se questi ad Aprile non si sono stati.
L'indice mensile è un numero di estrazioni progressivo che ci sono in un mese dato.
Se le estrazioni non ci sono state è chiaro che in quel dato mese di aprile saranno inferiori a 13.
Poi tutta la diatriba su come calcolano gli script ritardi e frequenza e vari indici, vi dico che vengono calcolati nella giusta maniera.
E' altresì chiaro che se ad aprile cerco un indice mensile pari a 10 lo script o una ricerca non lo trova in quanto non esiste, così come se cerco un indice 14 in qualsiasi altro mese, non esiste.
prova script

Codice:
Sub Main
  Ini = EstrazioneFin-38
  fin = EstrazioneFin
  For es = Ini To fin
  If IsUltimaDelMese(es) Then
  Scrivi IndiceMensile(es) & vbTab & GetInfoEstrazione(es) & " Ultima del Mese",1,,2
  Else
  Scrivi IndiceMensile(es) & vbTab & GetInfoEstrazione(es)
  End If

  Next
End Sub
 

costbat

Member
Grazie ad Assunta55, ho fatto come spiega lei e gli aggiornamenti hanno continuato poi con il solito metodo previsto in Spaziometria.
 

sergiomane63

Super Member >GOLD<
Grazie ad Assunta55, ho fatto come spiega lei e gli aggiornamenti hanno continuato poi con il solito metodo previsto in Spaziometria.
Se avete ancora problemi ad aggiornare le estrazioni verificate sempre nel menù dowloand questo post con le indicazioni di Lotto_Tom75
 

Allegati

  • Screenshot_20200518-132227~2.png
    Screenshot_20200518-132227~2.png
    93 KB · Visite: 36

Oscar

Advanced Member >GOLD<
Per quello che mi risulta a mè l'estrazione del 05/05/2020 è la numero 37 , visto che la precendende era la 36 poi chi lo definisce che dalla 36 si passa alla 54 (considerato che L'Aams , ha fatto il salto solamente nel Lotto e 10eLotto , ma non nel SuperEnalotto , quindi cosa cambiava , nemmeno loro san quel che fanno )
 

druid

Super Member >PLATINUM<
Ciao a tutti,
ho postato un "metodo" per lo scaricamento degli archivi di SPMT dal sito di Silop "indipendente" dalla versione di SPMT posseduta.
Lo trovate qui:
Potete testarlo e darmi dei feedback.
Grazie
 

druid

Super Member >PLATINUM<
AIUTO, ora non mi aggiorna nemmeno superenalotto...

qualcuno mi puo' aiutare?
grazie

Ciao,
hai provato la procedura che ho descritto nel post che linko:
aggiorna tutti gli archivi.
Ciao
 

sandrina50

Super Member >PLATINUM<
Se può essere utile, si può aggiornare le estrazioni, per non copiarle a mano visto che possiamo anche sbagliare a scrivere

ho trovato questa soluzione dal
menù - aggiornamento lotto
manuale
copiando le estrazioni che vi riporto sotto, vi posizionate con il cursore sulla data e vi copia esattamente i numeri nelle giuste posizioni e salvate
Il copia deve partire esattamente con il cursore sul 5 della data 5 maggio 2020
dal menu delle estrazioni date il copia che trovate nel pannello delle estrazioni da salvare.

Prima estrazione

5 maggio 2020

Bari 8 17 27 62 14
Cagliari 53 84 11 48 13
Firenze 60 18 85 15 9
Genova 84 69 40 10 13
Milano 78 28 51 20 56
Napoli 8 15 39 63 78
Palermo 68 61 77 78 5
Roma 55 46 83 79 70
Torino 60 79 14 32 56
Venezia 87 32 27 78 59
Nazionale 68 32 48 21 35

seconda estrazione

7 maggio 2020

Bari 72 60 88 21 80
Cagliari 48 58 13 55 36
Firenze 68 69 3 49 56
Genova 49 66 7 33 27
Milano 15 24 48 25 22
Napoli 46 49 88 56 38
Palermo 18 22 23 90 19
Roma 40 32 56 46 75
Torino 73 87 23 34 53
Venezia 78 54 24 37 8
Nazionale 58 73 51 21 30

Ho provato a copiare da altri siti ma questa soluzione è una che funziona senza fare errori.
Ciao Xeroxs, ho provato anch'io a copiare ed effettivamente sono riuscita a caricare le estrazioni io ho un win10 e il programma 1.6.34 ora ti chiedo dove trovo queste estrazioni da copiare ?...perchè io ho fatto una prova con quella del 7maggio che hai postato sopra e poi ho cancellato Ti ringrazio e Ti saluto ciao
sandrina
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 18 aprile 2024
    Bari
    13
    39
    14
    70
    78
    Cagliari
    67
    65
    03
    87
    63
    Firenze
    85
    90
    19
    67
    78
    Genova
    60
    81
    39
    33
    13
    Milano
    90
    01
    83
    11
    88
    Napoli
    18
    12
    80
    29
    19
    Palermo
    50
    83
    40
    24
    12
    Roma
    74
    48
    75
    65
    37
    Torino
    80
    46
    44
    27
    30
    Venezia
    70
    16
    72
    03
    89
    Nazionale
    89
    22
    06
    87
    13
    Estrazione Simbolotto
    Genova
    28
    21
    43
    25
    17
Alto