Trecerea unei variabile matrice catre argumentul functiei

#1
horohoro

Posted 06 March 2011 - 14:52

Junior Member

Grup: Members
Posts: 103
Înscris: 11.02.2010

Am nevoie de putin ajutor de la cineva care sa mai lovit de aceasta problema, incerc sa trec o variabila matrice in argumentul unei functii ceea ce este imposibil datorita acestei erori:

Compile Error:
Type mismatch: array or user-defined type expected

Private Sub Executa()
  dim myarray(2) as integer
  myarray(0) = 15
  myarray(1) = 5
  myarray(2) = 0
  Sorteaza(myarray)
End Sub

Private Sub Sorteaza(ByRef numearray() As Integer)
Dim i As Integer
Dim j As Integer
For i = LBound(numearray) To UBound(numearray)
    For j = i + 1 To UBound(numearray)
        If numearray(i) > numearray(j) Then
            numearray(i) = numearray(i) + numearray(j)
            numearray(j) = numearray(i) - numearray(j)
            numearray(i) = numearray(i) - numearray(j)
        End If
    Next j
Next i
End Sub

'Cum trebuie sa procedez? Unde am gresit ? Va rog ajutor

Edited by horohoro, 06 March 2011 - 14:52.

Back to top

#2
Sorin Nedelcu

Posted 06 March 2011 - 15:49

Member

Grup: Members
Posts: 638
Înscris: 15.10.2006

horohoro, on 6th March 2011, 14:52, said:

Am nevoie de putin ajutor de la cineva care sa mai lovit de aceasta problema, incerc sa trec o variabila matrice in argumentul unei functii ceea ce este imposibil datorita acestei erori:

Compile Error:
Type mismatch: array or user-defined type expected

Private Sub Executa()
  dim myarray(2) as integer
  myarray(0) = 15
  myarray(1) = 5
  myarray(2) = 0
  Sorteaza(myarray)
End Sub

Private Sub Sorteaza(ByRef numearray() As Integer)
Dim i As Integer
Dim j As Integer
For i = LBound(numearray) To UBound(numearray)
    For j = i + 1 To UBound(numearray)
        If numearray(i) > numearray(j) Then
            numearray(i) = numearray(i) + numearray(j)
            numearray(j) = numearray(i) - numearray(j)
            numearray(i) = numearray(i) - numearray(j)
        End If
    Next j
Next i
End Sub

'Cum trebuie sa procedez? Unde am gresit ? Va rog ajutor

Abordeaza altfel trimite in sorteaza ca string,vb6 e stupid.

Back to top

#3
macaz

Posted 06 March 2011 - 19:01

Junior Member

Grup: Members
Posts: 108
Înscris: 14.06.2007

In loc de

Sorteaza(myarray)

pune

 Sorteaza myarray

fara paranteze.

Back to top

#4
horohoro

Posted 06 March 2011 - 21:11

Junior Member

Grup: Members
Posts: 103
Înscris: 11.02.2010

macaz, on 6th March 2011, 19:01, said:

In loc de

Sorteaza(myarray)

pune

 Sorteaza myarray

fara paranteze.

Am facut eu o greseala in post stiu ca nu se folosesc paranteze acolo.

Sorin am incercat sa o trec ca string in argument dar degeaba imi returneaza alta eroare precum trebuie sa trec argumentul prin valoare 'byval', daca il trec imi da 'type mismatch'. Iti multumesc oricum .

Edited by horohoro, 06 March 2011 - 21:12.

Back to top

Anunturi

Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

Trecerea unei variabile matrice catre argumentul functiei

#1 horohoro Posted 06 March 2011 - 14:52

#2 Sorin Nedelcu Posted 06 March 2011 - 15:49

#3 macaz Posted 06 March 2011 - 19:01

#4 horohoro Posted 06 March 2011 - 21:11

Anunturi

▶ 0 user(s) are reading this topic

Sign In

#1
horohoro

Posted 06 March 2011 - 14:52

#2
Sorin Nedelcu

Posted 06 March 2011 - 15:49

#3
macaz

Posted 06 March 2011 - 19:01

#4
horohoro

Posted 06 March 2011 - 21:11