01361073 游宇程 HW02

第一步. 上網找一張 .bmp的圖檔

第二步. 利用 MainMenu 來創造你要的版面，而 OpenPictureDalog是用來讀取圖片用

第三步 . 在 Image 裡面打上程式碼，如下

                                             if (OpenPictureDialog1->Execute()

                                         {

Image2->Picture->LoadFromFile(OpenPictureDialog1->FileName);

iImageWidth = Image2->Picture->Width;

iImageHeight = Image2->Picture->Height;

                         }

此作用當程式run 按下 Image 可以讀取檔放在TImage2

第四步 .拉出一個 TPageControlg 上面貼上2個 TImage,一個用來讀取圖片，一個用來分析直條圖。然後再按鈕Red Histogram 裡面打程式，程式部分如下

                                       for(int l=0;l<256;l++)

                                   {

                                       if(RED[l]>iRMAX)iRMAX=RED[l];

                                   }

                                               for(int l=0;l<256;l++)

                                            {

Image3->Canvas->Pen->Color =(TColor)RGB(255,0,0);   //直條顏色

Image3->Canvas->MoveTo(l*2,255);       

Image3->Canvas->LineTo(l*2,255-(RED[l]/(iRMAX/255)));

                                            }

上述程式碼是用來畫出直條圖，分別在3個不同的按鈕中打上類似的程式碼

第五步 . 最後執行結果

最後此作業是經過上網查找以及詢問同學才能做出來的，謝謝!