Visual Basic

Private Function Different(ByVal a As Long, ByVal b As Long) As Boolean<br />
'Checks different of two colors<br />
ar = a Mod 256: a = a \ 256<br />
ag = a Mod 256: a = a \ 256<br />
ab = a Mod 256: a = a \ 256<br />
<br />
br = b Mod 256: b = b \ 256<br />
bg = b Mod 256: b = b \ 256<br />
bb = b Mod 256: b = b \ 256<br />
sense = 255 - Text1.Text * 5<br />
<br />
Different = (Sqr((ar - br) * (ar - br) + (ag - bg) * (ag - bg) + (ab - bb) * (ab - bb)) > sense) 'formula for counting different<br />
End Function<br />
<br />
Private Sub Timer1_Timer()<br />
'getting picture from camera<br />
SendMessage mCapHwnd, GET_FRAME, 0, 0<br />
SendMessage mCapHwnd, COPY, 0, 0<br />
Picture1.Picture = Clipboard.GetData: Clipboard.Clear<br />
<br />
<br />
stepp = 3 'Grid dense<br />
<br />
Dim qan, qann As Long<br />
qan = 0<br />
qann = 0<br />
<br />
For i = 1 To Picture1.Width / Screen.TwipsPerPixelX Step stepp<br />
For j = 1 To Picture1.Height / Screen.TwipsPerPixelY Step stepp<br />
<br />
If Different(Picture1.Point(i * stepp * Screen.TwipsPerPixelX, j * stepp * Screen.TwipsPerPixelY), Picture2.Point(Screen.TwipsPerPixelX * i * stepp, j * stepp * Screen.TwipsPerPixelY)) Then<br />
Picture1.Circle (i * stepp * Screen.TwipsPerPixelX, Screen.TwipsPerPixelY * j * stepp), 1, RGB(255, 0, 0)<br />
qann = qann + 1<br />
End If<br />
<br />
Next<br />
Next<br />
Label1.Caption = Int(qann * 100 / 910) & "%" 'Counting motion in percents<br />
ProgressBar1.Value = Int(qann * 100 / 910)<br />
End Sub<br />
<br />