Burkert Type 8056 User Manual
Page 92

- 92 -
RS232_485_ETP_MODBUS_BU_REV02.doc
Threading.Thread.Sleep(200)
Loop
Catch
vObjExcept
As
Exception
vfStrErrorString =
"Form name: "
&
Me
.Name & vbCrLf & _
""
& vbCrLf & _
"Error source: "
& vObjExcept.Source & vbCrLf & _
""
& vbCrLf & _
"Error StackTrace: "
& vObjExcept.StackTrace & vbCrLf & _
""
& vbCrLf & _
"Error Message: "
& vObjExcept.Message
MsgBox(vfStrErrorString, MsgBoxStyle.OkOnly + MsgBoxStyle.Critical,
Me
.Text)
Return
End
Try
End
Sub
Function
fBolCalcCRC(
ByVal
vStrString
As
String
,
ByRef
vStrCRC
As
String
)
As
Boolean
Dim
vIntCrcHigh
As
Integer
Dim
vIntCrcLow
As
Integer
Dim
vIntN
As
Integer
Dim
vByteA
As
Byte
Try
vIntCrcLow = &HFF
vIntCrcHigh = &HFF
For
vIntN = 1
To
Len(vStrString)
vByteA = Asc(Mid(vStrString, vIntN, 1))
vByteA = vByteA
Xor
vIntCrcLow
vIntCrcLow = afIntChkHigh(vByteA)
Xor
vIntCrcHigh
vIntCrcHigh = afIntChkLow(vByteA)
Next
vStrCRC = Chr(vIntCrcLow) & Chr(vIntCrcHigh)
Return
True
Catch
vObjExcept
As
Exception
vfStrErrorString =
"Form name: "
&
Me
.Name & vbCrLf & _
""
& vbCrLf & _
"Error source: "
& vObjExcept.Source & vbCrLf & _
""
& vbCrLf & _
"Error StackTrace: "
& vObjExcept.StackTrace & vbCrLf & _
""
& vbCrLf & _
"Error Message: "
& vObjExcept.Message