Atlas Copco PowerMACS 4000, User Manual

Page: 593 / 668

Peripheral Devices
9836 3521 01 593
Receiving cycle data from the target system using subscription
This example assumes that there is a label where you can put the cycle data result if there is one.
Note! The API object should have been declared
With Events
.
Private Sub mPowApi_RecNewCd(Station As Integer, Id As Long)
'
' Abstract: New Cycle data notification received from the API
'
On Error GoTo ErrorHandler
Dim Size As Long
Dim Ret As RetCodeEnum
Dim Buf As String
Size = 10000
Ret = mPowApi.GetCycleDatabyId(Buf, Size, Id)
If Ret = eRetOk Then
lblResult = Buf ' Take care of cycle data
ElseIf Ret <> eRetNoData Then
MsgBox "GetCycleData returned: " & Ret ' Something wrong
End if
Exit Sub
ErrorHandler:
libCleanTerminate "mPowApi_RecNewCd"
Stop
Resume
End SubEnd Sub