SPAZIOSCRIPT

[i legend]

Ciao luigi fatto
aspetto la nuova ui

 

[LuigiB]

Ciao a tutti ..ciao Avio ,Emplein .. certo ho appena spedito una mail ditemi se vi è arrivata.
Benevenuto Joe ... ! A te ho girato la mail che avevo fatto perche non mi ero ancora accorto del tuo post.
Ciao Claudio...acc mi dispiace e pensa che l'input me lo hai dato tu qualche mese fa quando mi avevi detto che volevi passare uno script a un tuo amico ma non riusciva ad installare spaziometria ...purtroppo ci vuole almeno seven ..

Magia siccome non so se ho ricevuto una tua mail nel caso non ti fosse arrivata la mia dovresti riprovare a mandarmela dicendo nel testo che sei tu perche senno solo dall'indirizzo non capisco ..

saluti a tutti ...

se a chiunque di voi non fosse arrivata la mail che ho spedito mi faccia sapere... ineffetti avete aderito in molti.. mi fa piacere ..

 

[Rubino]

Ciao LuigiB

scaricato ed installato spazio script con windows10, senza errori, caricato ed eseguito un paio di script
funzionamento regolare.


1° segnalazione

vedi foto con spaziometria e con spazioscript
la tabella oltre ad avere colori diversi o grigi nel mio caso,
il tasto OK, su spazioscript non funziona, è disattivato, ma premendo la (x), elabora regolarmente
lo script producendo l'output.



con l'istruzione SCEGLINUMERI





2 segnalazione

come si fa ad aggiornare l'archivio di spazio script, perché fermo alla 9417 del 4/1/2018

spaziometria io l'ho aggiornato alla 9419 del 9/1/2018


....

 

[Rubino]

OKEY per l'aggiornamento degli archivi ho capito, bisogna spostare il range nella iconina RANGE DI DEFAULT

CIAO



ho postato nel forum un 'immagine della tabella dei 90 numeri
istruzione sceglinumeri
che in spazioscript figurano in nero/grigio a differenza di spaziometria che erano tutti colorati

inoltre dopo averli selezionati, invertendo la selezione, per attivare lo script devo pigiare la (x) e non
il tasto (ok)

 

[Rubino]

spazioscript in nero/grigio
spaziometria a colori

in tasto ok è disattivato su spazioscript, lo script parte pigiando la (x)

 

[Mike58]

Installato SpazioScript, chiaro che bisogna prenderci familiarità, una cosa che mi complica sta nel fatto che aperto lo script ed eseguito resta nella barra anche dopo averne aperti altri, meglio se c'è anche una x per eliminarli se non si vogliono + usare.

aggiornato archivio da aggiornamento web noto delle differenze di risultato con spaziometria su alcuni script, e uno tra questi viene eseguito in spaziometria ma da errore in spazioscript.

Vi posto lo script x vostre verifiche.

Sub Main
 Dim Ru(1),T,V
 ritroso = CInt(InputBox("quante Estrazioni indietro",,1))
 Ini = EstrazioneFin - 300
 fin = EstrazioneFin - ritroso
 Fine = EstrazioneFin
 fs = CInt(InputBox("Quale fascia di ritardo Minima",,54))
 fsx = CInt(InputBox("Quale fascia di ritardo Massima",,210))
 Scrivi
 SetColorSezione(6)
 Scrivi "Inizio Range : " & GetInfoEstrazione(Ini)
 Scrivi "Fine Range   : " & GetInfoEstrazione(fin)
 Scrivi "Fascie di Ritardo > a " & fs,1
 Scrivi "Fascie di Ritardo > a " & fsx,1

 Scrivi
 EndColorSezione
 T = Array(T,"Ruota","Presenze Reali","Numeri","Ritardi Relativi Num","Min","Max","Presenza teorica","Scarto","Colpo","VerificaEsito","Ritardo Rp_Gruppo")
 Call InitTabella(T,,,3,1,"Cambria")
 For r = 1 To 12
  If r = 11 Then r = 12
  Ru(1) = r
  For n = 1 To 90
   Nrit = EstrattoRitardo(r,n,Ini,fin)
   If Nrit > fs And Nrit < fsx Then
    k = k + 1
    ReDim Preserve aNum(k)
    aNum(k) = n
    ReDim Preserve pos(k)
    pos(k) = RitPosCrono(n,Ru,fine)
    minGr = MinimoV(pos,1,- 1) ' visualizza il minimo Rp_Gruppo
    'slr = RitSincDiLiv(n,Ru,fine,k)
   End If
   If Nrit > fs And Nrit < fsx Then
    ReDim Preserve NritNum(k)
    NritNum(k) = Nrit
    min = MinimoV(NritNum,1,- 1)
    max = MassimoV(NritNum)
   End If
  Next

  If k > 0 Then  
  kk = Round(QuantitaTeoricaCombCompreseTraRit(min,max,1,1,1),2)
  kkk = k - kk
  Call VerificaEsitoTurbo(aNum,Ru,fine,1,1,,,clp,es1)
   'aa = SerieRitardoTurbo(Ini,fin,aNum,Ru,1) ' visualizza anche il ritardo minimo
   V = Array(V,SiglaRuota(r),k,StringaNumeri(aNum),StringaNumeri(NritNum),min,max,kk,kkk,clp,es1,minGr)
   Call AddRigaTabella(V,,,3,,"Cambria")   
   Else
   vv = Array(vv,SiglaRuota(r),"-","..","..","..","..","..","..","..","..","..","..")   
   Call AddRigaTabella(vv,,,3,,"Cambria")
  End If
  If kkk > 1.20 Then Call SetColoreCella(8,,2)
  k = 0
  kk = 0  
  If ScriptInterrotto Then Exit For
 Next
 Call SetTableWidth("100%")
 CreaTabella
 Scrivi
 Scrivi "Script by Mike58",1,,,2,3,,1
End Sub

 

[Rubino]

ciao Mike58

ho fatto copia /incolla del tuo script in spazioscript
funziona regolarmente

 

[Mike58]

Ciao Rubino, grazie infatti ho qualche problema a sincronizzare gli archivi, anche se sembra tutto ok infatti ne vedo 9419 non mi elabora l'ultima.
anche se vedo dalla tua schermata che non scrive le frequenze teoriche, cosa che scrive in spaziometria.

Vedo che tu hai perfettamente sincronzzato, dammi, dacci la dritta per operare al meglio.

Grazie

 

[Mike58]

Io ho qualche problema a gestire l'ultima estrazione in spazioscript

Sub Main
 Dim nu(5)
 ini = EstrazioneFin
 fin = EstrazioneFin

 For es = ini To fin
  For r = 1 To 12
   If r = 11 Then r = 12
    For p = 1 To 5
     nu(p) = Estratto(es,r,p)
    Next
    Scrivi SiglaRuota(r) & vbTab & StringaNumeri(nu,,1)
   Next
   Next
   Scrivi es
End Sub

immagine spaziometria


immagine spazioscript

 

[salvo50]

Ciao LuigiB

testato con con un lungo script e che in spaziometria durante la programmazione è molto lento, e nonostante tu abbia detto che non aggiunge potenza agli script prodotti, lo trovo molto più veloce, per il momento ho fatto solo qualche prova e ho constatato che quando con il mouse cerco di marcare, ad esempio una riga, per fare copia-incolla, dove passo il cursore, non riesco a vedere cosa sto marcando, perche non è trasparente, poi nell'output le scritte che dovrebbero apparire su diverse righe, mi appaiono in una sola riga, per il momento è tutto.

 

[LuigiB]

Ragazzi buongiorno a tutti ..grazie delle segnalazioni continuate le verifiche io piano piano le gestisco

MIKE i valori del range si impostano da un icona con due freccie contrapposte rossa e blu..e da li che prende i valori estrazioneini ed estrazione fin

RUBINO
Sistemo quanto mi hai segnalato

SALVO

e lossibile scegliere i colori per la selezione si fa da opzioni
Anche il discorso xegli acapo si gestisce da li adogni modo posta lo script che da problemi...


Entro domenica sera vi rsinvio il programma con le nuove modificbe...continuate le verifiche..grazie e un saluto a tutti.

 

[Rubino]

Ciao LuigiB
questa sera dopo l'estrazione provo ad aggiornare l'archivio Lotto

e vediamo se ho visto bene ieri sera,( sono in dubbio), l'archivio era aggiornato al giorno 4/1/2018
mi sono accorto che con spaziometria i ritardi non corrispondevano ed ho effettuato l'aggiornamento, che ha funzionato regolarmente,
ma nella tendina degli archivi il range ultima estrazione non si è spostato automaticamente sull'ultima appena aggiornata.

dico ciò perché, rilanciando lo script, nella convinzione di trovare i ritardi corretti, così non era,
poi ho capito che dovevo spostare io il range sull'ultima estrazione che compariva nell'archivio.

in spaziometria questo particolare viene aggiornato automaticamente quando si effettua l'aggiornamento web.

------------------------------------
seconda eventuale domanda che ho da porti è questa:

poiché avrei bisogno di usare le tabelle, non è possibile in futuro avere il modulo che permette di ImportareTabelle così come
ha spaziometria?

non importa l'effettuare calcoli di ritardo,frequenza etc..., (ma lo faranno gli script), ma solo la possibilità di importare tabelle
con tutte le caratteristiche elencate nella foto

 

