分配二进制常量

Question

有没有办法将二进制值赋给 VB 变量？ 所有显而易见的选择都不起作用。 我尝试使用 &B 前缀，附加 b 但似乎没有任何效果。 我寻找它的运气也不好。 我的应用程序不需要这个，但我只是好奇，所以不需要替代解决方案。

[编辑] 为了澄清起见，我正在寻找（这似乎不可能）是如何将文字二进制数分配给变量，以类似于分配十六进制或八进制数的方式。 我只是在寻找一种更具视觉吸引力的方式来为标志枚举分配值。

代码：

Dim num as Integer = &H100ABC       'Hex'
Dim num2 as Integer = &O123765      'Octal'

Dim myFantasy as Integer = &B1000   'What I would like to be able to do'
Dim myReality as Integer = 2 ^ 3    'What I ended up doing'

Answer 1

在这之后我可能会刺伤自己：

Convert.ToInt32("1100101", 2);

更严肃地说（注意到你已经更新了问题），对于标志 enums 你可能想要的是 左移运算符 (<<)：

Dim myReality as Integer          = 1 << 0   // 1
Dim myAlternateReality as Integer = 1 << 1   // 2
Dim myParallelUniverse as Integer = 1 << 2   // 4
...

依此类推，最多 31 个。

Answer 2

不幸的是，你能做的最好的就是十六进制：

Dim x As Long = &H1234ABCD

Answer 3

我想你的意思是约翰·拉什（John Rasch）提供的答案。 您有一个由零和一组成的字符串，您希望将其转换为某种变量。

    Dim b As String = "10101"
    Dim i As Integer = 73
    Dim s As String
    s = Convert.ToString(i, 2) 's contains the binary representation of 73 - 1001001
    i = Convert.ToInt32(b, 2) 'i now =  21

您还可以将这些方法用于十六进制（16）和八进制（8）。

你也可以做这样的事情

    Dim i As Integer = 6
    If (i And _bi.t0) = _bi.t0 OrElse (i And _bi.t1) = _bi.t1 Then
      'bit 0 or 1 on
    End If

Enum _bi As Integer
    t0 = CInt(2 ^ 0)
    t1 = CInt(2 ^ 1)
    t2 = CInt(2 ^ 2)
    t3 = CInt(2 ^ 3)
    t4 = CInt(2 ^ 4)
    t5 = CInt(2 ^ 5)
    t6 = CInt(2 ^ 6)
    t7 = CInt(2 ^ 7)
    t8 = CInt(2 ^ 8)
    t9 = CInt(2 ^ 9)
    t10 = CInt(2 ^ 10)
    t11 = CInt(2 ^ 11)
    t12 = CInt(2 ^ 12)
    t13 = CInt(2 ^ 13)
    t14 = CInt(2 ^ 14)
    t15 = CInt(2 ^ 15)
    t16 = CInt(2 ^ 16)
    t17 = CInt(2 ^ 17)
    t18 = CInt(2 ^ 18)
    t19 = CInt(2 ^ 19)
    t20 = CInt(2 ^ 20)
    t21 = CInt(2 ^ 21)
    t22 = CInt(2 ^ 22)
    t23 = CInt(2 ^ 23)
    t24 = CInt(2 ^ 24)
    t25 = CInt(2 ^ 25)
    t26 = CInt(2 ^ 26)
    t27 = CInt(2 ^ 27)
    t28 = CInt(2 ^ 28)
    t29 = CInt(2 ^ 29)
    t30 = CInt(2 ^ 30)
End Enum

Answer 4

或者一些描述性的东西

Enum _SerialPortPins As Integer
    RTS = CInt(2 ^ 4)
    CTS = CInt(2 ^ 5)
    DSR = CInt(2 ^ 6)
    DCD = CInt(2 ^ 8)
    DTR = CInt(2 ^ 20)
    RI = CInt(2 ^ 22)
End Enum

Answer 5

使用评论？

Dim myFantasy as Integer = 2^3 '00000000-00001000