7,763
社区成员
发帖
与我相关
我的任务
分享怎样将一个16进制的数转换为2进制
我读一个硬件端口，返回一个16进制的数，我想将这个16进制的数转换为2进制，vb
是否由此函数，多谢！！！
是否由此函数，多谢！！！
...全文
请发表友善的回复…
发表回复
yijiansong 2003-09-17
- 打赏
- 举报
小ks?写出来吧
guoyx 2003-09-17
- 打赏
- 举报
自己写个小函数转化吧，小ks
yijiansong 2003-09-17
- 打赏
- 举报
我也在找此函数
watt 2003-09-17
- 打赏
- 举报
好象没有
northwolves 2003-09-17
- 打赏
- 举报
Private Sub Command1_Click()
MsgBox hextobin("1DA565665645DBCAEDFA98145DBCAEDFA98165645D645DBCAEDFA98145DBCABCAEDFA9810")
End Sub
Function hextobin(ByVal x As String) As String
hextobin = ""
Dim hexs As New Collection
For i = 1 To 16
hexs.Add Split("0000,0001,0010,0011,0100,0101,0110,0111,1000,1001,1010,1011,1100,1101,1110,1111", ",")(i - 1), Hex(i - 1)
Next
For i = 1 To Len(x)
hextobin = hextobin & hexs(Mid(x, i, 1))
Next
Do While Left(hextobin, 1) = "0"
hextobin = Right(hextobin, Len(hextobin) - 1)
Loop
End Function
MsgBox hextobin("1DA565665645DBCAEDFA98145DBCAEDFA98165645D645DBCAEDFA98145DBCABCAEDFA9810")
End Sub
Function hextobin(ByVal x As String) As String
hextobin = ""
Dim hexs As New Collection
For i = 1 To 16
hexs.Add Split("0000,0001,0010,0011,0100,0101,0110,0111,1000,1001,1010,1011,1100,1101,1110,1111", ",")(i - 1), Hex(i - 1)
Next
For i = 1 To Len(x)
hextobin = hextobin & hexs(Mid(x, i, 1))
Next
Do While Left(hextobin, 1) = "0"
hextobin = Right(hextobin, Len(hextobin) - 1)
Loop
End Function
