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

Bun venit pe Forumul Softpedia!

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