par lereparateurdepc Lun 9 Avr 2012 - 19:19
re ,
Pour le crono ,c'est simple !!
Crée 3 variables :
Hrs , Min , Sec .
La méthode la plus simple .....
Dans l'évènement Tick d'un timer , intrval réglé sur 1000 ms soit 1s met :
Calcul simple :
sec = sec + 1
Condition :
Si sec
>= 60 alors
Min = Min + 1
Sec = 0
Fin si
Si Min
>= 60 alors
Hrs = Hrs + 1
Min = 0
Fin si
Modifier la propriété Text d'un label :
Hrs : Min : Sec
Info :
le signe
> est une option de sécurité , le code fonctionne SANS .
Voilà
En VB , ça donne ça :
- Code:
Sec = Sec + 1
If Sec = 60 Then
Min = Min + 1
Sec = 0
End If
If Min = 60 Then
Hrs = Hrs + 1
Min = 0
End If
Label2.Text = Hrs & "H " & Min & "M " & Sec & "S"
NOTE : Cette méthode en est une parmis tant d'autre que j'ai trouvée en réalisant une horloge sur un automate industriel avec le logiciel PL7PRO puis traduite en VB.
Mon ancienne méthode utilisaient une boucle , ce qui est plus complex pour un débutant et se basant sur une valeur un seconde traduite en Min et Hrs .
voici le code :
- Code:
tmp_total = "" & var_delais & ""
H = 0
M = 0
Do
If tmp_total >= 3600 Then
H = H + 1
tmp_total = tmp_total - 3600
Else
If tmp_total >= 60 Then
M = M + 1
tmp_total = tmp_total - 60
Else
S = tmp_total / 1
If S < 10 Then
var_res = "" & H & " H " & M & " M 0" & S & " S"
Else
var_res = "" & H & " H " & M & " M " & S & " S"
End If
Exit Do
End If
End If
Loop
Me.lab_decompte.Text = "" & var_res & ""
Cordialement ,
Le réparateur de PC
SoftwareZator
