1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

Timer ne fonctionne pas

Signaler
Messages postés
48
Date d'inscription
mardi 24 mars 2009
Statut
Membre
Dernière intervention
3 janvier 2015
 -
 Rykudos -
Bonjour,
j'ai un label qui affiche l'heure systeme en continue
un text box qui récupère une heure qq d'une base access
j'ai voulu rajouter un timer qui déclenche l'apparition d'un un autre label pendant 10 secondes si l'heure systeme = heure recuperer de la base access .
pouvez vous m'aider
merci d'avance

--
Afficher la suite

4 réponses

Réponse 1 / 4
Messages postés
31153
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
24 janvier 2021
 342
Bonjour,
j'ai voulu rajouter un timer qui déclenche l'apparition d'un un autre label pendant 10 secondes si l'heure systeme = heure recuperer de la base access .
pouvez vous m'aider
Oui on peut.... mais seulement si tu nous montres ton code.....


Réponse 2 / 4
Messages postés
14761
Date d'inscription
vendredi 14 mars 2003
Statut
Modérateur
Dernière intervention
21 janvier 2021
 151
Bonjour,

Quel est donc le problème?
Le code essayé ?
Les soucis rencontrés ?
Réponse 3 / 4
Messages postés
48
Date d'inscription
mardi 24 mars 2009
Statut
Membre
Dernière intervention
3 janvier 2015
voilà mon code qui bloque le label qui affiche l'heure en continu 
        If Format(Now, "HH:mm") = CHUQMaskedTextBox8.Text Then
            ' au  moment opportun on affiche le label pendant 2 secondes
            Label9.Visible = True
            Label9.Text = "c'est l'heure du ......" + Label4.Text
            Label9.Refresh()
            System.Threading.Thread.Sleep(20000)
            Label9.Visible = False

        End If


--
Réponse 4 / 4

1 textbox
1 label
1 timer(1) a 100
1 timer(2) a 1000 



Public Class Form1

    Dim t As Integer

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Timer1.Start()
        Label1.Visible = False

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        If TextBox1.Text = Format(Now, "HH:mm") Then
            Timer2.Start()
        End If

    End Sub

    Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick

        Label1.Visible = True
        t = t + 1
        Label1.Text = t

        If t = 20 Then
            Label1.Visible = False
            t = 0
            TextBox1.Clear()
            Timer2.Stop()
        End If

    End Sub
End Class
Répondre Posez votre question