Fonctions

Introduction

Une fonction est un procédé qui prend soin d'une tâche et renvoie un résultat. Une fonction ressemble à un procédé secondaire de tous points sauf qu'à des retours d'une fonction une valeur.

Une fonction est créée comme un procédé secondaire avec quelques plus de règles. La création d'une fonction commence par la fonction de mot-clé et se ferme avec la fonction de fin. Voici un exemple:

Function GetFullName()

End Function

Le nom de la fonction suit les mêmes règles et suggestions que nous avons passées en revue pour les procédures secondaires. Puisqu'une fonction devrait retourner une valeur, après les parenthèses, toi peut dactylographier comme mot-clé suivi du type de données que la fonction doit retourner. Voici un exemple:

Function GetFullName() As String

End Function

Quand nous avons étudié des variables, nous avons vu que, au lieu d'employer comme expression de DataType, vous pourriez employer un caractère particulier. Cette théorie s'applique également aux fonctions. Pour l'employer, du bon côté du nom de la fonction, dactylographier le caractère spécial qui représente le type de données, suivi des parenthèses de la fonction, et puis omettre comme expression de DataType. Un exemple serait GetFullname$(). Comme avec les variables, vous devez employer le caractère approprié pour la fonction:

Voici un exemple :

Function GetFullName$()
        
End Function

L'exécution d'une fonction est faite la même manière dont d'un procédé secondaire est. Puisqu'une fonction est censée renvoyer une valeur, après avoir effectué de quelque tâche vous ayez besoin dans une fonction, vous pouvez assigner le résultat désiré au nom de la fonction avant la fermeture de la fonction. Voici un exemple :

Function GetFullName() As String
    Dim strFirstName, strLastName As String
    strFirstName = txtFirstName
    strLastName = txtLastName
    GetFullName = strFirstName & " " & strLastName
End Function

1. Dans le rédacteur de code, le rouleau vers le bas, cliquent la première ligne vide, le type fonction CircleCircumference comme double et la pression entrent
2. Noter que de base visuel a accompli le code avec la ligne de fonction de fin et a placé le curseur dans le corps de la fonction. Mettre en application la fonction comme suit :
    

   Function CircleCircumference() As Double Dim dblRadius As Double dblRadius = txtCircleRadius CircleCircumference = dblRadius * 2 * 3.14159 End Function

3. Sur le menu principal, insertion de clic - > procédé…
4. Dactylographier CircleArea dans la boîte nommée des textes
5. Dans le type section, s'assurer que la radio de fonction est choisie (le défaut). Dans la section de portée, cliquer le bouton par radio privé et cliquer BIEN.
6. Mettre en application la fonction comme suit :
    

   Private Function CircleArea#() Dim dblRadius As Double dblRadius = txtCircleRadius CircleArea = dblRadius * dblRadius * 3.14159 End Function

Pour appeler une fonction, vous avez deux solutions de rechange principales. Si la fonction était aussi simple mis en application qu'un procédé secondaire, vous pouvez juste écrire son nom en cas ou la fonction qui l'appelle. Si vous voulez employer la valeur de retour d'une fonction dans un événement ou d'une fonction différente, assigner le nom de la fonction à la variable locale appropriée. Voici un exemple :

Private Sub Detail_DblClick(Cancel As Integer)
    txtFullName = GetFullName
End Sub

1. Dans la boîte combo d'objet, choisir le cmdCCalculate et mettre en application son événement de clic comme suit :
    

   Private Sub cmdCCalculate_Click() txtCircleCircumference = CircleCircumference txtCircleArea = CircleArea End Sub

2. Commuter au Microsoft Access et commuter la forme à la vue de forme
3. Cliquer l'étiquette et, dans la boîte supérieure des textes de rayon, le type circulaires 25.55
4. Cliquer la droite calculent le bouton (pour le cercle)
5. Commuter la forme de nouveau à la vue de conception