作者imalex (爱是要先付出啊)
看板Visual_Basic
标题[VB6 ] PictureBox读取pixel的RGB问题
时间Tue Dec 12 19:38:40 2006
我想要读取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