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 !
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
- Détecteur de copier coller
- Détecteur copier coller - Meilleures réponses
- Delphi / Pascal : Détecteur de mouvements avec une webcam - CodeS SourceS - Guide
- Delphi / Pascal : Detecteur de mouvement - CodeS SourceS - Guide
- Détecteur de mouvements ✓ - Forum - Visual Basic 6
- Mouvement brownien python - Guide
- Detecteur ejp - Guide
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
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.