Changes between Version 6 and Version 7 of S6350serialcom

Timestamp:

10/27/08 11:40:33 (16 years ago)

Author:

pinwc4

Comment:

--

S6350serialcom

@@ -53 +53 @@
 
 
+
 = Silence Tag =
 
@@ -81 +82 @@
 
 Here is an example of the code to do this:
-  
   dim checksum as string
-
   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 +93 @@
   'calculates byte 2 of the checksum
   xornumber2 = &hFF xor xornumber1
-  
   'put the two together for the complete checksum
   checksum = chrB(xornumber1) + chrB(xornumber2)