由計算值繪線問題...

發文回覆瀏覽次數：686

推到 Plurk!

推到 Facebook!

尚未結案

Vincent2424
一般會員

發表：57
回覆：40
積分：19
註冊：2004-12-15

發送簡訊給我

#1 引用回覆回覆

發表時間：2005-01-03 14:39:07

IP:163.25.xxx.xxx 未訂閱

請問各位大大，我由程式計算出一組數據，要如何用PaintBox將計算出的結果繪出圖呢??? 程式如下: void __fastcall TForm1::Button1Click(TObject *Sender) { int j; a=StrToFloat(Edit1->Text); n=StrToFloat(Edit2->Text); //計算 k=a/n; for(i=1; i<=n; i++) { Y=i*k; StringGrid1->Cells[0][i]=IntToStr(i); StringGrid1->Cells[1][i]=FloatToStr(Y); } } //------------------------------------------------------------------- void __fastcall TForm1::FormCreate(TObject *Sender) { StringGrid1->Cells[0][0]="X值"; StringGrid1->Cells[1][0]="Y值"; } //-------------------------------------------------------------------

希望能用 PaintBox1->Canvas->MoveTo(1,0.5); PaintBox1->Canvas->LineTo(2,1); PaintBox1->Canvas->LineTo(3,1.5); PaintBox1->Canvas->LineTo(4,2); . . . 請問可以做到嗎???

nlj859
資深會員

發表：139
回覆：375
積分：322
註冊：2004-03-20

發送簡訊給我

#2 引用回覆回覆

發表時間：2005-01-03 15:10:45

IP:163.28.xxx.xxx 未訂閱

Hello Vincent2424, 可以改用TChart增加美觀性.

  StringGrid1->Cells[1][1]="0.5";
  StringGrid1->Cells[1][2]="1";
  StringGrid1->Cells[1][3]="1.5";
  StringGrid1->Cells[1][4]="2";
  StringGrid1->Cells[1][5]="2.5";      for (int i=1;i<=5;i  )
      Series1->AddXY(i,StringGrid1->Cells[1][i].ToDouble(),IntToStr(i),clRed);

或

  Series1->AddXY(1,0.5,"1",clRed);
  Series1->AddXY(2,1,"2",clRed);
  Series1->AddXY(3,1.5,"3",clRed);
  Series1->AddXY(4,2,"4",clRed);
  //.........

參考看看. 發表人 - nlj859 於 2005/01/03 15:21:23

系統時間：2024-04-28 6:29:13

聯絡我們 | Delphi K.Top討論版

本站聲明

1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！