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

arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(4) 人氣()