VBCoding Библиотека кодов Visual Basic 6 Мультимедиа Конвертирование цветной картинки в черно-белую

Visual Basic 6
Конвертирование цветной картинки в черно-белую
Этот пример конвертирует цветную картинку в черно-белую с коэффицентами принятыми в телевидении.
На форме необходимо разместить кнопку и 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
 

Добавить комментарий


Защитный код
Обновить

 
VBCoding Библиотека кодов Visual Basic 6 Мультимедиа Конвертирование цветной картинки в черно-белую  
Powered by Exponenta -