Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Procedure o funzioni sui vettori
Forum - Visual Basic 6 - Procedure o funzioni sui vettori

Avatar
felixiuc91 (Normal User)
Rookie


Messaggi: 27
Iscritto: 16/04/2010

Segnala al moderatore
Postato alle 17:16
Sabato, 30/10/2010
Ciao, ho bisogno di un aiutino sulle procedure oppure funzioni(non so bene qual'è la differenza), tipo le function in javascript ...so che esistono in vb6 ma su internet non riesco a trovare grande guide.

Allora..
ho un vettore di n elementi con dentro dei nomi... e devo eseguire diverse operazioni su questi elementi, ma prima di tutto devo creare una sub che mi ricerca l'elemento nel vettore e mi restituisce l'indice.
Esempio:
Codice sorgente - presumibilmente VB.NET

  1. sub ricerca
  2. c=1
  3. do while c<=n
  4.   if nome = Vettorenomi(c) then
  5.    salvaindice = c
  6.    c =n+1
  7.   end if
  8. loop
  9. end sub
  10.  
  11. Private Sub Command1_Click()
  12. richiamo il sotto programma
  13. msgbox Val(salvaindice)
  14. end sub



Datemi una dritta sulle dichiarazioni ed uso

:asd:

Ultima modifica effettuata da felixiuc91 il 30/10/2010 alle 17:57
PM Quote
Avatar
GrG (Member)
Guru^2


Messaggi: 3430
Iscritto: 21/08/2007

Segnala al moderatore
Postato alle 19:39
Giovedì, 04/11/2010
"do while c<=n "

Nel resto del codice non c'è nessun riferimento ad n... quindi n che cos'è? Che valore ha? Gli hai già assegnato un valore all'esterno della sub?

Perchè non parti dallo 0, ma da 1?

Poi, ti conviene usare un function in questo caso e non una sub... ecco un esempio di codice corretto:

Codice sorgente - presumibilmente VB.NET

  1. Private Function Ricerca (ByVal Nome as String)
  2. dim c as integer
  3. For c = 1 to Ubound(Vettorenomi)
  4. if Nome = Vettorenomi(c) Then
  5. Ricerca = x
  6. exit for
  7. End if
  8. DoEvents
  9. Next c
  10. End Function



Per richiamare la funzione usa...
Msgbox Ricerca

e ti restituirà il risultato della funzione...

p.s. Il codice dovrebbe essere giusto, però può essere che ho fatto qualche errore dovuto alla stanchezza, provalo e studialo.


PM Quote