a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 編程 > Delphi > 正文

delphi 正弦曲線圖

2020-01-31 20:52:27
字體:
來源:轉載
供稿:網友
本實例要在窗體上直接繪制正弦曲線,為了防止窗口切換的過程中會輸出不完整的圖形,因此繪制圖形的關鍵代碼都放在了窗體的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所示。



圖1 程序運行結果


  通過本程序的學習,不但可以繪制正弦曲線,也可以繪制余弦曲線、正切曲線等各式各樣的曲線,方便科學研 
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表

圖片精選

主站蜘蛛池模板: 免费中文字幕 | 亚洲美女网站 | 毛片毛片毛片毛片毛片 | 精品国产天堂 | 精产国产伦理一二三区 | 91视频免费看 | 欧美精品在线免费观看 | 午夜三区 | 一区二区三区四区在线 | 成人午夜sm精品久久久久久久 | 亚洲综合精品 | 欧美日韩成人在线视频 | 一级免费黄色 | 中文无码日韩欧 | 天天摸天天看 | 一区二区三区四区国产 | 免费观看一级特黄欧美大片 | 日韩精品999 | 国产精品久久免费视频 | 久久精品国产一区二区三区不卡 | 国产2区| 91精品久久久久久久久入口 | 精品一区二区在线免费观看 | 在线播放黄色 | 免费久久久 | 国产精品女同一区二区 | 涩涩视频在线观看免费 | 亚洲欧美一区二区三区在线 | 在线亚洲自拍 | 黄色一级大片网站 | 91精品国产91久久久久久吃药 | xvideos视频| 国产精品自在 | 久久精品久久久久久久 | a在线播放 | 婷婷中文字幕 | 男人操女人bb | 久久伊人一区 | 欧美精品一区二区三区在线播放 | 免费成人在线网站 | 求av网站|