Member 11830196 Ответов: 0

Используя ЭМГУ резюме, как тренируются мои программы, чтобы быть в состоянии распознавать лица


Привет замечательные члены этой группы

я новичок в распознавании и распознавании лиц. Я хочу разработать систему школьного образования. пока что мне удалось написать код, который обнаруживает лицо, захватывает его и сохраняет в папке. но я понятия не имею, как вернуть его обратно и провести сравнение. ниже приведен мой код, который обнаруживает, захватывает и сохраняет лицо в папке. спасибо за Вашу поддержку.



Imports Emgu.CV
Imports Emgu.CV.Util
Imports Emgu.CV.Structure
Imports System.IO

Public Class FaceDetection
    Dim capturez As Capture = New Capture

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim imagez As Image(Of Bgr, Byte) = capturez.QueryFrame
        Dim faceDetector As New HaarCascade("C:\Users\USER\Documents\Visual Studio 2010\Projects\WindowsApplication1\WindowsApplication1\bin\Debug\haarcascade_frontalface_default.xml")
        Dim imgGray As Image(Of Gray, Byte) = imagez.Convert(Of Gray, Byte)()
        For Each face As MCvAvgComp In faceDetector.Detect(imgGray, 1.1, 10, CvEnum.HAAR_DETECTION_TYPE.DO_CANNY_PRUNING, New Size(20, 20), Size.Empty)
            imagez.Draw(face.rect, New Bgr(Color.Blue), 1)


        Next
        PictureBox1.Image = imagez.ToBitmap()

       



    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click
        Dim number As String
        number = TextBox1.Text
        Dim strBasePath As String

        Dim strFileName As String
        strFileName = number + ".jpg"
        strBasePath = Application.StartupPath & "\Photos"
        If Directory.Exists(strBasePath) = False Then
            Call Directory.CreateDirectory(strBasePath)

        End If
        Call PictureBox1.Image.Save(strBasePath & "\" & strFileName, System.Drawing.Imaging.ImageFormat.Jpeg)
        MsgBox(number + " " + "has been captured successfully", MsgBoxStyle.Information)
    End Sub
End Class

Taylor Enoch

Я застрял там же. Просто не знаю, как сделать сравнение. Вы уже смогли это сделать?

0 Ответов