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

一、数值获取

通过.Input可以获得一个字节的数据（8bit），可以定义一个Variant型变量读取.Input的值。方式如下：

‘定义变量

Dim Data_rx As Variant ‘用于中间存储

Dim RX_data(1) As Byte ‘用于最终存储和处理 ，假设串口接收数据缓冲区中有两个字节；

Dim Check As Byte ‘校验字节

‘数据处理

Data_rx = .Input

RX_data(0) = Data_rx(0)

Data_rx = .Input

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)是否和某数据相等，可以通过以下方法：

If RX_data(0) = &H35 Then ‘判断起始字节

‘

End If

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

‘假设我们的TextBox中储存的是0x35，即Form1.Text_start.Text=“0x35”

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

‘

End If

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

Mid(Form1.Text_start.Text, 3, 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型变量，两步搞定。

Dim Check_temp As Integer

Check_temp = Rx_data(0)+Rx_data(1)

Check = Check_temp Mod 256

小结：

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