VB -Passage de tableau en paramaetre
mars
-
mars -
mars -
Bonjour,
Voila j ai DES tableauX de type single
et je veux creer un fction qui me renvoit 1 si il y a de la place dans le tab 0sinon:
J ai creee:
public function place(t(1 to MAX) as single) as boolean
mais il y a erreur sur le passage de parametre
D'où ma question: "Comment faire pour mettre un tableau en paramètre?"
Merci de vos reponses....
Voila j ai DES tableauX de type single
et je veux creer un fction qui me renvoit 1 si il y a de la place dans le tab 0sinon:
J ai creee:
public function place(t(1 to MAX) as single) as boolean
mais il y a erreur sur le passage de parametre
D'où ma question: "Comment faire pour mettre un tableau en paramètre?"
Merci de vos reponses....
3 réponses
-
Voila !!
Option Explicit
Function IsTableauFull(ByRef Tableau() As Single) As Boolean
Dim index As Integer
IsTableauFull = True
index = 0
On Error Resume Next
Do
If Tableau(index) = 0 Then
If Err Then Exit Do
On Error GoTo 0
IsTableauFull = False
Exit Function
End If
index = index + 1
Loop
On Error GoTo 0
End Function
Private Sub Form_Load()
Dim test(10) As Single
test(0) = 1
test(1) = 9
test(2) = 8
test(3) = 7
test(4) = 10
test(5) = 0
test(6) = 8
test(7) = 7
test(8) = 10
test(9) = 10
test(10) = 1
MsgBox IsTableauFull(test)
End Sub -
Bonjour,
ton erreur réside dans le fait de dimensionner le tableau
dans la déclaration !
public function place(t(1 to MAX) as single) as boolean
si :
public function place(t() as single) as boolean
ici la fonction recoit 1 tableau mais ne renvoie que vrai ou faux !
elle ne modifie pas le tableau !
c'est comme : public function place(byval t() as single) as boolean
si :
public function place(byref t() as single) as boolean
ici le byref te permet de modifier le tableau !
la déclaration suivante devrait être suffisante :
public function place(t() as single) as boolean
( le ByVal étant implicite)
Lupin
-
