Bonjour tout le monde!!!!
Voila, je suis nouveau sur ce forum, j'ai 12 ans et demi, et je débute dans la programmation
J'ai bien sur commencé avec le HTML, puis j'ai enchainé avec le VRML, mais la j'ai rien compris...
donc, j'ai poursuivi avec Delphi...
Et voila, un probleme se pose: j'ai fait un petit programme appelé "TheBlueClock" qui ressemble à a ça =>
le probleme (comme on le voit sur l'image...) C'est que lorsque les heures/minutes/secondes sont en dessous de 10, il m'affiche 11:5 au lieu de 11:05...
J'ai essayé d'y remedier en changeant un peu mon code, mais je me retrouve encore avec le même resultat...
Mon code:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Label1: TLabel;
Label2: TLabel;
Button1: TButton;
procedure Timer1Timer(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Time : TDateTime;
Heure, Min, Sec, Millisec : Word;
sHeure, sMin, sSec, sMillisec : String;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Time:=Now;
DecodeTime(Time, Heure, Min, Sec, Millisec);
Str(Heure, sHeure);
Str(Min, sMin);
Str(Sec, sSec);
Str(Millisec, sMillisec);
Label1.Caption:=sHeure+':'+sMin;
Label2.Caption:=sSec;
if sMin<'10' then
sMin:='0'+sMin;
if sSec<'10' then
sSec:='0'+sSec;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.Terminate;
end;
end.
Pour les heures, c'est moins genant (c'est vrai, quelle horloge afficherait 06:30??? pas une des miennes! ^_^)
Voila, donnez moi vos solutions SVP!!! Merci d'avance!
EDIT:
zut! si on tourne pas sur XP, avec la couleur par defaut en bleu, ma BlueClock est plus Blue... Une idée peut-être?
Message édité par shadowdim le 22-10-2005 à 11:33:16
---------------
Mangas/DVD - Chiptune