【总结】VB串口控件MSComm中的数值转换

前端之家收集整理的这篇文章主要介绍了【总结】VB串口控件MSComm中的数值转换前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

一、数值获取

通过.Input可以获得一个字节的数据(8bit),可以定义一个Variant型变量读取.Input的值。方式如下:

定义变量

DimData_rxAsVariant 用于中间存储

DimRX_data(1)AsByte 用于最终存储和处理 ,假设串口接收数据缓冲区中有两个字节;DimCheckAsByte 校验字节

数据处理

Data_rx=.InputRX_data(0)=Data_rx(0)RX_data(1)=Data_rx(0)

我们所得到RX_data(0)RX_data(1)均为Byte型数据(8bit),如果直接显示显示10进制数,假设RX_data(0)=12RX_data(1)=255。可以通过Hex(Num)函数,得到其16进制数,Hex(RX_data(0))=CHex(RX_data(1))=FF

二、数值比较

如果需要将判断RX_data(0)是否和某数据相等,可以通过以下方法

IfRX_data(0)=&H35Then 判断起始字节

EndIf

这是较为简单的直接比较,如果需要将RX_data(0)TextBox中数据比较,可以采取如下方法

假设我们的TextBox中储存的是0x35,即Form1.Text_start.Text=0x35

IfRX_data(0)=Val("&H"&Mid(Form1.Text_start.Text,3,2))Then

其中Mid(字符串1,起始位置start数量Num)函数的作用:在字符串1中,从start开始取Num字符。(注意:字符串1的第一个字符对应的start1,不是0

Mid(Form1.Text_start.Text,2)获得的字符串为35

Val(字符串2)函数的作用,将字符串2转化为数值,比如Val(35)=35Val(0x35)=0

Val(字符串2)函数在它不能识别为数字的第一个字符上,停止读入字符串。

三、获取校验位(获得后八位)

假设我们的校验规则是:

校验和为Rx_data(0)Rx_data(1)的和的后八位,进位抛弃。

如果我们直接使用Check=Rx_data(0)+Rx_data(1)那么当Rx_data(0)+Rx_data(1)>&HFF时,系统会报告溢出。

由于一开始忘记了Mod(取余)的存在,导致我使用各种加减乘除、循环判断也是溢出,最终用了Mod,在定义一个Integer型变量,两步搞定。

DimCheck_tempAsIntegerCheck_temp=Rx_data(0)+Rx_data(1)Check=Check_tempMod256

小结:

VB中有各种用于数值转化的函数,要根据需要不断寻找和使用它们。

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

猜你在找的VB相关文章