Planned Downtime

All Archaic Binary Services, Servers, and Websites will be unavailable for 30 minutes starting at 10:00 AM EST. We are updating the VM infrastructure.

Find the CRC of OBDII Packet VB6

Home/Code/Find the CRC of OBDII Packet VB6

Find the CRC of OBDII Packet VB6

Function FindCRC(Value)
   Dim val(5) As Byte
   value1 = Left(Value, 2)
   value2 = Mid(Value, 4, 2)
   value3 = Mid(Value, 7, 2)
   value4 = Mid(Value, 10, 2)
   value5 = Right(Value, 2)
   val(1) = "&H" & value1
   val(2) = "&H" & value2
   val(3) = "&H" & value3
   val(4) = "&H" & value4
   val(5) = "&H" & value5
   FindCRC = Hex(CalcCRC(val))
End Function

Function for VB6, (place it in a module) to find the CRC of incoming data on the BR-3 OBDII module.

By |June 19th, 2010|0 Comments

About the Author:

Systems Administrator and hardware hacker who hates social media and posts stuff on this site when he feels like it. That's really about it.

Leave A Comment