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

新手學BCB~~希望厲害的大大幫我看看我寫ㄉ程式~~!!

尚未結案
vinbaby
一般會員


發表:10
回覆:5
積分:3
註冊:2005-07-13

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-07-13 20:26:35 IP:61.230.xxx.xxx 未訂閱
我現在正在撰寫一個簡單的圖型配對的程式~~    不過發現ㄌㄧ些問題~~想麻煩厲害的大大~~幫幫我~~    我有一張大的影像A~~和一張小的影像B~~~而B是從A中切割出來的~~ 所以一定會配對成功~~不過我的程式好像不對~~~它可以run不過卻不是我要ㄉ執行 一按下配對按鈕~~圖形A和B就消失了~~~@@ 以下我附上我所寫的程式碼~~~    //---------------------------------------------------------------------------    #include  #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::Button1Click(TObject *Sender) { Graphics:: TBitmap *TheBitmap , *TheBitmap1; Byte *ptr; int x,y,a,b; int sum; TheBitmap=Image1->Picture->Bitmap; TheBitmap=Image2->Picture->Bitmap; for (y=0;yScanLine[y]; for (x=0;x<(x-b);x=x+b) { ptr=(Byte*)TheBitmap->ScanLine[x]; for (a=0;aHeight;a++) { ptr=(Byte*)TheBitmap1->ScanLine[a]; for (b=0;bWidth;b++) { sum=(ptr[y*3]-ptr[a*3])+ (ptr[y*3+1]-ptr[a*3+1])+ (ptr[y*3+2]-ptr[a*3+2]); sum=(ptr[x*3]-ptr[b*3])+ (ptr[x*3+1]-ptr[b*3+1])+ (ptr[x*3+2]-ptr[b*3+2]); } } } } if(sum=0) { ptr[a*3]=ptr[y*3]; ptr[a*3+1]=ptr[y*3+1]; ptr[a*3+2]=ptr[y*3+2]; ptr[b*3]=ptr[x*3]; ptr[b*3+1]=ptr[x*3+1]; ptr[b*3+2]=ptr[x*3+2]; } Repaint(); } //--------------------------------------------------------------------------- 麻煩可以有大大幫我解答一下~~~>< 以下是我ㄉ界面圖示
taishyang
站務副站長


發表:377
回覆:5490
積分:4563
註冊:2002-10-08

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-07-13 20:34:31 IP:218.168.xxx.xxx 未訂閱
您好: 請為您的問題取一個有意義的標題    PO程式碼的方式與版規說明請參考下面連結,煩請修改謝謝您的配合 >
ddy
站務副站長


發表:262
回覆:2105
積分:1169
註冊:2002-07-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-07-14 09:42:03 IP:210.192.xxx.xxx 未訂閱
你好,這個不當標題與內容看過很多次了,與jlvjlv 所發問的問題一樣 【問題】BCB程式撰寫有問題~~~!!因為是新手想麻煩會ㄉ大大..... http://delphi.ktop.com.tw/topic.php?TOPIC_ID=74672 【問題】BCB程式撰寫有問題~~~!!因為是新手想麻煩會ㄉ大大..... http://delphi.ktop.com.tw/topic.php?TOPIC_ID=74675 【BCB】【問題】BCB程式撰寫有問題~~~!!因為是新手想麻煩會ㄉ大大..... http://delphi.ktop.com.tw/topic.php?TOPIC_ID=74800 一、懷疑是同一個人,所以連違反版規都是一個樣子 二、若非同一人,則是同班的作業問題 不管如何,標題無意義,又疑為作業問題,程式碼也未縮排 經taishyang 副站長規勸多次後仍不見改善 此篇依例鎖帖一日後刪除 < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=8147403&CC=182217"> ABSee數位相機族群的專業網站,免費1G 網路相簿 http://absee.com.tw/law.asp?uRef=15360
系統時間:2024-05-18 23:25:30
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!