パリティ計算 (ID:111653)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ７ビットデータに偶数パリティを付加した８ビットデータを作成したいのですが。パリティの計算が下記方法だとうまくいきません。 ビット演算の使用法が間違っているのでしょうか？ dim a as byte dim Msg_Txt as string a = AscB(Msg_Txt) If 1 = a And &H1 Then ’0000 0001 チェック Cnt = Cnt + 1 End If If &H2 = a And &H2 Then ’0000 0010 チェック Cnt = Cnt + 1 End If ・ ・ うまくカウント出来ません。