Dans ce cours, nous allons explorer les paramètres. passons directement à elle.
Ajouter deux zones de texte de la forme que vous avez créé dans la partie précédente . puis procédez comme suit:
- Définissez la propriété Name de la première zone de texte à txtFirstNumber
- Définissez la propriété Nom de la deuxième zone de texte à txtSecondNumber
- Ajouter un nouveau bouton à votre formulaire et définissez la propriété Text "Get réponse"
Double-cliquez sur votre nouveau bouton pour faire apparaître la fenêtre de code. Cliquez en dehors du code du bouton, juste après End Sub, mais avant la fin de la classe. Tapez le code suivant:
AddNumbers Private Sub ()
Dim première As Integer
Deuxième As Integer
Réponse Dim As Integer
Deuxième As Integer
Réponse Dim As Integer
premier = Val (txtFirstNumber.Text)
seconde = Val (txtSecondNumber.Text)
seconde = Val (txtSecondNumber.Text)
answer = premier + second
MsgBox ("Le total est" et la réponse)
End Sub
Nous avons créé un sous d'additionner les deux chiffres à partir des zones de texte. Le code est très simple, et vous devriez être capable de le suivre sans aucun problème. Maintenant, ajoutez la ligne suivante au code de votre bouton "Get réponse":
AddNumbers de call ()
Exécutez votre programme.
Tapez un nombre dans chacune des deux zones de texte, puis cliquez sur
le bouton pour vous assurer que votre programme fonctionne (DID
l'affichage de la boîte de message?) Arrêter le programme et revenir à
l'environnement de conception. Hacher les deux lignes de code pour les zones de texte des sous et les mettre dans le bouton. Vos deux sections de code devrait ressembler à ceci:
La raison pour laquelle il ya deux lignes ondulées sous la première et la deuxième est que le AddNumbers Sous sait rien au sujet de ces deux variables. Nous avons seulement déclaré une variable à l'intérieur du sous-programme - réponse. Pour se débarrasser des lignes ondulées, nous pouvons mettre en place quelque chose qui s'appelle un paramètre. Eh bien, deux paramètres.
Pour le dire simplement, un paramètre est une valeur que nous voulons passer d'une section de code à un autre.
Ce que nous voulons faire est de transmettre les valeurs que nous avons
recueillies de notre code du bouton et de les remettre à nos AddNumbers sous. Alors, comment pouvons-nous faire? Modifiez les AddNumbers Private Sub () de la ligne à ceci:
AddNumbers Private Sub (première As Integer, deuxième As Integer)
Lorsque vous appuyez sur la touche de retour, VB modifie la partie
entre parenthèses de ce dans les versions de VB express 2010 ou moins:
(ByVal première As Integer, deuxième ByVal As Integer)
Il a ajouté une curieuse terme - ByVal. (En 2012, les utilisateurs, le ByVal est caché.) Nous allons vous expliquer ce que c'est dans un instant. Pour l'instant, concentrez-vous sur les paramètres. Les paramètres sont ce que nous voulons léguer à nos sous-programme. Nous voulons remettre une variable entière appelée première, et une variable entière appelés seconde. Quel que soit les valeurs sont actuellement stockées dans ces deux variables seront remis à nos sous.
AddNumbers de call ()
Si vous maintenez votre souris sur l'AddNumbers () vous pourriez voir apparaître cette astuce:
Donc vous changer la ligne appelante à ceci:
AddNumbers d'appel ( premier, deuxième )
(Si la seconde à l'intérieur de votre sous a changé de Second (). Supprimer les parenthèses.) Encore une fois, nous utilisons les parenthèses. Et entre les parenthèses sont nos deux variables. Ils n'ont pas besoin d'avoir les mêmes noms. Quoi que vous appelez vos variables dans le AddNumbers Sous n'a pas besoin d'être les mêmes noms que la ligne appelante. Les noms de variables peuvent être tout à fait différent. Mais les valeurs des variables sont transmis dans l'ordre que vous les mettre en place. Dans notre cas, la valeur de la variable première sera adopté à la première variable dans nos AddNumbers Sub; la valeur de la deuxième variable sera adopté à la prochaine variable, nous mettons en place dans nos AddNumbers sous.
Exécutez votre programme et vérifier qu'il fonctionne correctement, maintenant que vous avez changé la ligne appelante. Lorsque vous avez terminé, changer les noms de variables pour vos AddNumbers sous cette (2012 utilisateurs n'ont pas besoin d'ajouter ByVal.):
AddNumbers Private Sub (ByVal first2 As Integer, ByVal seconde2 As Integer)
Réponse Dim As Integer
answer = first2 + seconde2
MsgBox "Le total est de" & réponses
End Sub
Ici, nous avons changé les noms de nos sous. Les noms des variables sont maintenant différentes de celles de la ligne appelante Ils sont maintenant first2 et seconde2. Mais faut-il encore travailler? Testez votre programme et vérifiez-le. Vous devriez trouver ce qu'il fait. Donc, pour résumer, nous pouvons utiliser un sous pour créer notre propre segment de code. Nous utilisons cette sous juste en le désignant par son nom. Si nous voulons transmettre toutes les valeurs de nos sous, nous pouvons mettre en place des paramètres entre les parenthèses.
Exercice M
Création d'un sous pour vérifier une zone de texte pour une adresse de courriel valide ou adapter celui que vous avez déjà. Passez tout ce qui est entré dans la zone de texte à une variable appelée "e-mail". Passez la valeur de cette variable pour vos sous en utilisant un paramètre. Quand un bouton est cliqué, une boîte de message devrait apparaître indiquant à l'utilisateur si l'adresse électronique est erronée.
Solution de l'exercice M
Dans la partie suivante, nous allons jeter un oeil à ces deux termes curieux, ByVal et ByRef.
0 commentaires:
Enregistrer un commentaire