Discussion :

[flyjodel]

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

[bidou]

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

[Aspic]

Exemple :

Code :

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

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...

[flyjodel]

Merci pour vos réponses rapides.

J'ai essayé avec la classe SortedList en mettant

Code :

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

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.

[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 ?

[Aspic]

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 :

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

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

[flyjodel]

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 :

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

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 :

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

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 :

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

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...

[Aspic]

ca m'etonne pas que ca marche pas

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

Code :

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

CalculProjection(Cdbl(Textbox1.text))

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

Code :

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

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 :

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

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

[flyjodel]

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

[Aspic]

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 ^^