xluigiB o qualcun'altro che conosce questa istruzione

[Rubino]

ciao

volevo sapere come devo impostare questi due campi nell'istruzione statisticaformazioneSe

nposA=1 e nposB=6

e come vanno interpretati questi campi o arrays


inoltre volevo sapere se questa istruzione c'è anche in spazioscript o se vale anche per spazioscript
o come si può usarla anche li.


grazie

 

[LuigiB]

Ciao credo che tu debba lasciarli così. Identificano le posizioni della colonna su cui agisce la statistica. Prima andavano fissi da 1 a 8 ora si possono impostare.

 

[Rubino]

grazie luigib

volevo anche sapere se questa istruzione funziona anche per spazioscript automaticamente
perchè li funziona,

mentre spaziometria mi da questo errore.

 

[LuigiB]

L istruzione si riferisce solo agli script...non so se la modifica ha impattato trasversalmente anche sul programma

 

[Mike58]

Ciao Rubino,mi unisco al tuo quesito, per dire che anche a me la funzione non restituisce risultanze.
In molti miei script prima funzionanti e dopo la rivisitazione del codice per escludere i numeri jolly e superstar dalla raccolta dati, non più funzionanti.

Mentre funzionano ad oc con gli altri codici + specifici.

Aspettiamo magari una risposta da Luigi.

Un saluto.

ops nel frattempo luigi C'E'

 

[Rubino]

LuigiB per spaziometria intendo gli script fatti nel programma spaziometria.

qui non funziona, il risultato è l'errore che mi viene evidenziato o zero come anche si ritrova Mike58

 

[LuigiB]

mi servirebbe uno script di esempio perche da un primo test a me non ha dato errore..

 

[Membro cancellato 16574]

Salutando tutti .
Abbiamo riscontrato i problemi gia menzionati
postiamo listato di prova

Option Explicit
Sub Main
   Dim Ini,Fin,Tot,k
   Dim Ritardo,RitardoMax,IncrRitMax,Frequenza
   Ini = EstrazioniArchivioSE
   Fin = EstrazioniArchivioSE
   Tot = Fin - Ini + 01
   Scrivi StringaEstrattiSE(Fin)
   Scrivi
   ReDim atitoli(06)
   atitoli(01) = " Numero "
   atitoli(02) = " Ritardo Att."
   atitoli(03) = " Ritardo Max "
   atitoli(04) = " Incr.Rit.Max. "
   atitoli(05) = " Frequenza "
   atitoli(06) = " Indice Convenienza "
   Call InitTabella(atitoli,vbYellow)
   For k = 01 To 90
      Messaggio Format2(k)
      AvanzamentoElab 01,90,k
      ReDim aPosizioni(08)
      aPosizioni(08) = True
      Dim aPosA,aPosB
      aPosA = 01 : aPosB = 01' NON FUNZIONA
      ' Call StatEstrattoSE(k,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,Fin,aPosizioni)' FUNZIONA
      ' Call StatisticaFormazioneSE(k,AMBATA_,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,Fin,aPosA)' NON FUNZIONA
      ' Call StatisticaFormazioneSE(k,AMBATA_,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,Fin,,aPosB)' NON FUNZIONA
      ' Call StatisticaFormazioneSE(k,AMBATA_,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,Fin,aPosA,aPosB)' NON FUNZIONA
      ' Call StatisticaFormazioneSE(k,AMBATA_,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,Fin)' NON FUNZIONA
      Call StatisticaFormazioneSE(k,AMBATA_,Ritardo,RitardoMax,IncrRitMax,Frequenza,Ini,Fin,aPosA,aPosB)' NON FUNZIONA
      If Frequenza = 01 Then
         ReDim aValori(06)
         aValori(01) = Format2(k)
         aValori(02) = Ritardo
         aValori(03) = RitardoMax
         aValori(04) = IncrRitMax
         aValori(05) = Frequenza
         aValori(06) = Round(((aValori(05)/ Tot) * aValori(02)),02)
         Call AddRigaTabella(aValori)
      End If
   Next
   Call CreaTabella(05)
End Sub