Chrono avec bouton qui change

Soyez le premier à donner votre avis sur cette source.

Vue 4 232 fois - Téléchargée 389 fois

Description

C'est un chrono tres simple avec une particularité sur le bouton de demarage et d'arret qui change d'affichage lorsque l'on clique dessus

Source / Exemple :


' Chrono simple avec bouton qui change d'affichage
' par IONS le 22/06/2002
'ions@oreka.com

' Bisous a mon lapin d'amour

Dim n_chrono1 As Integer

Private Sub Command1_Click()

If Command1.Caption = "STOP" Then

    Command1.Caption = "START" 'fait permuter l'affichage du bouton
    Timer1.Enabled = False 'demmare les chronos
       
Else
    Command1.Caption = "STOP" 'fait permuter l'affichage du bouton
    Timer1.Enabled = True 'bloque le demarage des chronos
      
End If
    
End Sub
Private Sub Command2_Click()

n_chrono1 = 0 'si l'on veut ajouter un bouton de remise a ZERO
    
End Sub

Private Sub Form_Load()

Label1.Caption = "00" & ":" & "00" & ":" & "00" 'donne un affichage par defaud sur le label8 temps total
   
 If Command1.Caption = "" Then Command1.Caption = "START" 'donne l'affichage start au demarage
      
  Timer1.Enabled = False       'bloque le demarage du chronos
      
End Sub

Private Sub Timer1_Timer()

n_chrono1 = n_chrono1 + 1 'incrememnt de 1 a chaque seconde

Hr = Int(n_chrono1 / 3600) 'extrait le nombre d'heure
Mn = Int((n_chrono1 - Hr * 3600) / 60) 'extrait le nombre de minute
Sec = n_chrono1 - Hr * 3600 - Mn * 60   'extrait le nombre de seconde

    If Hr = 0 Or Hr = "OO" Then Hr = "00" 'permet un affichage correcte
    If Mn = 0 Or Mn = "00" Then Mn = "00"
    If Sec = 0 Or Sec = "00" Then Sec = "00"

    If Hr < 10 And Hr > 0 Then Hr = "0" & Hr
    If Mn < 10 And Mn > 0 Then Mn = "0" & Mn
    If Sec < 10 And Sec > 0 Then Sec = "0" & Sec

Label1.Caption = Hr & ":" & Mn & ":" & Sec 'affiche la valeur

End Sub

Conclusion :


pas de bug connus

http://ions.free.fr

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
95
Date d'inscription
lundi 28 janvier 2002
Statut
Membre
Dernière intervention
21 février 2008

dsl mais les timer pour calculer le temps ça ne fonctionne pas (ben en fait pas le timer en OCX, le timer API il est OK) car il dépends de la vitesse processeur alors si ta une bécane trop rapide, c'est trop rapide et si ta bécane est trop lente ton chrono est trop lent... Je conseil d'utiliser un timer API de 1000 ms ou d'utiliser un timer OCX d'intervale 1 et de calculer selon l'heure système (j'avais fait un chrono avant mais lol jlai perdu... si jle retrouve je le poste le plus tot que possible!)
Messages postés
25
Date d'inscription
samedi 11 novembre 2000
Statut
Membre
Dernière intervention
13 juin 2003

Salut,
Steven tu a raison, mais tu a tor d'etre aussi dur ! tu a bien du debuter toi aussi, c'est une erreur d'inatention, soit plus compréensif.
D'autre part je me suis interresé a ton systeme de calcule du temps, il est bien trop compliqué !!!! voila un truc bien plus simple :

dim s,m,h,j

s = s + 1
if s=60 then s = 0: m = m+1
if m=60 then m = 0: h = h +1
if h=24 then h = 0: j=j+1
Messages postés
150
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
27 avril 2007

en vb, quand on dit timer1.enabled = false, c'est que l'on ne démarre pas le chrone.
Et quand on dit timer1.enabled = true c est que l'on active. NoN ??????

commentaire à 2 fr ==> 1/10 et suis gentil

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_ions)