Click here to Skip to main content
15,882,464 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
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.

VB
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
Posted

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900