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