Atlas Copco PowerMACS 4000, User Manual

Page: 595 / 668

Peripheral Devices
9836 3521 01 595
Reading an Integer PLC value from the target system
This example assumes that there are textboxes for address and value.
Private Sub cmdSetBool_Click()
'
' Abstract: Get PLC Integer from API-server and display it
'
On Error GoTo ErrorHandler
Dim Ret As RetCodeEnum
Dim Address As Integer
Dim Value As Boolean
If Val(txtAddress) < 1 Or Val(txtAddress) > 999 Then
MsgBox "Address must be between 1 and 999"
txtAddress.SetFocus
Exit Sub
End If
Address = CInt(txtAddress)
Ret = mPowApi.GetPLCInt(Address, Value)
if Ret <> eRetOk Then
msgBox "GetPLCInt returned: " & Ret
else
txtValue = CStr(Value)
end if
Exit Sub
ErrorHandler:
MsgBox err.description
exit sub
End Sub