Jak Začít?

Máš v počítači zápisky z přednášek
nebo jiné materiály ze školy?

Nahraj je na studentino.cz a získej
4 Kč za každý materiál
a 50 Kč za registraci!




Analogové hodiny - delphi

DOC
Stáhnout kompletní materiál zdarma (22.5 kB)

Níže je uveden pouze náhled materiálu. Kliknutím na tlačítko 'Stáhnout soubor' stáhnete kompletní formátovaný materiál ve formátu DOC.

Analogové hodiny=delphi

unit Unit1;

procedure TForm1.forma(Sender: TObject);

begin

Label1.Caption:=DateToStr(now);

Label2.Caption:=TimeToStr(now);

end;

procedure TForm1.Timer1Timer(Sender: TObject);

var h,m,s,ms: word;

uhel:real;

x,y:real;

begin

repaint();

Label2.Caption:=TimeToStr(now);

DecodeTime(now,h,m,s,ms);

//sekundy

Canvas.MoveTo(width div 2, height div 2);

Canvas.Pen.Color:=clGreen;

Canvas.Pen.Width:=1;

uhel := ((2*pi)/60)*s-pi/2;

x:=cos(uhel);

y:=sin(uhel); //spočtení souřednic

x:=x*(width div 3);

y:=y*(height div 3); //úpava poloměru

x:=x+(width div 2);

y:=y+(height div 2); //posun do středu formuláře

Canvas.LineTo(trunc(x),trunc(y));

//minuty

Canvas.Pen.Width:=2;

Canvas.Pen.Color:=clBlack;

Canvas.MoveTo(width div 2, height div 2);

uhel := ((2*pi)/60)*m-pi/2;

x:=cos(uhel);

y:=sin(uhel); //spočtení souřednic

x:=x*(width div 3);

y:=y*(height div 3); //úpava poloměru

x:=x+(width div 2);

y:=y+(height div 2); //posun do středu formuláře

Canvas.LineTo(trunc(x),trunc(y));

//hodiny

If h>12 then h:=h - 12;

Canvas.Pen.Width:=4;

Canvas.Pen.Color:=clBlack;

Canvas.MoveTo(width div 2, height div 2);

uhel := ((2*pi)/12)*h-pi/2;

x:=cos(uhel);

y:=sin(uhel); //spočtení souřednic

x:=x*(width div 4);

y:=y*(height div 4); //úpava poloměru

x:=x+(width div 2);

y:=y+(height div 2); //posun do středu formuláře

Canvas.LineTo(trunc(x),trunc(y));

end;

end.

Témata, do kterých materiál patří