Sharpness Property

'Declaration
 
Public Property Sharpness As Integer

Public _result As Boolean = False
      Public _form As CaptureCtrlForm = New CaptureCtrlForm()
      Public _videoprocamp As VideoProcAmp
      Public _outFile As String = Path.Combine(LEAD_VARS.MediaDir, "VideoProcAmp_SetAutoValueExample.avi")
      ' this example demonstrates how to set an auto value on the
      ' video proc amp object.

      Public Sub SetManualValueExample()
         ' reference the capture control
         Dim capturectrl As CaptureCtrl = _form.CaptureCtrl

         Try
            ' select the first device with analog in it's name
            ' Replace "Analog" with your video capture device name
            If capturectrl.VideoDevices("Logitech") Is Nothing Then
               Throw New Exception("No Logitech video devices available!")
            End If

            capturectrl.VideoDevices("Logitech").Selected = True

            ' set a video compressor
            capturectrl.VideoCompressors.Mpeg2.Selected = True

            ' set the target file
            capturectrl.TargetFile = _outFile

            ' reference the video proc amp
            _videoprocamp = capturectrl.VideoProcAmp

            ' try to set the auto value
            If Not _videoprocamp Is Nothing Then
               ' set the saturation to the maximum supported value
               _videoprocamp.Saturation = _videoprocamp.SaturationInfo.Max

               ' set the sharpness to the minimum value
               _videoprocamp.Sharpness = _videoprocamp.SharpnessInfo.Min

               ' set the white balace to the maximum value
               _videoprocamp.WhiteBalance = _videoprocamp.WhiteBalanceInfo.Max

               ' set the hue to the minimum value
               ' later in the timer we will bump this value using the stepDelta
               _videoprocamp.Hue = _videoprocamp.HueInfo.Min

               ' subscribe to the capture progress event 
               ' so we can play with the hue setting above
               AddHandler capturectrl.Progress, AddressOf CaptureCtrl_Progress
            End If

            ' check for video capture available
            If capturectrl.IsModeAvailable(CaptureMode.Video) Then
               ' capture 15 seconds of video
               capturectrl.UseTimeLimit = True
               capturectrl.TimeLimit = 15

               ' subscribe to the compete event
               AddHandler capturectrl.Complete, AddressOf CaptureCtrl_Complete
               ' start the capture
               capturectrl.StartCapture(CaptureMode.Video)
            End If
         Catch e1 As Exception
            _result = False
         End Try

         ' we'll loop on the state and pump messages for this example.
         ' but you should not need to if running from a Windows Forms application.
         Do While capturectrl.State = CaptureState.Running
            Application.DoEvents()
         Loop
      End Sub

      Private Sub CaptureCtrl_Progress(ByVal sender As Object, ByVal e As ProgressEventArgs)
         If Not _videoprocamp Is Nothing Then
            ' roll the hue value around while capturing
            _videoprocamp.Hue += _videoprocamp.HueInfo.StepDelta

            ' reset it to the minimum if we reach the max
            If _videoprocamp.Hue >= _videoprocamp.HueInfo.Max Then
               _videoprocamp.Hue = _videoprocamp.HueInfo.Min
            End If
         End If
      End Sub

      Private Sub CaptureCtrl_Complete(ByVal sender As Object, ByVal e As EventArgs)
         ' set the result to what we expect
         _result = File.Exists(_outFile)
      End Sub

Public NotInheritable Class LEAD_VARS
   Public Const MediaDir As String = "C:\Program Files (x86)\LEAD Technologies\LEADTOOLS 175\Media";
End Class