首页新闻手机家电数码电脑财经大模型直播

Delphi实现正弦曲线的绘制

来源：编程中国作者：若水 2008-04-23/11:06

软件频道

编程学院

Delphi

技术精华

正文

在Delphi中没有直接正弦曲线的函数。但是在科学研究中，正弦曲线的应用是非常广泛的，本实例介绍如何绘制正弦曲线。

本实例要在窗体上直接绘制正弦曲线，为了防止窗口切换的过程中会输出不完整的图形，因此绘制图形的关键代码都放在了窗体的OnPaint过程中，代码如下：

procedure TForm1.FormPaint(Sender: TObject);
var
x: Integer;
y,a: Double;
begin
Canvas.Pen.Width:=3;
Canvas.MoveTo(0,Trunc(self.ClientHeight/2));
for x := 0 to self.ClientWidth do
begin
a := (x/self.ClientWidth) * 2 * Pi;
y := Sin(a);
y := (1-y)*self.ClientHeight/2;
Canvas.LineTo(Trunc(x), Trunc(y));
end;
end;

程序首先设置了窗体的Canvas对象中画笔的宽度，并且把绘图的起点移动到了窗体中(0,Trunc(self.ClientHeight/2))的位置。然后通过一个循环中的a:= (x/self.ClientWidth)*2*Pi语句将一个正弦周期内的角度值转换为弧度值，并且把正弦计算后的结果存储在变量y中。最后，循环中的Canvas.LineTo(Trunc(x), Trunc(y))语句就会在窗体上绘制出连续的正弦曲线。

程序代码如下：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

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

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormPaint(Sender: TObject);
var
x: Integer;
y,a: Double;
begin
Canvas.Pen.Width:=3;
Canvas.MoveTo(0,Trunc(self.ClientHeight/2));
for x := 0 to self.ClientWidth do
begin
a := (x/self.ClientWidth) * 2 * Pi;
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;

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

保存文件，然后按F9键运行程序。在程序运行过程中，会自动在窗体上绘制正弦曲线，运行结果如图1所示。