Delphi实例之绘制正弦函数图像
2014-07-19 13:47
429 查看
Delphi实例之绘制正弦函数图像
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls; type TForm1 = class(TForm) Image1: TImage; Button1: TButton; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var x,l:Integer; y,a:double; begin Image1.Picture.Bitmap:=TBitMap.Create; Image1.Picture.Bitmap.Width:=Image1.Width; Image1.Picture.Bitmap.Height:=Image1.Height; l:=Image1.Picture.Bitmap.Width; {下面的语句用于绘制直角坐标系} Image1.Canvas.MoveTo(0,(Image1.Height div 2)); Image1.Canvas.Pen.Color:=clBlue; Image1.Canvas.LineTo(Image1.Width,(Image1.Height div 2));{绘制函数图像X轴} Image1.Canvas.MoveTo((Image1.Width div 2),Image1.Height); Image1.Canvas.LineTo((Image1.Width div 2),0);{绘制函数图像Y轴} for x:=0 to l do begin a:=(x/l)*2*Pi;{角度化弧度} y:=sin(2*a);{为了加强美观效果,这里讲振幅设为2} y:=y*(Image1.Picture.Bitmap.Height/2); y:=y+(Image1.Picture.Bitmap.Height/2); Image1.Picture.Bitmap.Canvas.Brush.Style:=bsSolid; Image1.Picture.Bitmap.Canvas.Pixels[Trunc(x),Trunc(y)]:=clRed;{当然也可以用LineTo过程来实现,但是要注意设置Pen.Width到合适的值} end; label1.Visible:=true; Label2.Visible:=true; label3.Visible:=true; Label4.Visible:=true; label5.Visible:=true; Label6.Visible:=true; end; end.
注意,这里我用了四个标签,分别用于显示X,Y,0,f(x)=sinx,并事先将它们的Visible属性设为False,当图像绘制完成后在将Visible改为True。
相关文章推荐
- Android的Canvas绘制正弦函数图像
- Delphi绘制Alpha图像的函数
- 使用plot绘制正弦与与余弦函数曲线图实例代码
- 利用Android的Canvas绘制正弦函数图像
- windows 下如何使用 Lua 语言绘制正弦函数图像?代码
- 利用Android的Canvas绘制正弦函数图像
- 绘制正弦函数曲线
- Mathematica 绘制图像实例
- 在matlab内绘制函数图像
- Delphi如何使用基本的绘图函数绘制统计图
- java swing开发的图像生成器demo实例源代码下载,实现绘制图像,截屏功能。
- matlab入门1--利用plot函数绘制正弦函数图形
- C 图像绘制函数(一)
- 用R语言绘制函数图像
- PHP 合并图像 imagecopymerge 函数(水印制作实例)
- Delphi实现图像文本旋转特效完整实例代码
- 【续集】 C语言图形和函数图像的绘制【其他部分 第二章】
- 绘制正弦函数曲线
- 【其他部分 第二章 C语言图形和函数图像的绘制】
- Delphi如何使用基本的绘图函数绘制统计图