VB6 实现从字节到具体数据类型的转换

前端之家收集整理的这篇文章主要介绍了VB6 实现从字节到具体数据类型的转换前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

对于单片机软件工程师在设计上下位机通讯时,经常会遇到这样一个问题,那就是如何传递一个float或者说是double或者是long 类型的数据,这些数据是由多个字节组成的,那么符合实现发送和在vb6中接收,以及将数据还原是个问题。

事实上在C/C++中要实现很简单,只要通过指针和字节访问即可!

下面来看一个使用Turbo C 2.0做的例子:

#include<stdio.h>
#include<stdlib.h>
#include<conio.h>

void main()
{
float fa,fb;
unsigned char *pa,*pb;

fa=3.14;
fb=0;

pa=&fa;
pb=&fb;

pb[0]=pa[0];
pb[1]=pa[1];
pb[2]=pa[2];
pb[3]=pa[3];

clrscr();
printf("0x%x,0x%x,0x%x=%f",pa[0],pa[1],pa[2],pa[3],fb);
getch();
}

到此我们知道一个数据类新是如何在C中实现字节操作的,相信大家也应该知道怎么把一个float从串口中发送出去了吧,那么下面的工作就是如何在VB6中将收到的4个字节数据进行还原咯!

前面我们已经知道一个float类型的数据,当其值为3.14的时候,其值在内存中占据4个字节,其内容用十六进制表示为0xC3,0xF5,0x48,0x40

在vb中的代码实现如下:

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any,Source As Any,ByVal Length As Long) '内存拷贝
Private Declare Function VarPtr Lib "MSVBVM60.dll" (var As Any) As Long '指针操作

Private Sub Form_Load()
Dim f As Single
Dim b(4) As Byte
b(0) = &HC3
b(1) = &HF5
b(2) = &H48
b(3) = &H40
CopyMemory ByVal VarPtr(f),b(0),1 '类似于C中的指针操作,将数据填充到其对应的字节位置中
CopyMemory ByVal VarPtr(f) + 1,b(1),1
CopyMemory ByVal VarPtr(f) + 2,b(2),1
CopyMemory ByVal VarPtr(f) + 3,b(3),1

MsgBox f
End Sub

到此,相信大家应该可以很容易实现任意数据类型的传递以及在上位机中准确显示了!

原文链接:https://www.f2er.com/vb/260074.html

猜你在找的VB相关文章