Changes between Version 11 and Version 12 of S6350serialcom

Timestamp:

10/27/08 11:44:05 (16 years ago)

Author:

pinwc4

Comment:

--

S6350serialcom

@@ -58 +58 @@
 
 
+
 = Silence Tag =
 
@@ -90 +91 @@
   dim xornumber1 as integer
   dim xornumber2 as integer
+
   'Do a XOR of all the bytes of the string for byte 1 of the checksum
   'Do not worry about xornumber having a zero initially, this does not impact the XOR operation
+
   for i as Integer=1 to len(data)
     xornumber1 = xornumber1 xor ascB(mid(data,i,1))
@@ -98 +101 @@
   'calculates byte 2 of the checksum
   xornumber2 = &hFF xor xornumber1
+
   'put the two together for the complete checksum
   checksum = chrB(xornumber1) + chrB(xornumber2)