Visual Basic人脸识别和使用识别（Emgu CV和Open CV） [英] Visual Basic face recognition and using recognition (Emgu CV and Open CV)

问题描述

我正在尝试编写一个程序。这将是一个问题。如何打印名称并保存面部？

我制作了程序代码。

Hi , I'm trying to write a program.Will be a question.How do I print the name and save face?
I made the program codes.

Dim cekim As Capture = New Capture


   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Dim resim As Image(Of Bgr, Byte) = cekim.QueryFrame()
       Dim yuztanima As New HaarCascade("C:\haarcascade_frontalface_default.xml")
       Dim negatif As Image(Of Gray, Byte) = resim.Convert(Of Gray, Byte)()
       For Each yuz As MCvAvgComp In yuztanima.Detect(negatif, 1.1, 10, CvEnum.HAAR_DETECTION_TYPE.DO_CANNY_PRUNING, New Size(20, 20), Size.Empty)
           resim.Draw(yuz.rect, New Bgr(Color.White), 1)
       Next
       PictureBox1.Image = resim.ToBitmap()

   End Sub




   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim resim As Image(Of Bgr, Byte) = cekim.QueryFrame()
       Dim yuztanima As New HaarCascade("C:\haarcascade_frontalface_default.xml")
       Dim negatif As Image(Of Gray, Byte) = resim.Convert(Of Gray, Byte)()
       For Each yuz As MCvAvgComp In yuztanima.Detect(negatif, 1.1, 10, CvEnum.HAAR_DETECTION_TYPE.DO_CANNY_PRUNING, New Size(20, 20), Size.Empty)
           resim.Draw(yuz.rect, New Bgr(Color.White), 1)
       Next
       PictureBox1.Image = resim.ToBitmap

   End Sub

推荐答案

这篇关于Visual Basic人脸识别和使用识别（Emgu CV和Open CV）的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！