PROGRAMMA SPAZIOMETRIA

DANNYGIRL · 25 Ottobre 2022

Buon giorno !!! Stamattina stavo aggiornando quadro estrazionale. Non sono riuscita e mi è comparsa la seguente scritta. Per piacere mi potete aiutare a sistemare il problema ??? GRAZIE per la vostra pazienza e buona giornata.

claudio8 · 25 Ottobre 2022

Sostituisci negli indirizzi L' "http " con https

silop2005 · 25 Ottobre 2022

DANNYGIRL ha scritto:
Buon giorno !!! Stamattina stavo aggiornando quadro estrazionale. Non sono riuscita e mi è comparsa la seguente scritta. Per piacere mi potete aiutare a sistemare il problema ??? GRAZIE per la vostra pazienza e buona giornata.

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

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 SpazioLight.net V.1.0.38

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

Ciao DANNYGIRL ,

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

oltre ai consigli del bravo Claudio8, che ringrazio per la collaborazione

puoi guardare anche le immagini iniziali del mio thread qui :

Aggiornamento archivio lotto e superenalotto per SPAZIOMETRIA da spazio/web silop

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 ====================== Ciao a TU T T I , ====================== dopo molte difficoltà sono riuscito piano piano a TRASFERIRE...

forum.lottoced.com

se riscontri altri problemi, ci fai sapere.

Buon divertimento.

ringrazio per i "mi piace" : cutoff, edesimone, claudio8, Xeroxs, Ramco

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

Buon martedì a tutto il forum.

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

A presto

Silop

DANNYGIRL · 29 Ottobre 2022

Buon giorno !!! Con molto ritardo e ti chiedo SCUSA, ti ringrazio per la tua gradita risposta. Buona domenica .

DANNYGIRL · 29 Ottobre 2022

Tutto risolto. Grazie ancora !!!

claudio8 · 30 Ottobre 2022

DANNYGIRL ha scritto:
Tutto risolto. Grazie ancora !!!

Prego

mastrogino · 31 Ottobre 2022

Buona Domenica a tutti voi , vi chiedo un favore ?
perche nel riquadro non riesco a vedere le opzioni di come muovere la ruota prima c'erano adesso sono sparite anche quella dove c'è l'estrazione e altre opzioni
grazie 1000

Alien. · 31 Ottobre 2022

Ciao mastrogino dove si trova su spaziometria ,grazie.

mastrogino · 31 Ottobre 2022

Alien. ha scritto:
Ciao mastrogino dove si trova su spaziometria ,grazie.

ciao Alien si su spaziometria ...........ma adesso ho sisolto grazie
mi puoi far sapere se qui vi è un SCRIPT che ti da la somma dei 5 estratti integro senza il fuori 90
grazie

Alien. · 31 Ottobre 2022

Mi dici in quale pagina in alto lo trovo somme-distanze-metodi ecc.
Per lo script non so dirti nulla.

salvo50 · 31 Ottobre 2022

Ciao Alien

pigia dove indica la freccia

mastrogino · 31 Ottobre 2022

Alien. ha scritto:
Mi dici in quale pagina in alto lo trovo somme-distanze-metodi ecc.
Per lo script non so dirti nulla.

salvo50 ha scritto:
Ciao Alien

pigia dove indica la freccia

Vedi l'allegato 2245378

GRAZIE SALVO NON RIUSCIVO A CARICARE LA FOTO , mi sapresti dire se trovo un script che da la somma integra dei 5 estratti senza il fuori 90 -? grazie

salvo50 · 31 Ottobre 2022

mastrogino ha scritto:
GRAZIE SALVO NON RIUSCIVO A CARICARE LA FOTO , mi sapresti dire se trovo un script che da la somma integra dei 5 estratti senza il fuori 90 -? grazie

Ciao mastrogino

metti lo script che gli tolgo il fuori 90

i legend · 31 Ottobre 2022

For r = 1 to 12
Ir r=11 then r=12
Scrivi sommaestratti( estrazionefin,r)
Next
Vado a memoria.
Controllare.

mastrogino · 31 Ottobre 2022

ECCOLO .........FATTO DAL MITICO LUIGI AI TEMPI DELLA CREAZIONE DI SPAZIOMETRIA
PRECISAMENTE A ME INTERESSA LA SOMMA VERTIBILE DEI 5 ESTRATTI PER ESEMPIO
101.121.131.414.559.E COSI VIA . GRAZIE IN ANTICIPO

