因為小豬學vb才沒多久...想請各位高手多多指點迷津..非常的感謝!!
因為我輸入的值是10進制當我轉換成16進制後
例如10進制1234=hex04d2 我如何拆成2碼 如 h04 hd2 分別丟入
data(4)跟data(5)裡頭在作加總運算
如果是10進制56=hex38 則在data(5)裡填入h38 data(4)則填0在加總運算取末2碼放到Data(6)

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
  
創作者介紹
創作者 vbqa 的頭像
vbqa

小吳 VBQA 程式設計討論

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


留言列表 (2)

發表留言
  • KM
  • 不太瞭解你的意思。。困難點在哪???
  • 小豬
  • 我的困難點就是在如何把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