【总结】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)=12、RX_data(1)=255。可以通过Hex(Num)函数,得到其16进制数,Hex(RX_data(0))=C,Hex(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的第一个字符对应的start为1,不是0) Mid(Form1.Text_start.Text,2)获得的字符串为”35” Val(字符串2)函数的作用,将字符串2转化为数值,比如Val(‘35’)=35,Val(‘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中有各种用于数值转化的函数,要根据需要不断寻找和使用它们。 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |