已知圆点坐标和半径,想用这个半径做一次圆周运动。类似圆形雷达扫描线 已知圆点坐标和半径,想用这个半径做一次圆周运动。类似圆形雷达扫描线.我按照数学公式: X坐标=Cos(角度)*半径 Y坐标=Sin(角度)*半径搞不出效果。求公式 写法~~~ 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,Math, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Timer1: TTimer; procedure FormPaint(Sender: TObject); procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } angle:integer; procedure DrawCircle(angle:integer); public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.DrawCircle(angle:integer);var x,y:integer;begin Self.Canvas.Ellipse(0,0,200,200); x := Round(100-100*sin(angle/180*pi)); y := Round(100-100*cos(angle/180*pi)); Self.Canvas.MoveTo(100,100); Self.Canvas.LineTo(x,y);end;procedure TForm1.FormPaint(Sender: TObject);begin DrawCircle(angle);end;procedure TForm1.FormCreate(Sender: TObject);begin angle := 0;end;procedure TForm1.Timer1Timer(Sender: TObject);begin angle := angle+10; Invalidate;end;end. 关于Delphi的一道图形题 发帖涨分 请问各位高手,如何在报表打印中设定打印的内容到了一定的行数以后就可以自动换列???(在线等) 用delphi6编写的程序如何在delphi7中运行? 急!!为什么有的机子可以导出excel,有的不行。请高手指点. 如何才能真正的销毁窗体呢?? 帮助文档的问题 请问怎样动态设置popup菜单项的enabled呢? 如何在DELPHI中备份数据库? 请高手指教!! ◇◇◇ 求Socket写的聊天室程序,要支持多人的 try5 如何在ExpressSpreadSheet实行类似于CXGRID输入时的下拉框或日期选择框
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs,Math, StdCtrls, ExtCtrls;type
TForm1 = class(TForm)
Timer1: TTimer;
procedure FormPaint(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
angle:integer;
procedure DrawCircle(angle:integer);
public
{ Public declarations }
end;var
Form1: TForm1;implementation{$R *.dfm}{ TForm1 }procedure TForm1.DrawCircle(angle:integer);
var
x,y:integer;
begin
Self.Canvas.Ellipse(0,0,200,200);
x := Round(100-100*sin(angle/180*pi));
y := Round(100-100*cos(angle/180*pi));
Self.Canvas.MoveTo(100,100);
Self.Canvas.LineTo(x,y);
end;procedure TForm1.FormPaint(Sender: TObject);
begin
DrawCircle(angle);
end;procedure TForm1.FormCreate(Sender: TObject);
begin
angle := 0;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
angle := angle+10;
Invalidate;
end;end.