??? 02/08/07 19:15 Read: times |
#132318 - a variant.. Responding to: ???'s previous message |
Charles Bannister said:
chksum = ASC(MID$(NEMA$, 2, 1)) PRINT " 1. Hex Checksum value " + HEX$(chksum), "ASCII (HEX) NEMA DATA " + (MID$(NEMA$, 2, 1)), HEX$(ASC(MID$(NEMA$, 2, 1))) FOR x = 3 TO LEN(NEMA$) - 3 chksum = ASC(MID$(NEMA$, x, 1)) XOR chksum PRINT STR$(x) + ". Hex Checksum value " + HEX$(chksum), "ASCII (HEX) NEMA DATA " + (MID$(NEMA$, x, 1)), HEX$(ASC(MID$(NEMA$, x, 1))) NEXT x I probably would have written: chksum = 0 FOR x = 2 TO LEN(NEMA$) - 3 chksum = ASC(MID$(NEMA$, x, 1)) XOR chksum ..... makes it a bit more "generic" rgds |