Aller au contenu


Photo
- - - - -

Pan/Tilt pour WebCam en VB.net et Arduino


23 réponses à ce sujet

#1 julkien

julkien

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 029 messages
  • Gender:Male

Posté 23 juillet 2011 - 07:50

salut tout est dans le titre support 2 axes pour webcamj'aimerais la controlé par la suite avec opencv (mais bon c'est pas gagné-_- )Image IPBvue de l'ensembleImage IPBlelectroniqueImage IPBla mecaniquehttp://youtu.be/ksUKgUhKpF8alors juste un gros merci a Alexis (qui ma mis sur la piste ) et a julien ( qui a ecrit le code qui me permet de rentrer de coordonées)

#2 julkien

julkien

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 029 messages
  • Gender:Male

Posté 24 juillet 2011 - 10:28

salut

je m'essais actuelement a opencv via emgu qui facilite l'integration a visual studio c#
enfin facilite, c'est une maniere de parler
le probleme c'est que je n'arive pas a capturé d'image via la cam de mon pc (ben du coup j'suis loin de reussir a suivre un visage!)
si vous avez un bon lien sur le quel je puisse m'appuyer j'suis preneur


Slts

julien

#3 Astondb8

Astondb8

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 111 messages
  • Gender:Male
  • Location:Paris

Posté 25 juillet 2011 - 01:37

Tu as essayé ça ?

http://www.cppfrance.com/codes/EXPLOITER-WEBCAM_24541.aspx

Cdlt
Yves

 


#4 Jbot

Jbot

    Membre chevronné

  • Membres
  • PipPipPipPip
  • 801 messages
  • Gender:Male
  • Location:Paris
  • Interests:Robotics

Posté 25 juillet 2011 - 08:58

Moi je te conseil de regarder Harpia dans un premier temps. Il est directement téléchargeable dans les packages Ubuntu en plus, donc bien pratique.
Ca permet de générer tout seul du code OpenCV juste en déplaçant des petites boites de fonctions ^^ (un IDE pour OpenCV en quelque sorte)


Malédiction du Créatif :
Plus vous avez d’idées et moins vous arrivez à les structurer.


#5 julkien

julkien

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 029 messages
  • Gender:Male

Posté 25 juillet 2011 - 10:20

Tu as essayé ça ?

http://www.cppfrance...BCAM_24541.aspx

Cdlt
Yves


le problème c'est que ( de ce que j'ai compris) il me faut utiliser directement opencv ou emgu pour capturer afin de traiter l'image



Moi je te conseil de regarder Harpia dans un premier temps. Il est directement téléchargeable dans les packages Ubuntu en plus, donc bien pratique.
Ca permet de générer tout seul du code OpenCV juste en déplaçant des petites boites de fonctions ^^ (un IDE pour OpenCV en quelque sorte)


arff encore du Ubuntu !!
tu y arriveras un jour a me faire y aller ^_^
oui c'une idée je t'avoue que j'aurais aimé continué sur du Windows
Je vais me configurer une machine virtuel, pour testé ça
vue que je connais a peine linux (mis a par la konsole, en telnet ! ben oui, au taf, le serveur était sur Mandriva )

Merci a vous 2

Slts

Julien

#6 julkien

julkien

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 029 messages
  • Gender:Male

Posté 13 décembre 2011 - 04:48

oui je sais vous allez me dire que c'est un bon deterrage de topîc :lol: mais c'est pour la bonne cause

je reviend sur mes essai sur opencv (ou plutot avec Emgu qui utilise opencv:)

j'arrive maintenant depuis peu a reconnaitre les visages sans mouvement (sur une image fixe) et c'est deja pas mal ;)

je vous mets le bout de code que j'utilise :


'j'importe les dlls

Imports Emgu.CV
Imports Emgu.Util
Imports Emgu.CV.Structure
Imports Emgu.CV.UI

Public Class Form1

    Private Sub Form1_Load() Handles MyBase.Load
        '  je charge l'image au demarrage 

        Dim p As String = Application.StartupPath

        PictureBox2.Image = Image.FromFile("image.jpg")

       

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'c'est la que sa ce complique 
        'je met l'image dans un buffer avec une correction sur la couleur (bgr=bleu,green,red) 
        Dim ImageBgr As New Image(Of Bgr, Byte)(PictureBox2.Image) 
        'je declare le fichier xml qui permet a la lib opencv de reconnaitre les visages
        Dim HaarXML As New HaarCascade("haarcascade_frontalface_alt.xml")
        ' je converti l'image en niveu de gris 
        Dim GrayImage As Image(Of Gray, Byte) = ImageBgr.Convert(Of Gray, Byte)()

        Dim ImgGraphics As Graphics = Graphics.FromImage(PictureBox2.Image) ' je ne comprend pas l'interer de cette ligne :?
        Dim MPen As New Pen(Brushes.YellowGreen, 8) 'je definit les tracés carrés 
        For Each m In GrayImage.DetectHaarCascade(HaarXML)(0)

            ImgGraphics.DrawRectangle(MPen, m.rect) 'je dessine les carrés 

        Next
    End Sub