[LuigiB]

Ciao Rubino..si è possibile inserire la funzionalita richiesta

 

[Mike58]

Purtroppo io continuo ad avere problemi a gestire l'ultima estrazione infatti non riconosce il dato 9419
io con questo script non ho risultati malgrado ho cercato anche di allacciare gli archivi di spaziometria.

provate anche voi, oppure è solo un mio problema

Sub Main()
 Dim ruo(1),n1(5),n2(1),n3(1),n4(1),n5(1),nu(5),anum(5),rpp(5)
 ess = InputBox("Quale estrazione visualizzare ",,EstrazioneFin)
 ini = EstrazioneFin - 200
 fin = ess - 1
 ex = ess - Ini
 Call Scrivi(" Quadro estrazionale statistica numeri estratti  ",True,False,1,5,3)
 Call Scrivi(" su n° " & ex & " estrazioni ",True,False,7,0,3)
 Call Scrivi(" ******** Listed by Mike58 ********* ",True,False,4,2,3)
 Scrivi
 Scrivi "Estrazione del......." & DataEstrazione(ess,1),1
 ReDim atitoli(25)
 atitoli(1) = " "
 atitoli(2) = " Ruota "
 atitoli(3) = " "
 atitoli(4) = " 1°E "
 atitoli(5) = " 2°E "
 atitoli(6) = " 3°E "
 atitoli(7) = " 4°E "
 atitoli(8) = " 5°E "
 atitoli(9) = " "
 atitoli(10) = " RP 1° "
 atitoli(11) = " RP 2° "
 atitoli(12) = " RP 3° "
 atitoli(13) = " RP 4° "
 atitoli(14) = " RP 5° "
 atitoli(15) = " "
 atitoli(16) = " FR 1° "
 atitoli(17) = " FR 2° "
 atitoli(18) = " FR 3° "
 atitoli(19) = " FR 4° "
 atitoli(20) = " FR 5° "
 atitoli(21) = " "
 atitoli(22) = " Ritardo Medio "
 atitoli(23) = " ambo in decina "
 atitoli(24) = " ambo in cadenza "
 atitoli(25) = " ambo in figura "
 Call InitTabella(atitoli,1,,3,5)
 For r = 1 To 12
  If r = 11 Then r = 12
  ruo(1) = r
  a = Estratto(ess,r,1)
  b = Estratto(ess,r,2)
  c = Estratto(ess,r,3)
  d = Estratto(ess,r,4)
  e = Estratto(ess,r,5)
  n1(1) = a
  n2(1) = b
  n3(1) = c
  n4(1) = d
  n5(1) = e
  rp1 = SerieRitardo(Ini,fin,n1,ruo,1)
  rp2 = SerieRitardo(Ini,fin,n2,ruo,1)
  rp3 = SerieRitardo(Ini,fin,n3,ruo,1)
  rp4 = SerieRitardo(Ini,fin,n4,ruo,1)
  rp5 = SerieRitardo(Ini,fin,n5,ruo,1)
  Sf1 = SerieFreq(Ini,ess,n1,ruo,1)
  Sf2 = SerieFreq(Ini,ess,n2,ruo,1)
  Sf3 = SerieFreq(Ini,ess,n3,ruo,1)
  Sf4 = SerieFreq(Ini,ess,n4,ruo,1)
  Sf5 = SerieFreq(Ini,ess,n5,ruo,1)
  '--------metto i  numeri in formazione -------------

  rpp(1) = rp1
  rpp(2) = rp2
  rpp(3) = rp3
  rpp(4) = rp4
  rpp(5) = rp5
  anum(1) = a
  anum(2) = b
  anum(3) = c
  anum(4) = d
  anum(5) = e
  ReDim avalori(25)
  avalori(1) = " "
  avalori(2) = NomeRuota(r)
  avalori(3) = " "
  avalori(4) = a
  avalori(5) = b
  avalori(6) = c
  avalori(7) = d
  avalori(8) = e
  avalori(9) = " "
  avalori(10) = rp1
  avalori(11) = rp2
  avalori(12) = rp3
  avalori(13) = rp4
  avalori(14) = rp5
  avalori(15) = " "
  avalori(16) = sf1
  avalori(17) = sf2
  avalori(18) = sf3
  avalori(19) = sf4
  avalori(20) = sf5
  avalori(21) = " "
  avalori(22) = MassimoV(rpp) 'Int(rp1 + rp2 + rp3 + rp4 + rp5)/5
  avalori(23) = ambiindecina(a,b,c,d,e)
  avalori(24) = ambiincadenza(a,b,c,d,e)
  avalori(25) = ambiinfigura(a,b,c,d,e)




  nu(1) = a
  nu(2) = b
  nu(3) = c
  nu(4) = d
  nu(5) = e
  Call AddRigaTabella(avalori,,,3,,"lucida bolt")
  Call Settacolori(rp1,rp2,rp3,rp4,rp5)
  If rp1 = 0 Then riga1 = riga1 + 1
  If rp2 = 0 Then riga2 = riga2 + 1
  If rp3 = 0 Then riga3 = riga3 + 1
  If rp4 = 0 Then riga4 = riga4 + 1
  If rp5 = 0 Then riga5 = riga5 + 1
  rigazero = riga1 + riga2 + riga3 + riga4 + riga5
  If rp1 > 0 And rp1 < 10 Then riga11 = riga11 + 1
  If rp2 > 0 And rp2 < 10 Then riga22 = riga22 + 1
  If rp3 > 0 And rp3 < 10 Then riga33 = riga33 + 1
  If rp4 > 0 And rp4 < 10 Then riga44 = riga44 + 1
  If rp5 > 0 And rp5 < 10 Then riga55 = riga55 + 1
  riga10 = riga11 + riga22 + riga33 + riga44 + riga55
  If rp1 > 99 Then cent1 = cent1 + 1
  If rp2 > 99 Then cent2 = cent2 + 1
  If rp3 > 99 Then cent3 = cent3 + 1
  If rp4 > 99 Then cent4 = cent4 + 1
  If rp5 > 99 Then cent5 = cent5 + 1
  cent = cent1 + cent2 + cent3 + cent4 + cent5
  If rp1 > 10 And rp1 < 19 Then riga111 = riga111 + 1
  If rp2 > 10 And rp2 < 19 Then riga222 = riga222 + 1
  If rp3 > 10 And rp3 < 19 Then riga333 = riga333 + 1
  If rp4 > 10 And rp4 < 19 Then riga444 = riga444 + 1
  If rp5 > 10 And rp5 < 19 Then riga555 = riga555 + 1
  riga18 = riga111 + riga222 + riga333 + riga444 + riga555
  If rp1 > 90 And rp1 < 99 Then riga1111 = riga1111 + 1
  If rp2 > 90 And rp2 < 99 Then riga2222 = riga2222 + 1
  If rp3 > 90 And rp3 < 99 Then riga3333 = riga3333 + 1
  If rp4 > 90 And rp4 < 99 Then riga4444 = riga4444 + 1
  If rp5 > 90 And rp5 < 99 Then riga5555 = riga5555 + 1
  riga90 = riga1111 + riga2222 + riga3333 + riga4444 + riga5555

 Next
 Call SetTableWidth("100%")
 CreaTabella()
 'Scrivi
 Scrivi "Estremi di ricerca: Dalla " & ini & " del " & DataEstrazione(ini) & " alla " & ess & " del " & DataEstrazione(ess),1,- 1,4
 Scrivi "valori con ritardo precedente a zero........." & rigazero,1,- 1,3
 Scrivi "valori con ritardo precedente tra 1 & 9......" & riga10,1,- 1,7
 Scrivi "valori con ritardo precedente tra 10 & 18...." & riga18,1,- 1,6
 Scrivi "valori con ritardo precedente tra 90 & 99...." & riga90,1,- 1,4
 Scrivi "valori con ritardo precedente sup a 100......" & cent,1,- 1,2
 Call PicStampaTesto(40,20,"Tabella By Mike58  ",,True,True,,11,vbBlue)
 Call PicEsegui
End Sub
Function ambiindecina(a,b,c,d,e)
  aa = Decina(a)
  bb = Decina(b)
  cc = Decina(c)
  dd = Decina(d)
  ee = Decina(e)
  If aa = bb Then ambiindecina = a & "-" & b:End If  
  If aa = cc Then ambiindecina = a & "." & c:End If
  If aa = dd Then ambiindecina = a & "-" & d:End If  
  If aa = ee Then ambiindecina = a & "-" & e:End If
  If bb = cc Then ambiindecina = b & "-" & c:End If  
  If bb = dd Then ambiindecina = b & "-" & d:End If
  If bb = ee Then ambiindecina = b & "-" & e:End If  
  If cc = dd Then ambiindecina = c & "-" & d:End If
  If cc = ee Then ambiindecina = c & "-" & e:End If  
  If dd = ee Then ambiindecina = d & "-" & e:End If

End Function
Function ambiincadenza(a,b,c,d,e)
  ca = Cadenza(a)
  cb = Cadenza(b)
  cc = Cadenza(c)
  cd = Cadenza(d)
  ce = Cadenza(e)
  If ca = cb Then ambiincadenza = a & "-" & b:End If  
  If ca = cc Then ambiincadenza = a & "-" & c:End If
  If ca = cd Then ambiincadenza = a & "-" & d:End If  
  If ca = ce Then ambiincadenza = a & "-" & e:End If
  If cb = cc Then ambiincadenza = b & "-" & c:End If  
  If cb = cd Then ambiincadenza = b & "-" & d:End If
  If cb = ce Then ambiincadenza = b & "-" & e:End If  
  If cc = cd Then ambiincadenza = c & "-" & d:End If
  If cc = ce Then ambiincadenza = c & "-" & e:End If  
  If cd = ce Then ambiincadenza = d & "-" & e:End If
