Discussion :

[ninshi78]

Bonjour,

Je travaille actuellement sur un projet en VB.net dans le quel j'aurai besoin d'une minuterie.
J'ai trouvé un timer dans la boite a outil mais je ne comprendre pas sont fonctionnement et Msdn n'est pas très clair...

J'aimerait que deux timers, visible dans le formulaire, déclenche deux actions différentes.

Désolé ci je ne suis pas très clair, merci d'avance de votre aide!

[Mytebello]

Bonjour,

il y a plein de tutos sur internet sur les timers en VB

Un timer est un control qui réalise des actions régulièrement
(durée à déterminer dans la fenetre de Visual Studio ou avec une ligne dans "Public Sub form1_load(...)" par exemple, du genre :
Timer1.Interval = 100 ,pour un timer nommé "Timer1" et un intervalle de temps de 100 ms


Pour faire très simple, il y a deux choses à retenir d'un timer :
- Il faut lancer le timer (commencer à réaliser les actions régulièrement) -> Timer1.Start()
- définir les actions à réaliser toutes les X ms. Pour cela, double clique sur le timer dans l'onglet [Création], cela va créer pour toi une méthode nommée

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

End Sub

Ou quelque chose similaire.
Tu peux alors mettre dans ce Sub les méthodes à réaliser

Tu peux arrêter le timer avec la fonction Timer1.Stop()

[ranzoken]

tu peut faire un control user pour le réutiliser
après il n'y a pas grand chose à comprendre il y a une manière de faire et on l'applique
voici un petit exemple


(pour info la fonction modiflabel sert juste a changer les propriétés font)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
    Private _patternDate As String = "dddd dd MMMM yyyy"
    Private _patternTime As String = "HH : mm"
 
    Private Sub CtrlHorloge_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer_Horloge.Enabled = True
        Timer_Horloge.Interval = 1000
        modifLabel(LBL_Date)
        modifLabel(LBL_Heure)
 
        Timer_Horloge.Start()
 
    End Sub
    Private Sub Timer_Horloge_Tick(sender As Object, e As EventArgs) Handles Timer_Horloge.Tick
        LBL_Date.Text = Format(Now, _patternDate)
        LBL_Heure.Text = "Heure : " & Format(Now, _patternTime)
    End Sub

[DotNetMatt]

Attention car il existe différents timers dans le .NET Framework, certains avec une précision affûtée, d'autres étant beaucoup moins précis comme ceux qui ont éte donné en exemple.