Imports Emgu.CV
Imports Emgu.CV.Util
Imports Emgu.CV.Structure
 
Public Class Form1
 
Dim capturez As Capture = New Capture
 
Private Sub Timer1_Tick(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Timer1.Tick
 
Dim imagez1 As Image(Of Bgr,Byte) = capturez.RetrieveBgrFrame
Dim imagez2 As Image(Of Bgr,Byte) = imagez1.Dilate(3)
Dim imagez3 As Image(Of Bgr,Byte) = imagez1.Erode(3)
Dim imagez4 As Image(Of Bgr,Byte) = imagez1.Not()
Dim imagez5 As Image(Of Bgr,Byte) = imagez1.Rotate(45,New Bgr(0,0))
 
Dim imagez6 As Image(Of Gray,Byte) = capturez.RetrieveGrayFrame
Dim imagez7 As Image(Of Gray,Byte) = imagez6.Canny(New Gray(150),New Gray(60))
 
PictureBox1.Image = imagez1.ToBitmap
PictureBox2.Image = imagez2.ToBitmap
PictureBox3.Image = imagez3.ToBitmap
PictureBox4.Image = imagez4.ToBitmap
PictureBox5.Image = imagez5.ToBitmap
PictureBox6.Image = imagez7.ToBitmap
 
End Sub
End Class