End Function
Function ambiinfigura(a,b,c,d,e)
  fa = Figura(a)
  fb = Figura(b)
  fc = Figura(c)
  fd = Figura(d)
  fe = Figura(e)
  If fa = fb Then ambiinfigura = a & "-" & b & " - F. " & Figura(a):End If  
  If fa = fc Then ambiinfigura = a & "-" & c & " - F. " & Figura(a):End If
  If fa = fd Then ambiinfigura = a & "-" & d & " - F. " & Figura(a):End If  
  If fa = fe Then ambiinfigura = a & "-" & e & " - F. " & Figura(a):End If
  If fb = fc Then ambiinfigura = b & "-" & c & " - F. " & Figura(b):End If  
  If fb = fd Then ambiinfigura = b & "-" & d & " - F. " & Figura(b):End If
  If fb = fe Then ambiinfigura = b & "-" & e & " - F. " & Figura(b):End If  
  If fc = fd Then ambiinfigura = c & "-" & d & " - F. " & Figura(c):End If
  If fc = fe Then ambiinfigura = c & "-" & e & " - F. " & Figura(c):End If  
  If fd = fe Then ambiinfigura = d & "-" & e & " - F. " & Figura(d):End If
End Function
Function Settacolori(rp1,rp2,rp3,rp4,rp5)
Call SetColoreCella(1,vbBlue)
  Call SetColoreCella(3,vbBlue)
  Call SetColoreCella(9,vbBlue)
  Call SetColoreCella(15,vbBlue)
  Call SetColoreCella(21,vbBlue)
  Call SetColoreCella(4,vbYellow)
  Call SetColoreCella(5,vbYellow)
  Call SetColoreCella(6,vbYellow)
  Call SetColoreCella(7,vbYellow)
  Call SetColoreCella(8,vbYellow)
  If rp1 > 99 Then Call SetColoreCella(10,vbRed)
  If rp2 > 99 Then Call SetColoreCella(11,vbRed)
  If rp3 > 99 Then Call SetColoreCella(12,vbRed)
  If rp4 > 99 Then Call SetColoreCella(13,vbRed)
  If rp5 > 99 Then Call SetColoreCella(14,vbRed)
  If rp1 = 0 Then Call SetColoreCella(10,vbGreen)
  If rp2 = 0 Then Call SetColoreCella(11,vbGreen)
  If rp3 = 0 Then Call SetColoreCella(12,vbGreen)
  If rp4 = 0 Then Call SetColoreCella(13,vbGreen)
  If rp5 = 0 Then Call SetColoreCella(14,vbGreen)
  If rp1 > 0 And rp1 < 10 Then Call SetColoreCella(10,vbMagenta)
  If rp2 > 0 And rp2 < 10 Then Call SetColoreCella(11,vbMagenta)
  If rp3 > 0 And rp3 < 10 Then Call SetColoreCella(12,vbMagenta)
  If rp4 > 0 And rp4 < 10 Then Call SetColoreCella(13,vbMagenta)
  If rp5 > 0 And rp5 < 10 Then Call SetColoreCella(14,vbMagenta)
  If rp1 > 90 And rp1 < 99 Then Call SetColoreCella(10,vbYellow)
  If rp2 > 90 And rp2 < 99 Then Call SetColoreCella(11,vbYellow)
  If rp3 > 90 And rp3 < 99 Then Call SetColoreCella(12,vbYellow)
  If rp4 > 90 And rp4 < 99 Then Call SetColoreCella(13,vbYellow)
  If rp5 > 90 And rp5 < 99 Then Call SetColoreCella(14,vbYellow)

End Function

con spazioM



con spazio script



per ora non saprei, aspetto suggerimenti.

ciao a tutti.

 

[Beppignello]

ciao Mike58

hai fatto salva sul quadro dell'archivio??

usando il tuo script ho questo output

 

[Enplein]

Ricevuto...grazie.
Ciao, Enplein.

 

[Mike58]

No !!! Tieni presente che in spaziometria funziona, ma se a te funziona sicuramente è un problema solo mio e dei miei archivi, oppure spazioscript non lo gestisce così.

