RMCLink.ReadBit Method

Reads a single bit from an integer (L) register in the RMC. ReadBit is typically used to read the value of a status bit in the RMC.

Syntax

Visual Basic (Declaration)

Function ReadBit ( _

file As Long, _

element As Long, _

bit As Long _

) As Boolean

Visual Basic (Usage)

Dim instance As RMCLink

Dim file As Long

Dim element As Long

Dim bit As Long

Dim returnValue As Boolean

returnValue = instance.ReadBit(file, element, bit)

Parameters

file

File number of the register with the bit to be read. See the RMCLink Register Reference for details.

element

Element number of the register with the bit to be read. See the RMCLink Register Reference for details.

bit

Number of the bit (0-31) to read in the register. Bits are numbered from least to most significant.

Return Value

If the bit that was read was 1, then True is returned, otherwise False is returned.

Remarks

This method is synchronous, which means that it will not return until the read is completed, which may take several seconds. If this method is called on the main thread, then the application will likely be unresponsive until this method completes. For applications where this is not acceptable, this and other synchronous methods should be called from a worker thread, and may use the CancelRequest method to cancel an in progress request.

Exceptions

Error Code	Description
rmcEOutOfMemory = 5	Out of memory.
rmcEInvalidArg = 7	One of the file, element, or bit parameters are out of range.
rmcEDisconnecting = 1002	Link is being disconnected by another thread.
rmcEDisconnected = 1005	The link has not been connected.
rmcESocketInternal = 1008	Internal socket error.
rmcECancelled = 1010	Operation cancelled by call to CancelRequest.
rmcETimeout = 1011	Operation timed out.
rmcESocketGracefullyClosed = 1014	TCP/IP connection closed by remote device.
rmcESocketReadError = 1015	Connection error while waiting for response from the remote device.
rmcESocketInvReadLen = 1016	Connection error while waiting for response from the remote device.
rmcESocketWriteError = 1017	Connection error while sending request to the remote device.
rmcESocketInvWriteLen = 1018	Connection error while sending request to the remote device.
rmcESerialIOE = 1021	Serial IOE error.
rmcESerialFramingError = 1022	Serial framing error.
rmcESerialBreak = 1023	Serial Break error.
rmcESerialOverrun = 1024	Serial overrun.
rmcESerialRxOverrun = 1025	Serial receive overrun.
rmcESerialParityError = 1026	Serial parity error.
rmcESerialTxFull = 1027	Serial transmitter full.
rmcEConnectionBroken = 1028	Connection broken.
rmcEPartialWrite = 1029	Unable to send full request to the remote device.
rmcEBadAddress = 1032	Attempt to read beyond the end of a file.
rmcEUSBInternal1 = 1051	Internal USB driver error.
rmcEUSBOperationAborted = 1053	Unsuccessful transfer of data between the PC and the controller. Ensure that the physical connection between the PC and controller is still intact.
rmcEUSBDisconnected = 1054	The controller appears to have been disconnected from the USB port. Ensure that the physical connection between the PC and controller is still intact.

Example

The following code example illustrates the use of the ReadBit method.

Visual Basic 6 / VBA

Option Explicit
 
Public Sub Sample()
    ' Declare and create the RMCLinkServer COM object.
    Dim srv As New RMCLinkServer
 
    ' Use our RMCLinkServer to create the correct type of RMCLink object.
    Dim rmc As RMCLink
    Set rmc = srv.CreateEthernetLink(dtRMC70, "192.168.0.22")
 
    ' Establish the connection.
    rmc.Connect
 
    ' Read bit 0 of L8:0 (Axis 0 In Position)
    Dim Value As Boolean
    Value = rmc.ReadBit(fn70StatusAxis0, 0, 0)
    resultText = "In Position? " & Value
 
    ' Close the connection.
    rmc.Disconnect
End Sub

VBScript

Option Explicit
Dim srv, rmc, value
 
' First we need to create the RMCLinkServer COM object.
Set srv = CreateObject("RMCLink.RMCLinkServer")
 
' Use our RMCLinkServer to create the correct type of RMCLink object.
' NOTE: VBScript does not support enumerations, so we use the literal value (dtRMC70=2).
Set rmc = srv.CreateEthernetLink(2, "192.168.0.22")
 
' Establish the connection.
rmc.Connect
 
' Read bit 0 of L8:0 (Axis 0 In Position)
value = rmc.ReadBit(8,0,0)
WScript.Echo "In Position? " & value
 
' Close the connection.
rmc.Disconnect

JScript

// First we need to create the RMCLinkServer COM object.
var srv = new ActiveXObject("RMCLink.RMCLinkServer");
 
// Use our RMCLinkServer to create the correct type of RMCLink object.
// NOTE: JScript does not support enumerations, so we use the literal value (dtRMC70=2).
var rmc = srv.CreateEthernetLink(2, "192.168.0.22");
 
// Establish the connection.
rmc.Connect();
 
// Read bit 0 of L8:0 (Axis 0 In Position)
var value = rmc.ReadBit(8,0,0);
WScript.echo("In Position? " + value);
 
// Close the connection.
rmc.Disconnect();