Chrono avec bouton qui change

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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)