得到一个字节的二进制补码

Question

Two's compliment是指翻转字节中的每个位，然后将“1”添加到结果中。

我不想提取每一位并翻转它。有一个简单的方法吗？

Answer 1

您可以将字节转换为负值（将其转换为整数后）：

b = CByte(-CSHort(b) And &HFF)

Answer 2

您可以简单地将字节与255进行异或，然后添加一个。

Dim myByte1 As Byte = 5
Dim myByte2 As Byte = 255
Dim MyTwosComplement As Byte

MyTwosComplement = myByte1 Xor myByte2
MyTwosComplement = CByte(MyTwosComplement + 1)

Answer 3

你可以使用另一个定义作为二进制补码：2^n - b其中n是位数。

Function TwosComplement(b As Byte) As Byte
    Return CByte((256 - b) And &HFF)
End Function

Answer 4

怎么样

 Dim b as Byte = 5
 Dim twosCompliment As Byte = (Not b) + 1

Answer 5

Option Explicit On
Option Strict On

...

Public Function TwosComplement(value As Byte) As Byte
    If value = 0 Then Return 0 Else Return CByte(CByte(value Xor Byte.MaxValue) + 1)
End Function