Цветной BMP в черно-белый

[virtuhay266]

Всем привет! Я выделяю из изображения один цветовой канал и нужно сохранить его в черно-белом виде в BMP файле. Первой мыслью было скопировать содержимое нужного канала в остальные два, но кто-то мне сказал, что яркости каналов складываться и изображение будет неправильное. В заголовке я не нашел как формируется черно-белое изображение. Подскажите как правильно сделать задание.

[Arigato]

Нужно именно 1 канал? Если нужны градации серого, то это среднее 3-х каналов.

[virtuhay266]

Да, один. Я правильно понял, что мне надо разделить значение нужного цвета на три и записать результат во все каналы?

[Arigato]

Делить ничего не надо, записывайте значение этого цвета в оставшиеся 2 канала. Но, как вы сами заметили, в получившийся картинки яркость может не сохраниться, т.к. она от всех 3-х каналов зависит.

[alex77755]

Как-то попадалось - сохранил на всякий случай:

Эта пример конвертирует цветную картинку в черно-белую с коэффицентами принятыми в телевидении.
На форме необходимо разместить кнопку и 2 PictureBox с именами pic1 и pic2 одинакового размера. Свойство ScaleMode у обоих надо выставить в 3-Pixel. В pic1 загрузите любое изображение и нажмите на кнопку.

Private Sub Command1_Click()
Dim b1 As Byte, b2 As Byte, b3 As Byte
Dim lColor&, x&, y&, Gray!

pic2.Cls
For x = 0 To pic1.ScaleWidth
For y = 0 To pic1.ScaleHeight
lColor = pic1.Point(x, y)
b1 = lColor And &HFF 'Красный
b2 = (lColor \ 256) And &HFF 'Зеленый
b3 = (lColor \ 65536) And &HFF 'Синий
Gray = b1 * 0.3 + b2 * 0.59 + b3 * 0.11
lColor = RGB(Gray, Gray, Gray)
pic2.PSet (x, y), lColor
Next y
DoEvents
Next x
End Sub