Le premier site francophone dédié au développement Pocket PC

Guide eVB (partie 5)

Partie 1
Partie 2
Partie 3
Partie 4
Partie 5
Partie 6

Nous allons maintenant apprendre à créer des procédures et des fonctions.

Une procédure, kézako ?

Une procédure permet d'automatiser un traitement. Si vous avez besoin d'utiliser souvent dans votre programme plusieurs lignes de code qui ont entre elles un lien logique, vous pouvez créer une procédure.

Vous pouvez déclarer des procédures dans des modules et les rendre utilisables depuis n'importe quel endroit de l'application. Pour celà, il faut ajouter le mot "Public" devant la déclaration.

Vous pouvez, par exemple, créer une procédure qui affiche un message donné en paramètre et qui ensuite stocke dans une variable globale la date et l'heure d'affichage du dernier message. Pour commencer nous allons déclarer notre variable globale :

Puis, nous allons taper la ligne d'entête de notre procédure, juste en dessous de la variable que nous venons de déclarer :

Public Sub AfficherMessage(Byval LeMessage As String)

Lorsque vous validez cette ligne, eVB intègre la procédure dans le code du module :

On remarque au passage qu'une procédure est encapsulée dans un "Sub ... End Sub" qui en délimitent l'espace.

Il ne vous reste plus qu'à taper le code qui manque pour arriver à celui-ci :

Public Sub AfficherMessage(Byval LeMessage As String)
 Call Msgbox(LeMessage, 0, "Message")
 DateDernierMessage = Now
End Sub

Voila, vous venez d'écrire votre première procédure. Pour l'essayer, nous allons ajouter un bouton sur notre fenêtre "MainForm". Nous allons appeller notre bouton (la propriété Name) "BOU_Message" et lui donner comme titre (la propriété Caption) "Test Message", comme ceci :

Nous allons maintenant utiliser notre procédure en réponse à l'événement "Click" du bouton. Pour effectuer ça vous n'avez qu'à double cliquer sur le bouton pour faire apparaitre le code lié aux événements de ce bouton (par défaut, c'est l'événement Click qui est visualisé pour les boutons).

Une fois que vous êtes dans le code de l'événement Click du bouton, vous pouver taper le code suivant :

Call AfficherMessage("Ceci est mon message")
Call Msgbox("Date dernier message = " & DateDernierMessage)

Comme ceci :

Pour tester votre programme, vous n'avez qu'à taper Ctrl+F5 et attendre que le programme s'exécute sur votre Pocket PC. Une fois que c'est le cas, vous n'avez plus qu'à cliquer sur le bouton que nous venons de créer pour obtenir quelque chose dans ce genre :

Déclaration d'une fonction

Les fonctions globales sont déclarées comme les procédures, on utilise le mot clé "Function" au lieu de "Sub". Une fonction, contrairement à une procédure, retourne une valeur. On peut par exemple créer une fonction qui retourne le carré d'un nombre passé en paramètre :

Public Function Carre(Byval LeNombre As Double) As Double
 Carre = LeNombre * LeNombre
End Function

On remarque que la fonction possède un type (le "As Double" de la fin) et qu'on utilise le nom même de la fonction pour retourner le résultat (Carre = ....). L'appel de la fonction est très simple. En voici un exemple :

Dim Resultat As Double

Resultat = Carre(5)

La variable résultat sera égale à 25 au retour de la fonction.

Stéphane Sibué