关于vb.net数据转hex的信息

VB.NET，八/十六进制转十进制的函数，怎么转?

'此函数用于十进制到二进制

Private Function Bin(Number As Long) As Long

Dim Div_value As String

Do

Div_value = (Number Mod 2) Div_value

Number = Int(Number / 2)

Loop Until Number 2

Bin = Number Div_value

End Function

'此函数用于二进制到十进制

Private Function value_Bin(Number As Long) As Long

Dim Temp_value As Long, Cyc As Long

For Cyc = 0 To Len(Str(Number))

If Cyc = Len(Str(Number)) Then

value_Bin = Temp_value + Val(Mid(Str(Number), Cyc, 1))

Exit For

End If

If Cyc 0 Then Temp_value = (Temp_value + Val(Mid(Str(Number), Cyc, 1))) * 2

Next Cyc

End Function

'====写入以上函数后转值操作：

'十进制到十六进制：Hex(十进制数值)

'十进制到八进制：Oct(十进制数值)

'十进制到二进制：Bin(十进制数值)

'二进制到十进制：value_Bin(二进制数值)

'八进制到十进制：Val("O" 八进制数值)

'十六进制到十进制：Val("H" 十六进制数值)

比如

msgbox DEC_to_BIN(10)

就会返回一个10转换为十进制后的结果

或者简单点就用

VB自带函数：

十进制转八进制：Oct(num)

十六进制转八进制：oct("H" num)

十进制转十六进制：hex(num)

八进制转十六进制：hex("O" num)

十六进制转换为十进制

Dim str As String

str = Text2.Text

Text10.Text = CLng("H" str)

相关问答

Q1: vb.net 把十进制数转成十六进制数的函数有哪些？

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        MsgBox(DEC_to_HEX(255))

    End Sub

    Public Function DEC_to_HEX(ByVal 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

Q2: VB中怎么把字符串数据转换为hex数据呢？

假定输入格式正确为：两位数字一个空格

1、去掉左边的空格字符do s=trim(s)

2、读取第1个数字字符并转换成数值n=val(left(s,1))*16

3、去掉左边一个字符s=mid(s,2)

4、读取第1个数字字符并转换成数值n=n+val(left(s,1))

5、去掉左边一个字符s=mid(s,2)

6、发送数字n

7、如果s不为空则继续转到第1步while s""

Q3: 如何用vb.net向串口发送十六位进制数据

下面代码就是将文本框中以一个空格隔开的十六进制转为字节的代码，文本框中数字格式为：01 02 03

Dim TestArray() As String = Split(TextBox1.Text)

Dim hexBytes() As Byte

ReDim hexBytes(TestArray.Length - 1)

Dim i As Integer

For i = 0 To TestArray.Length - 1

hexBytes(i) = Val("h" TestArray(i))

Next

SerialPort.Write(hexBytes, 0, hexBytes.Length)

Q4: vb.net 如何将十六进制字符串转换为十六进制变量

numHex =Integer.Parse(strHex, Globalization.NumberStyles.AllowHexSpecifier)

或

numHex = Integer. Parse("H" strHex)