Decrementation d'un TimeSpan

Version imprimable

10/07/2013, 15h40
dragondumond

Decrementation d'un TimeSpan

Bonjour,

Actuellement, j'ai une Form ou l'utilisateur à la possibilité via une combobox de choisir un temps (30 minutes, 1H, 2H, 4H ou 8H) une vois qu'il a choisie son temps et qu'il valide, ce temps est enregistrer dans une propriété de type TimeSpan. J'ai besoin de réaliser une méthode qui me permet de décrémenter cette propriété jusqu’à zéro pour ensuite par exemple avertir l'utilisateur.
Comment réaliser un genre de compteur inversé sachant que j'ai le choix de l'utilisateur qui est enregistrer dans une variable TimeSpan ?

Merci d'avance pour vos suggestions.

Code:

1
2
3
4
        Dim ts As New TimeSpan(1, 0, 0) ' Représente une heure
        Dim ts2 As New TimeSpan(100, 0, 0) ' Représente 100 heure
        Dim reponse As TimeSpan = ts2.Subtract(ts)
        Console.WriteLine(reponse.TotalHours) ' Marque 99 heures

10/07/2013, 16h03
dragondumond

J'ai compris ton code mais moi j'ai déjà fais comme sa pour rentré une valeur par exemple dans ma variable :

Code:

Dim ts As New TimeSpan(1, 0, 0) ' Représente une heure

Code:

Dim ts2 As New TimeSpan(0, 30, 0) ' Représente 30 minutes

mais je veux par la suite faire un système de sablier à la seconde prêt et réaliser une action quand ma variable arrive à zéro !!

et mon sablier j'ai pas envie de le faire manuellement avec un système de calcul genre comment tu la montré mais au niveau de la seconde, j'aurai plutôt aimé utilisé une méthode ou un control qui respect la base de temps de mon PC et qui le fait à ma place au lieu du manuellement par du calcul.

PS: meme si je met mon calcul dans un timer qui tourne toute les 1 seconde, je sais que parfois mon code a tendance a ralentir suivant s'il y a beaucoup de calcul a faire ou pas et j'ai peur que par exemple 30 min en mode calcul ne représente pas 30min en temps Vrai.

Hello,

Voici un bout de réponse je pense

Code:

1
2
3
4
5
6
7
8
 
Dim ts As New TimeSpan(0, 0, 0, 10, 0)
Dim ts2 As New TimeSpan(0, 0, 0, 1, 0)
While ts.TotalMilliseconds > 0
	ts = ts.Subtract(ts2)
	Console.WriteLine(ts.TotalSeconds)
	System.Threading.Thread.Sleep(ts2)
End While

Citation:

Envoyé par dragondumond

PS: meme si je met mon calcul dans un timer qui tourne toute les 1 seconde, je sais que parfois mon code a tendance a ralentir suivant s'il y a beaucoup de calcul a faire ou pas et j'ai peur que par exemple 30 min en mode calcul ne représente pas 30min en temps Vrai.

Si vous avez peur d'une dérive vous pouvez faire quelque chose comme ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    Private dateFinal As Date
    Private stw As Stopwatch
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim monTimeSpan As New TimeSpan(0, 0, 30)
        dateFinal = Now.Add(monTimeSpan)
        stw = New Stopwatch
        stw.Start()
        Timer1.Start()
 
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Label1.Text = Math.Round(stw.Elapsed.TotalSeconds)
        Label2.Text = Math.Round(dateFinal.Subtract(Now).TotalSeconds)
        If Date.Compare(Now, dateFinal) >= 0 Then
            stw.Stop()
            Timer1.Stop()
            MsgBox("fini")
 
        End If
    End Sub

10/07/2013, 16h47
Sankasssss

Et si tu as toujours un problème avec la précision du timer, je te suggère de lire cette discussion : Problème de précision avec un Timer
Où l'on peut voir deux autres timer :

Citation:

Envoyé par tomlev

si tu utilises le timer de Windows Forms (System.Windows.Forms.Timer), c'est normal
Utilise plutôt System.Timers.Timer ou System.Threading.Timer
Il y a des comparatifs ici :
http://msdn.microsoft.com/en-us/magazine/cc164015.aspx
et là :
http://mark.michaelis.net/Blog/Syste...mersTimer.aspx