| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 681 人关注过本帖
标题:[求助]DELPHI的曲线形式输出????????
只看楼主 加入收藏
dong
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-4-7
收藏
 问题点数:0 回复次数:3 
[求助]DELPHI的曲线形式输出????????
因做毕业设计,需要一个DELPHI7.0的曲线输出程序,要有原代码,以便和计算程序相连接.
本人不是学计算机的,所以不太会编程,希望各位能帮帮我...
谢谢啦!!!!!!!!!!!
搜索更多相关主题的帖子: DELPHI 曲线 形式 输出 
2006-04-07 18:00
dong
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2006-4-7
收藏
得分:0 

帮帮我啊!!!!!!!!!!!!!

2006-04-10 15:15
ysp_1984
Rank: 5Rank: 5
等 级:贵宾
威 望:15
帖 子:371
专家分:0
注 册:2006-1-5
收藏
得分:0 

粘个相关图发上来,看看什么形式的。


心中的那片蓝天,永远为你而存在... ...
2006-04-10 16:46
yuxue1985
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2006-4-13
收藏
得分:0 

呵呵这个我没有办法帮你了

我给你个图片你看看是不是这样的

晕了真麻烦不给你整图片了

给你代码试试去吧你unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Image1: TImage;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation
uses XMconsts;
{$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;
//开始绘制图形
for x := 0 to l do
begin
a := (x / l) * 2 * Pi;
y := Sin(a);
y := y * (Image1.Picture.Bitmap.Height / 2);
y := y * -1;
y := y + (Image1.Picture.Bitmap.Height / 2);
Image1.Picture.Bitmap.Canvas.Brush.Style := bsSolid;
Image1.Picture.Bitmap.Canvas.Pixels[Trunc(x), Trunc(y)] := clred;
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Caption := '绘制正弦曲线'
end;

end.

2006-04-13 11:04
快速回复:[求助]DELPHI的曲线形式输出????????
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.043438 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved