vb.net进制转化 vb进制转换器

vb.net 中2、8、10、16进制转换代码怎么写

Option Explicit

Dim Jz As Integer, K As Boolean

Private Sub Command1_Click()

Pic.Cls

If K Then Jz = Val(Qtjz.Text)

If Pd(Text1.Text, Jz) Then Pic.Print "选择的进制与数不符": Exit Sub

If Jz = 0 Then Pic.Print "请先输入进制" Else Pic.Print Zh(Text1.Text, Jz)

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)

End Sub

Private Sub Option1_Click(Index As Integer)

K = False

Select Case Index

Case 0

Jz = 2

Case 1

Jz = 8

Case 2

Jz = 10

Case 3

Jz = 16

Case 4

K = True

Qtjz.Text = ""

Qtjz.SetFocus

End Select

If Index 4 Then Command1.SetFocus

End Sub

Private Sub Qtjz_Click()

Qtjz.Text = ""

End Sub

Private Sub Text1_Click()

Text1.Text = ""

End Sub

Private Function Zh(a As String, b As Integer) As Integer

Dim c As String, i, d As Integer

a = LCase(a)

For i = 1 To Len(a)

c = Mid(a, Len(a) + 1 - i, 1)

If Asc(c) 96 Then d = Asc(c) - 87 Else d = Val(c)

Zh = Zh + d * b ^ (i - 1)

Next i

End Function

Private Function Pd(a As String, b As Integer) As Boolean

Dim c As String, i, d As Integer

Pd = False

For i = 1 To Len(a)

c = Mid(a, Len(a) + 1 - i, 1)

If Asc(c) 96 Then d = Asc(c) - 87 Else d = Val(c)

If d b - 1 Then Pd = True: Exit Function

Next i

End Function

相关问答

Q1: 用VB.NET将二进制数转换为十进制数

.NET 程序写成你这样也算厉害了，好好看看下面的代码

Sub Main()

Console.WriteLine("请输入一个二进制数")

Console.WriteLine(bin2int(Console.ReadLine()))

Console.ReadKey()

End Sub

Function bin2int(ByVal bin As String) As Integer

Dim i As Long

For i = 1 To bin.Length

bin2int = bin2int * 2 + Val(Mid(bin, i, 1))

Next i

End Function

Q2: 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

'====写入以上函数后转值操作vb.net进制转化：

'十进制到十六进制vb.net进制转化：Hex(十进制数值)

'十进制到八进制vb.net进制转化：Oct(十进制数值)

'十进制到二进制vb.net进制转化：Bin(十进制数值)

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

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

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

比如

msgbox DEC_to_BIN(10)

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

或者简单点就用

VB自带函数：

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

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

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

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

十六进制转换为十进制

Dim str As String

str = Text2.Text

Text10.Text = CLng("H" str)

Q3: vb.net 将文件转化成二进制

首先引入System.IO命名空间

Imports System.IO

然后使用文件流来读入数组：

Dim bytes() As Byte

Using fs As New FileStream(文件路径,FileMode.Open)

ReDim bytes(fs.Length-1)

fs.Read(bytes,0,fs.Length)

fs.Close()

End Using

这样bytes就是整个文件的所有字节了

从字节生成Image：

Dim img As Image = Image.FromStream(New MemoryStream(bytes))

img就是图片了

Q4: vb.net 字符串，16进制间转换(求代码)

把字符串“12341168C5B7”转换为16进制数存为string型

用shuzi=Convert.ToInt32("12341168C5B7",16)

就ok了。

反之用 shuzi.ToString("X")就行了。

给分！！！

12341168C5B7转换成10进制数就是20014839678391。。

而int32的最大值为2,147,483,647。。所以产生错误。

所以要用int64，它的最大值为9,223,372,036,854,775,807。也就是16位十六进制数0X7FFFFFFFFFFFFFFF。

难道还有比F靠后的数？？？？？？

Q5: vb.net 16进制数字转换为字符串

把字符串“12341168C5B7”转换为16进制数存为string型

用shuzi=Convert.ToInt32("12341168C5B7",16)

就ok了。

反之用 shuzi.ToString("X")就行了。

给分！！！

12341168C5B7转换成10进制数就是20014839678391。。

而int32的最大值为2,147,483,647。。所以产生错误。

所以要用int64，它的最大值为9,223,372,036,854,775,807。也就是16位十六进制数0X7FFFFFFFFFFFFFFF。

难道还有比F靠后的数？？？？？？

vb.net进制转化的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb进制转换器、vb.net进制转化的信息别忘了在本站进行查找喔。