UN CHRONOS SIMPLE AVEC UN COMPOSENT LABEL ANIMÉ

Commentaire de Nicolas___ le 10/06/2008 14:30:30

" Salut a tts, ceci est un crono trés simple.

C'est ma premiére sources et ce n'est pas la derniére."

...

Ca promet monts et merveilles  :)

Commentaire de jackalunion le 10/06/2008 15:08:05

il n'est jamais trop tard pour apprendre

Commentaire de Caribensila le 10/06/2008 16:46:24

En tout cas, jackalunion accepte les critiques sans pleurnicher et sans quérulence, lui.
C'est un très bon point. Il progressera vite, j'en suis sûr.

Bienvenue et bon courage !

Commentaire de HAFTARIFOUAD le 10/06/2008 20:52:44

Bonjour

Tout d'abord, les bienvenues dans le monde de la programmation, j'espère que vous tiendrez de vos paroles « C'est ma première sources et ce n'est pas la dernière ».
J'aimerai bien vous donner des conseils pour que vous puisse améliorer votre travail :
1.Renommez vos fiches, composants, .
2.L'utilisation des threads (processus externes) c'est très utile pour votre cas. Comme ça vous assurer que votre application se ne bloquera pas.
3.Utilisez la commande DecodeTime pour calculer l différence entre le temps de démarrage et le temps actuel (vous pouvez ressortir la différence entre les heures, minutes, ainsi les secondes.)
4.Utilisez la commande FormatFloat(00 :00 :00 , Integer). C'est mieux que d'utiliser : Label1.Caption := Hh+' :'+Mm' :+' :'Ss
5.Très important un message de confirmation, pour confirmer le remise à zéro de votre compteur.
6.C'est utile pour votre cas d'utiliser l'heure de système -Si vous modifier par exemple Timer1.Interval :=500- !!!

En tout cas, je sais que, ce n'est qu'un début, je vous souhaite bonne chance et un grand progrès dans le domaine de la programmation.

Commentaire de f0xi le 11/06/2008 18:18:52 administrateur CS

var GTC : LongWord;

procedure TForm1.Button1Click(Sender: TObject);
const
  BTNCAP : array[boolean] of string = ('GO','STOP');
begin
  Timer1.Enabled := not Timer1.Enabled;
  (Sender as TButton).Caption := BTNCAP[Timer1.Enabled];
  if Timer1.Enabled then
    GTC := GetTickCount;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var G, H, M, S : integer;
begin
  G := GetTickCount - GTC;
  S := G div 1000 mod 60;
  M := G div 60000 mod 60;
  H := G div 3600000;

  Label1.Caption := format('%.2d:%.2d:%.2d',[H,M,S]);
end;

Commentaire de f0xi le 12/06/2008 11:34:05 administrateur CS

Salut jackal, :)
pas de soucis, par contre evite de poster des sources trop "simple", a entendre par la, de debutant.
C'est pas que nous exigeont des codes de pro forcement, mais, tout les debutants suivant a peu prés le meme chemin, nous nous retrouvons avec des dizaines de sources identiques et sans grand interet finalement.

Essaye d'etre original et creatif et surtout n'hesite pas a regarder les sources des habitués, pour voir a quel niveau ils mettent la qualité de la source (indentation, commentaire etc).

bon courage.

Commentaire de JulioDelphi le 13/06/2008 07:42:49 administrateur CS

Salut, tu as 2 procédures totalement identiques (formmove, timeanimove), efface en une (proprement) et dans l'inspecteur dobjet, attribue l'evènement du formove sur ton timeanimove =)