Option Explicit
Dim ColoreFixedCol
Dim ForeColorFixedCol
Dim ColoreColSomma
Sub Main
Dim idEstr,Inizio,Fine
ReDim aT(13)
ReDim aFont(13)
ReDim aColori(13)
ReDim aForeColor(13)
ReDim aClrEvid(3)
Call Init(aT,aFont,aColori,aForeColor,aClrEvid)
Inizio = EstrazioneIni
Fine = EstrazioneFin
For idEstr = Inizio To Fine
Call EseguiStat(idEstr,aT,aFont,aColori,aForeColor,aClrEvid)
Call AvanzamentoElab(Inizio,Fine,idEstr)
If ScriptInterrotto Then Exit For
Next
End Sub
Sub Init(aT,aFont,aColori,aForeColor,aClrEvid)
Dim k,i,r
ColoreFixedCol = RGB(143,143,143)
ForeColorFixedCol = vbWhite
ColoreColSomma = RGB(192,192,192)
For k = 1 To 13
aFont(k) = "Lucida console"
aColori(k) = vbCyan
aForeColor(k) = vbBlack
Next
aFont(1) = "Courier new"
aColori(1) = ColoreFixedCol
aColori(2) = ColoreColSomma
aForeColor(1) = ForeColorFixedCol
aT(1) = "Ruota"
aT(2) = "Somma"
i = 2
For r = 3 To 14
If r - 2 <> 11 Then
i = i + 1
aT(i) = " " & SiglaRuota(r - 2) & " "
End If
Next
aClrEvid(1) = vbRed
aClrEvid(2) = RGB(255,128,0)
aClrEvid(3) = vbYellow
End Sub
Sub EseguiStat(idEstr,aT,aFont,aColori,aForeColor,aClrEvid)
Dim r,s,i,k,idRit
ReDim aV(13)
ReDim aRitPerRuota(121,3)
idRit = 0
Call InitTabella(aT,ColoreFixedCol,,,ForeColorFixedCol,"Courier new")
For r = 1 To 12
If r <> 11 Then
s = Fuori90(SommaEstratti(idEstr,r))
i = 2
aV(1) = NomeRuota(r)
aV(2) = s
For k = 1 To 12
If k <> 11 Then
i = i + 1
aV(i) = RitardoEstratto(s,idEstr,k)
idRit = idRit + 1
aRitPerRuota(idRit,1) = s ' il numero cioe la somma estratti
aRitPerRuota(idRit,2) = aV(i) ' il suo ritardo
aRitPerRuota(idRit,3) = k ' la ruota dove è stato calc il rit
End If
Next
Call ModificaColori(aV,aColori,aClrEvid)
Call AddRigaTabella(aV,aColori,,,aForeColor,aFont)
End If
Next
Call Scrivi(String(100,"_"))
Call Scrivi(GetInfoEstrazione(idEstr) & " -- Ritardo somme sulle ruote")
Call Scrivi(String(100,"_"))
Call Scrivi
Call CreaTabella
ReDim aTT(3)
aTT(1) = "Somma"
aTT(2) = "Ruota"
aTT(3) = "Ritardo"
Call InitTabella(aTT,ColoreFixedCol,,,ForeColorFixedCol,"Lucida console")
Call OrdinaMatrice(aRitPerRuota,- 1,2)
For k = 1 To 5
'Call Scrivi("Somma : " & FormatSpace(aRitPerRuota(k,1),4,True) & " Rit " & FormatSpace(aRitPerRuota(k,2),5,True) & " Ruota " & SiglaRuota(aRitPerRuota(k,3)))
aTT(1) = aRitPerRuota(k,1)
aTT(2) = SiglaRuota(aRitPerRuota(k,3))
aTT(3) = aRitPerRuota(k,2)
Call AddRigaTabella(aTT,vbCyan,,,,"Lucida console")
Next
Call Scrivi("Primi 5 più in ritardo")
Call CreaTabella
End Sub
Sub ModificaColori(aT,aColori,aClrEvid)
Dim k,j
ReDim aRit(11)
For k = 3 To 13
aRit(k - 2) = aT(k)
Next
Call OrdinaMatrice(aRit,- 1)
For k = 3 To 13
aColori(k) = vbCyan
Next
For k = 1 To UBound(aClrEvid)
For j = 3 To 13
If aT(j) = aRit(k) Then
aColori(j) = aClrEvid(k)
End If
Next
Next
End Sub

salvo50 · 31 Ottobre 2022

gli ho tolto il Fuori90

Codice:

Option Explicit
Dim ColoreFixedCol
Dim ForeColorFixedCol
Dim ColoreColSomma
Sub Main
   Dim idEstr,Inizio,Fine
   ReDim aT(13)
   ReDim aFont(13)
   ReDim aColori(13)
   ReDim aForeColor(13)
   ReDim aClrEvid(3)
   Call Init(aT,aFont,aColori,aForeColor,aClrEvid)
   Inizio = 10000'EstrazioneIni
   Fine = EstrazioneFin
   For idEstr = Inizio To Fine
      Call EseguiStat(idEstr,aT,aFont,aColori,aForeColor,aClrEvid)
      Call AvanzamentoElab(Inizio,Fine,idEstr)
      If ScriptInterrotto Then Exit For
   Next
