IC697ACC805_深圳长欣自动化设备有限公司

品牌：GE	规格：全新	材质：原装
产地：国外

IC697ACC805

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

　　3．2．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

　　3．3 程序代码

　　在（通用）（声明）中定义程序所用变量：

　　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 '小值数组

　　在窗体中添加名为Command1的[开始]按钮和名为MSComm1的MSComm控件。

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

Private Sub Command1_Click() '开始按钮

With MSComm1

　　 mPort=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 '清除发送缓冲区

　　 For i=1 to 8

　　 Wmax(i) = -99 '大值赋初值

　　 Wmin(i) = 99 '小值赋初值

　　 Next i

　　 w = 0 '数据个数计数器清零

　　 .RThreshold = 1 '设置接收一个字节产生OnComm事件

　　 On Error Resume Next　　　　　　 '改变错误处理的方式。

　　 Err.Clear

　　 If .PortOpen = False Then '判断通信口是否打开

　　　　.PortOpen = True '打开通信口

　　　　If Err Then '错误处理

　　　　 MsgBox "串口通信无效"

　　　　 Exit Sub

　　　　End If

End With

End Sub

　　为了达到实时数据采集目的，实时数据采集处理程序采用MSComm事件驱动方式。MSComm1_OnComm 的事件处理程序只处理comEvReceive事件，首先判断帧数据的开始字节，关闭OnComm接收事件，然后接收数据字节，将压缩BCD进行还原转换，再接收符号字节，判断数据符号，判断数据大小值，后打开OnComm接收事件，等待下一次OnComm事件产生：

Private Sub MSComm1_OnComm()

With MSComm1

Select Case mEvent '判断MSComm1通讯事件

　　Case comEvReceive '收到Rthreshold个字节产生的接收事件

　　 av = .Input '读取一个接收字节

　　 ab(1) = av(0) '转换保存到字节数据类型数组

　　 If ab(1) = 170 Then '判断是否为数据开始标志，0FAH=170

　　　　 .RThreshold = 0 '关闭OnComm事件接收

　　　　 W=W+1 　　　　'计数器加1

　　　　 av = .Input '读取通道状态字节

　　　　 ab(0) = av(0) '转换保存到字节数据类型数

　　　　 For i = 1 To 8 '通道状态数组复位

　　　　 TD(i) = False

　　　　 Next i

　　　　 cn = 2　　　　　　　　　　 '帧长度赋初值，一个开始字，一个状态字

　　　　 If ab(0) >= 128 Then　　　　'判断第八通状态

　　　　 TD(8) = True　　　　　　 '第八道是真

　　　　 ab(0) = ab(0) - 128　　 '第7位置零