Se io faccio lo stesso con la scrittura estratti ultima estrazione ossia estrazionefin in spazioscript non me li scrive come videata altro post precedente.

comunque grazie del tuo intervento.

 

[Rubino]

ciao LuigiB


sto lanciando un po di script che ho e che funzionano regolarmente in spaziometria

ti segnalo:


i messaggi a video non compaiono più?

Messaggio("estraz.n." & es)

inoltre


If ScriptInterrotto Then Exit For

non è più attiva?

 

[salvo50]

Purtroppo io continuo ad avere problemi a gestire l'ultima estrazione infatti non riconosce il dato 9419
io con questo script non ho risultati malgrado ho cercato anche di allacciare gli archivi di spaziometria.

provate anche voi, oppure è solo un mio problema

Sub Main()
Dim ruo(1),n1(5),n2(1),n3(1),n4(1),n5(1),nu(5),anum(5),rpp(5)
ess = InputBox("Quale estrazione visualizzare ",,EstrazioneFin)
ini = EstrazioneFin - 200
fin = ess - 1
ex = ess - Ini
Call Scrivi(" Quadro estrazionale statistica numeri estratti ",True,False,1,5,3)
Call Scrivi(" su n° " & ex & " estrazioni ",True,False,7,0,3)
Call Scrivi(" ******** Listed by Mike58 ********* ",True,False,4,2,3)
Scrivi
Scrivi "Estrazione del......." & DataEstrazione(ess,1),1
ReDim atitoli(25)
atitoli(1) = " "
atitoli(2) = " Ruota "
atitoli(3) = " "
atitoli(4) = " 1°E "
atitoli(5) = " 2°E "
atitoli(6) = " 3°E "
atitoli(7) = " 4°E "
atitoli(8) = " 5°E "
atitoli(9) = " "
atitoli(10) = " RP 1° "
atitoli(11) = " RP 2° "
atitoli(12) = " RP 3° "
atitoli(13) = " RP 4° "
atitoli(14) = " RP 5° "
atitoli(15) = " "
atitoli(16) = " FR 1° "
atitoli(17) = " FR 2° "
atitoli(18) = " FR 3° "
atitoli(19) = " FR 4° "
atitoli(20) = " FR 5° "
atitoli(21) = " "
atitoli(22) = " Ritardo Medio "
atitoli(23) = " ambo in decina "
atitoli(24) = " ambo in cadenza "
atitoli(25) = " ambo in figura "
Call InitTabella(atitoli,1,,3,5)
For r = 1 To 12
If r = 11 Then r = 12
ruo(1) = r
a = Estratto(ess,r,1)
b = Estratto(ess,r,2)
c = Estratto(ess,r,3)
d = Estratto(ess,r,4)
e = Estratto(ess,r,5)
n1(1) = a
n2(1) = b
n3(1) = c
n4(1) = d
n5(1) = e
rp1 = SerieRitardo(Ini,fin,n1,ruo,1)
rp2 = SerieRitardo(Ini,fin,n2,ruo,1)
rp3 = SerieRitardo(Ini,fin,n3,ruo,1)
rp4 = SerieRitardo(Ini,fin,n4,ruo,1)
rp5 = SerieRitardo(Ini,fin,n5,ruo,1)
Sf1 = SerieFreq(Ini,ess,n1,ruo,1)
Sf2 = SerieFreq(Ini,ess,n2,ruo,1)
Sf3 = SerieFreq(Ini,ess,n3,ruo,1)
Sf4 = SerieFreq(Ini,ess,n4,ruo,1)
Sf5 = SerieFreq(Ini,ess,n5,ruo,1)
'--------metto i numeri in formazione -------------

rpp(1) = rp1
rpp(2) = rp2
rpp(3) = rp3
rpp(4) = rp4
rpp(5) = rp5
anum(1) = a
anum(2) = b
anum(3) = c
anum(4) = d
anum(5) = e
ReDim avalori(25)
avalori(1) = " "
avalori(2) = NomeRuota(r)
avalori(3) = " "
avalori(4) = a
avalori(5) = b
avalori(6) = c
avalori(7) = d
avalori(8) = e
avalori(9) = " "
avalori(10) = rp1
avalori(11) = rp2
avalori(12) = rp3
avalori(13) = rp4
avalori(14) = rp5
avalori(15) = " "
avalori(16) = sf1
avalori(17) = sf2
avalori(18) = sf3
avalori(19) = sf4
avalori(20) = sf5
avalori(21) = " "
avalori(22) = MassimoV(rpp) 'Int(rp1 + rp2 + rp3 + rp4 + rp5)/5
avalori(23) = ambiindecina(a,b,c,d,e)
avalori(24) = ambiincadenza(a,b,c,d,e)
avalori(25) = ambiinfigura(a,b,c,d,e)




