二进制转换十六进制问题

2007-05-24 11:26:57 1.5k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

从原理图到PCB：基于Allegro的8槽PXIe背板高速设计实战本文详细介绍了基于Allegro软件进行8槽PXIe背板高速设计的完整实战流程。从理解规范、原理图设计、PCB布局规划，到高速PCIe差分对与精密时钟的布线艺术，再到电源与地处理以及最终的设计验证与生产文件输出，系统性地阐述了确保背板信号完整性、电源完整性和系统稳定性的关键技术与工程实践。阅读详情

问题：
1 0 0 0 0 0 0 0
动画静止保留时间连续暂停保留闪烁
这是第一种方式：二进制的10000000，也就是十六进制的80，动画和两个保留值不变，永远是1，0，0，其他的根据用户选择而进行变动，要怎样做一个循环将这个问题做出来？

比如：动画方式： MoveMothod = &H80
动画闪烁： MoveMothod = &H81
请高手帮忙，分少了再加！

...全文

神经形态芯片：IBM TrueNorth技术详解以及应用案例 2018年的一项演示中，机器人使用TrueNorth处理了复杂的路径规划，功耗仅为传统系统的1/10。它通过模仿人脑的结构，解决了传统芯片在功耗和并行性上的痛点，并在图像识别、物联网和机器人等领域展现了强大潜力。：不同于传统芯片的时钟驱动，TrueNorth是事件驱动的。例如，工厂中的振动传感器使用TrueNorth检测设备故障的早期迹象，实现了更高效的维护策略，避免了停机时间。：在医疗领域，TrueNorth可以用于可穿戴设备，比如一个智能助听器，它能过滤噪音并增强特定声音，功耗低到可以用纽扣电池供电。阅读详情

tanghuawei

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

tanghuawei 2007-05-24

打赏
举报

怎么做？请给点代码好吗？

VBToy 2007-05-24

打赏
举报

位操作

tanghuawei 2007-05-24

打赏
举报

已经解决了，在网上找到了进制互换的代码，不管大家知不知道，贴出来分享一下：

'-------------------------------------------------

' 用途：将十进制转化为二进制
Public Function DEC_to_BIN(Dec As Long) As String
DEC_to_BIN = ""
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \ 2
Loop
End Function

' 用途：将二进制转化为十进制
Public Function BIN_to_DEC(ByVal Bin As String) As Long
Dim i As Long
For i = 1 To Len(Bin)
BIN_to_DEC = BIN_to_DEC * 2 + Val(Mid(Bin, i, 1))
Next i
End Function

' 用途：将十六进制转化为二进制
Public Function HEX_to_BIN(ByVal Hex As String) As String
Dim i As Long
Dim B As String

Hex = UCase(Hex)
For i = 1 To Len(Hex)
Select Case Mid(Hex, i, 1)
Case "0": B = B & "0000"
Case "1": B = B & "0001"
Case "2": B = B & "0010"
Case "3": B = B & "0011"
Case "4": B = B & "0100"
Case "5": B = B & "0101"
Case "6": B = B & "0110"
Case "7": B = B & "0111"
Case "8": B = B & "1000"
Case "9": B = B & "1001"
Case "A": B = B & "1010"
Case "B": B = B & "1011"
Case "C": B = B & "1100"
Case "D": B = B & "1101"
Case "E": B = B & "1110"
Case "F": B = B & "1111"
End Select
Next i
While Left(B, 1) = "0"
B = Right(B, Len(B) - 1)
Wend
HEX_to_BIN = B
End Function

' 用途：将二进制转化为十六进制
Public Function BIN_to_HEX(ByVal Bin As String) As String
Dim i As Long
Dim H As String
If Len(Bin) Mod 4 <> 0 Then
Bin = String(4 - Len(Bin) Mod 4, "0") & Bin
End If

For i = 1 To Len(Bin) Step 4
Select Case Mid(Bin, i, 4)
Case "0000": H = H & "0"
Case "0001": H = H & "1"
Case "0010": H = H & "2"
Case "0011": H = H & "3"
Case "0100": H = H & "4"
Case "0101": H = H & "5"
Case "0110": H = H & "6"
Case "0111": H = H & "7"
Case "1000": H = H & "8"
Case "1001": H = H & "9"
Case "1010": H = H & "A"
Case "1011": H = H & "B"
Case "1100": H = H & "C"
Case "1101": H = H & "D"
Case "1110": H = H & "E"
Case "1111": H = H & "F"
End Select
Next i
While Left(H, 1) = "0"
H = Right(H, Len(H) - 1)
Wend
BIN_to_HEX = H
End Function

' 用途：将十六进制转化为十进制
Public Function HEX_to_DEC(ByVal Hex As String) As Long
Dim i As Long
Dim B As Long

