Atlas Copco PowerMACS 4000, Руководство пользователя

Страница: 592 / 668

Peripheral Devices
592 9836 3521 01
Reading cycle data from the target system
This example assumes that there is a label where you can put the cycle data result if there is one.
Normally you would loop and save the cycle data to disc or showing them continuously. Here we just do
one call to see if there are any cycle data waiting for us.
Private Sub cmdGetCd_Click()
'
' Abstract: Get cycle data from API-server and display it
'
On Error GoTo ErrorHandler
Dim Size As Long
Dim Ret As RetCodeEnum
Dim Buf As String
Size = 10000
Ret = mPowApi.GetCycleData(Buf, Size)
If Ret = eRetOk Then
lblResult = Buf
ElseIf Ret <> eRetNoData Then
MsgBox "GetCycleData returned: " & Ret
End if
Exit Sub
ErrorHandler:
libCleanTerminate "cmdGetCd_Click"
Stop
Resume
End Sub