|
Vous
avez utilisé dans les contrôles l’événement Click.
D'ailleurs, vous avez sans doute remarqué que le mot click()
se retrouve à la fin de votre première ligne de code. EX: Sub
BO_quest_click().
Ceci indique que ce code sera exécuté si le
bouton est cliqué avec la souris.
Vous
allez maintenant utiliser un autre événement pour déclencher
l’exécution du code.
Par exemple, si on doit répondre par un mot dans
une zone de texte, le fait de presser «Entrée»
peut remplacer le click.
L’événement qui agit ainsi s’appelle «Keypress».
Il utilise les codes
ascii dont vous
retrouverez un tableau ici.
- Utilisez
le programme EX6Bxx.VBP
que vous avez sauvegardé à la fiche précédente et ouvrez la fenêtre de code de
ZT_rep.
- Allez en haut de la fenêtre
et ouvrez la liste défilante de
droite. Sélectionnez
l'événement KeyPress.
Ajoutez le code suivant.
|
IF
KeyAscii = 13 Then
Valider
End
if |
-
Enlevez
le bouton BO_valider.
Vérifiez
le programme. Sauvegardez
sous les noms E6CF1xx.FRM
et EX6Cxx.VBP.
L’utilisateur
peut quitter
le questionnaire sans répondre à toutes les questions. Il
serait intéressant de calculer sa note selon le
nombre de questions faites.
- Ajoutez
une feuille
F_result
(PROJET, AJOUTER UNE FEUILLE).
Elle peut avoir la dimension et les
caractéristiques que vous voulez.
Ajoutez les étiquettes
nécessaires
pour afficher les éléments suivants: Votre
résultat est: .....%
et
Au revoir...
Identifiez-les
correctement, selon les règles. Ajoutez aussi un
bouton Quitter
sur cette
feuille, mais cette fois sans
confirmation.
,
- Ajoutez
la variable globale
V_pourcent
dans le module
BAS.
Elle est de type
Integer.
Ajoutez ensuite dans le bouton
BO_Quit
les lignes de code nécessaires pour faire le
calcul du
pourcentage
:le total (V_tot) divisé par
10,
chaque question valant 10 pts, divisé à son tour par
le nombre de questions (V_no)
et multiplié par 100. Voici la formule:
V_Pourcent =
((V_tot / 10) / V_no) * 100
Faites
aussi afficher la feuille F_result
si la confirmation est
positive.
- Ajoutez
l'initialisation du contenu de l'étiquette dans la
procédure Sub
Form_Load()
de la feuille F_result
et le script permettant de quitter dans le bouton Quitter
de cette feuille.
- Ajoutez
une image
de votre choix sur cette feuille.
- Sauvegardez
en conservant les mêmes
noms. La
nouvelle feuille aura le nom EX6F2xx.FRM.
|
