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