全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1083
推到 Plurk!
推到 Facebook!

黑點數計算

答題得分者是:CoffeeX
天國神族
一般會員


發表:4
回覆:5
積分:1
註冊:2006-07-16

發送簡訊給我
#1 引用回覆 回覆 發表時間:2006-12-11 08:04:00 IP:218.165.xxx.xxx 未訂閱
int r,g,b ;
int gray;
int i,j ,x,y;
int thresold=128;
int count=0;
int count1=0;
Byte *ptr;

Image1->Picture->Bitmap;
bmp->Assign(Image1->Picture->Bitmap);
bmp->Height = Image1->Height ;
bmp->Width = Image1->Width ;
bmp->PixelFormat = pf24bit ;
for(j=0;jHeight;j )
{
ptr = (byte*)bmp->ScanLine[j];
for(i=0;iWidth;i )
{
b = ptr[3*i];
g = ptr[3*i 1];
r = ptr[3*i 2];
gray = (r b g)/3;
if (gray>thresold) //二值化
gray=255;
else
{gray=0;
count ;
}
ptr[i*3]=(Byte)gray;
ptr[i*3 1]=(Byte)gray;
ptr[i*3 2]=(Byte)gray;
}
Image8->Picture->Assign(bmp);


我想在加一段CODE是計算圖上半部的黑點,我該怎麼加才不會影響到目前的CODE
CoffeeX
中階會員


發表:18
回覆:121
積分:72
註冊:2005-02-18

發送簡訊給我
#2 引用回覆 回覆 發表時間:2006-12-12 16:18:29 IP:140.125.xxx.xxx 未訂閱
在取得gray後加入以下程式碼

if (j <= Height/2 )
{
if( gray ==0 )
{
count1 ;
}
}
不知你的count1是否用作此功能
------
=.=???
天國神族
一般會員


發表:4
回覆:5
積分:1
註冊:2006-07-16

發送簡訊給我
#3 引用回覆 回覆 發表時間:2006-12-12 16:36:06 IP:218.165.xxx.xxx 未訂閱
我修改了一下 加一條
if(jHeight/2)
{ count ;
count1 ; }
else
count ;
} }

這樣就OK了!!
如果我想SHOW出count和 count1的值~該怎麼寫??
CoffeeX
中階會員


發表:18
回覆:121
積分:72
註冊:2005-02-18

發送簡訊給我
#4 引用回覆 回覆 發表時間:2006-12-12 16:48:05 IP:140.125.xxx.xxx 未訂閱
用TLabel或是TEdit或TMemo...皆可,
Label1->Caption = IntToStr(count);

Edit1->Text = IntToStr(count1);
------
=.=???
系統時間:2024-05-08 21:16:39
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!