Face Detection in VB.NET: Difference between revisions

From EMGU
Jump to navigation Jump to search
No edit summary
No edit summary
Line 3: Line 3:
<source lang=vb>
<source lang=vb>
Imports Emgu.CV
Imports Emgu.CV
Imports Emgu.CV.Structure
Imports Emgu.Util
Imports Emgu.Util
Imports System.Windows.Forms
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing


Module Module1
Module Module1
Line 19: Line 21:
       Dim imgGray As Image(Of Gray, Byte) = img.Convert(Of Gray, Byte)()
       Dim imgGray As Image(Of Gray, Byte) = img.Convert(Of Gray, Byte)()


       For Each rect As Rectangle(Of Double) In imgGray.DetectHaarCascade(objectToDetect)(0)
       For Each face As MCvAvgComp In imgGray.DetectHaarCascade(objectToDetect)(0)
         img.Draw(rect, New Bgr(Color.White), 1)
         img.Draw(face.rect, New Bgr(Color.White), 1)
       Next
       Next



Revision as of 03:45, 25 February 2009

This Example requires Emgu CV 1.4.0.0.

Imports Emgu.CV
Imports Emgu.CV.Structure
Imports Emgu.Util
Imports System.Windows.Forms
Imports System.Drawing


Module Module1

   Sub Main()
      'Load the image from file
      Dim img As New Image(Of Bgr, Byte)("lena.jpg")

      'Load the object detector
      Dim objectToDetect As New HaarCascade("haarcascade_frontalface_alt2.xml")

      'Convert the image to Grayscale
      Dim imgGray As Image(Of Gray, Byte) = img.Convert(Of Gray, Byte)()

      For Each face As MCvAvgComp In imgGray.DetectHaarCascade(objectToDetect)(0)
         img.Draw(face.rect, New Bgr(Color.White), 1)
      Next

      'Show the image
      UI.ImageViewer.Show(img)

   End Sub

End Module
Face Detection using VB.NET