用VB开发多通道仪表数据采集程序

1、仪表通讯传输速率为9600bps，则最快速度为1.0417ms发送一个字节；仪表每秒发送200个字节，平均5.0ms发送一个字节，在查询方式或连续读取串口数据时要在程序中添加循环等待程序，等待接收缓冲区收到足够的字节才能进行数据处理。

2、等到程序接收到一帧完整数据后，计算出当前帧数据长度，再将Rthreshold属性修改为帧长度，则接收缓冲区在收到一帧数据后，MSComm控件才会触发一个OnComm事件，这样就会有更多的时间进行数据的计算和处理。

3、仪表每秒发送200个字节数据，微机收到一完整帧数据至少需要t(ms)时间(只接一道传感器t=25ms；接八道传感器t=130ms)，然后再进行数据处理。如果微机在下一帧数据接收前即t ms内能将数据计算处理完毕，则接收缓冲区内只会保存有一帧数据，不会存有两帧以上数据，接收缓冲区的大小不会影响实时监测效果（接收缓冲区>=一完整帧长度），这时完全可以实现实时监测或实时控制；如果微机在t ms内不能将数据计算处理完毕，接收缓冲区设置的又很大，在数据计算处理完毕前，接收缓冲区内就会保存有两帧以上数据，而且一次工作时间越长，缓冲区内滞留数据帧就越多，数据采集和数据处理之间产生逐渐增大的额外时间差，当接收缓冲区充满后，时间差不再增大，固定在某一值，部分数据因不能及时采集到接收缓冲区中，数据产生丢失现象，真实工作情况就会和微机处理结果产生较大的时间差，对实时监测和实时控制很不利，这种情况下接收缓冲区的大小就会影响实时监测效果，所以接收缓冲区设置不能过大，让部分数据丢失，以保证数据处理的实时性。

4、设置MSComm控件的接收数据模式采用二进制方式，即 InputMode=comInputModeBinary，但用Input属性读取数据时，不能直接赋值给 Byte 类型变量，只能通过先赋值给一个 Variant 类型变量，返回一个二进制数据的数组，再转换保存到Byte类型数变量中。

5、VB中有 Byte类型变量，但没有字节的位处理语句。通道状态字节的位处理要通过对该字节的值运算进行判断，符号字节的位处理则要判断符号字节的值是否大于127，大于127则为负数；压缩的BCD码存入Byte类型变量，VB系统只按十进制数处理，这要通过一个简单算法换算，解压BCD码才能还原成十进制表示数值。假如a是Byte类型变量，Ｗ是Single类型变量，将一个压缩的BCD码存入 a中，则算法是：　　Ｗ=(a＼16)*10 + a-(a＼16)*16　　则Ｗ=a-(a＼16)*6

6、在（通用）（声明）中定义程序所用变量：　　Dim ab(4) As Byte 注释：字节数据类型数组，用来存贮接收到的一组字节数据　　Dim av As Variant 注释：用来从接收缓冲区读取数据　　Dim i As Integer　　Dim j As Integer　　Dim w As Integer 注释：接收数据个数计数器　　Dim b1 As Single　　Dim b2 As Single　　Dim WW As Single 注释：十进制检测值　　Dim TD(8) as Boolean 注释：通道状态数组　　Dim Wmax(8) As Single 注释：最大值数组　　Dim Wmin(8) As Single 注释：最小值数组

7、[开始]按钮的Click事件处理程序主要是对MSComm1控制的参数初始化设置，程序中大憧钏荭拜部分参数在设计时可在MSComm1控制的属性窗口中设置:Private Sub Comma荏鱿胫协nd1_Click() 注释：开始按钮With MSComm1　　 .CommPort=2 注释：使用COM2　　 .Setting="9600,N,8,1" 注释：设置通信口参数　　 .InBufferSize=40 注释：设置MSComm1接收缓冲区为40字节　　 .OutBufferSize=2 注释：设置MSComm1发送缓冲区为2字节　　 .InputMode = comInputModeBinary　　注释：设置接收数据模式为二进制形式　　 .InputLen = 1　　　　　　　　　　 注释：设置Input 一次从接收缓冲读取字节数为1