Fonction à retour Multiple

Version imprimable

29/04/2011, 09h15
Bacube

Fonction à retour Multiple
Bonjour,

Je suis débutant et je voulais savoir si une Fonction peut retourner plusieurs valeurs ?

Du type :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Function Calculs() As string If.... then .... End If 'on fait ses calculs nécessaires . . . Return Return Return End Function
Est ce réalisable ?

Cordialement,
Bacube
29/04/2011, 09h23
Pol63
ton exemple de code n'est pas le plus explicite

si tu veux que la valeur ne soit pas la même retournée selon le cas c'est faisable
Code:

1 2 3 4 5 if condition then return "valeur1" else return "valeur2" end if
si tu veux que la fonction retourne plusieurs choses il suffit soit de mettre un type adapté en sortie, soit plusieurs paramètres byref (moins propre)
Code:

1 2 3 4 5 6 7 8 public function nom () as list(of string) dim l as new list(of string) l.Add("valeur1") l.Add("valeur2") return l end function
ici on retourne plusieurs string dans une collection (une collection sert à regrouper plusieurs variables dans une seule
29/04/2011, 09h29
Gurdil le nain

Bonjour,

Non une fonction ne peut avoir qu'un seul return.

Cependant, tu peux passer des paramètres "ByRef" qui garderont les modifications apportées dans ta fonction.
Dans une fonction, tu peux passer des paramètres "ByVal" ou "ByRef" :
- Byval signifie que tu créé une copie de l'objet voulue et c'est cette copie qui sera utilisée à l'intérieur de ta fonction. A la fin de l'exécution de ta fonction, cette copie est détruite.
- ByRef signifie que que l'objet que tu utilises dans ta fonction et celui que tu as passé en paramètre (à l'appel de ta fonction) pointeront sur le même espace mémoire (donc en gros c'est le même).

Sinon, si tu as beaucoup de choses à retourner, tu peux créer un tableau contenant tout tes résultats de calculs par exemple...
29/04/2011, 09h34
WOLO Laurent

Au sens strict de la programmation orientée object, une methode (fonction) ne pet retourner qu'un seul type d'object. Dans l'exemple que tu as posté, ta fonction ne peut retourner qu'un seul object de type string !!!
Reformule ta question si nous sommes passer à côté de tes attentes.
29/04/2011, 09h45
Bluedeep

Citation:

Envoyé par Gurdil le nain

Bonjour,

Non une fonction ne peut avoir qu'un seul return.

Cependant, tu peux passer des paramètres "ByRef" qui garderont les modifications apportées dans ta fonction.
Dans une fonction, tu peux passer des paramètres "ByVal" ou "ByRef" :
- Byval signifie que tu créé une copie de l'objet voulue et c'est cette copie qui sera utilisée à l'intérieur de ta fonction. A la fin de l'exécution de ta fonction, cette copie est détruite.
- ByRef signifie que que l'objet que tu utilises dans ta fonction et celui que tu as passé en paramètre (à l'appel de ta fonction) pointeront sur le même espace mémoire (donc en gros c'est le même). ...

Je ne suis pas trop d'accord (enfin pas d'accord du tout)avec ce que tu lui proposes. C'est une approche typiquement non objet.

Si il a une fonction qui doit retourner "divers" choses (disons plus de deux, mais même plus de une, sauf tableau ou list bien sur), le plus logique est qu'il l'encapsule dans une autre classe (éventuellement Private) sous forme de méthode qui modifiera les propriétés de cette instance de classe.

L'autre solution est de définir une classe ou un structure spécifique au retour de la foncition.

