DigInOut_Example.vb

Visual Basic example for using the DigitalInput and DigitalOutput device

Public Class DigInOut_Example
    ' Connect all outputs with the inputs Out 0 to In 0 and so on
    Public Shared Sub DigitalInputOutput()
        Console.Clear()
        'acquire a new factory
        Dim pVIBSystem As VIB_NET.VIBSystem = New VIB_NET.VIBSystem()
 
        If pVIBSystem IsNot Nothing Then
            Try
                ' Open digital input device 0
                Dim pDigitalInput As VIB_NET.DigitalInput = DirectCast(pVIBSystem.OpenDevice(VIB_NET.eDEVICE_TYPE.DIGITAL_INPUT, 0), VIB_NET.DigitalInput)
                ' Open digital output device 0
                Dim pDigitalOutput As VIB_NET.DigitalOutput = DirectCast(pVIBSystem.OpenDevice(VIB_NET.eDEVICE_TYPE.DIGITAL_OUTPUT, 0), VIB_NET.DigitalOutput)
 
                If (pDigitalInput IsNot Nothing) And (pDigitalOutput IsNot Nothing) Then
                    Try
                        ' Set the debounce time: edge high to low = 200 ns and edge low to high = 200 ns
                        pDigitalInput.ConfigureDebounceTime(200, 200)
                        ' Get the number of digital inputs and outputs
                        Dim NumberOfInputs As UInt32 = pDigitalInput.NumberOfInputs
                        Dim NumberOfOutputs As UInt32 = pDigitalOutput.NumberOfOutputs
                        Console.WriteLine(vbNewLine + "Number of digital outputs: " + NumberOfOutputs.ToString() + vbNewLine + "Number of digital inputs: " + NumberOfInputs.ToString())
 
                        ' Set state of digital outputs syncroniously
                        pDigitalOutput.Output = 255
                        ' Get state of digital inputs syncroniously
                        Console.WriteLine(vbNewLine + "Input state: " + pDigitalInput.Input.ToString())
                        System.Threading.Thread.Sleep(1000)
                        ' Get state of one digital input
                        Console.WriteLine(vbNewLine + "Input state Bit 0: " + pDigitalInput.GetBit(0).ToString())
                        ' Set state of one digital output
                        pDigitalOutput.SetBit(0, False)
                        Console.WriteLine(vbNewLine + "Input state Bit 0: " + pDigitalInput.GetBit(0).ToString())
 
                        ' Turn all digital outputs off
                        pDigitalOutput.Output = 0
 
                        ' Configure event filter to input 0 and 1 (2^0 + 2^1 = 3)
                        pDigitalInput.SensitivityMask = 3
 
                        ' Start waiting for input event with a timeout of 1 s
                        Try
                            Dim bWaitForInputEvent As Boolean = False
                            If (bWaitForInputEvent) Then
                                Console.WriteLine("Input Event, new Input State: " + pDigitalInput.WaitForInputEvent(1000).ToString())
                            End If
                        Catch e As System.Exception
                            Console.WriteLine("WaitForInputEvent: TimeOut")
                        End Try
 
                        ' Abort waiting for input event
                        pDigitalInput.AbortWaitingForInputEvent()
                    Catch e As System.Exception
                        Console.WriteLine(e.Message)
                    Finally
                        ' Close the digital output
                        If pDigitalOutput IsNot Nothing Then
                            pVIBSystem.CloseDevice(pDigitalOutput)
                            pDigitalOutput = Nothing
                        End If
                        ' Close the digital input
                        If pDigitalInput IsNot Nothing Then
                            pVIBSystem.CloseDevice(pDigitalInput)
                            pDigitalInput = Nothing
                        End If
                    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