nu(1) = a
nu(2) = b
nu(3) = c
nu(4) = d
nu(5) = e
Call AddRigaTabella(avalori,,,3,,"lucida bolt")
Call Settacolori(rp1,rp2,rp3,rp4,rp5)
If rp1 = 0 Then riga1 = riga1 + 1
If rp2 = 0 Then riga2 = riga2 + 1
If rp3 = 0 Then riga3 = riga3 + 1
If rp4 = 0 Then riga4 = riga4 + 1
If rp5 = 0 Then riga5 = riga5 + 1
rigazero = riga1 + riga2 + riga3 + riga4 + riga5
If rp1 > 0 And rp1 < 10 Then riga11 = riga11 + 1
If rp2 > 0 And rp2 < 10 Then riga22 = riga22 + 1
If rp3 > 0 And rp3 < 10 Then riga33 = riga33 + 1
If rp4 > 0 And rp4 < 10 Then riga44 = riga44 + 1
If rp5 > 0 And rp5 < 10 Then riga55 = riga55 + 1
riga10 = riga11 + riga22 + riga33 + riga44 + riga55
If rp1 > 99 Then cent1 = cent1 + 1
If rp2 > 99 Then cent2 = cent2 + 1
If rp3 > 99 Then cent3 = cent3 + 1
If rp4 > 99 Then cent4 = cent4 + 1
If rp5 > 99 Then cent5 = cent5 + 1
cent = cent1 + cent2 + cent3 + cent4 + cent5
If rp1 > 10 And rp1 < 19 Then riga111 = riga111 + 1
If rp2 > 10 And rp2 < 19 Then riga222 = riga222 + 1
If rp3 > 10 And rp3 < 19 Then riga333 = riga333 + 1
If rp4 > 10 And rp4 < 19 Then riga444 = riga444 + 1
If rp5 > 10 And rp5 < 19 Then riga555 = riga555 + 1
riga18 = riga111 + riga222 + riga333 + riga444 + riga555
If rp1 > 90 And rp1 < 99 Then riga1111 = riga1111 + 1
If rp2 > 90 And rp2 < 99 Then riga2222 = riga2222 + 1
If rp3 > 90 And rp3 < 99 Then riga3333 = riga3333 + 1
If rp4 > 90 And rp4 < 99 Then riga4444 = riga4444 + 1
If rp5 > 90 And rp5 < 99 Then riga5555 = riga5555 + 1
riga90 = riga1111 + riga2222 + riga3333 + riga4444 + riga5555

Next
Call SetTableWidth("100%")
CreaTabella()
'Scrivi
Scrivi "Estremi di ricerca: Dalla " & ini & " del " & DataEstrazione(ini) & " alla " & ess & " del " & DataEstrazione(ess),1,- 1,4
Scrivi "valori con ritardo precedente a zero........." & rigazero,1,- 1,3
Scrivi "valori con ritardo precedente tra 1 & 9......" & riga10,1,- 1,7
Scrivi "valori con ritardo precedente tra 10 & 18...." & riga18,1,- 1,6
Scrivi "valori con ritardo precedente tra 90 & 99...." & riga90,1,- 1,4
Scrivi "valori con ritardo precedente sup a 100......" & cent,1,- 1,2
Call PicStampaTesto(40,20,"Tabella By Mike58 ",,True,True,,11,vbBlue)
Call PicEsegui
End Sub
Function ambiindecina(a,b,c,d,e)
aa = Decina(a)
bb = Decina(b)
cc = Decina(c)
dd = Decina(d)
ee = Decina(e)
If aa = bb Then ambiindecina = a & "-" & b:End If
If aa = cc Then ambiindecina = a & "." & c:End If
If aa = dd Then ambiindecina = a & "-" & d:End If
If aa = ee Then ambiindecina = a & "-" & e:End If
If bb = cc Then ambiindecina = b & "-" & c:End If
If bb = dd Then ambiindecina = b & "-" & d:End If
If bb = ee Then ambiindecina = b & "-" & e:End If
If cc = dd Then ambiindecina = c & "-" & d:End If
If cc = ee Then ambiindecina = c & "-" & e:End If
If dd = ee Then ambiindecina = d & "-" & e:End If

