バイトに複数の数値をビットパックでパック

Question

私はこれらを1バイト（0-255）にパックしようとしている3つの数字があります。

Dim num0 As Integer = 6 
Dim Num1 As Integer = 17 
Dim Num2 As Integer = 30 

Dim Packed As Integer = (num0 And &HFFFF) << 1 Or (Num1 And &HFFFF) << 16 Or Num2 And &HFFFF 

Dim GotNum0 = (Packed >> 1) And &HFFFF 
Dim GotNum1 = (Packed >> 16) And &HFFFF 
Dim GotNum2 = Packed And &HFFFF 

しかし、出力は10、16、20

誰でも助けることができるです。

Answer 1

これらの3つの数値を1バイトにパックすることはできません。Integerから3バイトを使用してパックすることができます。 Packedの1バイトをマスクで選択して、それぞれの数値に使用します（最大値255）。次にPackedに変換：

Dim num0 As Integer = 6 
Dim Num1 As Integer = 17 
Dim Num2 As Integer = 30 

Dim Packed As Integer = (num0 And &HFF) Or ((Num1 << 8) And &HFF00) Or ((Num2 << 16) And &HFF0000) 

Dim GotNum0 = Packed And &HFF 
Dim GotNum1 = (Packed And &HFF00) >> 8 
Dim GotNum2 = (Packed And &HFF0000) >> 16