Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: как убрать шум с сигнала вебкамеры? Добавлено: 26.02.11 19:09  

Автор вопроса:  Janek
всем привет! есть проблемма - если есть мысли по теме 0 прошу поделиться.
детектор движения на вебкамере - при попиксельном сравнении пары кадров много помех... причем и IP-камеру цеплял и несколько USB- от всех девайсов идет шум.
как побороть?

Ответить

  Ответы Всего ответов: 8  

Номер ответа: 1
Автор ответа:
 Janek



Вопросов: 41
Ответов: 62
  Профиль | | #1 Добавлено: 26.02.11 19:15
цвет перевожу в серый, разлет по значениям между кадрами просто очень большой. фильтров кучу перебрал, но все не то...

Ответить

Номер ответа: 2
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #2 		Добавлено: 26.02.11 19:42
Ну фильтры-шумадавы.
А вообще порог чувствительности ставь.

Недавно ковырял камеру.
Кусок кода, чтобы понятнее было.
  1. Private Sub Timer1_Timer()
  2.         Dim TTT As String
  3.         Dim H As Long
  4.         Dim L As Long, c As Long, N As Long
  5.         Dim P As String
  6.         If Timer - TimeStart < 1 Then Exit Sub
  7.         If DetectOn = 0 Then Exit Sub
  8.         H = 240
  9.         
  10.         CopyMemory PcData(0), VideoData(0), DataLength
  11.         
  12.         c = 0
  13.         L = 0
  14.         For N = 0 To DataLength - 1
  15.             c = c + Abs(CLng(tmpPcData(N)) - CLng(PcData(N)))
  16.             L = L + CLng(PcData(N))
  17.         Next
  18.         L = Int(L / DataLength)
  19.         c = Int(c / DataLength)
  20.         
  21.         H = Sqr((L - OldL) ^ 2 + (c - OldC) ^ 2)
  22.         If H > 1 Then
  23.             Label4.Caption = "DETECTED"
  24.             
  25.             TTT = Time$
  26.  
  27.             Picture3.ForeColor = 0
  28.             TextOut Picture3.HDC, 3, 2, TTT, Len(TTT)
  29.             Picture3.ForeColor = 16777215
  30.             TextOut Picture3.HDC, 2, 1, TTT, Len(TTT)
  31.             
  32.             pp = GenerateStr
  33.             P = App.Path & "\Captures\" & pp & ".jpg"
  34.             ConvertToJpeg Picture3.HDC, P, 75, 320, 240
  35.             List1.AddItem Date$ & " " & Time$
  36.             AddPic P
  37.         Else
  38.             Label4.Caption = ""
  39.         End If
  40.         
  41.         OldL = L
  42.         OldC = c
  43.         CopyMemory tmpPcData(0), PcData(0), DataLength
  44.  
  45. End Sub

Ответить

Номер ответа: 3
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #3 		Добавлено: 26.02.11 19:44
tmpPcData() - предыдущее изображение
PcData() - текущее

Ответить

Номер ответа: 4
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #4 		Добавлено: 26.02.11 19:51
кину сорсы на всякий случай. Вообще у меня работает очень неплохо. Хотя у меня на камере встроенный шумодав...
  1. http://xawp.narod.ru/cam.zip

Ответить

Номер ответа: 5
Автор ответа:
 Janek



Вопросов: 41
Ответов: 62
  Профиль | | #5 Добавлено: 26.02.11 20:33
супер! спасибо за помощь!

Ответить

Номер ответа: 6
Автор ответа:
 Janek



Вопросов: 41
Ответов: 62
  Профиль | | #6 Добавлено: 26.02.11 20:44
плиз,листинги можешь тут написать или на аську текстом скинуть :-) у меня на машине только C# 2010 - открыть не могу http://vbnet.ru/forum/images/103.gif

Ответить

Номер ответа: 7
Автор ответа:
 Janek



Вопросов: 41
Ответов: 62
  Профиль | | #7 Добавлено: 26.02.11 20:45
моя ася 412444378

Ответить

Номер ответа: 8
Автор ответа:
 Janek



Вопросов: 41
Ответов: 62
  Профиль | | #8 Добавлено: 26.02.11 20:49
сорри- затупил, блокнот рулит

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам