Détecteur de mouvement

Soyez le premier à donner votre avis sur cette source.

Vue 15 458 fois - Téléchargée 3 430 fois


Description

Le but de ce programme est de transformer votre PC équipé d'une WebCam en détecteur de mouvements. Vous trouverez des appels aux fonctions API de capture d'image . C'est une version beta, il reste beaucoup de chose à faire avec en premier lieu l'ajout de filtre pour éviter un déclenchement intempestif (ben oui c'est comme les alarmes de voiture , toujours à ce déclencher au moindre mouvement). Les fichiers son de l'archive proviennent du site : http://www.audiard.net/
l'origine de ce dévellopement est un site anglais avec pas mal d'exemple sur le traitement d'images
http://www.fuzzgun.btinternet.co.uk/Downloads.htm A voir absolument.

Merci de bien vouloir me retourner une copie de vos sources si vous modifiez cette version.

Arvis !

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
69
Date d'inscription
samedi 14 mai 2005
Statut
Membre
Dernière intervention
12 août 2007

Merci MalcolMz mais je n'ai aucun mérite vu que je ne fais que du copier-coller de différentes sources. MErci aux créateurs. Mais bon , depuis le cerveau du robot détecte les visages et reconnait les personnes dans une base de données. J'apprend doucement . . . .
Messages postés
110
Date d'inscription
jeudi 4 juillet 2002
Statut
Membre
Dernière intervention
2 octobre 2006

très bon travail...
Messages postés
69
Date d'inscription
samedi 14 mai 2005
Statut
Membre
Dernière intervention
12 août 2007

Merci de la part de quelqu'un qui ne sait pas programmer. Je cherchais quelque chose pour gérer la webcam que je compte mettre sur un ordi portable pour faire un robot autonome ( à partir de cette base http://www.evolution.com/er1/r_rcc.pdf sur ce site http://www.evolution.com/er1/ et ton programme est coooooooollllllllll.
J'ai modifier à tatonement; voici mes petites modifs ( rigolez pas je vous rappelle que je ne sais pas programmer )

Private Sub Form_Load()
Dim numDriver As Long
' ------------------> ma commande pour le port com 2 : 4 lignes ajoutées aucunes vérif je sais
MSComm1.CommPort = 2
MSComm1.PortOpen = True
' 9600 baud, no parity, 8 data, and 1 stop bit.
MSComm1.Settings = "9600,N,8,1"

'initialise
Resolution = 30
SeuilDeclanchement = Val(TxtSeuilDeclanchement)
Call Reinit_Deplacement

'Detection drivers materiel
numDriver = DriversVideo(Me)

End Sub

et à cet endroit là

Call Comparaison_Image(PictImageActuelle, PictImagePrecedente, PictImageAnalyse)
' Calcul du point principale de modification
Call CentreDeDeplacement(PictImageAnalyse, CentreX, CentreY, PictImageActuelle, PictImageZones)
' ------------------> ma commande pour détecter les bords droit et gauche 4 lignes ajoutées
If CentreX 0 Then MSComm1.Output "R" ' R = rien
If CentreX > 5 And CentreX < 20 Then MSComm1.Output = "R"
If CentreX < 5 Then MSComm1.Output "G" ' G gauche
If CentreX > 20 Then MSComm1.Output "D" ' D droite

Conclusion :
quand j'arrive trop à droite ça envoie au robot l'ordre d'aller à gauche et vice et versa pour l'autre bord. J'ai pas encore trouver comment mettre la détection au milieu à l'initialisation dans ton prog et centreX se trouve toujours à 0 voilà pourquoi :
If CentreX 0 Then MSComm1.Output "R"
Si par hasard vous savez comment gérer la détection de couleur ( juste le rouge, juste le vert ou autre ) je suis preneur ou sinon je chercherais encore 1 semaine.
Merci au forum et programmeurs
Messages postés
73
Date d'inscription
samedi 15 janvier 2005
Statut
Membre
Dernière intervention
16 octobre 2007

10/10 c'est super ! mais ma webcam fait plein de points noirs sur l'écran alors il détecte tout le temps des intrusions!
Messages postés
89
Date d'inscription
mercredi 2 avril 2003
Statut
Membre
Dernière intervention
2 novembre 2010

C'est domage je cherche à récupérer au plus vite la capture de la webcam dans un tableau pour un analyse en RDF y a une source qui le fait mais c trop lent je voudais avoir direct la capture dans le tableau la RDF étant déjà bien longue
Afficher les 25 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.