MrAssoL
Messages postés30Date d'inscriptionvendredi 17 mai 2002StatutMembreDernière intervention14 octobre 2009
-
6 juin 2003 à 16:42
poldere
Messages postés69Date d'inscriptionsamedi 14 mai 2005StatutMembreDernière intervention12 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.
poldere
Messages postés69Date d'inscriptionsamedi 14 mai 2005StatutMembreDernière intervention12 août 2007 16 mars 2006 à 20:02
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 . . . .
MalcolMZ
Messages postés110Date d'inscriptionjeudi 4 juillet 2002StatutMembreDernière intervention 2 octobre 2006 15 mars 2006 à 23:25
très bon travail...
poldere
Messages postés69Date d'inscriptionsamedi 14 mai 2005StatutMembreDernière intervention12 août 2007 31 janv. 2006 à 00:54
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"
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
zonebleue
Messages postés73Date d'inscriptionsamedi 15 janvier 2005StatutMembreDernière intervention16 octobre 2007 31 oct. 2005 à 17:43
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!
TheTiger
Messages postés89Date d'inscriptionmercredi 2 avril 2003StatutMembreDernière intervention 2 novembre 2010 5 août 2005 à 00:59
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
TheTiger
Messages postés89Date d'inscriptionmercredi 2 avril 2003StatutMembreDernière intervention 2 novembre 2010 4 août 2005 à 22:36
si c'est good car la capture est fluide !!!! j'ai pas encore regardé en détaille mais ça à l'air assez rare car c'est pour le moment la seul source aussi fluide que j'ai peu trouver j'entend bien source avec la detection de mouvement activé comme ça c bo :D
cuq
Messages postés345Date d'inscriptionmardi 3 juin 2003StatutMembreDernière intervention21 mars 20082 5 juil. 2005 à 13:54
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 :
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 ) ....
cs_sitemo
Messages postés341Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention29 juin 20111 2 juil. 2005 à 16:09
repond stp cuq merci
cs_sitemo
Messages postés341Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention29 juin 20111 28 juin 2005 à 21:32
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
cs_sitemo
Messages postés341Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention29 juin 20111 28 juin 2005 à 13:16
bonjour excellent travail
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
joebarteamv
Messages postés65Date d'inscriptionsamedi 25 janvier 2003StatutMembreDernière intervention 5 novembre 2008 11 juin 2005 à 09:32
Tres bonnne demarche de developpement bien le programme il m'est tres utile moi je dis 9/10 ! @Top
mimithebrain
Messages postés24Date d'inscriptionmercredi 14 mai 2003StatutMembreDernière intervention16 décembre 2003 22 févr. 2005 à 00:16
j'aimerais bien que une version .NET sorte. :(
pour le program: 9!
tajereb
Messages postés1Date d'inscriptionmercredi 29 janvier 2003StatutMembreDernière intervention10 mars 2004 10 mars 2004 à 10:53
quelqu'un peu m'aider a transformer ce prog en C++.
tristanchavot
Messages postés1Date d'inscriptionjeudi 12 février 2004StatutMembreDernière intervention12 février 2004 12 févr. 2004 à 12:09
j'ai besoin d'aide !!!
cs_jeje2
Messages postés72Date d'inscriptionlundi 29 juillet 2002StatutMembreDernière intervention27 décembre 2012 21 janv. 2004 à 16:33
Super
jéjé.
Neofreyr
Messages postés1Date d'inscriptionmardi 15 juillet 2003StatutMembreDernière intervention18 juillet 2003 18 juil. 2003 à 12:46
J'adore ce programme! il me permettrai d'avancer énormément sur ce que je veux faire, mais je n'arrive pas à déterminer des "zones sensibles" dans la partie zone de mouvement... en fait, dans ce cadre, je souhaiterai pouvoir le diviser en 8 zones, et si il y a mouvement dans une des zones ou dans plusieurs en meme temps, qu'une actions soit faite (là, je pourrais écrire les lignes)
Y-a-t-il quelqu'un qui pourrait me dire comment configurer ces zones sensibles???
d'avance merci!!
glet
Messages postés3Date d'inscriptionmardi 25 mars 2003StatutMembreDernière intervention10 juillet 2003 2 juil. 2003 à 15:23
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
Nargzul
Messages postés438Date d'inscriptionvendredi 9 mai 2003StatutMembreDernière intervention26 juillet 20074 20 juin 2003 à 11:29
j'ai bo chercher partout, je comprend pas ce ke c'est ce niveau...
mais excellent, faut ke je test
Jujufouq
Messages postés254Date d'inscriptionjeudi 27 décembre 2001StatutMembreDernière intervention 5 mars 2006 11 juin 2003 à 15:37
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!
cuq
Messages postés345Date d'inscriptionmardi 3 juin 2003StatutMembreDernière intervention21 mars 20082 11 juin 2003 à 11:17
Bonjour,
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 :
Merci et je garde mon 6/10 (c'est la moyenne, déjà pas si mal )
cs_LordBob
Messages postés2865Date d'inscriptionsamedi 2 novembre 2002StatutMembreDernière intervention11 mai 20099 7 juin 2003 à 10:29
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...
cs_khalilo
Messages postés71Date d'inscriptionjeudi 17 janvier 2002StatutMembreDernière intervention12 mai 2004 6 juin 2003 à 19:42
un tres bon programme mais quand tu détectes un mouvement essaie de ne pas changer d'image précédente comme ça tu ne prendra pas de photos apres la détection (le départ du voleur par ex est perçue comme un mouvement et donc à la fin tu obtiens une image après le départ du voleur)
voila c juste un conseil même si je ne sais pas si tu as compris.
Jujufouq
Messages postés254Date d'inscriptionjeudi 27 décembre 2001StatutMembreDernière intervention 5 mars 2006 6 juin 2003 à 18:23
Je m'aperçoit que c'est niveau 2. Alors, oui, pas de regret, 6.
Jujufouq
Messages postés254Date d'inscriptionjeudi 27 décembre 2001StatutMembreDernière intervention 5 mars 2006 6 juin 2003 à 18:23
Ouai, ben je suis un peu déçu. Enfin. Quand même pas trop mal. Je crois cependant que je préfère une autre source sur vbfrance qui fait la même chose. Je ne sais plus de qui. Un petit 6.5 arrondit donc à 6.
MrAssoL
Messages postés30Date d'inscriptionvendredi 17 mai 2002StatutMembreDernière intervention14 octobre 2009 6 juin 2003 à 16:42
ca a l'air cool je le testerai tout a l'heure .....
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