花褪残红青杏小。燕子飞时,绿水人家绕。

delphi绘制正弦和余弦函数的方法

菜鸟编程 十五楼的鸟儿 33941浏览 0评论
先看下效果:
delphi绘制正弦和余弦函数的方法 DELPHI 菜鸟编程  第1张
主要代码在FormPaint上。
代码如下:
[code=delphi]
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure FormResize(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
var
x,t: Integer;
y,a: Double;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
self.DoubleBuffered:=true;
//设置双缓冲 防止图形闪烁
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
t:=1; //绘制周期数
Canvas.Pen.Width:=1;
Canvas.MoveTo(0,Trunc(self.ClientHeight/2)); //找到高度的中心线准备画图
for x := 0 to self.ClientWidth do
begin
a := (x/self.ClientWidth) * t * 2 * Pi;
//y := Cos(a); //余弦
y:=Sin(a); //正弦
y := (1-y)*self.ClientHeight/2; //振幅为二分之一的高度
Canvas.LineTo(Trunc(x), Trunc(y));
end;
end;

procedure TForm1.FormResize(Sender: TObject);
begin
Refresh;
end;

end.[/code]

转载请注明:鸟儿博客 » delphi绘制正弦和余弦函数的方法

游客
发表我的评论 换个身份
取消评论

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址