Strobe_Example.vb

Visual Basic example for using the Strobe device

 
Public Class Strobe_Example
    Public Shared Sub Strobe()
        Console.Clear()
        'acquire a new factory
        Dim pVIBSystem As VIB_NET.VIBSystem = New VIB_NET.VIBSystem()
        If (pVIBSystem IsNot Nothing) Then
            Try
                ' Open strobe device 0
                Dim pStrobe As VIB_NET.Strobe = DirectCast(pVIBSystem.OpenDevice(VIB_NET.eDEVICE_TYPE.STROBE, 0), VIB_NET.Strobe)
                Try
                    If (pStrobe IsNot Nothing) Then
                         ' Initialisation of the strobe unit
                        pStrobe.Init(True)
                        Console.WriteLine(vbNewLine + "Strobe initialised")
 
                        ' Set strobe limits
                        Console.WriteLine(vbNewLine + "Min Off Time: " + pStrobe.SetLimits(0, 24, 0, 1000, 0, 1000).ToString())
 
                        ' Get strobe values
                        Console.WriteLine(vbNewLine + "Max Current: " + pStrobe.MaxCurrent.ToString())
                        Console.WriteLine(vbNewLine + "Max On Time: " + pStrobe.MaxOnTime.ToString())
                        Console.WriteLine(vbNewLine + "Min Off Time: " + pStrobe.MinOffTime.ToString())
 
                        ' Get current
                        Console.WriteLine(vbNewLine + "Current: " + pStrobe.Current.ToString())
 
                        ' Get ON time
                        Console.WriteLine(vbNewLine + "On Time: " + pStrobe.OnTime.ToString())
 
                        ' Get trigger delay
                        Console.WriteLine(vbNewLine + "Trigger Delay: " + pStrobe.TriggerDelay.ToString())
 
                        ' Get trigger mode
                        Console.WriteLine(vbNewLine + "Trigger Mode: " + pStrobe.TriggerMode.ToString())
 
                        ' Get trigger source
                        Console.WriteLine(vbNewLine + "Trigger Source: " + pStrobe.TriggerSource.ToString())
 
                        ' Get trigger source invert
                        Console.WriteLine(vbNewLine + "Trigger Source Invert: " + pStrobe.TriggerSourceInvert.ToString())
 
                        ' Get trigger voltage
                        Console.WriteLine(vbNewLine + "Trigger Voltage: " + pStrobe.Voltage.ToString())
 
                        ' Set current to 1000 mA without validation
                        pStrobe.Validate = False
                        pStrobe.Current = 1000
 
                        ' Set current to 1000 mA  with validation
                        pStrobe.Validate = True
                        pStrobe.Current = 1000
 
                        ' Set ON time to 1 ms
                        pStrobe.OnTime = 1000
 
                        ' Set trigger delay
                        pStrobe.TriggerDelay = 10
 
                        ' Set trigger mode
                        ' Pay attention to set the trigger mode to HARDWARE before you set the trigger source and the trigger source invert
                        pStrobe.TriggerMode = VIB_NET.Strobe.eSTROBE_MODE.HARDWARE_EDGE
 
                        ' Get new trigger mode
                        Console.WriteLine(vbNewLine + "New Trigger Mode: " + pStrobe.TriggerMode.ToString())
 
                        ' Set trigger source
                        ' Decide if it is a AGEX Type 1-6 or 7 - 12
                        Dim pService As VIB_NET.Service = DirectCast(pVIBSystem.OpenDevice(VIB_NET.eDEVICE_TYPE.SERVICE, 0), VIB_NET.Service)
                        If pService IsNot Nothing Then
                            If (pService.SerialNumber.Substring(8, 1) = "1") Then            ' for AGE-X Type 7-12
                                Dim pMultiplexer As VIB_NET.Multiplexer = DirectCast(pVIBSystem.OpenDevice(VIB_NET.eDEVICE_TYPE.MULTIPLEXER, 0), VIB_NET.Multiplexer)
                                ' Connect multiplexer output 3 with digital input 0
                                pMultiplexer.ConnectOutput(0, VIB_NET.Multiplexer.eMUX_SOURCE.DIG_IN0)         ' DigIn0 > Mux0
                                pStrobe.TriggerSource = VIB_NET.Strobe.eSTROBE_SOURCE.MUX_OUT0                  ' For AGEX Type 8, 9, 10 and 12
                                If (pMultiplexer IsNot Nothing) Then
                                    pVIBSystem.CloseDevice(pMultiplexer)
                                    pMultiplexer = Nothing
                                End If
                            Else
                                pStrobe.TriggerSource = VIB_NET.Strobe.eSTROBE_SOURCE.DIG_IN0                   ' For AGEX Type 1-6
                            End If
                            pVIBSystem.CloseDevice(pService)
                            pService = Nothing
                        End If
 
 
                        ' Set trigger source invert
                        pStrobe.TriggerSourceInvert = False
 
                        ' Get new values:
                        Console.WriteLine(vbNewLine + vbNewLine + "New Values: ")
                        Console.WriteLine(vbNewLine + "Current: " + pStrobe.Current.ToString())
                        Console.WriteLine(vbNewLine + "On Time: " + pStrobe.OnTime.ToString())
                        Console.WriteLine(vbNewLine + "Trigger Delay: " + pStrobe.TriggerDelay.ToString())
                        Console.WriteLine(vbNewLine + "Trigger Mode: " + pStrobe.TriggerMode.ToString())
                        Console.WriteLine(vbNewLine + "Trigger Source: " + pStrobe.TriggerSource.ToString())
                        Console.WriteLine(vbNewLine + "Trigger Source Invert: " + pStrobe.TriggerSourceInvert.ToString())
                        Console.WriteLine(vbNewLine + "Trigger Voltage: " + pStrobe.Voltage.ToString())
 
                        ' Trigger the strobe by Software
                        pStrobe.TriggerMode = VIB_NET.Strobe.eSTROBE_MODE.SOFTWARE_EDGE
                        Console.WriteLine(vbNewLine + "New Trigger Mode: " + pStrobe.TriggerMode.ToString())
                        pStrobe.SwTrigger = True
                        Console.WriteLine(vbNewLine + "Software Trigger")
                        pStrobe.SwTrigger = False
                        pStrobe.TriggerMode = VIB_NET.Strobe.eSTROBE_MODE.HARDWARE_EDGE
                        Console.WriteLine(vbNewLine + "New Trigger Mode: " + pStrobe.TriggerMode.ToString())
                    End If
                Catch e As System.Exception
                    Console.WriteLine(e.Message)
                Finally
                    ' Close device
                    pVIBSystem.CloseDevice(pStrobe)
                    pStrobe = Nothing
                End Try
            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