* SÉRIE 3 *

.
MOT DE PASSE ET CHRONOMÈTRE
(Inspiré des fiches de Mme Claudette Bélanger)
.

Débutez un nouveau projet. Donnez les propriétés suivantes à la feuille.

FEUILLE: F_Passe

NAME	F_Passe
CAPTION	Passage secret

Placez une étiquette en haut au centre de la feuille et donnez-lui les propriétés suivantes.

ÉTIQUETTE: ET_Titre

NAME	ET_Titre
CAPTION	Vous disposez de 15 secondes pour taper votre mot de passe!

Placez une zone de texte avec les propriétés suivantes.

ZONE DE TEXTE: ZT_Mot

NAME	ZT_Mot
CAPTION	vide

MINUTERIE: Minu_1

NAME	Minu_1
INTERVAL	5000
ENABLED	True

Voici un exemple de ce à quoi devrait ressembler l'interface. Notez que les paramètres de police et les couleurs des objets sont laissés à votre bon goût.

Dans le code de la minuterie Minu_1, tapez les instructions suivantes.

Sub Minu_1_Timer()
    MsgBox ("Désolé, votre temps est écoulé!")
    End
End Sub

Créez une procédure Valider contenant les instructions suivantes.

Sub Valider()
    If ZT_Mot.Text = "informatique" Then
         Minu_1.Enabled = False
         MsgBox ("Bienvenue!")
        End
    Else
        MsgBox ("Désolé, je ne vous connais pas!")
    End If
End Sub

Dans la fenêtre de code de ZT_mot, écrivez les instructions suivantes: en utilisant la procédure KeyPress.

Sub ZT_Mot_KeyPress(KeyAscii As Integer)
     If KeyAscii = 13 Then
            Valider
     End If
End Sub

Exécutez votre application. Modifiez, si nécessaire, l’intervalle de la minuterie si le temps vous semble trop long ou pas assez.
Sauvegardez le fichier sous les noms E17F1xx.FRM et EX17xx.VBP.

Design by
LOGOSLAND CREATIONS