TVTuner Property

'Declaration
 
Public Overridable ReadOnly Property TVTuner As TVTuner

Public _result As Boolean = False
      Public _form As CaptureCtrlForm = New CaptureCtrlForm()
      Public Sub AnalogTVTunerExample()
         ' reference the forms capture control and tv tuner
         Dim capturectrl As CaptureCtrl = _form.CaptureCtrl

         Dim outFile As String = Path.Combine(LEAD_VARS.MediaDir, "TVTuner_AnalogTVTunerExample.avi")
         Dim testChan As Integer = 6
         Dim channel As Integer

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

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

            ' use the video capture device's audio
            capturectrl.UseVideoDeviceAudio = True

            ' get the TV Tuner device
            Dim tvtuner As TVTuner = capturectrl.TVTuner

            ' Check if TV tuner is valid
            If Not tvtuner Is Nothing Then
               ' set the input type to cable and set the channel
               tvtuner.SetInputType(0, TunerInputType.Cable)
               tvtuner.SetChannel(testChan, -1, -1)

               ' get the Video and Audio frequency
               Dim vidFreq As Integer = tvtuner.VideoFrequency
               Dim audFreq As Integer = tvtuner.AudioFrequency
            End If

            ' set the output file
            capturectrl.TargetFile = outFile

            ' set the video and audio compressors
            capturectrl.VideoCompressors.Mpeg2.Selected = True
            capturectrl.AudioCompressors.AC3.Selected = True

            ' check if we have can capture video
            If capturectrl.IsModeAvailable(CaptureMode.VideoAndAudio) Then
               ' set the target format
               capturectrl.TargetFormat = TargetFormatType.AVI

               capturectrl.TimeLimit = 10 ' just 10 seconds of capture time
               capturectrl.UseTimeLimit = True

               ' select the video subtype
               capturectrl.VideoCaptureSubTypes(Leadtools.Multimedia.Constants.MEDIASUBTYPE_YUY2).Selected = True

               ' start the capture
               capturectrl.StartCapture(CaptureMode.VideoAndAudio)

               ' 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

               ' if TV tuner is valid
               If Not tvtuner Is Nothing Then
                  ' check the channel
                  channel = tvtuner.Channel

                  ' and set the result to what we expect
                  _result = (channel = testChan)
               End If
            End If
         Catch e1 As Exception
            _result = False
         End Try
      End Sub

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