Форум: "Основная";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
ВнизСlock Найти похожие ветки
← →
kosdem (2002-11-04 08:22) [0]Помогите, нужен "исходняк" часов (со стрелками).Если можно скинте на "мыло" kosdem@mail.ru
← →
Zhirnov Maxim (2002-11-06 22:10) [1]Может это не совсем то, что нужно, но это единственное, что было под рукой (прорамма взята из книги Фаронова В.В. TurboPascal 7.0):
Program clock;
Uses
Graph, CRT;
Var
d,r,r1,r2,rr,k,
x1,y1,x2,y2,x01,y01,size:Integer;
Xasp,Yasp:Word;
P1,P2,P3:Pointer;
Begin
d:=detect;
InitGraph(d,r, "");
k:=GraphResult;
If k<>grOK then
begin
Writeln(GraphErrorMSG(k));
halt
end;
x1:=GetMaxX div 2;
y1:=GetMaxY div 2;
GetAspectRatio(Xasp, Yasp);
r:=round(3*GetMaxY*Yasp/8/Xasp/2);
r1:=round(0.9*r);
r2:=round(0.95*r);
Circle(x1,y1,r);
Circle(x1,y1,round(1.02*r));
rectangle(150,90,500,450);
Line(320,330,320,400);
Circle(320,400,20);
Size := ImageSize (299, 330, 421, 421);
GetMem (P1, Size);
GetImage (299, 330, 421, 421, P1^);
PutImage (299, 330, P1^, XorPut);
Line(320,330,250,380);
Circle(250,380,20);
Size := ImageSize (199, 330, 421, 421);
GetMem (P2, Size);
GetImage (199, 330, 421, 421, P2^);
PutImage (199, 330, P2^, XorPut);
Line(320,330,390,380);
Circle(390,380,20);
Size := ImageSize (319, 330, 410, 400);
GetMem (P2, Size);
GetImage (319, 330, 410, 400, P2^);
PutImage (319, 330, P2^, XorPut);
for k:=0 to 59 do
begin
if k mod 5=0 then
rr:=r1
else
rr:=r2;
x01:=x1+Round(rr*sin(2*pi*k/60));
y01:=y1-Round(rr*Xasp*cos(2*pi*k/60)/Yasp);
x2:=x1+Round(r*sin(2*pi*k/60));
y2:=y1-round(r*Xasp*cos(2*pi*k/60)/Yasp);
Line(x01,y01,x2,y2);
end;
SetWriteMode(XORPut);
SetLineStyle(SolidLn,0,THickWidth);
r:=0;
repeat
for k:=0 to 59 do
if not KeyPressed then
begin
x2:=x1+Round(0.85*r1*sin(2*pi*r/60/12));
y2:=y1-Round(0.85*r1*Xasp*cos(2*pi*r/60/12)/Yasp);
x01:=x1+Round(r2*sin(2*pi*k/60));
y01:=y1-Round(r2*Xasp*cos(2*pi*k/60)/Yasp);
Line(x1,y1,x2,y2);
Line(x1,y1,x01,y01);
Delay(4500);
Line(x1,y1,x01,y01);
Line(x1,y1,x2,y2);
inc(r);
if r=12*60 then
r:=0;
end;
until KeyPressed;
if ReadKey=#0 then k:= ord(ReadKey);
CloseGraph;
End.
← →
KoluChi (2002-11-07 09:48) [2]Смотрите почту.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.18;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c