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... |
No edit summary |
||
| Line 1: | Line 1: | ||
This Example requires [[Version_History#Emgu.CV-1.4.0.0|Emgu CV 1.4.0.0]]. | |||
<source lang=vb> | <source lang=vb> | ||
Imports Emgu.CV | Imports Emgu.CV | ||
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 rect As Rectangle(Of Double) In imgGray.DetectHaarCascade(objectToDetect)(0) | |||
img.Draw(rect, New Bgr( | img.Draw(rect, New Bgr(Color.White), 1) | ||
Next | Next | ||
'Show the image | |||
UI.ImageViewer.Show(img) | |||
End Sub | End Sub | ||
Revision as of 21:57, 22 November 2008
This Example requires Emgu CV 1.4.0.0.
Imports Emgu.CV
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 rect As Rectangle(Of Double) In imgGray.DetectHaarCascade(objectToDetect)(0)
img.Draw(rect, New Bgr(Color.White), 1)
Next
'Show the image
UI.ImageViewer.Show(img)
End Sub
End Module