Explication sur les fonctions

Version imprimable

Bonjour,

j'ai fait un code avec un calcul a l'interieur qui marche mais un truc m'échappe
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim resultat As Integer = calcul() afficher(resultat) End Sub Private Function calcul() As Integer Dim x As Integer = TextBox1.Text Dim y As Integer = TextBox2.Text Return x * y End Function Private Sub afficher(resultat As Integer) MessageBox.Show(resultat) End Sub End Class
Au niveau de la fonction calcul(), a quoi sert le paramètre qui se trouve entre les () et a quel moment faut t'il en mettre une ??

Je suis un gros débutant en langage de programmation.

Merci d'avance pour vos explication

30/01/2015, 20h52
Lytchit

Bonsoir.

Citation:

Envoyé par mickael62800

Au niveau de la fonction calcul(), a quoi sert le paramètre qui se trouve entre les () et a quel moment faut t'il en mettre une ??

En gros : il est possible de passer des paramètres à une fonction, c'est-à-dire lui fournir une valeur ou le nom d'une variable afin que la fonction puisse effectuer des opérations sur ces paramètres ou bien grâce à ces paramètres.
Lorsque tu passes plusieurs paramètres à une fonction il faut les séparer par des virgules, aussi bien dans la déclaration que dans l'appel et il faudra veiller à bien passer le bon nombre de paramètres lors de l'appel au risque sinon de créer une erreur dans votre script.

Lytchit

Merci Lytchit pour ton explication

Si j'ai bien compris, je peux modifier mon code comme ce si :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim resultat As Integer = calcul()
        afficher(resultat)
 
 
    End Sub
    Private Function calcul(x, y As Integer) As Integer
        x  = TextBox1.Text
        y  = TextBox2.Text
        Return x * y
    End Function
    Private Sub afficher(resultat As Integer)
        MessageBox.Show(resultat)
    End Sub
 
 
 
End Class

Donc mettre calcul(x, y as integer) as integer et leur donner une valeur a une ligne en dessous?

30/01/2015, 21h33
Lytchit

Oui par exemple.
Le tout étant de bien penser à également passer les arguments au moment de la déclaration de la fonction ;-).

Lytchit

je reviens vers vous avec mon code modifié
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click calcul() afficher() End Sub Private Sub afficher() MessageBox.Show(calcul) End Sub Private Function calcul(x As Integer, y As Integer) As Integer x = TextBox1.Text y = TextBox2.Text Return x * y End Function End Class
Sa marche très bien mais il me dit qu'il y a tout de même des erreurs. Il me souligne en bleu le "calcul()" dans le sub afficher et le sub du boutton1

ma démarche était de mettre le x et y dans la fontion calcul (x As Integer, y As Integer)

voila les erreurs
Erreur 1 Argument non spécifié pour le paramètre 'x' de 'Private Function calcul(x As Integer, y As Integer) As Integer'. C:\Users\Mickael\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 4 9 WindowsApplication1
Erreur 2 Argument non spécifié pour le paramètre 'y' de 'Private Function calcul(x As Integer, y As Integer) As Integer'. C:\Users\Mickael\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 4 9 WindowsApplication1
Erreur 3 Argument non spécifié pour le paramètre 'x' de 'Private Function calcul(x As Integer, y As Integer) As Integer'. C:\Users\Mickael\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 9 25 WindowsApplication1
Erreur 4 Argument non spécifié pour le paramètre 'y' de 'Private Function calcul(x As Integer, y As Integer) As Integer'. C:\Users\Mickael\AppData\Local\Temporary Projects\WindowsApplication1\Form1.vb 9 25 WindowsApplication1

Bonjour,

Si on défini des paramètres pour la fonction (x As Integer, y As Integer), il faut mettre les valeurs à traiter lors de l'appel de cette fonction calcul(3, 2).
Code:

1 2 3 4 5 6 7 8 9 10 Public Class Form1 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click MessageBox.Show(calcul(Integer.Parse(TextBox1.Text), Integer.Parse(TextBox2.Text))) End Sub Private Function calcul(x As Integer, y As Integer) As Integer Return x * y End Function End Class
Attention, ici il n'y a pas de controle sur les nombres.

Le Cours VB.NET de Philippe Lasserre est une mine d'information, très bien pour apprendre.
A mon avis il vaut mieux étudier le cours plutôt que de partir dans tous les sens.

Effectivement ... j'ai oublier de mettre mes textboxs ...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Public Class Form1
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim resultat As Integer = calcul()
        afficher(resultat)
 
 
    End Sub
    Private Function calcul(x As Integer, y As Integer) As Integer
        x = TextBox1.Text
        y = TextBox2.Text
        Return x * y
    End Function
    Private Sub afficher(resultat As Integer)
        MessageBox.Show(calcul)
    End Sub
 
 
 
End Class

Toujours le probleme avec calcul qui est souligné en bleu...

Merci pour ton lien, je vais y jeter un oeil

31/01/2015, 14h53
rv26t

Citation:

Envoyé par rv26t

Si on défini des paramètres pour la fonction (x As Integer, y As Integer), il faut mettre les valeurs à traiter lors de l'appel de cette fonction calcul(3, 2).

Voir code fourni

Bonjour,

Ligne 4 et ligne 15, tu appelles la fonction calcul() sans lui donner de paramètre.

Code:

1
2
3
4
 
  Dim resultat As Integer = calcul()
//Devrait etre
  Dim resultat As Integer = calcul(3,4)

Tu ne peux pas appeler une fonction si elle requière des paramètres.
De plus ta fonction n'est pas très pratique.
Quoi que tu donne comme argument elle te retournera le resultat de textbox1 * textbox2
Cela devient donc :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Public Class Form1 <span style="font-family: monospace; padding: 2px; background: #ddd; display: inline-block">Integer.TryParse<span class="br0">(</span><span class="br0">)</span></span> avec plus d'info <a href="https://msdn.microsoft.com/en-us/library/f02979c7(v=vs.110).aspx" target="_blank">ici</a>
Cela te protégera des cas ou l'utilisateur envoi deux String dans les textbox.
 
si textbox1.text = "a" alors Textbox1.text * Textbox2.Text te lèvera une exception. 
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim resultat As Integer = calcul(TextBox1.Text,TextBox2.Text)
        afficher(resultat)
 
 
    End Sub
    Private Function calcul(x As Integer, y As Integer) As Integer
        Return x * y
    End Function
    Private Sub afficher(resultat As Integer)
        MessageBox.Show(calcul(TextBox1.Text,TextBox2.Text)
    End Sub
 
End Class

Enfin pense a utiliser la fonction