End Class


PS: desoler pour la mise en page du code depuis que l'on est passé sous robomaker il n'y as plus le choix du type de code :blink:

#7 seb03000

seb03000

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 192 messages
  • Gender:Male
  • Location:Loins dérrière toi.
  • Interests:La Robotique , plus l'informatique

Posté 13 décembre 2011 - 06:14

Salut Julkien.

J'aurai une question , elle te paraitra sans doute idiote a ton goue , mais je préfère la posé.

ce support 2 axes pour Webcam , c'est une coque qui te permet de mètre une Webcam???

Si c'est bien une coque , que vas tu mètre dans cette coque une mini caméra????

#8 julkien

julkien

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 029 messages
  • Gender:Male

Posté 13 décembre 2011 - 08:05

Salut Julkien.

J’aurai une question , elle te paraitra sans doute idiote a ton cou , mais je préfère la posé.

ce support 2 axes pour Webcam , c'est une coque qui te permet de mètre une Webcam???

Si c'est bien une coque , que vas tu mètre dans cette coque une mini caméra????


En faite j'ai enlever la camera de son support mais ce n'est rien d'autre qu'une webcam vendu dans le commerce
De toute façon j'ai changer de webcam car celle la n'avais plus de pilote compatibles win 7 :)
Je posterais des photo dés que je pourrais (je suis sur Mon androïde )

#9 seb03000

seb03000

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 192 messages
  • Gender:Male
  • Location:Loins dérrière toi.
  • Interests:La Robotique , plus l'informatique

Posté 13 décembre 2011 - 10:38

En tout cas julkien , j'ai hâte de voir ton projet , une foie fini.

Et de voir quelques photos est vidéo , car ton projet et intéressent , est pourrait éventuellement m'intéresser à l'avenir.

#10 julkien

julkien

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 029 messages
  • Gender:Male

Posté 14 décembre 2011 - 12:16

re salut

bon je continu avec mes progres, c'est lutilisation de la webcam en live

j'ai juste un petit souci sur la vitesse de rafraichisment mais c'est fonctionnel


Imports Emgu.CV
Imports Emgu.Util
Imports Emgu.CV.Structure
Imports Emgu.CV.UI


Public Class Form1

    Dim capturecam As Capture

    Private Sub Form1_Load() Handles MyBase.Load
        capturecam = New Capture
        AddHandler Application.Idle, AddressOf detctionvisageCam ' ce traduit par : quand l'aplication est inactif j'appel la fonction : detctionvisageCam
    End Sub

    Public Sub detctionvisageCam(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Using imagecam As Image(Of Bgr, Byte) = capturecam.QueryFrame ' imagecam est une image et est egale a la frame actuel de la cam 
            If imagecam IsNot Nothing Then ' si image cam n'est pas egale a rien alors 
                Dim grayframe As Image(Of Gray, Byte) = imagecam.Convert(Of Gray, Byte)() 'je converti l'image de la cam en niveau de gris 
                Dim HaarXML As New HaarCascade("haarcascade_frontalface_alt.xml") 'j'instancie le ficier xml qui a les donnees de reconnaissance de visage

                For Each visage In grayframe.DetectHaarCascade(HaarXML)(0) ' pour chaque visage detecter 
                    imagecam.Draw(visage.rect, New Bgr(Color.DimGray), 2) ' je dessine sur l'image de la cam un carre de couleur 
                    '(face.rect, New Bgr(0, Double.MaxValue, 0), 3)
                Next
                PictureBox2.Image = imagecam.ToBitmap()
            End If
        End Using
    End Sub
End Class
Capture.JPG


A+

#11 julkien

julkien

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 029 messages
  • Gender:Male

Posté 13 février 2012 - 06:41

je poste une petite video que j'ai fait hier soire ( Désoler pour la qualité de la video on entend plus les ventillo du pc que mes commentaires :( )



je vous en dirais plus ce soire

pour faire court cela ne fonctionne pas trop a cause de la qualité de la webcam
moi meme en tant q'humain j'ai du mal a trouver le visage :D
j'esssairais de m'en prendre une autre se soir en debauchand

#12 seb03000

seb03000

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 192 messages
  • Gender:Male
  • Location:Loins dérrière toi.
  • Interests:La Robotique , plus l'informatique

Posté 15 février 2012 - 12:57

Ah pas mal du tout , c'est très intéressant , c'est vrais que la qualité de la webcam laisse a désiré , mes aux moins ça

fonctionne ça me donne envie de faire la même chose avec ma Webcam.

Par contre les ventilo de ton pc son plutôt bruyant , je te conseille d'ouvrir ton pc , de prendre ton aspirateur , et

d'aspiré toute la poussière dans ton pc , et sur tout les ventilo , et le ventilo de ton processeur.

#13 seb03000

seb03000

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 192 messages
  • Gender:Male
  • Location:Loins dérrière toi.
  • Interests:La Robotique , plus l'informatique

Posté 15 février 2012 - 12:58

Désolé double , problème de connexion.

#14 julkien

julkien

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 029 messages
  • Gender:Male

Posté 15 février 2012 - 06:59

Ah pas mal du tout , c'est très intéressant , c'est vrais que la qualité de la webcam laisse a désiré , mes aux moins ça

fonctionne ça me donne envie de faire la même chose avec ma Webcam.


je me suis achetez une autre webcam l'image est plus net mais il faut que je revois mon montage

plus que quelque essais et je publie la source sur vbfrance (qui a mon avis seras plus facile a lire que sur le forum,

Par contre les ventilo de ton pc son plutôt bruyant , je te conseille d'ouvrir ton pc , de prendre ton aspirateur , et

d'aspiré toute la poussière dans ton pc , et sur tout les ventilo , et le ventilo de ton processeur.




non mon pc bruyant ? .....^_^

c'est un pc portable il est tout propre pas un grain de poussiere a l'interieur c'est un probleme répendu sur les aspire ( enfin j'en ai vu plein :) )

