UN CHRONOS SIMPLE AVEC UN COMPOSENT LABEL ANIMÉ
Nicolas___
Messages postés
992
Date d'inscription
jeudi 2 novembre 2000
Statut
Membre
Dernière intervention
24 avril 2013
-
10 juin 2008 à 14:30
jackalunion Messages postés 128 Date d'inscription mercredi 8 janvier 2003 Statut Membre Dernière intervention 14 juillet 2008 - 14 juin 2008 à 01:20
jackalunion Messages postés 128 Date d'inscription mercredi 8 janvier 2003 Statut Membre Dernière intervention 14 juillet 2008 - 14 juin 2008 à 01:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/46955-un-chronos-simple-avec-un-composent-label-anime
https://codes-sources.commentcamarche.net/source/46955-un-chronos-simple-avec-un-composent-label-anime
14 juin 2008 à 01:20
13 juin 2008 à 07:42
12 juin 2008 à 13:40
12 juin 2008 à 11:34
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.
12 juin 2008 à 00:39
11 juin 2008 à 18:18
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;
10 juin 2008 à 22:46
j'ai appris a tenir compte de touts conseils venant de personnes expérimanté.
10 juin 2008 à 20:52
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.
10 juin 2008 à 17:43
10 juin 2008 à 16:46
C'est un très bon point. Il progressera vite, j'en suis sûr.
Bienvenue et bon courage !
10 juin 2008 à 15:49
comme en dit: "Connaitre les autres c'est une force,mais connaitre soi même c'est une force superieur."
10 juin 2008 à 15:28
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."
10 juin 2008 à 15:08
10 juin 2008 à 14:48
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").
10 juin 2008 à 14:30
C'est ma premiére sources et ce n'est pas la derniére."
...
Ca promet monts et merveilles :)