Discussion :

[Bacube]

Bonjour,


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


Du type :

Code :

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

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

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

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

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 :

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

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

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

[Bacube]

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 :

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

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

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

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

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




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 :




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

[WOLO Laurent]

Que font les methodes calculp p={0....9} ?
Peux-tu poster le code ?

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

[Bluedeep]

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.