CamTrig_Example.vb

Visual Basic example for using the CameraTrigger device

 
Public Class CamTrig_Example
    Public Shared Sub CameraTrigger()
        Console.Clear()
        'acquire a new factory
        Dim pVIBSystem As VIB_NET.VIBSystem = New VIB_NET.VIBSystem()
 
        If pVIBSystem IsNot Nothing Then
        Try
            ' Open camera trigger device 0
                Dim pCameraTrigger As VIB_NET.CameraTrigger = DirectCast(pVIBSystem.OpenDevice(VIB_NET.eDEVICE_TYPE.CAMERA_TRIGGER, 0), VIB_NET.CameraTrigger)
 
            If (pCameraTrigger IsNot Nothing) Then
                Try
                    ' Show number of outputs of the camera trigger device
                        Console.WriteLine(vbNewLine + "Camera Trigger:" + vbNewLine + vbTab + "Number Of Outputs: " + pCameraTrigger.NumberOfOutputs.ToString())
 
                        ' Switch on all camera outputs 
                        pCameraTrigger.SetAll(VIB_NET.CameraTrigger.eTRG_SOURCE.ON, False, True, False, False)
                        System.Threading.Thread.Sleep(1000)
 
                        ' Switch off all camera outputs
                        pCameraTrigger.SetAll(VIB_NET.CameraTrigger.eTRG_SOURCE.OFF, False, True, False, False)
 
                        ' Switch on camera channel 0
                        pCameraTrigger.Set(0, VIB_NET.CameraTrigger.eTRG_SOURCE.ON, False, True, False, False)
                        System.Threading.Thread.Sleep(1000)
 
                        ' Switch off camera channel 0
                        pCameraTrigger.Set(0, VIB_NET.CameraTrigger.eTRG_SOURCE.OFF, False, True, False, False)
                    Catch e As System.Exception
                        Console.WriteLine(e.Message)
                    Finally
                        ' Close camera trigger device
                        pVIBSystem.CloseDevice(pCameraTrigger)
                        pCameraTrigger = Nothing
                    End Try
                End If
            Catch e As System.Exception
                Console.WriteLine(e.Message)
            Finally
                'release factory
                pVIBSystem = Nothing
            End Try
 
 
        End If
        Console.WriteLine(vbNewLine + "Press enter to proceed...")
        System.Console.ReadLine()
    End Sub
End Class