vb 将单精度转换为4 个字符串.txt Option Explicit Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long) Private Sub cmdSinHex_Click() Text3 = "" 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 = "0" & Hex(Buffer(i)) + hexData Else hexData = Hex(Buffer(i)) + hexData End If Next Text2 = hexData For i = 1 To Len(hexData) Step 2 Text3 = Text3 & ChrW(Val("&H" & Mid(hexData, i, 2))) '& " " Next End Sub Private Sub Form_Load() Text1 = "" Text2 = "" Text3 = "" End Sub VB 串口通信中经常会遇到10 进制浮点数转为多字节Byte 数据类型的情况，以及在接收后需转为10 进制浮点数需求。 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 = "0" & Hex(Buffer(i)) + hexData Else hexData = Hex(Buffer(i)) + hexData End If Next Text2 = hexData End Sub 下列代码演示了10 进制Double（双精度浮点型）转为16 进制...
VIP
