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