Discussion :

[mickael62800]

Bonjour,

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

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

[Lytchit]

Bonsoir.

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

[mickael62800]

Merci Lytchit pour ton explication

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

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

[Lytchit]

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

Lytchit

[mickael62800]

je reviens vers vous avec mon code modifié

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

[rv26t]

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 :

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

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.

[mickael62800]

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

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

[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

[chaparo]

Bonjour,

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

Code :

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

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 :

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