|
|
|
.
COMPTER LA NOTE
(Tiré
des fiches de Mme Claudette Bélanger)
|
- Utilisez
le programme EX6
que vous avez sauvegardé à la fiche précédente.
Vous allez lui ajouter le calcul et
l’affichage des points.
Vous allez attribuer
10 points
pour chaque
bonne réponse.
-
Ajoutez
2
étiquettes
dans l’interface: une
première, ET_Total,
pour afficher le mot
TOTAL:
et une
seconde, ET_pts,
pour faire afficher le pointage. Voici à quoi
pourrait ressembler la nouvelle version de
l'interface.
-
Corrigez
la procédure Valider
(ne pas oublier qu’il faut passer par le général
de la feuille pour retrouver cette procédure) pour
qu'elle devienne identique à ceci. Les lignes à
ajouter sont en caractères
gras.
Sub
valider()
ET_mess = ""
If
ZT_rep.Text = v_Brep Then
ET_mess.BackColor = &HFF00FF
ET_mess.Caption = "Bravo !"
Let V_tot = V_tot + 10
‘incrémentation
de 10
Else
ET_mess.BackColor = &HFFFF&
ET_mess.Caption = "Erreur !"
End
If
ET_pts.Caption
= V_tot &
"
/
"
& V_no
* 10
‘affichage
des points
ZT_rep.Text =
""
End
Sub
|
-
Testez
le programme. Vous
donnez, sûrement, les réponses en majuscules.
Essayez en minuscules. Vous
avez sans doute remarqué qu’une
réponse écrite en minuscules est considérée comme
fausse.
S’il fallait que les profs corrigent comme ça!!!
-
Vous
savez
que V_Brep
="ROM"
ou "RAM":
vous avez écrit le code. Mais l’utilisateur ne le
sait pas.
Il faut donc prévoir dans le code la
possibilité de valider comme bonnes les réponses RAM,
Ram ou ram.
Il existe une fonction de chaîne de caractères
UCASES$
qui
permet de transformer
une chaîne de caractères en majuscules.
Corrigez à nouveau la procédure Valider.
Sub
valider()
ET_mess = ""
IF UCASE$(ZT_rep.text) = V_Brep then
ET_mess.BackColor = &HFF00FF
ET_mess.Caption = "Bravo !"
Let V_tot = V_tot + 10
‘incrémentation
de 10
Else
ET_mess.BackColor = &HFFFF&
ET_mess.Caption = "Erreur !"
End
If
ET_pts.Caption
= V_tot &
" / " & V_no * 10
'affichage des points
ZT_rep.Text =
""
End
Sub
|
-
Vérifiez
l’exécution de votre programme. Les réponses en
minuscules sont acceptées tout aussi bien que celles
en majuscules.
-
Il
serait aussi intéressant de faire afficher en
haut à gauche
de la question le numéro de la question. À
l’aide d’une étiquette
et de la variable V_no,
ajoutez dans votre programme ce qu’il faut
pour le faire. Il suffit d'une
instruction
dans la procédure Questionnaire.
-
Un
autre défi! Faites afficher
la bonne réponse
si elle est validée comme fausse.
-
Pour
finir, ajoutez 3
autres questions
à ce questionnaire.
-
Sauvegardez
sous les noms E6BF1xx.FRM
et EX6Bxx.VBP.
|
|
