Face Detection in VB.NET: Difference between revisions
Jump to navigation
Jump to search
New page: <source lang=vb> Imports Emgu.CV Imports Emgu.Util Imports System.Windows.Forms Module Module1 Sub Main() Dim img As New Image(Of Bgr, Byte)("lena.jpg") Dim imgGray As New... |
mNo edit summary |
||
| (2 intermediate revisions by the same user not shown) | |||
| Line 1: | Line 1: | ||
'''This example requires [[Version_History#Emgu.CV-1.5.0.0|Emgu CV 1.5.0.0]]''' | |||
<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 | |||
Module Module1 | Module Module1 | ||
Sub Main() | Sub Main() | ||
'Load the image from file | |||
Dim img As New Image(Of Bgr, Byte)("lena.jpg") | Dim img As New Image(Of Bgr, Byte)("lena.jpg") | ||
'Load the object detector | |||
Dim objectToDetect As New HaarCascade("haarcascade_frontalface_alt2.xml") | Dim objectToDetect As New HaarCascade("haarcascade_frontalface_alt2.xml") | ||
imgGray = img.Convert(Of Gray, Byte)() | '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(rect, New Bgr( | img.Draw(face.rect, New Bgr(Color.White), 1) | ||
Next | Next | ||
'Show the image | |||
UI.ImageViewer.Show(img) | |||
End Sub | End Sub | ||
Latest revision as of 03:45, 25 February 2009
This example requires Emgu CV 1.5.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