盒子论坛 v2.1

procedure TForm1.Button1Click(Sender: TObject);
var
v:real;
n,y1,x1,i,
x0,y0:integer;
begin
for i:=20 to 220 do
begin//1
   form1.Canvas.Pixels [40,i]:=clred;
end;//1
for i:=20 to 500 do
begin//1
   form1.Canvas.Pixels [i,120]:=clred;
end;//1
x0:=40;
y0:=120;
for n:=0 to 400 do
begin//1
   v:=sin((2*pi*n)/200);
   y1:=round(y0-v*30);
   x1:=x0+n;
   form1.Canvas.Pixels [x1,y1]:=clblue;
end;//1
end;

此帖子包含附件:

大小:47.2K

----------------------------------------------

作者：

YueJun_98 (YueJun_98)	★☆☆☆☆	-
	盒子活跃会员

2004/8/16 16:35:33

4楼：

任意角度的呢？谢谢！
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/8/16 16:42:26

5楼：

坐标任意还是 SIN任意角度具体问题要自己解决难道考试都要别人帮你考吗
----------------------------------------------

作者：

YueJun_98 (YueJun_98)	★☆☆☆☆	-
	盒子活跃会员

2004/8/16 17:10:50

6楼：

在窗体上任意点两点，在它们之间用波浪线连起来！
谢谢！我是真的不懂！
----------------------------------------------
-

作者：

meng69 (meng69)	★☆☆☆☆	-
	盒子活跃会员

2004/8/16 17:33:12

7楼：

坐标旋转而已．
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/8/16 17:33:40

7楼：

等等现在有点忙得想想
----------------------------------------------

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/8/16 17:38:37

8楼：

难就难在终点上
----------------------------------------------

作者：

YueJun_98 (YueJun_98)	★☆☆☆☆	-
	盒子活跃会员

2004/8/16 17:43:52

9楼：

恩，能解决吗？谢谢！
to：meng69 ，你能解决吗？谢谢！
----------------------------------------------
-

作者：

meng69 (meng69)	★☆☆☆☆	-
	盒子活跃会员

2004/8/16 18:06:11

10楼：

下班了，明天给你好吗？
----------------------------------------------
-

作者：

YueJun_98 (YueJun_98)	★☆☆☆☆	-
	盒子活跃会员

2004/8/16 18:10:34

11楼：

好的，谢谢！
----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/8/17 9:24:55

12楼：

呵呵应该会做了吧偶昨晚看了看发现坐标转换挺麻烦只看看就不写受不了
----------------------------------------------

作者：

meng69 (meng69)	★☆☆☆☆	-
	盒子活跃会员

2004/8/17 12:07:30

13楼：

看奥运真辛苦,让你久等了,程序需要如下:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure DrawWaveline(x1,y1,x2,y2:integer);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.DrawWaveline(x1, y1, x2, y2: integer);
var
     Len,Cnt,DrawX,DrawY:integer;
     MaxY,Angle,Dangle:double;

     function CalcLen(x1,y1,x2,y2:integer):integer;
     begin
          Result:=trunc(sqrt(Power(x1-x2,2)+power(y1-y2,2)));
     end;

     procedure CalcXY(x,y:integer;Angle:double;var ratioX,ratioY:integer);
     begin
          ratioX:=x1+trunc(CalcLen(x1,y1,x,y)*cos(Angle));
          ratioY:=y1+trunc(CalcLen(x1,y1,x,y)*sin(Angle));
     end;

begin
     Len:=CalcLen(x1,y1,x2,y2);
     self.Canvas.MoveTo(x1,y1);
     self.Canvas.LineTo(x2,y2);
     self.Canvas.MoveTo(x1,y1);
     self.Canvas.Pen.Color:=clRed;
     if x2-x1=0 then
          angle:=pi/2
     else
          angle:=arctan2(y2-y1,x2-x1);
     MaxY:=Len /20;
     for Cnt:=0 to Len-1 do begin
       DrawY:=Y1+trunc(sin(pi*Cnt/(MaxY*2))*MaxY);
       DrawX:=x1+cnt;
       if Drawx-x1=0 then
          Dangle:=pi/2
     else
          Dangle:=arctan2(DrawY-y1,DrawX-x1);
       CalcXY(DrawX,DrawY,Dangle+angle,DrawX,DrawY);
       LineTo(self.Canvas.Handle,DrawX,DrawY);
     end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  self.DrawWaveline(20,100,220,180);
end;

end.

----------------------------------------------
-

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2004/8/17 12:24:22

14楼：

good
----------------------------------------------

作者：

YueJun_98 (YueJun_98)	★☆☆☆☆	-
	盒子活跃会员

2004/8/17 12:28:17

15楼：

谢谢！小弟对二位的景仰犹如滔滔江水，连绵不绝。
以后请二位多多指教，再次的谢谢！
----------------------------------------------
-

作者：

meng69 (meng69)	★☆☆☆☆	-
	盒子活跃会员

2004/8/17 12:29:03

15楼：

----------------------------------------------
-

作者：

seowhy123456 (seowhy123456)	▲▲▲▲▲	-
	禁用账号

2011/7/9 22:51:31

17楼：

……
被禁用帐号，帖子内容自动屏蔽！
……
----------------------------------------------
发布广告,禁用帐号!

作者：

seowhy123456 (seowhy123456)	▲▲▲▲▲	-
	禁用账号

2011/8/10 22:16:54

18楼：

……
被禁用帐号，帖子内容自动屏蔽！
……
----------------------------------------------
发布广告,禁用帐号!

作者：

likediy520 (likediy520)	▲▲▲▲▲	-
	禁用账号

2011/8/27 17:10:07

19楼：

……
被禁用帐号，帖子内容自动屏蔽！
……
----------------------------------------------
发布广告,禁用帐号!

信息

登陆以后才能回复