SpazioScript (per LuigiB o per chi può aiutarmi)

[i legend]

Un saluto a Giggio , e a tutti i partecipanti.
Ciao prof

 

[Giggio]

Ecco ILegend è uno di quelli che se non partisse per l asua tangente potrebbe sicuramente aiutarti.
La cosa che ho chiesto fin 'ora è piuttosto semplice e non richiede di scrivere tutto il codice che avete scritto tu e legend peraltro sbagliato ...

magari avessi sbagliato soplo quella riga .. l'ho messa perche era emblematica ... che volevi fare ? valorizzare una variabile con se stessa ?


ripartiamo da qui

Option Explicit

Class clsSviluppo
   Private aBNumDaSvil
   Private nQNumeri
   Private nCombInt
   Private nClasse
   
 
   Function InitSviluppo (aNumeri ,Classe)
    
      nQNumeri  =
      nCombInt =
      nClasse =
    
      InitSviluppo  =
    
    
   End Function
 
   Private Function AlimentArrayNumDaSvil ( aNumeri)
  
   End Function

End Class

va scritto il codice dentro AlimentArrayNumDaSvil

quindi li dentro deve essere lanciata la funzione che converte l'array in boolean , ottenuto questo array di boolean bisogna contare quanti true ci sono , tramitre un banale ciclo che testa se la tale posizione è true se si la conteggia

Contata la quantita di numeri la funzione tornerà questo valore pertanto potra essere usata proprio nella riga
che ti avevo evidenziato.

nQNumeri = AlimentArrayNumDaSvil (aNumeri)

 

[Edoardo_95]

Forse è la volta buona ahahaha

Option Explicit
Class clsSviluppo
   Private aBNumDaSvil
   Private nQNumeri
   Private nCombInt
   Private nClasse
   Function InitSviluppo(aNumeri,Classe)
      nQNumeri = AlimentArrayNumDaSvil(aNumeri)
      nCombInt = Combinazioni(aNumeri,Classe)
      nClasse = Classe
   End Function
   Private Function AlimentArrayNumDaSvil(aNumeri)
      Dim PosTrue,k
      If IsArray(aNumeri) Then
      ReDim aBNumDaSvil(UBound(aNumeri))
        aBNumDaSvil = ArrayNumeriToBool(aNumeri)
         PosTrue = 0
         For k = 1 To UBound((aBNumDaSvil))
         If aBNumDaSvil(k) = True Then
            PosTrue = PosTrue + 1
            End If
         Next
      End If
   End Function
End Class

 

[Giggio]

dopo aver chiamato la funzione ArrayNumeriToBool avvremo un array di 90 posizioni dove solo alcune sono valorizzate a true .

facciamo finta che l'array dei numeri ricevuto dal chiamante sia di 5 numeri e sia a caso cosi

a (1) = 1
a (2) = 10
a (3) = 25
a (4) = 55
a(5) = 70

l'array boolean avra sempre 90 posizioni e alle posizioni 1,10 , 25 ,55 ,70 ci sarà il valore true , ubound restituirà sempre 90 quindi non va bene ... come si fa a contare quanti true ci sono ?

Avete sbagliato tutti e due ...e vi perdete in un bicchier d'acqua

 

[i legend]

For n=1 to ubound (a)
Abol(a)=1
Next
For i=1 to abol
If abol(i)=1Then n=n+1
Next

 

[i legend]

N = quantità numeri
Da cell è un casino
For n=1 to ubound (aBool)
If abool=1 then m=m+1
Next
Qnumeri=m

 

[Giggio]

no ...

 Private Function AlimentArrayNumDaSvil ( aNumeri)
      Dim k , q
      aBNumDaSvil =  ArrayNumeriToBool ( aNumeri  )
    
' ' cosa va scritto qui ?


      AlimentArrayNumDaSvil  = q
      
   End Function

 

[i legend]

Ciao Giggio
Ora devo scappare vi.
Vi leggo domani e penso alla soluzione.
Scusate ho un impegno.
Grazie prof

 

[Edoardo_95]

Se ci sono riuscito stappo lo spumante ahahahah

   Private Function AlimentArrayNumDaSvil(aNumeri)
      Dim k,q
      aBNumDaSvil =  ArrayNumeriToBool(aNumeri)
      q = 0
      For k = 1 To aBNumDaSvil
      If aBNumDaSvil(k) = True Then
      q = q + 1
    End If
      AlimentArrayNumDaSvil = q
   End Function

 

[Edoardo_95]

Ho corretto il post volevo dire "If aBNumDaSvil(k) = True Then"

 

[Giggio]

che vuol dire

For k = 1 To aBNumDaSvil

poi il ciclo for è aperto ma non è chiuso ...

il test va bene se non fosse che hai usato q anziche k ..

 

[Edoardo_95]

Ed eccolo qui finalmente

   Private Function AlimentArrayNumDaSvil(aNumeri)
      Dim k,q
      aBNumDaSvil =  ArrayNumeriToBool(aNumeri)
      q = 0
      For k = 1 To UBound ((aBNumDaSvil))
      If aBNumDaSvil(k) = True Then
      q = q + 1     
      End If
      Next
      AlimentArrayNumDaSvil = q
   End Function

 

[Edoardo_95]

Ed ora soprattutto ho capito il ragionamento che c'è dietro che è molto più importante

 

[Giggio]

ci siamo quasi ma il ciclo for va chiuso ...
indenta bene il codice prima di postarlo.

 

[Edoardo_95]

Uuuh hai ragione scusa ... ho modificato il post

 

[Edoardo_95]

Bene ...ora c'è da dare un'occhiata ad InitSviluppo ?

 

[Giggio]

non voglio fare il pignolo ma finche non vedo indentato il codice non proseguo ... , fai un nuovo post non modificare i vecchi senno chi legge non segue piu .

 

[Edoardo_95]

Eccolo

Option Explicit
Class clsSviluppo
   Private aBNumDaSvil
   Private nQNumeri
   Private nCombInt
   Private nClasse
   Function InitSviluppo(aNumeri,Classe)
      nQNumeri = AlimentArrayNumDaSvil(aNumeri)
      nCombInt = Combinazioni(aNumeri,Classe)
      nClasse = Classe
      InitSviluppo =
   End Function
   Private Function AlimentArrayNumDaSvil(aNumeri)
      Dim k,q
      aBNumDaSvil = ArrayNumeriToBool(aNumeri)
      q = 0
      For k = 1 To UBound(aBNumDaSvil)
         If aBNumDaSvil(k) = True Then
            q = q + 1
         End If
      Next
      AlimentArrayNumDaSvil = q
   End Function
End Class

 

[Giggio]

ok , ma hai dimenticato di valorizzare il ritorno di
InitSviluppo ,avevamo detto che doveva tornar le combinazioni integrali

 

[Edoardo_95]

Option Explicit
Class clsSviluppo
   Private aBNumDaSvil
   Private nQNumeri
   Private nCombInt
   Private nClasse
   Function InitSviluppo(aNumeri,Classe)
      nQNumeri = AlimentArrayNumDaSvil(aNumeri)
      nCombInt = Combinazioni(aNumeri,Classe)
      nClasse = Classe
      InitSviluppo =  nCombInt
   End Function
   Private Function AlimentArrayNumDaSvil(aNumeri)
      Dim k,q
      aBNumDaSvil = ArrayNumeriToBool(aNumeri)
      q = 0
      For k = 1 To UBound(aBNumDaSvil)
         If aBNumDaSvil(k) = True Then
            q = q + 1
         End If
      Next
      AlimentArrayNumDaSvil = q
   End Function
End Class