Jetter JVM-407B-HMI, Руководство пользователя

Страница: 245 / 300

Jetter AG 245
JVM-407B Programming
If ResConnSend < 0 Then
// Increment the error counter value
Inc(SendErrors);
End_If ;
// Timeout for completely transmitting the data packet
// to be set up
TimerStart(RecvTimer, RecvTimeOut * 5 );
// Initialize the counter for the received data
ReceiveCnt := 0 ;
// Repeat, until all expected data have been received
// Otherwise, retry until timeout
While ReceiveCnt < AmountToReceive
And Not TimerEnd(RecvTimer) Do
ResConnReceive := ConnectionReceiveData
( ConnHandle,
NotUsed,
NotUsed,
RecvBuf[ReceiveCnt],
SizeOf (RecvBuf),
RecvTimeOut );
If ResConnReceive > 0 Then
// A value has been received, increment the counter
ReceiveCnt := Rece ResConnReceive;
Else
// Error during reception
ResConnReceive := - 1 ;
// Increment the error counter value
Inc(RecvErrors);
// Exit the loop
Exit ;
End_If ;
End_While ;
If ResConnSend >= 0 And ResConnReceive >= 0 Then
// No error --> Counter OK to increment
Inc(CommCnt);
Delay(SendDelay);
Else
// Exit the loop
Exit ;
End_If ;
End_Loop ;
If ConnHandle > 0 Then
// Terminate the connection
ConnectionDelete(ConnHandle);