Burkert Type 8056 User 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