Цвет в Ч/Б

[Sirik]

Как собственно перевести цветное изображение в чёрно-белое?

[alibek]

В ч/б или grayscale?

[Sirik]

М-да... Наверное всё-таки в последнее. Хотелось бы не совсем в ч/б, а с оттенками серого

[Sirik]

Вот нашёл такой вот код (немного доработав его):

Код: Выделить всё

Option Explicit

Public Function GrayScale(ByVal Colr As Long) As Long
  Dim R&, G&, B&
  R = Colr Mod 256
  Colr = Colr \ 256
  G = Colr Mod 256
  Colr = Colr \ 256
  R = Colr Mod 256
  GrayScale = (77 * R + 150 * G + 28 * B) / 255
End Function


Private Sub Command1_Click()
    Dim I As Long, J As Long, Color As Long
    For I = 1 To Picture1.Height
        For J = 1 To Picture1.Width
            Color = GrayScale(Picture1.Point(I, J))
            Picture2.PSet (I, J), Color
        Next
    Next
End Sub



В Picture1 лежит цветное изображение, а в Picture2 - обработанное, ч/б (по крайней мере должно лежать)

Но почему-то не получается. Изображение почему-то красное. Почему?

[alibek]

Разумеется, ты ведь нигде не заполняешь B.
Замени в последней строке R = на B = .

[Sirik]

Заменил - результат без изменений. Может другой код посоветуешь?

[alibek]

Да нет, код правильный. Ищи опечатки в коде. Для ускорения советую использовать API (GetPixel/SetPixel).

[alibek]

Ах, да. Не Picture2.PSet (I, J), Color, а Picture2.PSet (I, J), RGB(Color,Color,Color).

[Sirik]

Ах, да. Не Picture2.PSet (I, J), Color, а Picture2.PSet (I, J), RGB(Color,Color,Color).

Всё работает. БОЛЬШОЕ спасибо!!!

[tyomitch]

FWIW, более быстрое преобразование тут: http://bbs.vbstreets.ru/viewtopic.php?t=11061