[VB6 ] PictureBox讀取pixel的RGB問題
我想要讀取PictureBox上圖片的pixel的RGB值做YCbCr轉換
程式碼如下:
For i = 0 To dibWidth - 1
For j = 0 To dibHeight - 1
'YCbCr轉換
temp = Picture1.Point(i, j)
r = temp Mod 256
temp = temp / 256
G = temp Mod 256
temp = temp / 256
b = temp Mod 256
Y = 16 + r * 0.257 + G * 0.504 + b * 0.098
Cb = (r * -0.148 + G * -0.291 + b * 0.439) + 128
Cr = (r * 0.439 + G * -0.368 + b * -0.071) + 128
Next j
Next i
做出來的結果似乎是錯的
請問是哪裡寫錯了呢?
謝謝.
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 163.18.62.154
Visual_Basic 近期熱門文章
PTT數位生活區 即時熱門文章