Le retour de valeur par "ByRef" peut difficilement être qualifié comme une option normale en POO ; même si le concept existe dans les langages .Net ( du moins C#, C++ et VB.Net, pour les autres je ne sais pas) il est intéressant de noter qu'il est étranger à Java par exemple.

Merci pour vos réponses !

Je voulais créer une fonction qui permet de lancer un calcul automatiquement et renvoyer les données aux différents labels.

J'ai réussi à réaliser ça, mais je dois mettre ce code dans chaque "TextBox_textChanged"

Code:

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
58
59
60
61
62
63
64
65
66
Public Class App1
Public a as sting
Public b as string
Public c as string
Public d as string
Public e as string
Public f as string
Public g as string
Public h as string
Public i as string
Public j as string
 
Private Sub Textbox1_TextChanger(ByVal sender as System.Object, ByVal e as System.EventArgs) Handles TextBox1.TextChanged
If App1.TextBox1.Text <> "0" _
           And TextBox2.Text <> "0" _
           And TextBox3.Text <> "0" _
           And TextBox4.Text <> "0" _
           And TextBox5.Text <> "0" _
           And TextBox6.Text <> "0" _
           And TextBox7.Text <> "0" _
           And TextBox8.Text <> "0" Then
 
'Calcul1
a =Calcul1()
RécupCalcul1.text = a
 
'Calcul2
b =Calcul2()
RécupCalcul2.text = b
 
'Calcul3
c =Calcul3()
RécupCalcul3.text = c
 
'Calcul4
d =Calcul4()
RécupCalcul4.text = d
 
'Calcul5
e =Calcul5()
RécupCalcul5.text = e
 
'Calcul6
f =Calcul6()
RécupCalcul6.text = f
 
'Calcul7
g =Calcul7()
RécupCalcul7.text = g
 
'Calcul8
h =Calcul8()
RécupCalcul8.text = h
 
'Calcul9
i =Calcul9()
RécupCalcul9.text = i
 
'Calcul10
j =Calcul10()
RécupCalcul10.text = j
 
 
        End If
end sub
End Class

Le soucis c'est que je dois remettre dans chaque "TextBox_TextChanged" ce code. Et j'ai neuf TextBox... Donc ça charge le programme pour rien je trouve, car c'est à chaque fois le même code...

Donc j'ai mis ça sous forme de fonction. C'est ce que j'ai mis dans mon programme mais ne marche pas.

Code:

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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
Module Execution
Public a as string
Public a as sting
Public b as string
Public c as string
Public d as string
Public e as string
Public f as string
Public g as string
Public h as string
Public i as string
Public j as string
 
 
 
 
 
 
Function AutomationCalculs() As String
        If App1.TextBox1.Text <> "0" _
           And App1.TextBox2.Text <> "0" _
           And App1.TextBox3.Text <> "0" _
           And App1.TextBox4.Text <> "0" _
           And App1.TextBox5.Text <> "0" _
           And App1.TextBox6.Text <> "0" _
           And App1.TextBox7.Text <> "0" _
           And App1.TextBox8.Text <> "0" Then
 
'Calcul1
a =Calcul1()
App1.RécupCalcul1.text = a
 
'Calcul2
b =Calcul2()
App1.RécupCalcul2.text = b
 
'Calcul3
c =Calcul3()
App1.RécupCalcul3.text = c
 
'Calcul4
d =Calcul4()
App1.RécupCalcul4.text = d
 
'Calcul5
e =Calcul5()
App1.RécupCalcul5.text = e
 
'Calcul6
f =Calcul6()
App1.RécupCalcul6.text = f
 
'Calcul7
g =Calcul7()
App1.RécupCalcul7.text = g
 
'Calcul8
h =Calcul8()
App1.RécupCalcul8.text = h
 
'Calcul9
i =Calcul9()
App1.RécupCalcul9.text = i
 
'Calcul10
j =Calcul10()
App1.RécupCalcul10.text = j
 
 
        End If
 
        Return a
        Return b
        Return c
        Return d
        Return e
        Return f
        Return g
        Return h
        Return i
        Return j
 
    End Function
End Module

29/04/2011, 10h06
Pol63

en plus d'expliquer le problème que tu rencontres il faut toujours expliquer la problématique de base, surtout quand on est débutant, ca permet d'avoir des autres pistes auxquelles on aurait pas pensé
parce que dans ton cas il y a des tas de solutions

par exemple tu peux faire une méthode qui contient tout ce code et appeler la méthode sur tous les textbox_changed
ou encore mieux faire Handles TextBox1.TextChanged, TextBox2.Changed, etc...
comme ca tous les évènements tombent sur la même méthode

il faut nommer ses controles et toutes ses variables avec des noms explicite
textbox1 c'est à éviter

de plus vu ton code, je te conseille de lire un cours/tuto, certains sont référencés par ce site (voir en haut) ou encore http://plasserre.developpez.com/cours/vb-net/
29/04/2011, 10h17
Gurdil le nain

De plus, pourquoi vouloir retourner tous les strings ?

Tu assignes leur valeurs dans tes labels, tu n'as pas besoin de les retourner...
29/04/2011, 10h22
WOLO Laurent

Que font les methodes calculp p={0....9} ?
Peux-tu poster le code ?
29/04/2011, 10h48
Bacube

Ok ok

Le programme, est basé sur le calcul d'engrenage. Il devra, une fois fini, forcer les paramètres d'une pièce 3D existante, faite sous SolidEdge.

Voilà la structure de mon programme :

http://www.imageurlhost.com/images/d...xrgw7_Info.jpg

La flèche rouge et bleu sont inutile sur ce shéma.

Le Module Calcul est un module dédié uniquement à des fonction de calculs (d, da, df, d, st, ...)
Le Module Exécution est un module se chargeant de créer les tableaux sur les différents formulaire ayant des tableaux.
Le formulaire MenuApp peux ouvrir les deux Formulaires via deux boutons
Le formulaire Engrenage est un formulaire de calculs, via l'insertion des données dans des textbox, et en appelant les fonctions du module Calculs
Le Formulaire Alésage est un formulaire de calculs, via l'insertion données dans des textbox, et en appelant les fonctions du module Calculs et Execution

ce qui m'intéresse est le fomulaire "Engrenage", car il y a au total 9 TextBox, pour les différentes valeurs connues:

-Module : m
-Nombre de dents : Z
...

Voici ça forme :

http://www.imageurlhost.com/images/0...swayl_Info.jpg

Pour les calculs des différents diamètres (Primitif, pied, têtes, Base), je leurs ai dédiés à chacun une fonction dans le "module calculs". Et en appyant sur un bouton tout se fesait.

Maintenant je souhaite que lorsque les chants requis soit complétés (ici différents de "0", c'est la valeur d'origine du TextBox), le calcul se fait de manière automatique.

Voilà ce que je souhaite développer. En espérant que ça vous aide à mieux comprendre mon problème.

P.S. : j'ai le PDF de ce cours, qui m'aide beaucoup, mais je n'ai pas encore eu le temps de le finir...
29/04/2011, 10h54
Pol63

un peu de POO ne fait pas de mal, surtout si le calcul est différent pour chaque type de données

genre une classe avec une méthode calcul mustoverride
pour chaque type de données tu hérite de la classe et écrit le calcul
ensuite tu ajoutes dans une List(Of ) chaque instance

et au final ton formulaire se retrouve avec 10 lignes de code (for each créer un textbox, for each si textbox vaut encore "0" ne rien faire sinon for each instance.calcul)

Merci, je vais lire dans le cours la P.O.O. alors

A titre d'informations, la P.O.O. est assez "facile" à prendre en main ? enfin pour un débutant ça ne sera pas trop compliqué ?

Pour répondre à WOLO Laurent

les "calculs" sont les calculs de diamètres et absisses curvilignes pour les engrenages.

du type :

d = m * z
da = d + 2 * m
df = d - 2.5 * m
...

Par exemple en 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 24 25 26 27 Module Calculs Public Z as single Public m as single Public d as single Public da as single Public df as single Function diametrePtf(byref d as single, byref m as single) as single 'd = csng(m * z) return csng(m * z) end function Function diametreTete(byref d as single, byref m as single) as single 'da = csng(d + (2 * m)) return csng(d + (2 * m)) end function Function diametrepPd(byref m as single, byref z as single) as single 'df =csng(d - (2.5 * m)) return csng(d - (2.5 * m)) end function . . . . End Module
Je ne mets pas les absisses curvilignes car c'est assez complexe à expliquer. Celà fait référence au Involute pour les développantes de cercles typiques des dentures d'engrenages.

29/04/2011, 11h34
Pol63

la POO ca s'apprend vite, et ca a l'avantage d'être structurant
indirectement ca sépare le code métier du code de mise en page
ca réduit le nombre de lignes de code, et donc le nombre de bug et facilite la maintenance
29/04/2011, 11h38
Bacube

Ok ok, je m'y mets. Donc pour faire ce que je souhaite, je dois passer par de la P.O.O. c'est bien ça ?
29/04/2011, 11h41
Pol63

Citation:

Envoyé par Bacube

Ok ok, je m'y mets. Donc pour faire ce que je souhaite je dois passer par du P.O.O. c'est bien ça ?

ce que tu décris a l'air de différer de ce que j'avais compris donc mon explication n'est surement plus applicable

une fois que tu auras compris la POO tu verras si tu peux et comment l'appliquer à ton cas
29/04/2011, 11h51
Bacube

Je vais travailler sur ça, et voir ce que je peux faire. En tout cas merci pour vos réponses !