圖像檔案大小的計算

圖檔大小計算(Image size calculation) ... 若有一圖像﹐寬10公分﹑高8公分﹐解析度為28點/ 公分﹐試計算當此圖像以全彩色彩模式儲存時﹐其所需的記憶空間大小分別為何 ... 圖檔大小計算(Imagesizecalculation) 色碼(Colorcode) 圖檔素象色碼擷取(Readcolorcodeofpixels) 以圖查詢資料(Accessdataviamap) 圖檔大小計算(Imagesizecalculation)圖像儲存所需的空間=圖像高(點數)*圖像寬(點數)*像素深度(位元組) 前兩項"圖像高(點數)*圖像寬(點數)"代表在一個長方形的畫面中包含了多少個點 (或說是像素,pixel),而最後一項代表每個點需要用多少位元組才能描述清楚A.其中圖像高與圖像寬的點數與解析度有關, 解析度愈高,單位長度內的點數愈多,所描繪出的圖像愈細緻,如下圖所示: 圖像寬(點數)=寬度(公分,英吋,...)*解析度(點/公分,點/ 英吋,...)圖像高(點數)=高度(公分,英吋,...)*解析度(點/公分,點/英吋,...)B. 至於像素深度則與色彩模式有關,如下所示:(1)若是單色的圖片,對於每一個點,我們可以用"0"代表白,"1"代表黑, 因此只要一個位元(1/8個位元組)即可 (2)若是16色圖片,那要先了解調色盤,下圖為一個調色盤的例子: 因"2的4次方等於16",表示其每一個點至少需要4個位元(4/8個位元組) 來表示其顏色. (3)256色模式與16色原理相同,但因"256為2的8次方", 因此表示其每一個點至少需要8個位元(8/8個位元組)來表示其顏色(4)全彩(TrueColor)模式下,每一個點以 24個位元(24/8個位元組)表示之,紅(R),綠(G),藍(B)各佔8位元,所以這三種顏色各可以分成256種(從0~ 255)層次,綜合這三種顏色的層次值,可以合成出2的24次方(16777216)種相異的色彩,下圖為R=52(00110100), G=72(01001000),B=214(11010110)的情況與其所對應的色彩. 因此若圖像中的某點含此一種色彩,則該點將以001101000100100011010110 表示之 (5)高彩模式(HighColor)原理與全彩模式相同,只不過其每一個點以16 個位元(16/8個位元組)表示之,紅色佔5個位元,綠色佔6個位元,藍色佔5個位元,所以這三種顏色各可以分成32,64 ,32種層次,綜合這三種顏色的層次值,可以合成出2的16次方(65536)種相異的色彩[例]若有一圖像﹐寬10公分﹑高8公分﹐解析度為28點/ 公分﹐試計算當此圖像以全彩色彩模式儲存時﹐其所需的記憶空間大小分別為何﹖[答]圖像儲存所需的空間=圖像高(點數)*圖像寬(點數) *像素深度(位元組)=(10*28)*(8*28)*(24/8)=188160bytes 其實一個圖像儲存所需的空間除了上述所計算得到的數值外, 還要再加上一些空間來記錄這張圖的長寬點數,色彩模式,若非全彩或單色模式,還要記錄調色盤的對應碼(例如紅色要用0011還是0101表示), 這些額外加入的資訊大小隨著圖檔的格式不同而有差異(如bmp,gif,jpg等,記錄方式不同),又這些額外資訊所佔的空間大小(約為10至數百 bytes)相較於前面所算的圖像內容的大小(約為數千至數十萬bytes),常是可以忽略,因此, 用上述公式所算得的圖像儲存所需的空間雖然不完全精準,但也相去不遠. 色碼(Colorcode) 在喜愛的色彩上停一下，它就會顯示色碼代號 色碼計算 圖檔素象色碼擷取(Readcolorcodeofpixels) 程式碼: PrivateSubPicture1_MouseMove(ButtonAs Integer,ShiftAsInteger,XAsSingle,YAsSingle)    Dima   a=Picture1.Point(X,Y)    Shape1.FillColor=a    Label1.Caption="Colorcode="&Hex(a) &"-->"  '轉成八進位(hexadecimalnumbersystem) EndSub 以圖查詢資料(Accessdataviamap) 以點選地圖方式輸入經緯查循該經緯方格上之漁獲資料,接續前章習題已建立之程式()繼續擴充 參考畫面 　 1.表單內置入圖形框Picture2及兩個文字標籤框顯示游標經緯度 2.Mouse_Move事件顯示經緯座標    以Int(X/5)*5及Int(Y/5)*5函數取5度為一階之整數,查詢隨機檔內A.Lat與A.Lon符合之記錄 3.將經緯度相符之資料,以直方圖繪製在Picture2內 Dim color Form1_load()      Picture2.Scale(1989,400)-(2000,0)    'XYcoordinateforstatisticalchart 　 Endsub 　 　 PrivateSubPicture1_MouseMove(ButtonAsInteger,Shift AsInteger,XAsSingle,YAsSingle) 　     Label2=????????? 　 EndSub 　 　 　 PrivateSubPicture1_MouseDown(ButtonAsInteger,Shift AsInteger,XAsSingle,YAsSingle)     Label3=?????????    picture2.cls     Fori=1Tototal         Get#1,i,a             Ifa.lon=Int(X/5)*5Anda.lat=Int(Y/5)*5Then                 Picture2.Line(a.yy+a.mm/12,0)-(a.yy+a.mm/12,a.bet*100/a.hook), RGB(255,0,0) '改成魚種可選             EndIf     Nexti 　 '繪製座標(上課講解） 　 EndSub 　 Advanced:1. 上圖為直線圖，試改為直方圖/折線圖/.......