Burkert Type 8056 - Manual (Page 96)

- 96 - RS232_485_ETP_MODBUS_BU_REV02.doc
lblProcessData.Text = lblProcessData.Text & "Thermal power value in technical unit (ML211) = " &
vLngTemp & vbCrLf
'Delta T value in technical unit (ML211)
afByteTemp(0) = afByteReceveBuffer(50)
afByteTemp(1) = afByteReceveBuffer(49)
afByteTemp(2) = afByteReceveBuffer(48)
afByteTemp(3) = afByteReceveBuffer(47)
vLngTemp = BitConverter.ToSingle(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text &
"Delta T value in technical unit (ML211) = " & vLngTemp
& vbCrLf
'Temperature value T1 in technical unit (ML211)
afByteTemp(0) = afByteReceveBuffer(54)
afByteTemp(1) = afByteReceveBuffer(53)
afByteTemp(2) = afByteReceveBuffer(52)
afByteTemp(3) = afByteReceveBuffer(51)
vLngTemp = BitConverter.ToSingle(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text & "Temperature value T1 in technical unit (ML211) = " &
vLngTemp & vbCrLf
'Temperature value T2 in technical unit (ML211)
afByteTemp(0) = afByteReceveBuffer(58)
afByteTemp(1) = afByteReceveBuffer(57)
afByteTemp(2) = afByteReceveBuffer(56)
afByteTemp(3) = afByteReceveBuffer(55)
vLngTemp = BitConverter.ToSingle(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text &
"Temperature value T2 in technical unit (ML211) = " &
vLngTemp & vbCrLf
'Set-point value in % (ML212)
afByteTemp(0) = afByteReceveBuffer(62)
afByteTemp(1) = afByteReceveBuffer(61)
afByteTemp(2) = afByteReceveBuffer(60)
afByteTemp(3) = afByteReceveBuffer(59)
vLngTemp = BitConverter.ToSingle(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text &
"Set-point value in % (ML212) = " & vLngTemp & vbCrLf
'Output value in % (ML212)
afByteTemp(0) = afByteReceveBuffer(66)
afByteTemp(1) = afByteReceveBuffer(65)
afByteTemp(2) = afByteReceveBuffer(64)
afByteTemp(3) = afByteReceveBuffer(63)
vLngTemp = BitConverter.ToSingle(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text &
"Output value in % (ML212) = " & vLngTemp & vbCrLf
'Deviation value in % (ML212)
afByteTemp(0) = afByteReceveBuffer(70)
afByteTemp(1) = afByteReceveBuffer(69)
afByteTemp(2) = afByteReceveBuffer(68)
afByteTemp(3) = afByteReceveBuffer(67)
vLngTemp = BitConverter.ToSingle(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text & "Deviation value in % (ML212) = " & vLngTemp & vbCrLf
'Process flags
If (afByteReceveBuffer(72) And &H1) = &H1 Then