probleme avec le timer

bonjour j essaie de realiser un chronometre.Pour l instant je n en suis qu a la gestion des secondes.mais j ai un probleme j ai consideré l evenement on timer et j ai mis un intervalle de 1000.j ai fait un label qui recevra les secondes.voici le code que j ai tapé dans on timer

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

procedure TForm1.Timer1Timer(Sender: TObject);   var   seconde:integer; begin seconde:=0;   seconde:=seconde+1; label_sec.caption:=inttostr(seconde);     end;

---

quand je lance le programme le label seconde affiche 1 et apparemment s arrete.Dois Je comprend donc qu une fois le premier interval de 1000 passé le timer s arrete?

j ai donc essayer de mettre ce bloc d instruction dans une boucle repeat....until timer1.enabled=false; en ajoutant un bouton qui met le timer afalse par la suite.

mais probleme a l execution plantage apparement ça lui plait pas du tout.

comment faire pour que le timer continu apres l intervalle de 1000 ms

Tout d'abord, je t'invite à lire les règles du forum : il faut entourer ton code de balises [code], afin qu'il soit plus lisible.

À présent, regarde bien ton code :

Code:

---

1 2	seconde:=0; seconde:=seconde+1;

---

Autrement dit :

Code:

---

seconde:=1;

---

;)
Donc non ton timer ne s'arrête pas, mais il affecte toujours la valeur 1 à ton label.

Il faut créer une variable globale, ou un champ de ta classe fiche, initiliasée à 0 lors du OnCreate et incrémentée lors du OnTimer.

Et encore, cette technique n'est pas excellente, puisque Windows n'est pas un OS temps réel, ce qui signifie que les appels à OnTimer ne sont pas espacés exactement de 1 seconde.
Il faut plutôt enregistrer le GetTickCount au début du traitement, puis afficher lors du timer la différence du GetTickCount avec la valeur enregistrée au départ, et la diviser par 1000 (car GetTickCount renvoie en millisecondes).

dsl pour l oubli de la balise code je le savais en plus :oops:

je suis obligé d utiliser le timer c est dans les consignes de l exo

une question comment creer une variable global?c est quoi?c est c est ce qu on declare avant le code?
je ne dois donc pas utiliser de label?

Bonjour,

C'est mon jour de bonté, voilà le code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls;   type TForm1 = class(TForm) Edit1: TEdit; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public seconde : integer ; { Public declarations } end;   var Form1: TForm1; implementation {$R *.dfm}   procedure TForm1.Timer1Timer(Sender: TObject); begin inc(seconde) ; edit1.text:=inttostr(seconde) ; end;   procedure TForm1.FormCreate(Sender: TObject); begin seconde:=0 ; edit1.text:=inttostr(seconde) ; end;   end.

---