vb.net16-10,vb610

请教用VB.NET向网口发送16进制的数的方法.

很有意思。

创新互联建站专业为企业提供呈贡网站建设、呈贡做网站、呈贡网站设计、呈贡网站制作等企业网站建设、网页设计与制作、呈贡企业网站模板建站服务,十年呈贡做网站经验,不只是建网站,更提供有价值的思路和整体网络服务。

原文数据全为:“00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ; ”

加密后变成了:“09 51 55 F4 FB 10 6F A4 D3 E8 87 46 F8 2F 49 CD ; ”

得出这样的结果是有很多方法都可以实现的:

比如每个原数上加上个常数就可以了。

00+09=09;得出第一组加密后的数值

00+51=51;得出第二组加密后的数值

...

00+CD=CD;得出第16组加密后的数值.

加密的方法还有很多,不过这种最简单。

还有就是你给的原文太单一了,不能够更好的分析数据的规律。

如果你能把原文改为如下这段代码再去加密一下,再把加密结果贴上来看一下就好多了。

00000140h: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ;

00000150h: 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ;

00000160h: 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F 10 ; 00000170h: 00 10 20 30 40 50 60 70 80 90 A0 B0 C0 D0 E0 F0 ;

00000180h: 11 11 11 11 11 22 22 22 22 22 22 EE EE EE FF FF ;

以上是单片机高手团为您解答。

如果还没解决你的问题,可以加我百度HI账号。

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)

vb.net2010十六进制读取串口的问题

不是很明白你的题意

strHex = strHex + [String].Format("{0:X2} "

这里的意思是把每个字节数据转换成了十六进制,每个字节占两个字符

如果你串口收到的4个字节数据:43,27,56,200

那么你的结果是:2B1B38C8

即receivebytes.Text="2B1B38C8"

不足两位的补0

如果你串口收到的4个字节数据:3,27,56,200

那么你的结果是:031B38C8

即receivebytes.Text="031B38C8"


当前题目:vb.net16-10,vb610
本文链接:http://azwzsj.com/article/hoehjh.html