Site:

Cours VB.net

1.19.8

Contrôle des connaissances. Fonctions, paramètres.

Questions:

8- Fonctions, Paramètres.

8.1 Quand employer une 'Function' plutôt qu'une Sub?

8.2 Créer le squelette d'une Sub nommée 'Calcul' recevant 2 paramètres: Une String et un Integer (nommés dans la Sub 'Nom' et 'Id'), paramètres passés 'Par Valeur'.

Comment utiliser cette Sub dans une autre  Sub.

Expliquer ce qu'est un paramètre par valeur?

8.3 Créer une Function nommée 'IsPaire' recevant 1 paramètre Integer (nommés dans la Sub 'Nombre'), paramètres passés 'Par Valeur' et retournant un Boolean qui a la valeur True si nombre est pair.

Écrire une procédure appelant cette fonction  et afficher dans une MessageBox "Le nombre est pair" ou "Le nombre est impair" suivant le cas.

Réponses:

8- Fonctions, Paramètres.

8.1 Quand employer une 'Function' plutôt qu'une Sub?

Quand une procédure doit retourner une seule valeur.

8.2 Créer le squelette d'une Sub nommée 'Calcul' recevant 2 paramètres: Une String et un Entier (nommés dans la Sub 'Nom' et 'Id'), paramètres passés 'Par Valeur'.

    Sub Calcul (ByVal Nom As String, ByVal Id As Integer)

     End Sub    

Comment utiliser cette Sub dans une autre  Sub.

Calcul ("Titi",2)

ou

Dim n As String= "Titi"

Dim i As Integer=2

Calcul (n,i)

Expliquer ce qu'est un paramètre par valeur (ByVal)?

C'est la valeur qui est envoyée et non la référence(l'adresse en mémoire).

Dans l'exemple ci dessus c'est "titi" qui est envoyé en premier paramètre et pas l'adresse de "titi". Si dans la Sub je fais Nom="Toto", dans la procédure appelante, n sera toujours égal à "Titi". Si on avait passé Nom en 'ByRef' n aurait été modifié.

8.3 Créer une Function nommée 'IsPaire' recevant 1 paramètre Integer (nommés dans la Sub 'Nombre), paramètres passés 'Par Valeur' et retournant un Boolean qui a la valeur True si nombre est pair.

Function IsPaire(ByVal Nombre As Integer) As Boolean

If Nombre Mod (2) = 0 Then

   Return True

Else

   Return False

End If

End Function

Écrire une procédure appelant cette fonction en donnant un nombre et afficher dans une MessageBox "Le nombre est pair" ou "Le nombre est impair" suivant le cas.

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If IsPaire(4) Then

  MsgBox("le nombre est pair")

Else

  MsgBox("le nombre est impair")

End If

End Sub