Led_Example.vb

Visual Basic example for using the Led device

Public Class Led_Example
    Public Shared Sub Led()
        Console.Clear()
        'acquire a new factory
        Dim pVIBSystem As VIB_NET.VIBSystem = New VIB_NET.VIBSystem()
 
        If pVIBSystem IsNot Nothing Then
            Try
                'open device: Led number 0
                Dim pLed As VIB_NET.Led = DirectCast(pVIBSystem.OpenDevice(VIB_NET.eDEVICE_TYPE.LED, 0), VIB_NET.Led)
 
                Console.WriteLine("I'm a " + pLed.GetType().ToString() + ".")
 
                If pLed IsNot Nothing Then
                    Try
                        'Set Led 1 ON and all other OFF
                        pLed.Set(2, 255)
                        'Set all Leds OFF
                        pLed.Set(0, 255)
                        'Set all available Leds Step by Step ON and OFF again
                        For i As UInt32 = 0 To pLed.NumberOfLEDs - 1 Step 1
                            pLed.SetLED(i, True)
                            System.Threading.Thread.Sleep(500)
                            pLed.SetLED(i, False)
                        Next
 
                        'Set Led mode for Led 0 to ON
                        pLed.SetMode(0, VIB_NET.Led.eLED_MODE.GEN0)
 
                        'Set Led mode for Led 2 to OFF
                        pLed.SetMode(2, VIB_NET.Led.eLED_MODE.GEN1)
 
                        'signal with 300 ms on and 1500 ms off
                        pLed.ConfigureGenerator(0, 1, 300, 0, 1500)
 
                        'two pulses(200 ms on, 100 ms off) 500 ms break time(LED off), two pulses ...
                        pLed.ConfigureGenerator(1, 2, 200, 100, 500)
                    Catch e As System.Exception
                        Console.WriteLine(e.Message)
                    Finally
                        'close device
                        pVIBSystem.CloseDevice(pLed)
                        pLed = 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