Une FUNCTION peut-elle renvoyer un tableau ?

Bonjour,

je lis abondamment l'excellent cours VB.NET de Philippe Lasserre mais une chose m'échappe encore :

une Function peut-elle renvoyer un tableau ? si oui, pouvez-vous m'en montrer un exemple ?
Si non, comment faire cela avec une Sub, de manière propre ?

ou bien suis-je obligé de passer par une classe qui aurait deux propriétés (tableau de 2 éléments) ?

en fait, je cherche à programmer une fonction qui renvoie les coordonnées d'un point, lui-même obtenu par calcul : le résultat doit être une abscisse et une ordonnée, voila pourquoi j'ai pensé à un tableau. Mais je crois que je peux aussi passer par une classe en lui ajoutant deux property ?? je suis perdu !

Merci

oui une fonction peut renvoyer un tableau, encore qu'il vaut mieux l'éviter si c'est pour renvoyer des éléments connexes comme pour des coordonnées. Danc ce cas une structure ou une classe est plus adaptée.
Enfin dans ton cas tu peux très bien renvoyer un type comme PointF

Exemple :

Code:

---

1 2 3 4 5 6 7 8

Function Coordonnees() as SortedList Dim x as Integer = 56 Dim y as Integer = 5 Dim result as new SortedList result.add(x,y)   Return Result End Function

---

C'est une solution parmis d'autre...

Merci pour vos réponses rapides.

J'ai essayé avec la classe SortedList en mettant

Code:

---

Label2.Text = Coordonnees.GetByIndex(1)

---

mais cela ne fonctionne pas. Et zut, j'ai du mal calibrer quelque chose, peut etre dois je déclarer la classe utilisée avant, la je m'y perds car les classes, c'est tout nouveau pour moi. Je vais lire al doc sur le sujet chez P. Lasserre et ensuite je reviens vous embêter (peut-être ;) )

Merci encore.

j'ai essayé avec la structure Point. C'est parfait à ceci près que les valeurs renvoyées par Point.X et Point.Y sont des entiers. Je n'y arrive décidément pas, comment fait-on pour déclarer une même structure avec Coord.X et Coord.Y qui renvoyent des Double ?

Citation:

---

Envoyé par flyjodel

j'ai essayé avec la structure Point. C'est parfait à ceci près que les valeurs renvoyées par Point.X et Point.Y sont des entiers. Je n'y arrive décidément pas, comment fait-on pour déclarer une même structure avec Coord.X et Coord.Y qui renvoyent des Double ?

---

Avec mon code ci haut en modifiant avec des double :)

Code:

---

1 2 3 4 5 6 7

Function Coordonnees() as SortedList Dim x as Double= 56.12 Dim y as Double= 5.45 Dim result as new SortedList result.add(x,y) Return Result End Function

---

merci pour ta réponse. En fait j'essaye en même temps de comprendre comment fonctionne une classe car je souhaite y rajouter plusieurs propriétés, méthodes etc. mais je bute sur des écueils théoriques.

Dans Form1.vb j'appelle une fonction qui se trouve dans un module nommé module1.vb
J'ai aussi créé une feuille qui contient une classe ainsi définie (stade d'ébauche, j'apprends) :

Code:

---

1 2 3 4

Public Class CoordGPS Public Lat As Double Public Lon As Double End Class

---

Dans le module moudule1.vb, j'ai déclaré la chose suivante :

Code:

---

1 2 3 4 5 6 7 8

Module trigoGPS   Dim cGPS As New CoordGPS   Public Sub CalculProjection(ByVal angle As Double) cGPS.Lat = 49.4541 cGPS.Lon = 3.55015 End Sub

---

puis, dans Form1, j'entre le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Public Class Form1   Dim classeGPS As New CoordGPS   Private Sub but1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles but1.Click   CalculProjection(textbox1.Text)   Label2.Text = classeGPS.Lat Label3.Text = classeGPS.Lon   End Sub   End Class

---

évidemment cela ne fonctionne pas. Quelqu'un pourrait-il m'aider et me dire ce qui ne va pas dans ma structure ? Je sens bien que le fait de déclarer classeGPS dans la Form et cGPS dans le module ne me permettront pas d'obtenir les mêmes valeurs, mais comment feriez-vous ?

Merci, je patauge...

ca m'etonne pas que ca marche pas :aie:

En fait deja ton argument que tu passes est un string, or toi tu veux un double !
donc il faut faire :

Code:

---

CalculProjection(Cdbl(Textbox1.text))

---

Ensuite ta procédure ne retourne rien ! Donc on va créer une fonction :

Code:

---

1 2 3 4 5 6

Public Function CalculProjection(ByVal angle As Double) as CoordGPS cGPS.Lat = 49.4541 cGPS.Lon = 3.55015   Return cCPS 'retourne le resultat ! End Sub

---

Une fois que tu as le resultat on va modifier le code dans la form1 :

Code:

---

1 2 3 4 5 6 7 8 9

Public Class Form1 Dim classeGPS As CoordGPS Private Sub but1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles but1.Click   classeGPS = CalculProjection(Cdbl(Textbox1.text)) 'recupere le resultat Label2.Text = classeGPS.Lat.Tostring Label3.Text = classeGPS.Lon.Tostring End Sub End Class

---

Et voila cela devrait marcher 8-)

merci !

entre temps j'ai avancé sur mon projet en modifiant quelques petites choses et je prends du plaisir à programmer avec ce langage où tout semble plus simple... Mais bon, il y a encore du boulot ;-)

merci encore pour l'aide

Citation:

---

Envoyé par flyjodel

je prends du plaisir à programmer avec ce langage où tout semble plus simple... Mais bon, il y a encore du boulot ;-)

---

Et oui c'est pour cela qu'on a inventé la version .NET de Visual Basic ^^ Plus intuitive et plus puissante, bref un petit bonheur ^^ ;)