[VB.NET]Sortir un tableau a partir d'une fonction

Version imprimable

Bonjour,

Je voudrais savoir s'il est possible de sortir plusieurs variables à partir d'une fonction (dans un tableau par exemple). VOici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
    Public Function convert_degre_to_decimal(ByVal D_lat As Integer, ByVal M_lat As Integer, ByVal S_lat As Decimal, _
    ByVal NS As String, ByVal D_lon As Integer, ByVal M_lon As Integer, ByVal S_lon As Decimal, ByVal WE As String) As String
        'Converti les coordonnées GPS du format DMS au format decimal
 
        Dim latitude, longitude As Decimal
 
        'Calcul de la latitude
        If NS = "N" Then
            latitude = Math.Round(D_lat + M_lat / 60 + S_lat / 3600, 3)
        ElseIf NS = "S" Then
            latitude = -(Math.Round(D_lat + M_lat / 60 + S_lat / 3600, 3))
        End If
 
        'Calcul de la longitude
        If WE = "E" Then
            longitude = Math.Round(D_lon + M_lon / 60 + S_lon / 3600, 3)
        ElseIf WE = "W" Then
            longitude = -(Math.Round(D_lon + M_lon / 60 + S_lon / 3600, 3))
        End If
 
        convert_degre_to_decimal = latitude & " " & longitude
 
    End Function

Je voudrais récupérer mes deux variables indépendemment dans un tableau par exemple. Est-ce possible?

Merci de votre aide!;)

14/11/2006, 18h56
DarkMolo

Salut,

Citation:

mustang-f27 dit:
Je voudrais récupérer mes deux variables indépendemment dans un tableau par exemple. Est-ce possible?

Alchimiste de flamme, certainement que c'est possible:
Dim Resultat As String()=convert_degre_to_decimal(Param1,Param2).Split(" ")
14/11/2006, 19h03
mustang-f27

Alors la je dit magnifique!!!!

Rapide et efficace. Merci beaucoup!

Citation:

mustang-f27 dit:
Alors la je dit magnifique!!!!

Rapide et efficace

Bah non, peut-être rapide, mais loin d'être efficace, tes deux variables(latitude,longitude), qui t'interessent sont de type Decimal, renvoyer le tout entant que string délimité par un espace n'est pas la meilleur méthode, execuse-moi je m'étais précipité, on reprend ta fonction, n'oublies pas les parenthèses en bleu(ça veut dire que ta fonction renvoie carrément un tableau de decimal et comme ça t'es tranquil:
Code:

1 2 3 4 5 Public Function convert_degre_to_decimal(ByVal D_lat As Integer, ByVal M_lat As Integer, ByVal S_lat As Decimal, _ ByVal NS As String, ByVal D_lon As Integer, ByVal M_lon As Integer, ByVal S_lon As Decimal, ByVal WE As String) As Decimal() '... return new Decimal() {latitude,longitude} End Sub

14/11/2006, 19h23
mustang-f27

Encore mieux, rien à dire à part merci pour le mini cours.

a+ et bonne prog!
19/11/2006, 11h21
Mehdi Feki

Merci de penser au tag Résolu la prochaine fois