一个画钟程序,终于做完了,作个记号

procedure TForm1.Timer1Timer(Sender: TObject);

var

i:integer;

MyNow : TDateTime;

Hour, Min, Sec, mSec : Word;

vh, vm, vs : Real;

begin

edit1.Text:=timetostr(NOW);

Self.Refresh;

MyNow := Now;

DecodeTime(MyNow,Hour,Min,Sec,mSec);

//每小时弧度值=0.52333 0.52333/60 就是每分钟弧度值

vh := (HOUR/12.0*2*Pi)+Min*0.008722; //整点小时弧度值+每分钟弧度值

//上面是计算时针的数据

vm := Min/60.0*2*Pi; //计算分针弧度值

vs := Sec/60.0*2*Pi; //计算秒针弧度值

with Canvas do

begin

Pen.Width:=5; //画时针

Pen.Color := clbackground;

MoveTo(235,115);

LineTo(235+Round(40*Sin(vh)),115-Round(40*Cos(vh)));

Pen.Width:=3; //画分针

Pen.Color := clGreen;

MoveTo(235,115);

LineTo(235+Round(50*Sin(vm)),115-Round(50*Cos(vm)));

Pen.Width:=1; //画秒针

Pen.Color := clRed;

MoveTo(235,115);

lineto(235+round(65*sin(vs)),115-round(65*cos(vs)));

end;

// 画一个圆

with Canvas do

begin

brush.Style:=bsClear;

pen.color:=clbackground;

pen.Width:=3;

Ellipse(160,40,310,190);

end;

// 画一个圆

PlaySound(Pchar(ExtractFilePath(Application.exename)+'\sound.wav'),0,SND_SYNC); //播放当前目录下的钟走音频

end;