none
Cooment faire un decompte avec le timer 1 RRS feed

  • Question

  • Ok facile de faire un decompte en seconde selement

    Mais moi j aimerais que mon label aficheche les minute et seconde

    Comme 07:00:00

    Mercie bien du petit coup pouce


    Francois Masse
    lundi 27 décembre 2010 14:13

Réponses

  • Cher François,

    Ah ok, ce n'est pas l'affichage de l'heure stricto sensu, tu veux un décompteur de 7'00'' à 0'00', ok :

    Voici testé :

    Option Explicit On
    Public Class Form
     Dim mn As Integer = 7
     Dim ss As Integer = 0
    
     Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Timer1.Interval = 1000 ' 1 sec
      Label1.Text = ""
     End Sub
    
     Sub Form_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
      Timer1.Enabled = True
     End Sub
    
     Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      Label1.Text = mn & "'" & Format(ss, "00")
      Select Case ss
       Case 0
        ss = 59
        mn = mn - 1
        If mn = -1 Then Timer1.Enabled = False
       Case Else
        ss = ss - 1
      End Select
     End Sub
    
     Sub Form_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      End
     End Sub
    End Class
    
    Cordialement
    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Marqué comme réponse FrançoisM lundi 27 décembre 2010 23:18
    lundi 27 décembre 2010 23:15

Toutes les réponses

  • Bonjour,

    Pour les calcul sur les date je te conseil la fonction DateAdd(),

    tu lui donne le type de calcul (dans ton cas les second) et tu lui met la valeur en negatif.

    sa devrai donnée a peu pres sa (J'ai pas Visual Studio sur la machine, je le fait de tete),

    Dim lDate as Date = Date.Now

    Dim lNewDate as Date = DateAdd(Seconde,-IndexTimer)


    Cordialement Sébastien DataBase2Code
    lundi 27 décembre 2010 14:32
  • Mais moi j aimerais que mon label aficheche les minute et seconde

    Comme 07:00:00


    Bonjour François,

    Dans ton décompte, ton exemple il y a les heures, les minutes et les seconde, et toi tu demandes les minutes et les secondes ?

    Voici le code testé de la réponse :

    Option Explicit On
    Public Class Form
     Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Label1.Text = ""
      Timer1.Interval = 1000
      Timer1.Enabled = True
     End Sub
    
     Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      Label1.Text = Now.Minute & "'" & Now.Second
     End Sub
    
     Sub Form_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      End
     End Sub
    End Class
    

    Si la réponse te convient, tu peux cliquer sur "Proposer comme réponse" en bas de celle-ci, cordialement.

     


    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Proposé comme réponse EhJoe lundi 27 décembre 2010 18:55
    lundi 27 décembre 2010 18:55
  • Oui mais EhJoe

    cela me donne les minute maitenant et comment je l ajuste a 7 minute


    Francois Masse
    lundi 27 décembre 2010 22:29
  • Cher François,

    Ah ok, ce n'est pas l'affichage de l'heure stricto sensu, tu veux un décompteur de 7'00'' à 0'00', ok :

    Voici testé :

    Option Explicit On
    Public Class Form
     Dim mn As Integer = 7
     Dim ss As Integer = 0
    
     Sub Form_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      Timer1.Interval = 1000 ' 1 sec
      Label1.Text = ""
     End Sub
    
     Sub Form_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
      Timer1.Enabled = True
     End Sub
    
     Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
      Label1.Text = mn & "'" & Format(ss, "00")
      Select Case ss
       Case 0
        ss = 59
        mn = mn - 1
        If mn = -1 Then Timer1.Enabled = False
       Case Else
        ss = ss - 1
      End Select
     End Sub
    
     Sub Form_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
      End
     End Sub
    End Class
    
    Cordialement
    Joseph Attila PUSZTAY
    EhJoe       Logiciels       Romans       Ecrire
    • Marqué comme réponse FrançoisM lundi 27 décembre 2010 23:18
    lundi 27 décembre 2010 23:15