Burkert Type 8056 User Manual
Page 94

- 94 -
RS232_485_ETP_MODBUS_BU_REV02.doc
For
vIntN = 0
To
vIntBytesToRead - 1
vStrRecevebuffer = vStrRecevebuffer & Chr(afByteReceveBuffer(vIntN))
Next
If
False
= fBolCalcCRC(Mid(vStrRecevebuffer, 1, vIntBytesToRead - 2), vfStrCrc)
Then
Return
End
If
If
vfStrCrc <> (Chr(afByteReceveBuffer(79)) & Chr(afByteReceveBuffer(80)))
Then
TextBox2.Text =
"Bad data ---> Check sum error!"
Return
End
If
TextBox2.Text = TextBox2.Text & hex_view(bytes_to_string(afByteReceveBuffer, vIntBytesToRead)) &
vbCrLf
'Flow rate in %
afByteTemp(0) = afByteReceveBuffer(6)
afByteTemp(1) = afByteReceveBuffer(5)
afByteTemp(2) = afByteReceveBuffer(4)
afByteTemp(3) = afByteReceveBuffer(3)
vDblTemp = BitConverter.ToSingle(afByteTemp, 0)
lblProcessData.Text =
"Flow rate in % = "
& Format(vDblTemp,
"###0.00"
) & vLngTemp & vbCrLf
'Flow rate in technical unit
afByteTemp(0) = afByteReceveBuffer(10)
afByteTemp(1) = afByteReceveBuffer(9)
afByteTemp(2) = afByteReceveBuffer(8)
afByteTemp(3) = afByteReceveBuffer(7)
vDblTemp = BitConverter.ToSingle(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text &
"Flow rate in technical unit = "
& Format(vDblTemp,
"###0.000"
) & vLngTemp & vbCrLf
'Totalizer for total volume positive T+ (V+ for ML211)
afByteTemp(0) = afByteReceveBuffer(14)
afByteTemp(1) = afByteReceveBuffer(13)
afByteTemp(2) = afByteReceveBuffer(12)
afByteTemp(3) = afByteReceveBuffer(11)
vLngTemp = BitConverter.ToUInt32(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text &
"Totalizer for total volume positive T+ (V+ for ML211) =
"
& vLngTemp & vbCrLf
'Totalizer for partial volume positive P+ (V- for ML211)
afByteTemp(0) = afByteReceveBuffer(18)
afByteTemp(1) = afByteReceveBuffer(17)
afByteTemp(2) = afByteReceveBuffer(16)
afByteTemp(3) = afByteReceveBuffer(15)
vLngTemp = BitConverter.ToUInt32(afByteTemp, 0)
lblProcessData.Text = lblProcessData.Text &
"Totalizer for partial volume positive P+ (V- for ML211) =
"
& vLngTemp & vbCrLf
'Totalizer for total volume negative T- (E+ for ML211)
afByteTemp(0) = afByteReceveBuffer(22)
afByteTemp(1) = afByteReceveBuffer(21)