End Function
Function ambiincadenza(a,b,c,d,e)
ca = Cadenza(a)
cb = Cadenza(b)
cc = Cadenza(c)
cd = Cadenza(d)
ce = Cadenza(e)
If ca = cb Then ambiincadenza = a & "-" & b:End If
If ca = cc Then ambiincadenza = a & "-" & c:End If
If ca = cd Then ambiincadenza = a & "-" & d:End If
If ca = ce Then ambiincadenza = a & "-" & e:End If
If cb = cc Then ambiincadenza = b & "-" & c:End If
If cb = cd Then ambiincadenza = b & "-" & d:End If
If cb = ce Then ambiincadenza = b & "-" & e:End If
If cc = cd Then ambiincadenza = c & "-" & d:End If
If cc = ce Then ambiincadenza = c & "-" & e:End If
If cd = ce Then ambiincadenza = d & "-" & e:End If
End Function
Function ambiinfigura(a,b,c,d,e)
fa = Figura(a)
fb = Figura(b)
fc = Figura(c)
fd = Figura(d)
fe = Figura(e)
If fa = fb Then ambiinfigura = a & "-" & b & " - F. " & Figura(a):End If
If fa = fc Then ambiinfigura = a & "-" & c & " - F. " & Figura(a):End If
If fa = fd Then ambiinfigura = a & "-" & d & " - F. " & Figura(a):End If
If fa = fe Then ambiinfigura = a & "-" & e & " - F. " & Figura(a):End If
If fb = fc Then ambiinfigura = b & "-" & c & " - F. " & Figura(b):End If
If fb = fd Then ambiinfigura = b & "-" & d & " - F. " & Figura(b):End If
If fb = fe Then ambiinfigura = b & "-" & e & " - F. " & Figura(b):End If
If fc = fd Then ambiinfigura = c & "-" & d & " - F. " & Figura(c):End If
If fc = fe Then ambiinfigura = c & "-" & e & " - F. " & Figura(c):End If
If fd = fe Then ambiinfigura = d & "-" & e & " - F. " & Figura(d):End If
End Function
Function Settacolori(rp1,rp2,rp3,rp4,rp5)
Call SetColoreCella(1,vbBlue)
Call SetColoreCella(3,vbBlue)
Call SetColoreCella(9,vbBlue)
Call SetColoreCella(15,vbBlue)
Call SetColoreCella(21,vbBlue)
Call SetColoreCella(4,vbYellow)
Call SetColoreCella(5,vbYellow)
Call SetColoreCella(6,vbYellow)
Call SetColoreCella(7,vbYellow)
Call SetColoreCella(8,vbYellow)
If rp1 > 99 Then Call SetColoreCella(10,vbRed)
If rp2 > 99 Then Call SetColoreCella(11,vbRed)
If rp3 > 99 Then Call SetColoreCella(12,vbRed)
If rp4 > 99 Then Call SetColoreCella(13,vbRed)
If rp5 > 99 Then Call SetColoreCella(14,vbRed)
If rp1 = 0 Then Call SetColoreCella(10,vbGreen)
If rp2 = 0 Then Call SetColoreCella(11,vbGreen)
If rp3 = 0 Then Call SetColoreCella(12,vbGreen)
If rp4 = 0 Then Call SetColoreCella(13,vbGreen)
If rp5 = 0 Then Call SetColoreCella(14,vbGreen)
If rp1 > 0 And rp1 < 10 Then Call SetColoreCella(10,vbMagenta)
If rp2 > 0 And rp2 < 10 Then Call SetColoreCella(11,vbMagenta)
If rp3 > 0 And rp3 < 10 Then Call SetColoreCella(12,vbMagenta)
If rp4 > 0 And rp4 < 10 Then Call SetColoreCella(13,vbMagenta)
If rp5 > 0 And rp5 < 10 Then Call SetColoreCella(14,vbMagenta)
If rp1 > 90 And rp1 < 99 Then Call SetColoreCella(10,vbYellow)
If rp2 > 90 And rp2 < 99 Then Call SetColoreCella(11,vbYellow)
If rp3 > 90 And rp3 < 99 Then Call SetColoreCella(12,vbYellow)
If rp4 > 90 And rp4 < 99 Then Call SetColoreCella(13,vbYellow)
If rp5 > 90 And rp5 < 99 Then Call SetColoreCella(14,vbYellow)

End Function

con spazioM



con spazio script



per ora non saprei, aspetto suggerimenti.

ciao a tutti.

Ciao Mike

Succede anche a me, ho corretto anche estrazionefin suggerita da Beppignello, ma come ultima estrazione da la 9417, però se lo stesso script lo lancio con spaziometria, come ultima estrazione mi da la 9418 che è l'ultima estrazione che ho in archivio, ho fatto l'aggiornamento in spaziometria e per ultima estrazione c'è la 9418

 

[salvo50]

Ciao a Tutti

Mike, penso di aver scoperto l'inghippo, nella tabella dove ci sono gli aggiornamenti, devi pigiare SALVA, io l'ho fatto ed adesso in spazioscript con il tuo script ho per ultima estrazione la 9419