Hallo,
Habe mir gestern Abend ein kleines Motion Detection Programm geschrieben.
Es erkennt mitlerweile bewegungen nach Oben, Unten und Rechts und links.
Jetzt möchte ich eine Kreisbewegung nach rechts erkennen. Also wenn ich mit der Hand eine Kreisbewegung mache.
Ich Poste mal meinen Code den ich bisher benutze.
Habe mir gestern Abend ein kleines Motion Detection Programm geschrieben.
Es erkennt mitlerweile bewegungen nach Oben, Unten und Rechts und links.
Jetzt möchte ich eine Kreisbewegung nach rechts erkennen. Also wenn ich mit der Hand eine Kreisbewegung mache.
Ich Poste mal meinen Code den ich bisher benutze.
VB.NET-Quellcode
- Try
- Dim ENCONTRADO As Boolean = False
- For Y = MARCOY To MARCOY + MARCOALTO Step 5
- For X = MARCOX To MARCOX + MARCOANCHO Step 5
- If IMAGEN2.GetPixel(X, Y) = Color.FromArgb(255, 255, 0, 0) Then
- If ANTERIORY - Y > 10 Then
- lbl_bewegungraufrunter.Text = "Rauf"
- ElseIf Y - ANTERIORY > 10 Then
- lbl_bewegungraufrunter.Text = "Runter"
- End If
- If X - ANTERIORX > 20 Then
- lbl_bewegungrechtslinks.Text = "Links"
- ElseIf ANTERIORX - X > 20 Then
- lbl_bewegungrechtslinks.Text = "Rechts"
- End If
- ANTERIORX = X
- ANTERIORY = Y
- ENCONTRADO = True
- Exit For
- End If
- Next
- If ENCONTRADO = True Then
- Exit For
- End If
- Next
- Catch ex As Exception
- End Try