pb pour fair une horloge^^

Question

salut a tous,
voici mon nouveau probl&#232;me:
j'ai commenc&#233; une horloge alors j'ai fais l'interface qui est constitu&#233; de 3labels(un pour les minutes un pour les secondes et un pur les heures)et d'un timer(intervale 1000 et enable true)dans ma fiche de code j'ai marquer ca(je viens de commencer apr&#232;s ca sera plus rempli mais la ya juste l'evolution des secondes) 
Public 
Class Form1



Private 
Sub Form1_Load(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles 
MyBase.Load


 



End 
Sub



Private 
Sub Timer1_Tick(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs) 
Handles Timer1.Tick



Call f1()



En 
Sub



Sub f1()



Dim secondes 
As 
Integer


secondes = secondes + 1



End 
Sub
alors mon probl&#232;m c'est que quand je test si les secondes augmente rien ne change donc voila(dites moi juste pour fair avancer les secondes le reste je veux trouver tout seul )
voiloou merci d'avance
EDIT:le label des secondes est appele secondes,celui des minutes minutes et celui des heures bah heure^^

Slyders · Answer

Chez moi sa  marche comme sa ^^:
Timer.Interval = 1000 
Private Sub Timer_Timer()
temps = temps + 1' temps s'incremente de 1 pour chaque seconde pass&#233;
If temps = 60 Then ' Toutes les 60 seconde , mes minutes sont incr&#233;ment&#233;es de 1 et les secondes sont remisent &#224; 0
min = min + 1 ' Incr&#233;mentation des minutes
temps = 0 'Secondes &#224; 0
End If
lbltmps.Caption = min & ":" & temps ' Affichage en permanence du temps dans le label
End Sub

J'esp&#232;re que sa t'aidera, a++

dOsSpr0uTosS · Answer

bah en faites je cherche le moyen de fair en sorte que toutes les fois ou le timer appelle la fonction1 le label seconde se rajoute 1 (pour le reste je sais me debrouiller).Donc j'ai essayer avec ta technique en changeant quelque point et la pareil il ne me montre aucune erreur et quand je le met en action les chiffres ne changent et donc rien ne se passe

Slyders · Answer

ben dans mon programme sa marche comme sa et sa marche bien :x
dsl je regarderai demain je quitte le taf ^^

dOsSpr0uTosS · Answer

je te crois ^^mais faudrais que tu me passes plus de details de ton programmes quand t'auras le temps parce que moi il ne reconnais pas tout quand je tape ce que tu mets

dOsSpr0uTosS · Answer

EDIT:voila ce que j'ai marquer:
Private 
Sub Timer1_Tick(
ByVal sender 
As System.Object, 
ByVal e 
As System.EventArgs)

Dim secondes 
As 
Integer



Dim minutes 
As 
Integer



Dim heure 
As 
Integer


secondes = secondes + 1



If secondes = 60 
Then


secondes = secondes - 60


minutes = minutes + 1



End 
If



If minutes = 60 
Then


minutes = minutes - 60


heure = heure + 1


 



End 
If



End 
Sub

crenaud76 · Answer

Pour faire une horloge :

Poser une label Label1 et un Timer Timer1 sur la form.

R&#233;gler la tempo du timer sur 1000 et dans son evt Timer(), on ajoute cette ligne de code :



Label1 = Format(Now,"hh:nn:ss")


... et ca doit suffire !!!!
 Christophe R

Pb pour fair une horloge^^

6 réponses