VBAでCRC-16実現させたい。

Question

PythonでCRC-16のサンプルプログラムがありましたので
VBAでコンバートさせました。しかしながら以下のエラーが発生いたします。
「For Eachは、コレクションオブジェクトまたは配列でのみ繰り返しを実行します。」
また、"\x01\x04\x00\x00\x00\x01"を1バイトずつ取得したいのですが
inputdataには、10進数の値が入ります。(1310721)
どこを改善すればよろしいでしょうか
crc = &HFFFFも失敗
crcがbyte型なので16bitの初期化ができないし

# -*- coding: utf-8 -*-

# エラーチェック以外のクエリ
command = b"\x01\x04\x00\x00\x00\x01"

# 最初のCRCレジスタ値をFFFFhに設定
crc_registor = 0xFFFF
for data_byte in command:
    # CRCレジスタとデータバイトのXOR
    tmp = crc_registor ^ data_byte
    # シフト回数を記憶
    shift_num = 0
    # シフトが 8回になるまで繰り返す
    while(shift_num < 8):
        if(tmp&1 == 1): # 桁あふれが1なら
            tmp = tmp >> 1
            shift_num += 1
            tmp = 0xA001 ^ tmp
        else:
            tmp = tmp >> 1
            shift_num += 1
    # 計算結果をcrc_registorにセット
    crc_registor = tmp
# 計算結果をbytes型へ変換
crc = crc_registor.to_bytes(2, 'big')

# 結果を表示
print(crc)

'CRC16計算
Private Sub CommandButton1_Click()
    Dim anser As Byte
    Dim inputdata As Long
    
    'b"\x01\x04\x00\x00\x00\x01"
    inputdata = &H140001
    anser = CRC16_Calculate(inputdata)
    
End Sub


'CRC-16
Public Function CRC16_Calculate(ByVal str As Long) As Byte
  Dim crc As Byte
  Dim i As Integer
  Dim DecByte As Byte
  Dim tmp As Byte
  
  crc = &HFFFF
  ibm16 = &HA001
  
  For Each cel In str
      DecByte = cel.Value
      tmp = crc Xor DecByte
      
      For i = 1 To 8
          '1ビット目の比較
          If ((tmp And &H1) = 1) Then
              '右に１bitシフト
              tmp = tmp \ (2 ^ 1)
              i = i + 1
              tmp = ibm16 Xor tmp
          Else
              tmp = tmp \ (2 ^ 1)
              i = i + 1
          End If
          
      Next
      CRC16_Calculate = tmp
  Next
  
End Function

リンク内容

リンク内容

Comments

[meg_]

「全く動きません」とはどういう状態ですか？

[pokemonta]

まず、Set inputdata = &H140001で
「オブジェクトが必要です」。setを定義しているのに
また、&H140001をForで1byteずつ取得する方法もわかりません。

[meg_]

エラーが出ているのであれば、コードのどの箇所でどのようなエラーが出ているのかを質問に追記してください。この欄に書いても見る人は少ないので。

[sazi]

色々と問題があります。先ずはコンパイルエラー取らないと話になりません。

Answer 1

【追記】一部実装してみました。

command = b"\x01\x04\x00\x00\x00\x01"
crc_registor = 0xFFFF

for data_byte in command:
    tmp = crc_registor ^ data_byte

command = &H140001
crc_registor = &HFFFF&

For i = 1 To Len(Hex(command))
    data_byte = Val("&H" & Mid(Hex(command), i, 1) & "&")
    tmp = crc Xor data_byte
Next i

---

inputdataに値を格納する際にSetは不要です。
質問のコードではinputdataByte型の変数なので、格納できるのは0～255の範囲の単精度の正の数値となります。そのためinputdata = &H140001はオーバーフローします。

---

"\x01\x04\x00\x00\x00\x01"を1バイトずつ

配列にしてはどうでしょうか？

Dim a(6) As Byte
    
a(1) = 1
a(2) = 4
a(3) = 0
a(4) = 0
a(5) = 0
a(6) = 1

Comments

[pokemonta]

ご指摘の通り、オーバフロー発生していました。そこに気がつきませんでした。

[pokemonta]

pythonだと以下の構文を書けましたが、VBAだと連続する16進数の表現方法がわかりません。
b"\x01\x04\x00\x00\x00\x01"
それをどうやって一文字ずつ取得するのかも

[pokemonta]

crc_registor = &HFFFF&でオーバフロー発生しませんか？

[meg_]

command、crc_registorはLong型にしたかと思います。