請問 寫程式黑白圖案縮成一半 在還原~~~~ |
尚未結案
|
allboy
一般會員 發表:5 回覆:5 積分:2 註冊:2004-03-05 發送簡訊給我 |
麻煩各位大大 我要寫程式把黑白圖案縮成一半 在將其還原
但是我還原時 圖案有變窄 我把x,x 1 合成一個新的x
怎樣才能跟原圖一樣??!!
幫我看看哪裡有錯誤 我明天要交作業
滿急的><" void __fastcall TForm1::Button21Click(TObject *Sender)
{
int c1,c2,k,j,z,xx;
for (int y = 0; y < Image6->Picture->Height; y )
{
for (int x =0;x< Image6->Picture->Width;x )
{
if(x%2==0){
c1 =GetPixel(Image6->Canvas->Handle,x,y);
if( c1 >16) c1=2;
else c1=0;} if(x%2==1){
c2= GetPixel(Image6->Canvas->Handle,x,y);
if( c2 > 16) c2=1;
else c2=0; k=c1 c2;
j=x/2; Image16->Canvas->Pixels[j][y] = TColor(RGB(k,k,k));
} }
}}
//將圖案轉存成一半 void __fastcall TForm1::Button22Click(TObject *Sender)
{ int zz ,c1,c2,j1,j2;
for (int y = 0; y < Image16->Picture->Height; y )
{
for (int x =0;x< Image16->Picture->Width;x )
{ zz =GetPixel(Image16->Canvas->Handle,x,y);
if( zz == 0){ c1=0;c2=0; }
else if( zz == 1) { c1=0;c2=255; }
else if( zz == 2) { c1=255;c2=0; }
else {c1=255;c2=255;} j1=x*2;
j2=x*2 1;
Image2->Canvas->Pixels[j1][y] = TColor(RGB(c1,c1,c1));
Image2->Canvas->Pixels[j2][y] = TColor(RGB(c2,c2,c2)); } }
}
//將圖還原
|
sew
一般會員 發表:2 回覆:54 積分:21 註冊:2003-08-25 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |