vb.net十六转二进制的简单介绍

请教在VB将十六制数转换成二进制数

VB将十六制数转换成二进制数需要编写自定义函数解决。

创新互联服务项目包括凤阳网站建设、凤阳网站制作、凤阳网页制作以及凤阳网络营销策划等。多年来,我们专注于互联网行业,利用自身积累的技术优势、行业经验、深度合作伙伴关系等,向广大中小型企业、政府机构等提供互联网行业的解决方案,凤阳网站推广取得了明显的社会效益与经济效益。目前,我们服务的客户以成都为中心已经辐射到凤阳省份的部分城市,未来相信会继续扩大服务区域并继续获得客户的支持与信任!

Option Explicit

Dim sBin

Dim sHex

Dim sHex1

Dim BinData

Const s1 = "0000101001101111000", s2 = "0125A4936DB7FEC8"

Dim yTemp() As Byte

Public Function HexToBin(ByVal sHex As String) As String

Dim i As Integer, sBin As String

sHex = UCase(sHex)

For i = 1 To Len(sHex)

sBin = sBin Mid(s1, InStr(1, s2, Mid(sHex, i, 1)), 4)

Next i

HexToBin = sBin

BinData = sBin

End Function

Private Sub Command1_Click()

sHex = Text1

Call HexToBin(sHex)

Text2 = BinData

End Sub

VB中十六进制如何获取它转为二进制后数据的第I位的值?

为了表示对你的尊重,我就先不写代码了.

主要有3种思路

1、通用的,把

16进制

字符串转换成对应的进制表示(譬如先用val()转成整形,然后再换进制,换进制的算法你会吧?),然后用mid截取需要的段。

2、只适用于问题1。直接用iif(val(s)

and

2^(i-1),1,0)

3、适用于2与16进制之间的转换:记住4位

2进制数

对应1位16进制数,具体算法自己想咯

==================================

1、er...首先请教hen是有什么功能的函数?

2、关于负数:当最高位(bit)为1时,用

10进制

表示就是负数.你可以注意不要让最高位为1,或者用long型,或者用currency,或者自己写一个类。

3、速度的话我觉得不会太慢吧,就算你有10m的数据也至多不过几秒?未必要另外建立一个数组,这要看你的需求。非要用数组的话,注意不要用redim。你想要速度的话,可以用第2种方法。或者改一下,由于4位2进制对1位16进制,只要抽出16进制中需要判断的那一位加以处理就好了。更发烧一点的话,不要用val,自己写一个有针对性的;iif也不要用,用if代替;

乘方

什么的都用加减代替;实在不够快写汇编。

VB 十六进制转化为二进制

Function siliuTo2(ByVal su As String) As String

'16进制转换为2进制

For i = 1 To Len(su)

n = Mid(su, i, 1)

Select Case n

Case 0

siliuTo2 = siliuTo2 "0000"

Case 1

siliuTo2 = siliuTo2 "0001"

Case 2

siliuTo2 = siliuTo2 "0010"

Case 3

siliuTo2 = siliuTo2 "0011"

Case 4

siliuTo2 = siliuTo2 "0100"

Case 5

siliuTo2 = siliuTo2 "0101"

Case 6

siliuTo2 = siliuTo2 "0110"

Case 7

siliuTo2 = siliuTo2 "0111"

Case 8

siliuTo2 = siliuTo2 "1000"

Case 9

siliuTo2 = siliuTo2 "1001"

Case "A"

siliuTo2 = siliuTo2 "1010"

Case "B"

siliuTo2 = siliuTo2 "1011"

Case "C"

siliuTo2 = siliuTo2 "1100"

Case "D"

siliuTo2 = siliuTo2 "1101"

Case "E"

siliuTo2 = siliuTo2 "1110"

Case "F"

siliuTo2 = siliuTo2 "1111"

Case Else

siliuTo2 = "数据错误!"

Exit Function

End Select

Next

siliuTo2 = Format(siliuTo2, "0") '去除前面的0

End Function

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就是图片了

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


网站栏目:vb.net十六转二进制的简单介绍
地址分享:http://scyanting.com/article/doosjjg.html