Hex = UCase(Hex)
For i = 1 To Len(Hex)
Select Case Mid(Hex, Len(Hex) - i + 1, 1)
Case "0": B = B + 16 ^ (i - 1) * 0
Case "1": B = B + 16 ^ (i - 1) * 1
Case "2": B = B + 16 ^ (i - 1) * 2
Case "3": B = B + 16 ^ (i - 1) * 3
Case "4": B = B + 16 ^ (i - 1) * 4
Case "5": B = B + 16 ^ (i - 1) * 5
Case "6": B = B + 16 ^ (i - 1) * 6
Case "7": B = B + 16 ^ (i - 1) * 7
Case "8": B = B + 16 ^ (i - 1) * 8
Case "9": B = B + 16 ^ (i - 1) * 9
Case "A": B = B + 16 ^ (i - 1) * 10
Case "B": B = B + 16 ^ (i - 1) * 11
Case "C": B = B + 16 ^ (i - 1) * 12
Case "D": B = B + 16 ^ (i - 1) * 13
Case "E": B = B + 16 ^ (i - 1) * 14
Case "F": B = B + 16 ^ (i - 1) * 15
End Select
Next i
HEX_to_DEC = B
End Function
' 用途：将十进制转化为十六进制
Public Function DEC_to_HEX(Dec As Long) As String
Dim a As String
DEC_to_HEX = ""
Do While Dec > 0
a = CStr(Dec Mod 16)
Select Case a
Case "10": a = "A"
Case "11": a = "B"
Case "12": a = "C"
Case "13": a = "D"
Case "14": a = "E"
Case "15": a = "F"
End Select
DEC_to_HEX = a & DEC_to_HEX
Dec = Dec \ 16
Loop
End Function

' 用途：将十进制转化为八进制
Public Function DEC_to_OCT(Dec As Long) As String
DEC_to_OCT = ""
Do While Dec > 0
DEC_to_OCT = Dec Mod 8 & DEC_to_OCT
Dec = Dec \ 8
Loop
End Function

' 用途：将八进制转化为十进制
Public Function OCT_to_DEC(ByVal Oct As String) As Long
Dim i As Long
Dim B As Long

For i = 1 To Len(Oct)
Select Case Mid(Oct, Len(Oct) - i + 1, 1)
Case "0": B = B + 8 ^ (i - 1) * 0
Case "1": B = B + 8 ^ (i - 1) * 1
Case "2": B = B + 8 ^ (i - 1) * 2
Case "3": B = B + 8 ^ (i - 1) * 3
Case "4": B = B + 8 ^ (i - 1) * 4
Case "5": B = B + 8 ^ (i - 1) * 5
Case "6": B = B + 8 ^ (i - 1) * 6
Case "7": B = B + 8 ^ (i - 1) * 7
End Select
Next i
OCT_to_DEC = B
End Function

' 用途：将二进制转化为八进制
Public Function BIN_to_OCT(ByVal Bin As String) As String
Dim i As Long
Dim H As String
If Len(Bin) Mod 3 <> 0 Then
Bin = String(3 - Len(Bin) Mod 3, "0") & Bin
End If

For i = 1 To Len(Bin) Step 3
Select Case Mid(Bin, i, 3)
Case "000": H = H & "0"
Case "001": H = H & "1"
Case "010": H = H & "2"
Case "011": H = H & "3"
Case "100": H = H & "4"
Case "101": H = H & "5"
Case "110": H = H & "6"
Case "111": H = H & "7"
End Select
Next i
While Left(H, 1) = "0"
H = Right(H, Len(H) - 1)
Wend
BIN_to_OCT = H
End Function

' 用途：将八进制转化为二进制
Public Function OCT_to_BIN(ByVal Oct As String) As String
Dim i As Long
Dim B As String

For i = 1 To Len(Oct)
Select Case Mid(Oct, i, 1)
Case "0": B = B & "000"
Case "1": B = B & "001"
Case "2": B = B & "010"
Case "3": B = B & "011"
Case "4": B = B & "100"
Case "5": B = B & "101"
Case "6": B = B & "110"
Case "7": B = B & "111"
End Select
Next i
While Left(B, 1) = "0"
B = Right(B, Len(B) - 1)
Wend
OCT_to_BIN = B
End Function

' 用途：将八进制转化为十六进制
Public Function OCT_to_HEX(ByVal Oct As String) As String
Dim Bin As String
Bin = OCT_to_BIN(Oct)
OCT_to_HEX = BIN_to_HEX(Bin)
End Function

' 用途：将十六进制转化为八进制
Public Function HEX_to_OCT(ByVal Hex As String) As String
Dim Bin As String
Hex = UCase(Hex)
Bin = HEX_to_BIN(Hex)
HEX_to_OCT = BIN_to_OCT(Bin)
End Function

rainstormmaster 2007-05-24

打赏
举报

无语

tanghuawei 2007-05-24

打赏
举报

楼上的兄弟，你是将二进制转换成十进制了！

VBToy 2007-05-24

打赏
举报

修改一下：
Private Function getDec(ByVal Bits As String) As Byte

Dim i As Integer
Dim n As Byte
Dim L As Integer
L = Len(Bits)
For i = 1 To L
If Mid(Bits, i, 1) = "1" Then n = n + 2 ^ (L - i)
Next i
getDec = n
End Function

VBToy 2007-05-24

打赏
举报

不用位操作，可以用以下的方式：
Private Function getDec(ByVal Bits As String) As Byte
Dim i As Integer
Dim n As Byte
Dim l As Integer
l = Len(Bits)
For i = 1 To l
If Mid(Bits, i, 1) = "1" Then n = n + 2 ^ (8 - i)
Next i
getDec = n
End Function
假设要设置成10011001，MoveMothod = getDec("10011001")

二进制转换十六进制问题

相关推荐