Burkert Type 8056 - Manual (Page 99)

- 99 - RS232_485_ETP_MODBUS_BU_REV02.doc
If (afByteReceveBuffer(76) And &H80) = &H80 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = min alarm temp. T2" & vbCrLf
End If
'Flags ML212
If (afByteReceveBuffer(78) And &H1) = &H1 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = command error actuator" & vbCrLf
End If
If (afByteReceveBuffer(78) And &H2) = &H2 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = deviation error" & vbCrLf
End If
If (afByteReceveBuffer(78) And &H4) = &H4 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = Input error AIN1" & vbCrLf
End If
If (afByteReceveBuffer(78) And &H8) = &H8 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = Input error AIN2" & vbCrLf
End If
If (afByteReceveBuffer(78) And &H10) = &H10 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = manual regulation active" & vbCrLf
End If
If (afByteReceveBuffer(78) And &H20) = &H20 Then
lblProcessData.Text = lblProcessData.Text & "Process flags = safety mode active" & vbCrLf
End If
End If
Catch vObjExcept As Exception
vfStrErrorString =
"Form name: " & Me .Name & vbCrLf & _
"" & vbCrLf & _
"Error source: " & vObjExcept.Source & vbCrLf & _
"" & vbCrLf & _
"Error StackTrace: " & vObjExcept.StackTrace & vbCrLf & _
"" & vbCrLf & _
"Error Message: " & vObjExcept.Message
MsgBox(vfStrErrorString, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical,
Me .Text)
Return
End Try
End Sub
End
Class