Burkert Type 8056 - Manual (Page 95)

- 95 - RS232_485_ETP_MODBUS_BU_REV02.doc
afByteTemp(2) = afByteReceveBuffer(20)
afByteTemp(3) = afByteReceveBuffer(19)
vLngTemp = BitConverter.ToUInt32(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text &
"Totalizer for total volume negative T- (E+ for ML211) = "
& vLngTemp & vbCrLf
'Totalizer for partial volume negative P- (E- for ML211)
afByteTemp(0) = afByteReceveBuffer(26)
afByteTemp(1) = afByteReceveBuffer(25)
afByteTemp(2) = afByteReceveBuffer(24)
afByteTemp(3) = afByteReceveBuffer(23)
vLngTemp = BitConverter.ToUInt32(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text &
"Totalizer for partial volume negative P- (E- for ML211) =
" & vLngTemp & vbCrLf
'Clock value in seconds
afByteTemp(0) = afByteReceveBuffer(30)
afByteTemp(1) = afByteReceveBuffer(29)
afByteTemp(2) = afByteReceveBuffer(28)
afByteTemp(3) = afByteReceveBuffer(27)
vLngTemp = BitConverter.ToUInt32(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text &
"Clock value in seconds = " & vLngTemp & vbCrLf
'Input value AIN1 in technical unit (opt.)
afByteTemp(0) = afByteReceveBuffer(34)
afByteTemp(1) = afByteReceveBuffer(33)
afByteTemp(2) = afByteReceveBuffer(32)
afByteTemp(3) = afByteReceveBuffer(31)
vLngTemp = BitConverter.ToSingle(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text &
"Input value AIN1 in technical unit (opt.) = " & vLngTemp
& vbCrLf
'Input value AIN2 in technical unit (opt.)
afByteTemp(0) = afByteReceveBuffer(38)
afByteTemp(1) = afByteReceveBuffer(37)
afByteTemp(2) = afByteReceveBuffer(36)
afByteTemp(3) = afByteReceveBuffer(35)
vLngTemp = BitConverter.ToSingle(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text &
"Input value AIN2 in technical unit (opt.) = " & vLngTemp
& vbCrLf
'Thermal power value in % (ML211)
afByteTemp(0) = afByteReceveBuffer(42)
afByteTemp(1) = afByteReceveBuffer(41)
afByteTemp(2) = afByteReceveBuffer(40)
afByteTemp(3) = afByteReceveBuffer(39)
vLngTemp = BitConverter.ToSingle(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text & "Thermal power value in % (ML211) = " & vLngTemp &
vbCrLf
'Thermal power value in technical unit (ML211)
afByteTemp(0) = afByteReceveBuffer(46)
afByteTemp(1) = afByteReceveBuffer(45)
afByteTemp(2) = afByteReceveBuffer(44)
afByteTemp(3) = afByteReceveBuffer(43)
vLngTemp = BitConverter.ToSingle(afByteTemp, 0)