Burkert Type 8056 - Manual (Page 98)

- 98 - RS232_485_ETP_MODBUS_BU_REV02.doc
End If
If (afByteReceveBuffer(71) And &H20) = &H20 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = batch in progress" & vbCrLf
End If
If (afByteReceveBuffer(71) And &H40) = &H40 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = calibration cicle in progress" & vbCrLf
End If
If (afByteReceveBuffer(71) And &H80) = &H80 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = flow rate simulation in progress" &
vbCrLf
End If
'Flags ML 211
If (afByteReceveBuffer(74) And &H2) = &H2 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = input error AIN1" & vbCrLf
End If
If (afByteReceveBuffer(74) And &H4) = &H4 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = input error AIN2" & vbCrLf
End If
'Flags ML 211
If (afByteReceveBuffer(76) And &H1) = &H1 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = max alarm thermal power" & vbCrLf
End If
If (afByteReceveBuffer(76) And &H2) = &H2 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = min alarm thermal power" & vbCrLf
End If
If (afByteReceveBuffer(76) And &H4) = &H4 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = max alarm delta T" & vbCrLf
End If
If (afByteReceveBuffer(76) And &H8) = &H8 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = min alarm delta T" & vbCrLf
End If
If (afByteReceveBuffer(76) And &H10) = &H10 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = max alarm temp. T1" & vbCrLf
End If
If (afByteReceveBuffer(76) And &H20) = &H20 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = min alarm temp. T1" & vbCrLf
End If
If (afByteReceveBuffer(76) And &H40) = &H40 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = max alarm temp. T2" & vbCrLf
End If