End Sub
Sub Init(aT,aFont,aColori,aForeColor,aClrEvid)
   Dim k,i,r
   ColoreFixedCol = RGB(143,143,143)
   ForeColorFixedCol = vbWhite
   ColoreColSomma = RGB(192,192,192)
   For k = 1 To 13
      aFont(k) = "Lucida console"
      aColori(k) = vbCyan
      aForeColor(k) = vbBlack
   Next
   aFont(1) = "Courier new"
   aColori(1) = ColoreFixedCol
   aColori(2) = ColoreColSomma
   aForeColor(1) = ForeColorFixedCol
   aT(1) = "Ruota"
   aT(2) = "Somma"
   i = 2
   For r = 3 To 14
      If r - 2 <> 11 Then
         i = i + 1
         aT(i) = " " & SiglaRuota(r - 2) & " "
      End If
   Next
   aClrEvid(1) = vbRed
   aClrEvid(2) = RGB(255,128,0)
   aClrEvid(3) = vbYellow
End Sub
Sub EseguiStat(idEstr,aT,aFont,aColori,aForeColor,aClrEvid)
   Dim r,s,i,k,idRit
   ReDim aV(13)
   ReDim aRitPerRuota(121,3)
   idRit = 0
   Call InitTabella(aT,ColoreFixedCol,,,ForeColorFixedCol,"Courier new")
   For r = 1 To 12
      If r <> 11 Then
         's = Fuori90(SommaEstratti(idEstr,r))
         s = SommaEstratti(idEstr,r)

         i = 2
         aV(1) = NomeRuota(r)
         aV(2) = s
         For k = 1 To 12
            If k <> 11 Then
               i = i + 1
               aV(i) = RitardoEstratto(s,idEstr,k)
               idRit = idRit + 1
               aRitPerRuota(idRit,1) = s ' il numero cioe la somma estratti
               aRitPerRuota(idRit,2) = aV(i) ' il suo ritardo
               aRitPerRuota(idRit,3) = k ' la ruota dove è stato calc il rit
            End If
         Next
         Call ModificaColori(aV,aColori,aClrEvid)
         Call AddRigaTabella(aV,aColori,,,aForeColor,aFont)
      End If
   Next
   Call Scrivi(String(100,"_"))
   Call Scrivi(GetInfoEstrazione(idEstr) & " -- Ritardo somme sulle ruote")
   Call Scrivi(String(100,"_"))
   Call Scrivi
   Call CreaTabella
   ReDim aTT(3)
   aTT(1) = "Somma"
   aTT(2) = "Ruota"
   aTT(3) = "Ritardo"
   Call InitTabella(aTT,ColoreFixedCol,,,ForeColorFixedCol,"Lucida console")
   Call OrdinaMatrice(aRitPerRuota,- 1,2)
   For k = 1 To 5
      'Call Scrivi("Somma : " & FormatSpace(aRitPerRuota(k,1),4,True) & " Rit " & FormatSpace(aRitPerRuota(k,2),5,True) & " Ruota " & SiglaRuota(aRitPerRuota(k,3)))
      aTT(1) = aRitPerRuota(k,1)
      aTT(2) = SiglaRuota(aRitPerRuota(k,3))
      aTT(3) = aRitPerRuota(k,2)
      Call AddRigaTabella(aTT,vbCyan,,,,"Lucida console")
   Next
   Call Scrivi("Primi 5 più in ritardo")
   Call CreaTabella
End Sub
Sub ModificaColori(aT,aColori,aClrEvid)
   Dim k,j
   ReDim aRit(11)
   For k = 3 To 13
      aRit(k - 2) = aT(k)
   Next
   Call OrdinaMatrice(aRit,- 1)
   For k = 3 To 13
      aColori(k) = vbCyan
   Next
   For k = 1 To UBound(aClrEvid)
      For j = 3 To 13
         If aT(j) = aRit(k) Then
            aColori(j) = aClrEvid(k)
         End If
      Next
   Next
End Sub

stef · 8 Novembre 2022

Da qualche giorno ricevo questo errore quando provo ad aggiornare le estrazioni;

come posso risolvere?

claudio8 · 8 Novembre 2022

l'errore è relativo ad un mancato collegamento ad internet.
Che browser usi? specifica anche la versione

Alien. · 9 Novembre 2022

salvo50 ha scritto:
Ciao Alien

pigia dove indica la freccia

Vedi l'allegato 2245378

Bel cerchio , scusami ma come si usa non ci sono stato dietro,grazie.

ppaaoolloo · 9 Novembre 2022

ciao
a me in spaziometria non mi funzionano
le lunghette per estratto....
quando le provo mi si chiude il programma,
a voi funzionano?

percorso: statistiche - su estratti - lunghette ritardo estratto

PROGRAMMA SPAZIOMETRIA

Super member

Allegati

Premium Member

Advanced Member >PLATINUM<

Super member

Super member

Premium Member

Advanced Premium Member

Allegati

Advanced Premium Member

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Member

Premium Member

Advanced Premium Member

Super Member >PLATINUM<