Cours 2 : Structure des procédures


Une application est constituée essentiellement de l'interface utilisateur, formée elle-même de plusieurs contrôles, et de procédures qui génère des actions. A présent, analysons la structure d'une procédure.
La syntaxe d'écriture d'une procédure est la suivante :

[Public / Private] [Static] Sub Nom_proc (arguments)
   [Déclarations]
   [Instructions]
   [exit Sub]
   [Instructions]
   End Sub

Le mot Sub peut ou non être précédé des options suivantes :
  1. Les mots Public ou private définissent les limites de la procédure.
  2. Vous devez déclarer en début de procédures vos variables et constantes si vous ne l'avez pas fait dans la partie Général de la liste déroulante Objet qui se trouve en haut, à gauche de l'éditeur de code. Remarquez que si vous déclarez vos variables à l'intérieur de la procédure, sa portée sera limitée qu'à cette procédure;
  3. Static signifie que toutes les variables locales déclarées dans la procédure doivent conserver leur valeur entre 2 appels.
  4. Exit Sub permet de quitter la procédure avant la fin normale de celle-ci;
  5. End Sub ferme la procédure.
Pour cela, prenons un simple exemple :

Private Sub Form_Load()

Dim DateNaissance
Dim Message, Titre As String
Message = "Date de naissance ?"
Titre = "Entrez votre date de naissance : "
DateNaissance = InputBox(Message, Titre)
If DateNaissance <> "" Then
  DateNaissance = Format(DateNaissance, "Long Date")
  MsgBox DateNaissance, vbOKOnly + vbInformation, "Vous êtes né(e) le"
  End
Else
    While DateNaissance = ""
         MsgBox "Entrez une date", vbOKOnly + vbExclamation, "Attention!"
         DateNaissance = InputBox(Message, Titre)
    Wend
    DateNaissance = Format(DateNaissance, "Long Date")
    MsgBox DateNaissance, vbOKOnly + vbInformation, "Vous êtes né(e) le"
    End
End If

End Sub

Le but de ce programme est certes inutile, vous direz-vous, puisqu'il consiste juste à demander la date de naissance à quelqu'un et de l'afficher par la suite. Mais les instructions de cette procédures renferment une partie des bases de la programmation en VB6.
Ce n'est pas important si vous n'avez pas compris toutes les instructions de cette procédure. Contentez-vous pour l'instant de lire cette procédure et observez simplement de quoi peut être composée une procédure.
A présent, passons à une analyse simplifiée de cette procédure :


up
Cours précédent Cours suivant