請問 寫程式黑白圖案縮成一半 在還原~~~~ |
|
尚未結案
|
|
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 發送簡訊給我 |
發表時間：2004-09-29 20:22:48
IP:210.64.xxx.xxx 未訂閱
系統時間：2024-05-21 5:47:51
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |