Comment faire pour utiliser des paramètres avec les fonctions

Dans la section précédente, vous avez appris à mettre en place une fonction simple. Mettons en place une autre fonction, comme un autre exemple. Cette fois, nous allons ajouter des paramètres à notre fonction. Vous utilisez les paramètres exactement de la même manière que vous avez fait pour un sous.

• Alors ajouter un autre bouton à votre formulaire
• Définissez sa propriété Text pour obtenir Fonction réponse
• Ajoutez deux zones de texte à votre formulaire
• Définissez le nom de la propriété de la première zone de texte à txtNumber1
• Définissez le nom de la propriété de la deuxième zone de texte à txtNumber2
• Mettre en place la fonction suivante dans votre fenêtre de code (La première ligne peut être étalé sur deux lignes ici. Vous pouvez garder le vôtre sur une seule ligne. 2.012 utilisateurs peuvent passer à l'ByVal.)

AddTwoNumbers Private Function (ByVal première As Integer, deuxième ByVal As Integer) As Integer

Réponse Dim As Integer

answer = premier + second

AddTwoNumbers = réponse

End Function

Ainsi, le nom de cette fonction est AddTwoNumbers, et nous avons mis en place pour retourner une valeur entière. Les deux paramètres nous passons en sont aussi entiers. Le code à l'intérieur de la fonction ajoute simplement vous tout ce qui est à l'intérieur des variables premier et deuxième. Le résultat est transmis à une autre variable, la réponse. Nous passons ensuite tout ce qui est à l'intérieur répond le nom de notre fonction. Alors AddTwoNumbers sera égal à ce qui est dans la réponse variable.
Au lieu de dire AddTwoNumbers = réponse, vous pouvez utiliser le mot clé de retour. Vous pouvez l'utiliser comme ceci:

Retour réponse

Le résultat est le même: la valeur à l'intérieur de la réponse variable est la valeur de la fonction.
Ouvrez le code de votre bouton "Get réponse", et ajoutez le code suivant à elle:

Dim première As Integer
Deuxième As Integer
Résultat As Integer

premier = Val (txtNumber1.Text)
seconde = Val (txtNumber2.Text)

résultat = AddTwoNumbers (premier, deuxième)

Si le résultat = 0 Then

MsgBox ("Veuillez essayer à nouveau")

Else

MsgBox ("La réponse est" & result)

End If

Nous sommes donc dire Visual Basic pour exécuter notre fonction sur cette ligne:

résultat = AddTwoNumbers (premier, deuxième)

Nous disons, "Exécuter la fonction appelée AddTwoNumbers. Main dans les valeurs des deux variables. Lorsque vous avez fini d'exécuter la fonction, passe quelque soit la valeur de AddTwoNumbers est le résultat variable appelée."
Les quelques lignes qui suivent sont simplement tester ce qui est à l'intérieur de la variable résultat. Rappelez-vous: le résultat variable contiendra quelle que soit la valeur de AddTwoNumbers était.
Lorsque vous avez fini de taper votre code, exécutez votre programme et de le tester. Tapez un nombre dans la première zone de texte, et un dans l'autre. Puis cliquez sur le bouton "Get Fonction réponse". Essayez de taper deux zéros dans les zones de texte et de voir ce qui se passe.
La mise en place et l'utilisation des fonctions peut être très difficile au début, mais il est bien utile de votre temps persévérant: ils peuvent grandement améliorer vos compétences de codage.
Dans la section suivante, nous expliquons ce qu'est un module standard, et comment créer votre propre.

Posted in: Visual Basic .NET