Discussion :

[SandyF]

Salut tout le monde

S'il vous plait quelqu'un peut-il me dire comment déclarer une fonction pour qu'elle retourne un tableau?

merci

[Liandrine]

tiens un petit bout de code qui devrait t'aider. Je ne sais pas si c'est la meilleur solution mais ça marche.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
 
    Public Sub recupereTableau()
        Dim tableauControl(,) As Object = New String(,) {}
        tableauControl = retourneTableau()
 
    End Sub
 
    Public Function retourneTableau()
        Dim tableauARetourner(1, 1)
        tableauARetourner(0, 0) = "ligne 0 colonne 0"
        tableauARetourner(0, 1) = "ligne 0 colonne 1"
        tableauARetourner(1, 0) = "ligne 1 colonne 0"
        tableauARetourner(1, 1) = "ligne 1 colonne 1"
        Return (tableauARetourner)
    End Function

[tomlev]

Salut tout le monde

S'il vous plait quelqu'un peut-il me dire comment déclarer une fonction pour qu'elle retourne un tableau?

merci

Qu'est-ce que tu veux dire par "retourner" ? transposer ? inverser l'ordre des éléments ? pour un tableau à combien de dimensions ? Donne plus de détails sur ce que tu veux faire...

[SandyF]

Qu'est-ce que tu veux dire par "retourner" ? transposer ? inverser l'ordre des éléments ? pour un tableau à combien de dimensions ? Donne plus de détails sur ce que tu veux faire...

Par retourner un tableau, j'entend fournir un tableau comme résultat. j'ai essayé un truc mais j'ai cet avertissement en retour:

Avertissement 1: La fonction 'ReconnaissanceMur' ne retourne pas une valeur pour tous les chemins de code. Une exception de référence null peut se produire au moment de l'exécution lorsque le résultat est utilisé.

Voilà la déclaration de ma fonction:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 
Public Function ReconnaissanceMur(ByVal i As Integer, ByVal j As Integer, ByVal tablo As modAnt, ByVal obs(,) As Integer) As Integer()

De plus quand je fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
 
Dim mat(9) As Integer
mat = ReconnaissanceMur(i, j, posAnt(w), obstacl)
 
 
                    For nb = 1 To UBound(mat)
 
                    Next
j

j'ai l'erreur :

l'exception ArgumentNullException n'a pas été gérée

ce qui me surprend, vu qu'à ma connaissance lorsqu'on déclare un tableau de integer, il est initialisé à zéro et non à Nothing

[tomlev]

Par retourner un tableau, j'entend fournir un tableau comme résultat.

Ah, tout simplement... j'avais mal interprété le sens de la phrase

Avertissement 1: La fonction 'ReconnaissanceMur' ne retourne pas une valeur pour tous les chemins de code. Une exception de référence null peut se produire au moment de l'exécution lorsque le résultat est utilisé.

Ca veut dire que le code de ta fonction ne gère pas tous les cas, et il est possible que dans certains cas elle ne renvoie pas de valeur. Fais voir le code de cette fonction

ce qui me surprend, vu qu'à ma connaissance lorsqu'on déclare un tableau de integer, il est initialisé à zéro et non à Nothing

En VB6 c'était le cas. En VB.NET il faut l'initialiser explicitement avec New

[SandyF]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
 
Public Function ReconnaissanceMur(ByVal i As Integer, ByVal j As Integer, ByVal tablo As modAnt, ByVal obs(,) As Integer) As Integer()
        'Fonction permettant de déterminer les obstacles rencontrés par un rayon émetteur-récepteur.Ce résultat est transmis par le vecteur matr
        Dim abs, ord, ptitAbs, grdAbs, ptitOrd, grdOrd, u, v As Integer
        Dim a, b As Double
        Dim matr(9) As Integer
 
        abs = CInt(Round(tablo.x / K)) : ord = CInt(Round(tablo.y / K))
 
        If i <= abs Then
            ptitAbs = i
            grdAbs = abs
        Else
            ptitAbs = abs
            grdAbs = ord
        End If
 
        If j <= ord Then
            ptitOrd = j
            grdOrd = ord
        Else
            ptitOrd = ord
            grdOrd = j
        End If
 
        If (ptitAbs = grdAbs) And (ptitOrd = grdOrd) Then
            Return matr
        Else
            If ptitAbs = grdAbs Then
                For v = ptitOrd To grdOrd
                    matr(obstacl(grdAbs, v)) += 1
                    Return matr
                Next
            Else
                If ptitOrd = grdOrd Then
                    For v = ptitAbs To grdOrd
                        matr(obstacl(u, grdOrd)) += 1
                        Return matr
                    Next
                Else
                    a = (grdOrd - ptitOrd) / (grdAbs - ptitAbs)
                    b = (ptitOrd * grdAbs - grdOrd * ptitAbs) / (grdAbs - ptitAbs)
 
                    For u = ptitAbs To grdAbs
                        For v = ptitOrd To grdOrd
                            If v = a * u + b Then
                                matr(obstacl(u, v)) += 1
                                Return matr
                            End If
                        Next
                    Next
 
                End If
            End If
        End If
    End Function

Cette fonction permet de déterminer les obstacles rencontrés par un segment de droite entre deux points .

Pour ce qui est de l'initialisation avec new, j' ai fais un débogage avec point d'arrêt situé juste avant l'appel de la fonction reconnaissanceMur, là je n'ai aucune erreur

[tomlev]

Ah oui, si tu spécifies la taille ça crée bien le tableau...

Par contre dans certains cas tu ne renvoies pas matr, le résultat de la fonction est donc indéfini. Ajoute juste un Return matr à la fin de la fonction, ça devrait régler le problème

[Sehnsucht]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For v = ptitOrd To grdOrd
matr(obstacl(grdAbs, v)) += 1
Return matr
Next

Attention à ce moment tu retourne matr dès le premier tour de boucle, je pense que le code devrait plutôt ressembler à ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For v = ptitOrd To grdOrd
matr(obstacl(grdAbs, v)) += 1
Next
Return matr

Cela t'arrive plusieurs fois dans ta fonction

[tomlev]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For v = ptitOrd To grdOrd
matr(obstacl(grdAbs, v)) += 1
Return matr
Next

Attention à ce moment tu retourne matr dès le premier tour de boucle, je pense que le code devrait plutôt ressembler à ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For v = ptitOrd To grdOrd
matr(obstacl(grdAbs, v)) += 1
Next
Return matr

Cela t'arrive plusieurs fois dans ta fonction

effectivement, j'avais même pas fait gaffe...

[SandyF]

Ah oui, en effet l'ajout de

return matr

en fin de de fonction résout le problème, je n'ai plus aucun message d'avertissement.
Merci de votre aide