Dim Data(6) As Byte
Data(0) = &H4D
Data(1) = &H1
Data(2) = &H0
Data(3) = &H0
Data(4) = &H4
Data(5) = &HD2
Data(6) = &H24
我的困難點就是在如何把16進制4位數例如例如hex04d2 分別拆成2組碼 如 h04一組 hd2一組 分別丟入
data(4)跟data(5)裡頭
Data(4) = &H4
Data(5) = &HD2
然後在作加總運算 chksum
Data(0)到Data(5)作16進制的加總運算在取末2碼放入
Data(6) = &H24
如
4DH + 01H + 00H +00H +04H +D2H = 0124H
就取(24) 2碼放入Data(6) =H24
*諾有2碼則Data(4) =填0,Data(5) = 填入此2碼
例如0012H Data(4) =H00 ,Data(5) = H12
Data(0) = &H4D
Data(1) = &H1
Data(2) = &H0
Data(3) = &H0
Data(4) = &H4
Data(5) = &HD2
Data(6) = &H24
我的困難點就是在如何把16進制4位數例如例如hex04d2 分別拆成2組碼 如 h04一組 hd2一組 分別丟入
data(4)跟data(5)裡頭
Data(4) = &H4
Data(5) = &HD2
然後在作加總運算 chksum
Data(0)到Data(5)作16進制的加總運算在取末2碼放入
Data(6) = &H24
如
4DH + 01H + 00H +00H +04H +D2H = 0124H
就取(24) 2碼放入Data(6) =H24
*諾有2碼則Data(4) =填0,Data(5) = 填入此2碼
例如0012H Data(4) =H00 ,Data(5) = H12
全站熱搜
留言列表