锐客网

  1. 首页 > 睿知 > it技术 > >

VB.Net字节转浮点 vbnet byte转成string

IT技术浮点

VB 如何将整数型数据类型转换成单浮点数据类型VB使用CSng 函数可将整数型数据类型转换成单精度浮点数据类型 。
CSng 函数示例
本示例使用 CSng 函数将一整型数值转换为 Single 。
Private Sub Command1_Click()
Dim MyInteger As Integer
Dim MySingle As Single
MyInteger = 7534
MySingle = CSng(MyInteger)
Debug.Print MySingle
Debug.Print LenB(MyInteger)
Debug.Print LenB(MySingle)
End Sub
Debug.Print LenB(MyInteger)输出为2，是Integer数据类型的字节数 。
Debug.Print LenB(MySingle)输出为4，是Single数据类型的字节数 。
怎么将4字节16进制转化成浮点数？四字节16进制数可转换为四个二进制字节（Bytes），从而使用Api函数来处理成单精度浮点数 。
以下用VB代码处理 。
VB有专门的API函数CopyMemory能处理2-10进制浮点数转换和10-2进制浮点数转换 。
下列代码演示了10进制Single（单精度浮点型转为16进制字符显示的浮点数和其相反运算：
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Private Sub BinToSin_Click()
Dim sinStr As String
Dim sinSj As Single
Dim Buffer(3) As Byte
Dim i As Integer
sinStr = Text2
For i = 1 To Len(Text2) Step 2
Buffer((7 - i) / 2) = Val("H"Mid(sinStr, i, 2))
Next
CopyMemory ByVal VarPtr(sinSj), ByVal VarPtr(Buffer(0)), 4
Text3 = sinSj
End Sub
Private Sub SinToBin_Click()
Dim i As Integer
Dim hexData As String
Dim a As Single
Dim Buffer(3) As Byte
a = Val(Text1)
CopyMemory Buffer(0), a, 4
For i = 0 To 3
If Len(Hex(Buffer(i))) = 1 Then
hexData = "https://www.04ip.com/post/0"Hex(Buffer(i))hexData
Else
hexData = https://www.04ip.com/post/Hex(Buffer(i))hexData
End If
Next
Text2 = hexData
End Sub
需要注意的事项是这四字节的高低字节排序，不能搞错 。
VB的Single 数据类型：
Single（单精度浮点型）变量存储为 IEEE 32 位（4 个字节）浮点数值的形式，它的范围在负数的时候是从 -3.402823E38 到 -1.401298E-45，而在正数的时候是从 1.401298E-45 到 3.402823E38 。Single 的类型声明字符为感叹号 (!) 。
在内存以32位二进制形式存在:
XXXXXXXX XXXXXXXX XXXXXXXX XXXXXXXX
第1位为符号位；
第2-9位为阶码位；
第10-32位为2进制小数尾值；
即F2 ^ n * 1. XXXXXXX XXXXXXXX XXXXXXXX；
其中，F为正号或负号(首为为0正数,首位为1负数；
n为2-9位组成的BYTE数据值；
XXXXXXX XXXXXXXX XXXXXXXX为尾数 。
参考：
如何用VB.NET将单精度16进制转换成浮点数#读取上次检查到的行数
last_line=`cat ./mailinfo`
echo "上次行数："$last_line
#算出本次alert日志的行数
current_line=`wc -l $alert_log|awk '{print $1}'`
echo "本次行数："$current_line
#取上次行数和本次行数之间的alert日志内容 ， 然后把ORA错误及上下三行放到mailinfo中
vb.net中如何将字符串型转换成浮点型Dim s As String = "VB.Net字节转浮点你VB.Net字节转浮点的字符串"
Dim si As Single = CType(Val(s), Single)
MsgBox(si)
程序里测试通过VB.Net字节转浮点你试试看 。
vb,求怎样将4字节字符串转换为一单精度浮点数？？Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)
Function Str2Single(s As String) As Single
If LenB(s)4 Then s = sString(4, 0)
CopyMemory Str2Single, ByVal (StrPtr(s)), ByVal 4
End Function
vb.net 4位十六进制 转浮点数Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim aa(3) As Byte
Dim f As Single
aa(0) = H0
aa(1) = H0
aa(2) = H80
aa(3) = H3F
'CopyMemory(f, aa, 4)
f = BitConverter.ToSingle(aa, 0)
TextBox1.Text = f
End Sub
End Class
【VB.Net字节转浮点 vbnet byte转成string】VB.Net字节转浮点的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbnet byte转成string、VB.Net字节转浮点的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：flutter画k线，flutter画中画

    下一篇：竞技游戏飞行器，飞行竞速手机游戏