关于Canvas画图的

[reallaowu]

应课程需要，我想画cos函数，用cb的Paintbox->Canvas实现
我曾在vb下实现过类似的功能，但cb老是画不好正选函数，大活帮啊


画cos函数，我的代码如下：

const float PI=3.1415;
int A=20; //振幅

PaintBox的ONPaint事件中

const float PI=3.1415;
int A=150; //振幅
int Y;
//画x轴
PaintBox1->Canvas->MoveTo(0,PaintBox1->ClientHeight/2);
PaintBox1->Canvas->LineTo(PaintBox1->ClientWidth,PaintBox1->ClientHeight/2);
//图象的第一点
Y=PaintBox1->ClientHeight/2-A*(int)cos(PI*0);
PaintBox1->Canvas->MoveTo(0,Y);
for(int i=1;i<PaintBox1->ClientWidth;i++)
{
Y=PaintBox1->ClientHeight/2-A*(int)cos(PI/50*i);
PaintBox1->Canvas->LineTo(i,Y);
PaintBox1->Canvas->MoveTo(i,Y);
}
大家帮帮啊

[c2y]

将这两句
Y=PaintBox1->ClientHeight/2-A*(int)cos(PI*0);
Y=PaintBox1->ClientHeight/2-A*(int)cos(PI/50*i);

改为
Y=PaintBox1->ClientHeight/2-A*cos(PI*0);
Y=PaintBox1->ClientHeight/2-A*cos(PI/50*i);

[c2y]

const float PI=3.1415;
int A=150; //振幅
int Y;
//画x轴
PaintBox1->Canvas->LineTo(0,PaintBox1->ClientHeight/2);
PaintBox1->Canvas->LineTo(PaintBox1->ClientWidth,PaintBox1->ClientHeight/2);
//图象的第一点
Y=PaintBox1->ClientHeight/2-A*cos(PI*0);
PaintBox1->Canvas->MoveTo(0,Y);
for(int i=1;i<PaintBox1->ClientWidth;i++)
{
Y=PaintBox1->ClientHeight/2-A*cos(PI/50*i);
PaintBox1->Canvas->LineTo(i,Y);
}