Timer (Très Débutant)Résolu

Question

Bonjour,

Je suis un débutant niveau 1 alors SVP soyez indulgent.

Je veux faire un petit timer tout simple.

J'ai un fomulaire avec un bouton Start et Stop ainsi qu'un label pour le résultat. J'ai aussi un Timer.

Quand j'appuie Start le Timer part et quand je Stop, il arrête.
Je que je n'arrive pas à faire, c'est d'afficher mon réseultat entre le Start et le Stop dans mon label.

Merci d'avance pour votre aide !!
 :blush) 

P.S. : Je suis en VB.net

memi2k · Accepted Answer

Bon d'accord !!

Voici le code que j'ai trouver sur le Web :


Public Class Timer
    Inherits System.Windows.Forms.Form
    Private timerbeatSeconds As Integer = 0
    Dim timerBeatMinutes As Integer = 0
    Dim timerBeatHours As Integer = 0

Property TimerEnabled() As Boolean
        Get
            Return Timer1.Enabled
        End Get
        Set(ByVal Value As Boolean)
            Timer1.Enabled = Value
        End Set
End Property

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        timerbeatSeconds = timerbeatSeconds + 1
        If timerbeatSeconds = 60 Then
            timerBeatMinutes = timerBeatMinutes + 1
            timerbeatSeconds = 0
        End If
        If timerBeatMinutes = 60 Then
            timerBeatHours = timerBeatHours + 1
            timerBeatMinutes = 0
        End If
        lblSec.Text = timerbeatSeconds.ToString("00")
        lblMinutes.Text = timerBeatMinutes.ToString("00" & " : ")
        lblHeure.Text = timerBeatHours.ToString("00" & " : ")
End Sub

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
        Timer1.Start()
End Sub

Private Sub btnStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStop.Click
        Timer1.Stop()
End Sub

Private Sub Timer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
        Timer1.Interval = 1000
        lblSec.Text = "00"
        lblMinutes.Text = "00" & " : "
        lblHeure.Text = "00" & " : "
        Timer1.Start()
End Sub

   
Private Sub btnReset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReset.Click
        timerBeatMinutes = 0
        timerbeatSeconds = 0
        timerBeatHours = 0
        lblSec.Text = "00"
        lblMinutes.Text = "00" & " : "
        lblHeure.Text = "00" & " : "
    End Sub
End Class



Maintenant quand mon fomulaire ouvre, le timer part et fonctionne très bien.

Bonne Journée !!

cs_frop01 · Answer

essai :

Label1.caption ="Hello"

Label1.refresh
DoEvents

MSN : cyberscorp2004@msn.com
Qui s'y frotte, s'y pique .

memi2k · Answer

Salut,

Je ne comprends pas le but du code que tu m'as donner.

Peux-tu m'expliquer !

Parce que ça va être Hello qui va apparaitre dans mon label alors que je veux le temps entre le moment ou j'ai appuyer Start et celui où j'ai appuyer Stop.

Merci !!

cs_frop01 · Answer

Hello c'est juste un exemple

Bon voila je t'explique :
Après avoir assigner à label1 la valeur que tu veux et après tout les traitement dans Le timer tu 
Inséres

Label1.Refresh  'Rafraichir le control
DoEvents   ' Forcer les événements

MSN : cyberscorp2004@msn.com
Qui s'y frotte, s'y pique .

memi2k · Answer

Merci, mais j'ai trouver un exemple sur le net et j'ai pu comprendre comment ça marchait.

Merci encore !!

cs_frop01 · Answer

Tant mieux pour toi mais lorsque tu trouves une solution, il faut la partager avec tous le monde tu crois pas ??

;)

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)

cs_frop01 · Answer

Merci ;)

 :-p   [mailto:cyberscorp2004@msn.com MSN]  :big)

Timer (Très Débutant)

7 réponses

Discussions similaires