一、数值获取
@H_301_7@通过.Input可以获得一个字节的数据(8bit),可以定义一个Variant型变量读取.Input的值。方式如下: @H_301_7@‘定义变量 @H_301_7@DimData_rxAsVariant ‘用于中间存储 @H_301_7@DimRX_data(1)AsByte 用于最终存储和处理 ,假设串口接收数据缓冲区中有两个字节;DimCheckAsByte 校验字节 @H_301_7@‘数据处理 @H_301_7@Data_rx=.InputRX_data(0)=Data_rx(0)RX_data(1)=Data_rx(0) @H_301_7@我们所得到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。二、数值比较
@H_301_7@如果需要将判断RX_data(0)是否和某数据相等,可以通过以下方法: @H_301_7@IfRX_data(0)=&H35Then 判断起始字节EndIf
@H_301_7@这是较为简单的直接比较,如果需要将RX_data(0)和TextBox中数据比较,可以采取如下方法: @H_301_7@‘假设我们的TextBox中储存的是0x35,即Form1.Text_start.Text=“0x35” @H_301_7@IfRX_data(0)=Val("&H"&Mid(Form1.Text_start.Text,3,2))Then @H_301_7@其中Mid(字符串1,起始位置start,数量Num)函数的作用:在字符串1中,从start开始取Num字符。(注意:字符串1的第一个字符对应的start为1,不是0) @H_301_7@Mid(Form1.Text_start.Text,2)获得的字符串为”35” @H_301_7@Val(字符串2)函数的作用,将字符串2转化为数值,比如Val(‘35’)=35,Val(‘0x35’)=0。 @H_301_7@Val(字符串2)函数在它不能识别为数字的第一个字符上,停止读入字符串。三、获取校验位(获得后八位)
@H_301_7@假设我们的校验规则是: @H_301_7@校验和为Rx_data(0)和Rx_data(1)的和的后八位,进位抛弃。 @H_301_7@如果我们直接使用Check=Rx_data(0)+Rx_data(1)那么当Rx_data(0)+Rx_data(1)>&HFF时,系统会报告溢出。 @H_301_7@由于一开始忘记了Mod(取余)的存在,导致我使用各种加减乘除、循环判断也是溢出,最终用了Mod,在定义一个Integer型变量,两步搞定。 @H_301_7@DimCheck_tempAsIntegerCheck_temp=Rx_data(0)+Rx_data(1)Check=Check_tempMod256小结:
@H_301_7@在VB中有各种用于数值转化的函数,要根据需要不断寻找和使用它们。