Visual Basic, .NET, ASP, VBA, VBScript
 
  Библиотека кодов  
  Стандартные элементы >>> PictureBox/Image  
     
  Конвертирование цветной картинки в черно-белую  
  Эта пример конвертирует цветную картинку в черно-белую с коэффицентами принятыми в телевидении.
На форме необходимо разместить кнопку и 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
 
     
  VBNet online (всего: 51616)  
 

Логин:

Пароль:

Регистрация, забыли пароль?


В чате сейчас человек
 
     
  VBNet рекомендует  
   
     
  Лучшие материалы  
 
ActiveX контролы (112)
Hitman74_Library (36119)
WindowsXPControls (20739)
FlexGridPlus (19374)
DSMAniGifControl (18295)
FreeButton (15157)
Примеры кода (546)
Parol (18027)
Passworder (9299)
Screen saver (7654)
Kerish AI (5817)
Folder_L (5768)
Статьи по VB (136)
Мое второе впечатление... (11236)
VB .NET: дорога в будущее (11161)
Основы SQL (9225)
Сообщения Windows в Vi... (8788)
Классовая теория прогр... (8619)
 
     
Техническая поддержка MTW-хостинг | © Copyright 2002-2011 VBNet.RU | Пишите нам