DÉTECTEUR DE MOUVEMENT
MrAssoL
Messages postés
30
Date d'inscription
vendredi 17 mai 2002
Statut
Membre
Dernière intervention
14 octobre 2009
-
6 juin 2003 à 16:42
poldere Messages postés 69 Date d'inscription samedi 14 mai 2005 Statut Membre Dernière intervention 12 août 2007 - 16 mars 2006 à 20:02
poldere Messages postés 69 Date d'inscription samedi 14 mai 2005 Statut Membre Dernière intervention 12 août 2007 - 16 mars 2006 à 20:02
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/7358-detecteur-de-mouvement
https://codes-sources.commentcamarche.net/source/7358-detecteur-de-mouvement
16 mars 2006 à 20:02
15 mars 2006 à 23:25
31 janv. 2006 à 00:54
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
31 oct. 2005 à 17:43
5 août 2005 à 00:59
4 août 2005 à 22:36
5 juil. 2005 à 13:54
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 ) ....
2 juil. 2005 à 16:09
28 juin 2005 à 21:32
et aussi d'enregistrer directe sur une video de l'evenement
28 juin 2005 à 13:16
pourquoi laprise de foto est sur racine et il prend 12 foto? comment faire pour mettre en video quand il detecte une personne? comment faire pour lui signaler de se mettre en marche juste avec la parole? merci
mk
11 juin 2005 à 09:32
22 févr. 2005 à 00:16
pour le program: 9!
10 mars 2004 à 10:53
12 févr. 2004 à 12:09
21 janv. 2004 à 16:33
jéjé.
18 juil. 2003 à 12:46
Y-a-t-il quelqu'un qui pourrait me dire comment configurer ces zones sensibles???
d'avance merci!!
2 juil. 2003 à 15:23
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
20 juin 2003 à 11:29
mais excellent, faut ke je test
11 juin 2003 à 15:37
11 juin 2003 à 11:17
Merci a jujufouq. Dans ma grande fièreté je n'ai même pas regardé si il y avait des sources identiques sur le site. Et c'est aussi bien car la méthode utilisée pour la détection est très différente . De plus je n'aime pas les sources avec des classes ou les trucs trop savant qui ne fond pas fait maison. Ce que j'aime c'est dévelloper et comprendre. J'aime bien les trucs simple avec peu d'ocx . Par contre le lien de l'autre source :
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 . C'est une source qui devrait être sur ce site :
http://www.shrinkwrapvb.com/vcap_src.zip -> la reference de la capture video en VB.
Merci et je garde mon 6/10 (c'est la moyenne, déjà pas si mal )
7 juin 2003 à 10:29
6 juin 2003 à 19:42
voila c juste un conseil même si je ne sais pas si tu as compris.
6 juin 2003 à 18:23
6 juin 2003 à 18:23
6 juin 2003 à 16:42