Rs422_Example.vb

Visual Basic example for using the RS422 device

 
Public Class Rs422_Example
 
    Public Shared Sub RsS422()
        Console.Clear()
        'acquire a new factory
        Dim pVIBSystem As VIB_NET.VIBSystem = New VIB_NET.VIBSystem()
 
        If (pVIBSystem IsNot Nothing) Then
            ' Open Rs422 device 0
            Try
                Dim pRs422 As VIB_NET.Rs422 = DirectCast(pVIBSystem.OpenDevice(VIB_NET.eDEVICE_TYPE.RS422, 0), VIB_NET.Rs422)
                If (pRs422 IsNot Nothing) Then
                    Try
                        ' Get type of Rs422
                        Console.WriteLine(pRs422.GetType().ToString())
 
                        ' Get number of inputs
                        Console.WriteLine("Number of inputs: " + pRs422.NumberOfInputs.ToString())
 
                        ' Get number of outputs
                        Console.WriteLine("Number of outputs: " + pRs422.NumberOfOutputs.ToString())
 
                        ' Get state of all inputs
                        Console.WriteLine("Input state: " + pRs422.Input.ToString())
 
                        ' Get state of input 0
                        Console.WriteLine("State of bit 0: " + pRs422.GetBit(0).ToString())
 
                        ' Set output 1 and 2 simultaneously
                        pRs422.Output = 6
                        ' Set output 0
                        pRs422.SetBit(0, True)
 
                        ' Turn off all outputs
                        pRs422.Output = 0
                    Catch e As System.Exception
                        Console.WriteLine(e.Message)
                    Finally
                        ' Close the device
                        pVIBSystem.CloseDevice(pRs422)
                        pRs422 = 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...")
        Console.ReadLine()
    End Sub
End Class