PaintBox Polyline的問題 |
尚未結案
|
rocha
一般會員 發表:6 回覆:1 積分:1 註冊:2005-01-19 發送簡訊給我 |
各位大師 如圖所示,我是將每次取的值由PaintBox顯示出來,但我使用Polyline會有一條怪的斜線回顯示出來,請各位大師幫我看看到底哪裡出了問題 下面是我的程式碼: void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
TPoint pt;
int MaxRpm,MinRpm; pt.x=0;
pt.y=0;
Status=aio3320_read_GPT(CardId,0,&Counter,0);
New_Counter=Old_Counter-Counter;
Rpm_Sum=(Rpm_Sum-Rpm_Average[Ptr_Count])+New_Counter;
Rpm_Average[Ptr_Count]=New_Counter;
Old_Counter=Counter;
Ptr_Count=Ptr_Count+1;
if (Ptr_Count>=3) Ptr_Count=0;
Rpm=Rpm_Sum;
Edit3->Text =Rpm; MaxRpm=100;
MinRpm=-100;
Show_Rpm[Ptr_Pic]=Rpm;
pt.x=(int)(Ptr_Pic*(rt.Right/59));
pt.y=(int)((rt.Bottom/2)-(Show_Rpm[Ptr_Pic]/((float)(MaxRpm-MinRpm)/rt.Bottom)));
Label33->Caption =pt.x;
Label34->Caption=pt.y;
PointArray[Ptr_Pic]= pt;
Ptr_Pic=Ptr_Pic+1;
if (Ptr_Pic>=60) Ptr_Pic=0;
PaintBox1Paint(Sender); }
//--------------------------------------------------------------------------- void __fastcall TForm1::PaintBox1Paint(TObject *Sender)
{
PaintBox1->Canvas->Pen->Color=clBlack;
PaintBox1->Canvas->Brush->Color=clWhite;
PaintBox1->Canvas->Rectangle(rt);
PaintBox1->Canvas->MoveTo(0,(PaintBox1->Height/2));
PaintBox1->Canvas->LineTo(PaintBox1->Width,(PaintBox1->Height/2)); //PaintBox1->Canvas->Pen->Mode=pmCopy;
PaintBox1->Canvas->Pen->Color=clRed;
PaintBox1->Canvas->Polyline(PointArray,59);
}
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Ptr=0; //AD濾波器指標初始值
Ptr_Count=0; //計數濾波器指標初始值
Ptr_Pic=0;
Ad_Average=0; //平均和初始值
New_Counter=0;
Old_Counter=4294967295;
Status=aio3320_initial();
Label4->Caption=CardId;
Status=aio3320_info(CardId,&PortAddress);
Status=aio3320_set_dedicate_IO(CardId,1);
Status=aio3320_load_GPT(CardId,0,Counter,0);
Status=aio3320_set_counter(CardId,0,3,3);
Status=aio3320_GPT_enable(CardId,0,1); /*十進制轉十六進制固定4位數*/
Label6->Caption=Label6->Caption.IntToHex(PortAddress,4);
Reset_Da(Da_C0);
Offset=AD_Offset(Ad_C0);
//--------------------------------------------------------------------------- PaintBox1->Canvas->Rectangle(0,0,PaintBox1->Width,PaintBox1->Height);
rt=PaintBox1->ClientRect;
//---------------------------------------------------------------------------
Label29->Caption =Offset;
Timer1->Enabled =1;
} 發表人 - rocha 於 2005/02/03 23:31:25
|
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |