cronometre

Question

j vais juste savoir comment crée un chronometre qui conssiste a contrilé le temps ecoulé dans mon cyber

ucfoutu · Answer

Bonjour, (ben non === >> pas de salut ? rayons donc)
Qu'est-ce qui te donne à penser que tu  VAS  le savoir ?
Mais bon ...
Rien de plus simple !
Utilise pour cela un contrôle Timer (voir ce que c'est dans ton aide VB6, autrement appelée MSDN).


________________________
Réponse exacte ?  => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Et j'aimerais savoir si tu es (ton autre discussion de ce jour) un "étudiant en programmation" ou (comme tu le dis ici) le propriétaire d'un "cyber" ! 
Dans un cas, comme dans l'autre, reviens avec ton bout de code tenté.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

NHenry · Answer

Bonjour, 

Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.

Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

ehjoe · Answer

Bonjour soudjay,

Voici, mais tu peux aussi déclencher le chronomètre de ta montre :



Option Explicit
  Dim avance As Long

Sub Form_Load()
  avance = 0
  Timer1.Interval = 1000
  Timer1.Enabled = True
End Sub
    
Sub Timer1_Timer()
  Dim hh As Long
  Dim mn As Long
  Dim ss As Long
  Dim trans As String
  avance = avance + 1
  ss = avance
  hh = ss \ 3600
  ss = ss - (hh * 3600)
  mn = ss \ 60
  ss = ss - (mn * 60)
  trans = hh & "h" & Format(mn, "00") & "'" & Format(ss, "00")
  DoEvents
  Label1 = trans
End Sub



Cordialement, Joe.

ucfoutu · Answer

Bonjour,
VB6 est simple 
La demande était donc : un "chrono" pour le temps écoulé ===>>

un timer, un commanbutton, un label et ce code :

Private toto As Date
Private Sub Command1_Click()
  Timer1.Enabled = True
  Timer1.Interval = 1000
  toto = Now
End Sub

Private Sub Timer1_Timer()
 Label1.Caption = TimeSerial(0, 0, DateDiff("s", Now, toto))
End Sub


démarre au clic sur le bouton de commande.


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

ucfoutu · Answer

Et juste pour le plaisir de montrer l'agilité de VB6, on va maintenant faire le contraire.
Un compteur de secondes à rebpours.
Ici, on a "octroyé" 1 heure, 2 minutes et 15 secondes 

Private toto As Date
Private Sub Command1_Click()
  Timer1.Enabled = True
  Timer1.Interval = 1000
  toto = Now + TimeValue("01:02:15")
End Sub

Private Sub Timer1_Timer()
 Label1.Caption = TimeSerial(0, 0, -DateDiff("s", Now, toto))
End Sub


Pas belle, la vie ?
________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Cronometre

6 réponses

Votre réponse

Discussions similaires