獲得一個字節的二進制補碼

Question

Two's compliment是當字節中的每個位都被翻轉，然後將'1'添加到結果中時。

我不想提取每一位並翻轉它。是否有捷徑可尋？

Answer 1

您可以簡單地將字節與255異或，然後添加一個。

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

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

Answer 2

您可以將字節轉換爲負值（可以將其轉換爲整數後）：

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

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