UN CHRONOS SIMPLE AVEC UN COMPOSENT LABEL ANIMÉ

Commentaire de Caribensila le 10/06/2008 14:48:30

Pourra remplacer avantageusement un sablier ou un cadran solaire!
Mais enfin, c'est pas de l'horlogerie suisse au niveau de la précision.

De nos jours, les PC disposent d'une horloge interne de haute performance mesurant mieux que la µs (voir l'Api QueryPerformanceCounter).


PS : Cronos  : Roi des Titans.
     Chronos : Dieu primordial personnifiant le temps (d'où "chronomètre").

Commentaire de florenth le 10/06/2008 15:28:56

Le cadran solaire a l'avantage de ne pas consommer d'électricité et d'être le résultat de profondes réflexions sur la rotation de la Terre, etc...

Ce n'est par contre pas le cas de cette source, qui, en plus d'être courte, n'est pas très bien codée.

Je préfère avoir une source sur dix pour Lazarus que comme celle-ci.
Enfin, c'est vous qui voyez.

Cela dit, je souhaite une bonne progression à Jack, je salue son élan de partage (c'est important de nos jours), mais je l'invite à soumettre ses dernières avancées quand elles auront réellement un intérêt.

Ah, et aussi: écrivez en français correct !
"Salut a tts, ceci est un crono trés simple.
C'est ma premiére sources et ce n'est pas la derniére."

devrait être (quand on enlève les 7 (!) fautes en à peine 20 mots)
"Salut à tous, ceci est un chronomètre très simple.
C'est ma première source et ce n'est pas la dernière."

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 =)