Specifications

5 - 19
'Execute the random read
lRet = ActEasyIF1.ReadDeviceRandom(szDeviceList, lSize, lData(0))
If lRet <> 0 Then
txtStatus.Text = _
"Error occurrence (Error code: " + Hex$(lRet) + ")" 'Display the error code at error
End If
'Display the bit devices (X0 to X7)
For j = 0 To 7
If lData(j) = 1 Then
lblON_OFF(j).Caption = "
" 'Display when turning ON
Else
lblON_OFF(j).Caption = "
" 'Display when turning OFF
End If
Next
'Display the word devices (D0 to D4)
For k = 0 To 4
lbl_Dvalue(k).Caption = lData(k + 8)
Next
End Sub