1. Нарисовать часы в Pascal. Секундная стрелка перемещается.

[Темир]

1. Нарисовать часы в Pascal. Секундная стрелка перемещается.

[Темир]

Помгоите пожалуйста!!!)))

[baster128]

Писать все это в лом. Есть готовый компонент именно часики со стрелочками.

[Темир]

от души братан))))но мне с помощью Graph надо)

[ROMA2PVT]

http://bpascal.ru/download/desc/38.php

[Serge_Bliznykov]

держи, братан... Переводи деньги мне на банковский счёт

я вытащил куски кода с Delphi (из компонента SRClock, выложенного baster128) и переложил код на Pascal...

uses crt,graph, Dos;
type TPoint=record
    x,y:integer;
end;


function XKoord(XMittel,XRadius,Grad:word):word;
begin
  XKoord:=round(XMittel-(sin(Grad*Pi/180)*XRadius));
end; {XKoord}

function YKoord(YMittel,YRadius,Grad:word):word;
begin
  YKoord:=round(YMittel-(cos(Grad*Pi/180)*YRadius));
end; {YKoord}

  procedure AlTextOut(X,Y:integer;sText:string);
  var LeftOut,TopOut : integer;
  begin
      LeftOut:=X -(length(sText)*7 div 2);
      TopOut :=Y-2; {-(5 div 2);}
      OutTextXY(LeftOut, TopOut, sText);
  end;


var
  Center : TPoint;
  XRadius: Integer;
  YRadius: Integer;
  i : integer;
  gd, gm : integer;
  s : string;
  FHour, FMinute, FSecond, FHundredth : Word;
  Grad : Integer;


procedure ShowArrows;
begin
  SetColor(Blue);
  SetLineStyle(SolidLn, 0, 5);
  MoveTo(Center.X, Center.Y);
  LineTo(XKoord(Center.X,XRadius div 2,Grad),
             YKoord(Center.Y,YRadius div 2,Grad));

  { Minuten }
  SetColor(Blue);
  SetLineStyle(SolidLn, 0, ThickWidth);
  MoveTo(Center.X, Center.Y);
  LineTo(XKoord(Center.X,XRadius-10,360-(FMinute*6)),
             YKoord(Center.Y,YRadius-10,360-(FMinute*6)));

  { Секунды }
  SetColor(Green);
  SetLineStyle(SolidLn, 0, NormWidth);
  MoveTo(XKoord(Center.X,5,180-(FSecond*6)),
               YKoord(Center.Y,5,180-(FSecond*6)));
  LineTo(XKoord(Center.X,XRadius-8,360-(FSecond*6)),
               YKoord(Center.Y,YRadius-8,360-(FSecond*6)));
end;

begin

  gd := detect;
  initgraph(gd, gm, '..\BGI');

  Center.X:=GetMaxX div 2;
  Center.Y:=GetMaxY div 2;
  XRadius:=200;
  YRadius:=200;


  for i:=1 to 12 do begin
    MoveTo(XKoord(Center.X-1, XRadius-1, 360-(i*30)),
           YKoord(Center.Y-1, YRadius-1, 360-(i*30)));
    LineTo(XKoord(Center.X-1, XRadius-5, 360-(i*30)),
           YKoord(Center.Y-1, YRadius-5, 360-(i*30)));
  end;

  {Отобразим цифры}
  for i:=1 to 12 do  begin
     str(i:1,s);
     AlTextOut(XKoord(Center.X, XRadius+10, 360-(i*30)),
         YKoord(Center.Y, YRadius+10, 360-(i*30)),
         s);
  end;

  repeat
     {нарисуем круг циферблата}
     {  Circle(Center.X, Center.Y, XRadius); }
  GetTime(FHour, FMinute, FSecond, FHundredth);

  Grad:=360-((FHour mod 12)*30);
  Grad:=Grad-round(30*(FMinute/60));

  SetWriteMode(NormalPut);
  ShowArrows;
  
  {задержку можно сделать побольше!!
    подбирается опытным путём в зависимости
    от корректности работы процедуры DELAY из  модуля CRT}
  Delay(500);

  SetWriteMode(XORPut);
  ShowArrows; {стираем стрелки}
  until KeyPressed;

{  Readln;}
  CloseGraph;
end.