知识大全 Delphi实现正弦曲线的绘制

Posted 2022-07-22 知

篇首语：常说口里顺，常做手不笨。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi实现正弦曲线的绘制相关的知识，希望对你有一定的参考价值。

Delphi实现正弦曲线的绘制 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

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

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

procedure TForm FormPaint(Sender: TObject); var x: Integer; y a: Double; begin Canvas Pen Width:= ; Canvas MoveTo( Trunc(self ClientHeight/ )); for x := to self ClientWidth do begin a := (x/self ClientWidth) * * Pi; y := Sin(a); y := ( y)*self ClientHeight/ ; Canvas LineTo(Trunc(x) Trunc(y)); end; end;

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

程序代码如下

unit Unit ; interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs ExtCtrls StdCtrls; type TForm = class(TForm) procedure FormPaint(Sender: TObject); procedure FormResize(Sender: TObject); procedure FormCreate(Sender: TObject); private Private declarations public Public declarations end; var Form : TForm ; implementation $R * dfm procedure TForm FormPaint(Sender: TObject); var x: Integer; y a: Double; begin Canvas Pen Width:= ; Canvas MoveTo( Trunc(self ClientHeight/ )); for x := to self ClientWidth do begin a := (x/self ClientWidth) * * Pi; y := Sin(a); y := ( y)*self ClientHeight/ ; Canvas LineTo(Trunc(x) Trunc(y)); end; end; procedure TForm FormResize(Sender: TObject); begin Refresh; end; procedure TForm FormCreate(Sender: TObject); begin self DoubleBuffered:=true; //防止图形闪烁 end; end

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

图程序运行结果

cha138/Article/program/Delphi/201311/24751