Changes between Version 4 and Version 5 of S6350serialcom
- Timestamp:
- 10/27/08 11:38:55 (16 years ago)
Legend:
- Unmodified
- Added
- Removed
- Modified
-
S6350serialcom
v4 v5 51 51 ChrB(&h01) + ChrB(&h0D) + ChrB(&h00) + ChrB(&h00) + ChrB(&h00) + ChrB(&h00) + ChrB(&h60) + ChrB(&h11) + ChrB(&h27) + ChrB(&h01) + ChrB(&h00) + ChrB(&h5B) + ChrB(&hA4) 52 52 53 53 54 = Silence Tag = 54 55 … … 85 86 86 87 'Do a XOR of all the bytes of the string for byte 1 of the checksum 88 87 89 'Do not worry about xornumber having a zero initially, this does not impact the XOR operation 90 88 91 for i as Integer=1 to len(data) 89 92 xornumber1 = xornumber1 xor ascB(mid(data,i,1))