DÉTECTEUR DE MOUVEMENT

Commentaire de MrAssoL le 06/06/2003 16:42:55

ca a l'air cool je le testerai tout a l'heure .....

Commentaire de Jujufouq le 06/06/2003 18:23:37

Je m'aperçoit que c'est niveau 2. Alors, oui, pas de regret, 6.

Commentaire de LordBob le 07/06/2003 10:29:08

g pas encore testé mais ca pourrait etre pas mal, avec ma webcam, j'avais un programme ki fesait ossi détecteur de mouvement, mais le tiens a l'air d'avoir kelke option en plus, je v donc l'essayer sous peu et t'en dire des nouvelles...

Commentaire de Jujufouq le 11/06/2003 15:37:47

Tu sais, je suis sûr qu'avec les votes de tout le monde tu auras plus. J'aurais personnellement mis 9 si ta source était du niveau 1. J'avais un peu peur de te vexer, je suis content que tu ne prenne pas mal la note. A une prochaine fois!

Commentaire de glet le 02/07/2003 15:23:03

bonjour,
je trouve le pg super interressant,j essaye de faire fonctionner plusieurs web cams en meme temps j'y arrive avec 2 webs cams logitech ms a patir du moment ou j essaye de le faire fonctionne avec 2 web cams de marque differente je n y arrive plus.Je crois que ca vient de la fonction 'ConnectCapDriver'.quelqu'un peut m'aider??

Merci

Commentaire de jeje2 le 21/01/2004 16:33:04

Super

jéjé.

Commentaire de tajereb le 10/03/2004 10:53:59

quelqu'un peu m'aider a transformer ce prog en C++.

Commentaire de joebarteamv le 11/06/2005 09:32:51

Tres bonnne demarche de developpement bien le programme il m'est tres utile moi je dis 9/10 ! @Top

Commentaire de sitemo le 28/06/2005 21:32:40

si ya pas de lumiere on voit rien est ce que ya pas un moyen de regler ca a part faire de l'eclairage du local?

et aussi d'enregistrer directe sur une video de l'evenement

Commentaire de cuq le 05/07/2005 13:54:34

Bonjour,

Pour Sitemo je ne sais pas vraiment par ou commencer ...
Oui si il n'y a pas de lumière C'est unvrai problème :)). Paut être trouveras tu une Webcam InfraRouge ??? En tapant cette ligne je me suis dit et si ca existait : www.google.com

Webcam infrarouge et paf 98200 Référence . Incroyable encore une idée que l'on vient de me voler ...

Pour le reste il existe un super site qui s'appel VBFRANCE avec toutes les réponses à tes questions.

et notament sur les commentaires de cette source tu verras un gars qui s'appel cuq qui a écrit  :

http://www.shrinkwrapvb.com/avihelp/avihelp.htm   Est un must avec tout sur la capture video, Il me manquait justement la partie transformation en AVI .

Pour le son dans VBFRANCE tu tapes le mot clé Microphone et paf tu tombes sur une source qui s'appel ACQUISITION DU SON PAR LE MICROPHONE : http://www.vbfrance.com/code.aspx?id=1605

tu analyses le son arrivé à un certain niveau tu déclanches ton action.

C'est pas compliqué ça !

Notes : si tu Ooffres la webcam infrarouge je te dévelloppe le truc :) (On va bien voir si on a une réponse ) ....

Commentaire de TheTiger le 05/08/2005 00:59:50

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

Commentaire de poldere le 31/01/2006 00:54:23

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