* SÉRIE 2 *

.
IDENTIFICATION
(Inspiré des fiches de Mme Claudette Bélanger )

L'application que vous allez créer demandera ŕ l’utilisateur de s’identifier et de donner son âge. Un message sera affiché avec son nom et un autre message en fonction de son âge.

Créez un nouveau projet. Voici quelques caractéristiques ŕ respecter pour cette feuille.

FEUILLE: F_Identification

NAME	F_Identification
CAPTION	Identification
BACKCOLOR	Ŕ votre choix

Ajoutez une étiquette en respectant les caractéristiques suivantes.

ÉTIOQUETTE: ET_Mess

NAME	ET_Mess
CAPTION	Qui ętes-vous?
ALIGNMENT	Centré
AUTRES	Au choix

Ajoutez trois boutons de commande en respectant les caractéristiques suivantes.

BOUTON: BO_Ident

NAME	Bo_Ident
CAPTION	Identification
AUTRES	Au choix

BOUTON: BO_Age

NAME	Bo_Age
CAPTION	Âge
AUTRES	Au choix

BOUTON: BO_Quitte

NAME	Bo_Quitte
CAPTION	Quitter
AUTRES	Au choix

Voici un exemple de l'interface demandée.

Ajoutez le code suivant dans le bouton BO_Ident.

BOUTON: BO_Ident

Sub BO_ident_Click ()
    Dim v_nom$, V_defval$, V_msg$, V_titre$
    V_msg$ = "Entrez votre prénom et votre nom."
    V_titre$ = "Identification"
    V_defval$ = " "
    v_nom$ = InputBox$(V_msg$, V_titre$, V_defval$)
    ET_Mess.Caption = "Bonjour " + v_nom$
End Sub

Ajoutez le code suivant dans le bouton BO_Age. N'oubliez pas de compléter la documentation lŕ oů on le demande.

BOUTON: BO_Age

Sub BO_age_Click ()
    Dim v_age, V_defval, V_msg, V_titre
    V_msg = "Entrez votre âge."
    V_titre = "Demo de InputBox"
    V_defval = "1"
    Do
       v_age = InputBox(V_msg, V_titre, V_defval)
    Loop Until v_age >= 1 And v_age <= 99
    If v_age <= 13 Then      'si âge est = ou < que 13
        MsgBox v_age & " ans. " & " Profitez-en !"
    Else                            'sinon
        If v_age < 18 Then    'Ajoutez documentation
            MsgBox v_age & " ans. " & " Vive la jeunesse! "
        Else                        'Ajoutez documentation
            MsgBox v_age & " ans. " & " Le véritable âge de raison!"
        End If
    End If
End Sub

Ajoutez le code au bouton BO_Quitte.

BOUTON: BO_Quitte

Ajoutez le code permettant de demander la confirmation avant de quitter. Vous trouverez le script dans la page théorique concernant InputBox et MsgBox. N'oubliez pas de déclarer les variables.

Enregistrez le travail dans le répertoire VB_Module2. Les noms ŕ employer sont E4F1xx.FRM et EX4XX.VBP.