VB

Bonjour bonjour!

Je dois utiliser une fonction timer !! Au secours c'est nouveau :(
En fait l'utilisateur aura droit de saisir un mot de passe à 3 reprises s'il ne réussit pas avant! La fenetre qui s'ouvre ne doit être ouverte que 15 secondes. Je ne vois pas du tout comment je peux m'en tirer. Si vous pouvez m'aider je vous en serais reconnaissante.

Mathilde

Salut,

Ben, tu poses un contrôle timer sur ton formulaire de saisie du mot de pass, puis dans la sub :

Private Sub Form_Load() ' Ton formulaire de saisie
....
........
...........

Timer1.interval = 1000 ' = 1 secondes

.....
..........

End Sub


Private Sub Timer1_Timer()
Static MyNbrSecondes As Interger
MyNbrSecondes = MyNbrSecondes +1
If MyNbrSecondes = 15 then Timer1.Interval=0:MyNbrSecondes =0:Unload Me
End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Salut,

Dans ton formulaire qui doit s'afficher 15 second place un objet Timer nomme TimerSec et place se code.

Option Explicit Private Sub Form_Load() TimerSec.Interval = 15000 TimerSec.Enabled = True End Sub Private Sub TimerSec_Timer() TimerSec.Enabled = False Call Unload(Me) End Sub

By Renfield

@+: Ju£i€n
Pensez: Réponse acceptée

Encore moi..

Pour julien : que signifit : "Call Unload(Me)" J'voudrais comprendre plutot que recopier betement
merci d'avance et merci déjà pour les réponses

Mathilde

Bonjour,

Excusez-moi;

"Je dois utiliser une fonction timer "

me donne à penser que son prof lui a demandé d'utiliser la fonction Timer (pas le contrôle Timer)

S'agissant apparemment d'un exercice, je me contente donc d'appeler son attention sur ce mot :
Doevents

et de l'utiliser avec la fonction Timer

Re,
Unload(me) place dans un formulaire appelle le déchargement de ce formulaire

Pratique si tu te sert du formulaire comme d'une MSGBOX

@+: Ju£i€n
Pensez: Réponse acceptée

Je dois également faire un autre programme qui permettrait, si l'utilisateur à fait une erreur de repositionner le focus dans la zone de texte au bout d'une seconde. Je comprends absolument rien :'(

Mathilde

Re,

Jmfmarques >> Salut, tu t'excuses...!!! Non! un carambar et c'est bon..lol...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

Re,

Ben, je pense que tu as toutes les réponses necéssaire pour faire ton "'exercice", et regarde aussi avec ton aide en ligne : Setfocus.

Comme le dit très souvent Jmfmarques, essaye un bout de code, et revient vers nous si tu rencontres un problème de code...

A+
Exploreur

 Linux a un noyau, Windows un pépin

 

salut,

avec le test de pass çà donnerait çà :

Option Explicit
Private Const MDP As String = "password"

Private Sub Form_Load()
    Dim sRet As String, i As Integer
    sRet = vbNullString
    i = 0
    
    Do
        sRet = InputBox("Saisissez le MDP", "Authentification")
        i = i + 1
        If i = 3 Then Exit Do
    Loop Until sRet = MDP
    
    Timer1.Interval = IIf(sRet = MDP, 0, 15000)
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    Timer1.Enabled = False
    MsgBox "fermeture !!!!"
    Unload Me
End Sub


qu'est-ce que tu ne comprends pas dans le timer?

tu lui attribues un intervalle en ms, donc tous les X voulus, ton évènement timer1_TIMER va se déclencher

et pour le lancer ou l'arrêter, timer1.enabled=true / false

nb : intervalle à zéro vaut comme un enabled = false.

++

---

Prenez un instant pour répondre à ce sondage svp