problablemenrt un driver qui merde ou peu etre besoin d'une mise a jour du bios mais bon ça c'est hors sujet ^^




#15 julkien

julkien

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 029 messages
  • Gender:Male

Posté 16 février 2012 - 11:42

bon voila c'est bon j'en est fini avec ce projet les resultat que j'ai eu me suffisent pour le moment

pour finir

LA derniere video du traking




A+
prochain exercice suivre le son de ma voix

edit il reste un dernier point a voir c'est de gérer l'acceleration quand le visage s'eloingne de trop
j'ai mon idée sur l'exercice

donc je croix que je vais pousser l'exercice plus loin


Modifié par Webmaster, 20 janvier 2015 - 09:41 .


#16 Roboteer

Roboteer

    Membre

  • Membres
  • Pip
  • 134 messages
  • Gender:Male

Posté 17 février 2012 - 02:45

Excellent topic: Un projet concret, des échanges techniques, du travail et un excellent résultat....

Merci Julkien et Bravo.


Roboteer.

#17 julkien

julkien

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 029 messages
  • Gender:Male

Posté 17 février 2012 - 06:36

Excellent topic: Un projet concret, des échanges techniques, du travail et un excellent résultat....

Merci Julkien et Bravo.


Roboteer.



merci pour cette remarque ça fait toujour plaisir a lire :D

#18 julkien

julkien

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 029 messages
  • Gender:Male

Posté 17 février 2012 - 10:54

je vous mets les source a dispo quand meme pour celui qui veut ? http://dl.free.fr/g8Mi2VVzq

elle seront dispo juste un mois mais bon


vous l'aurez compris je pense que se seras la tete d'un future robot

une tete,, un eeePC, sans bras sur 3 roues se deplacant aleatoiremnet dans la piece capable de faire du slam (je parle de cartographie ;) )
et peut etre meme parler si j'arrive a reproduire mylene le chatterbot et puis surtout programer en Vb (hein Esprit toi qui aime bien ca :P) probablement un premiere en france

je recherche un nom d'ailleur (feminin, a cause de la voix) si vous avez des idees j'suis preneur

enfin bon j'y suis pas encore car il faut que je finissent ma cnc avant, histoire de faire de belle piece pour ce robot


A+

edit:


On ma fait remarqué que je n'avait pas preciser le format du fichier a telecharger (qui etait un zip)

on ouvre les Zip avec 7zip ou winrar ou meme windows

bref maintenant c'est fait

Modifié par julkien, 18 février 2012 - 04:36 .


#19 julkien

julkien

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 029 messages
  • Gender:Male

Posté 07 mars 2012 - 07:26

j'ai reussi a ameliorer la velocité de la Form

la partie recherche du visage a eté mis dans un BackgroundWorked et me revois juste la position du carré

j'utilise ensuite un des timer pour pour affiché le tracé

bref le calcul est toujour aussi long mais l'affichage de la Cam est plus fluide



A oui je me suis acheter des moteur (visseuse) je vais pouvoir le faire bouger mais c'est le cadre d'un autre sujet ;)

#20 seb03000

seb03000

    Pilier du forum

  • Membres
  • PipPipPipPipPip
  • 1 192 messages
  • Gender:Male
  • Location:Loins dérrière toi.
  • Interests:La Robotique , plus l'informatique

Posté 26 mai 2012 - 12:47

Salut julkien , alors sans n'est ou ton projet , esque ça avance , ya t'il quelque chose qui a évoluer.



Répondre à ce sujet



  


0 utilisateur(s) li(sen)t ce sujet

0 members, 0 guests, 0 anonymous users