1.c

简介下这个项目,好让大家有个全面的了解. 这个项目是用单片机采集回来数据,再以16进制的形式发给串口.现在就是要用VB做一个监控程序,处理数据,一方面实时显示,一方面存入数据库,再提供给远端的客户端.

----VB中有Byte类型变量，但没有字节的位处理语句，符号字节的位处理要判断符号字节的值是否大于 127，大于127则为负数；压缩的BCD码存入 Byte类型变量，VB系统只按十进制数处理，这要通过一个简单算法换算，解压BCD码才能还原成十进制表示数值。假如a是Byte类型变量，D是Single类型变量，将一个压缩的BCD 码存入a中，则算法是： 

D=(a\16)＊10 ＋ a－(a\16)＊16 
则D=a－(a\16)＊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 MaxW As Single             ‘最大值
    Dim MinW As Single             ‘最小值
----在窗体中添加名为Command1的[开始]按钮和名为 MSComm1的MSComm控件。 

---- [开始]按钮的Click事件处理程序主要是对MSComm1控制的参数初始化设置，程序中大部分参数在设计时可在MSComm1控制的属性窗口中设置: 

Private Sub Command1_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
     .SThreshold = 1                        
         ‘设置Output 一次从发送缓冲读取字节数为1
     .InBufferCount = 0     ‘清除接收缓冲区
     .OutBufferCount = 0    ‘清除发送缓冲区
     MaxW = －99                    
     ‘最大值赋初值
     MinW = 99                         ‘最小值赋初值
     w = 0                                           
     ‘数据个数计数器清零
     .RThreshold = 1       
         ‘设置接收一个字节产生OnComm事件
     If .PortOpen = False Then                          
    ‘判断通信口是否打开
        .PortOpen = True      ‘打开通信口
        If Err Then                    ‘错误处理
          MsgBox “串口通信无效"
          Exit Sub
        End If
     End If
  End With
End Sub
----为了达到实时数据采集目的，实时数据采集处理程序采用MSComm事件驱动方式。 

----MSComm1_OnComm的事件处理程序只处理 comEvReceive事件，首先判断帧数据的开始字节，关闭OnComm接收事件，然后接收数据字节，将压缩BCD进行还原转换，再接收符号字节，判断数据符号，判断数据最大最小值，最后打开OnComm接收事件，等待下一次OnComm事件产生： 

Private Sub MSComm1_OnComm()
  With MSComm1
Select Case .CommEvent
         ‘判断MSComm1通信事件
      Case comEvReceive                     
                 ‘收到Rthreshold个字节产生的接收事件
        av = .Input        
                 ‘读取一个接收字节
        ab(1) = av(0)                        
                 ‘转换保存到字节数据类型数组
        If ab(1) = ＆HF0 Then                         
          ‘判断是否为数据开始标志
          RThreshold = 0                              
          ‘关闭OnComm事件接收
          Do
            DoEvents
          Loop Until .InBufferCount >= 3     
      ‘循环等待MSComm1接收缓冲区>=3个字节
          w = w ＋ 1                 ‘计数器累加计数
          av = .Input                        
         ‘读取第二个数据字节（BCD码高位字节）
          ab(2) = av(0)             
         ‘转换保存到字节数据类型数组
          av = .Input                                         
         ‘读取第三个数据字节（BCD码低位字节）
          ab(3) = av(0)             
                 ‘转换保存到字节数据类型数组
          av = .Input                        
                 ‘读取第四个数据字节（符号位字节）
          ab(4) = av(0)             
                 ‘转换保存到字节数据类型数组         
          b1 = ab(2) － 6 ＊ (ab(2)\16)       
         ‘高位字节压缩BCD码转换为实数
          b2 = ab(3) － 6 ＊ (ab(3)\16)       
         ‘低位字节压缩BCD码转换为实数
          WW = b1 ＋ b2 / 100                         
         ‘数值组合，标定小数点
          If ab(4) > 127 Then WW=