TWed2k - 程式開發討論區 - [求助]用Borland C++Builder求面積

TWed2k » 程式開發討論區 » [求助]用Borland C++Builder求面積

可打印版本 | 推薦給朋友 | 訂閱主題 | 收藏主題 | 純文字版

ptrlin
鐵驢友〔初級〕

今日心情

．積分： 28
．文章： 125
．收花： 40 支
．送花： 302 支
．比例： 7.55
．在線： 2396 小時
．瀏覽： 19760 頁
．註冊： 7417 天
．失蹤： 1 天

#1 : 2008-3-16 12:28 AM 只看本作者	送花 (0) 送出中...

題目是有一張圖我將它作完二值化後只有黑跟白
白色是它的背景黑色為一個不規則的多邊形物體
現在要求出這個多邊形的中心以及面積

網路上看了滿多文章，可是看得十分迷糊

因此想請教大大這個該怎麼寫~
或者是市面上有那一本書籍對這個有較多的介紹，
麻煩大大們賜教~

[如果你喜歡本文章，就按本文章之鮮花～送花給作者吧，你的支持就是別人的動力來源]

本文連接

快速回覆

ds0527
鍛鐵驢友

今日心情

．積分： 87
．文章： 135
．收花： 290 支
．送花： 28197 支
．比例： 97.23
．在線： 1811 小時
．瀏覽： 52607 頁
．註冊： 7221 天
．失蹤： 303 天
． taiwan

#2 : 2008-3-18 04:05 PM 只看本作者	送花 (0) 送出中...

http://delphi.ktop.com.tw/board.php

去Delphi.ktop討論區看看吧，
很多問題在那都有人問過了。
用" BCB 面積 "當關鍵字就可以找到類似的問題~
再這介紹另一個論壇不知道會不會被打....

[如果你喜歡本文章，就按本文章之鮮花～送花給作者吧，你的支持就是別人的動力來源]

本文連接

快速回覆

ptrlin
鐵驢友〔初級〕

今日心情

．積分： 28
．文章： 125
．收花： 40 支
．送花： 302 支
．比例： 7.55
．在線： 2396 小時
．瀏覽： 19760 頁
．註冊： 7417 天
．失蹤： 1 天

#3 : 2008-3-22 03:54 AM 只看本作者	送花 (0) 送出中...

看到一個類型，跟我的需求很像，如下:

用土法煉鋼的方式把圖讀近來
我是把二值化的圖標成黑色所以黑色點是有效點
下面是我用的方式您參考看看
XX,YY 就是妳要的質心
sum就是你要的面積

void __fastcall TForm1::Button13Click(TObject *Sender)
{
Graphics::TBitmap *Bmp = new Graphics::TBitmap();
Byte *ptr;
int r,g,b;
int i,j,XX,YY;
int sum=0,X=0,Y=0;
Bmp->Assign(Image1->Picture->Bitmap);
Bmp->PixelFormat=pf24bit;

for (int i=0;iHeight;i++ )
{
ptr=(Byte*)Bmp->ScanLine;
for (int j=0;jWidth; j++ )
{
b=ptr[j*3];
g=ptr[j*3+1];
r=ptr[j*3+2];

if(r==0&&g==0&&b==0&&iHeight&&jWidth)
{
sum=sum+1;
X=X+j;
Y=Y+i;
XX=X/sum;
YY=Y/sum;
Form1->Edit1->Text=XX;
Form1->Edit2->Text=YY;
Form1->Edit3->Text=sum;
}
}
}
}
程式Run時，沒有錯誤出現
但真正去開圖執行查面積及質心時，就會當機 ~"~
上面的程式有需要修改到那裡嗎? 因為我執行時都沒有錯誤訊息出現
不知從何下手
另外請教有大大知道為什麼他質心要設到XX跟YY嗎?

[如果你喜歡本文章，就按本文章之鮮花～送花給作者吧，你的支持就是別人的動力來源]

本文連接

快速回覆

所在時區為 GMT+8, 現在時間是 2024-11-21 09:13 PM	清除 Cookies - 連絡我們 - TWed2k © 2001-2046 - 純文字版 - 說明 Discuz! 0.1 \| Processed in 0.022294 second(s), 6 queries , Qzip disabled