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