西门子驱动6SL3120-1TE26-0AA3参数详细
仪表发送每帧数据长度不定长,为了实现实时监测功能,接收数据的读取要尽可能的快速,则在程序开始运行时设置MSComm1的属性
RThreshold = 26 接收缓冲区收到26个字节产生OnComm事件
bbbbbLen = 1 bbbbb每次读取一个字节
等到程序接收到一帧完整数据后,计算出当前帧数据长度,再将Rthreshold属性修改为帧长度,则接收缓冲区在收到一帧数据后,MSComm控件才会触发一个OnComm事件,这样就会有更多的时间进行数据的计算和处理。
3.2.3 仪表每秒发送200个字节数据,微机收到一完整帧数据至少需要t(ms)时间(只接一道传感器t=25ms;接八道传感器t=130ms),然后再进行数据处理。如果微机在下一帧数据接收前即t ms内能将数据计算处理完毕,则接收缓冲区内只会保存有一帧数据,不会存有两帧以上数据,接收缓冲区的大小不会影响实时监测效果(接收缓冲区>=一完整帧长度),这时完全可以实现实时监测或实时控制;如果微机在t ms内不能将数据计算处理完毕,接收缓冲区设置的又很大,在数据计算处理完毕前,接收缓冲区内就会保存有两帧以上数据,而且一次工作时间越长,缓冲区内滞留数据帧就越多,数据采集和数据处理之间产生逐渐增大的额外时间差,当接收缓冲区充满后,时间差不再增大,固定在某一值,部分数据因不能及时采集到接收缓冲区中,数据产生丢失现象,真实工作情况就会和微机处理结果产生较大的时间差,对实时监测和实时控制很不利,这种情况下接收缓冲区的大小就会影响实时监测效果,所以接收缓冲区设置不能过大,让部分数据丢失,以保证数据处理的实时性。
3.2.4 设置MSComm控件的接收数据模式采用二进制方式,即 bbbbbMode=combbbbbModeBinary,但用bbbbb属性读取数据时,不能直接赋值给 Byte 类型变量,只能通过先赋值给一个 Variant 类型变量,返回一个二进制数据的数组,再转换保存到Byte类型数变量中。
3.2.5 VB中有 Byte类型变量,但没有字节的位处理语句。通道状态字节的位处理要通过对该字节的值运算进行判断,符号字节的位处理则要判断符号字节的值是否大于127,大于127则为负数;压缩的BCD码存入Byte类型变量,VB系统只按十进制数处理,这要通过一个简单算法换算,解压BCD码才能还原成十进制表示数值。如a是Byte类型变量,W是Single类型变量,将一个压缩的BCD码存入 a中,则算法是:
W=(a\16)*10 + a-(a\16)*16
则W=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
.CommPort=2 注释:使用COM2
.Setting="9600,N,8,1" 注释:设置通信口参数
.InBufferSize=40 注释:设置MSComm1接收缓冲区为40字节
.OutBufferSize=2 注释:设置MSComm1发送缓冲区为2字节
.bbbbbMode = combbbbbModeBinary 注释:设置接收数据模式为二进制形式
.bbbbbLen = 1 注释:设置bbbbb 一次从接收缓冲读取字节数为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.bbbbb
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 = .bbbbb 注释:读取一个接收字节
ab(1) = av(0) 注释:转换保存到字节数据类型数组
If ab(1) = 170 Then 注释:判断是否为数据开始标志,0FAH=170
.RThreshold = 0 注释:关闭OnComm事件接收
W=W+1 注释:计数器加1
av = .bbbbb 注释:读取通道状态字节
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位置零
cn = cn + 3 注释:帧长度加3个字节
End If
If ab(0) >= 64 Then 注释:判断*七通状态
TD(7) = True 注释:*七道是真
ab(0) = ab(0) - 64 注释:*6位置零
cn = cn + 3 注释:帧长度加3个字节
End If
If ab(0) >= 32 Then 注释:判断*六通状态
TD(6) = True 注释:*六道是真
ab(0) = ab(0) - 32 注释:*5位置零
cn = cn + 3 注释:帧长度加3个字节
End If
If ab(0) >= 16 Then 注释:判断*五通状态
TD(5) = True 注释:*五道是真
ab(0) = ab(0) - 16 注释:*4位置零
cn = cn + 3 注释:帧长度加3个字节
End If
If ab(0) >= 8 Then 注释:判断*四通状态
TD(4) = True 注释:*四道是真
ab(0) = ab(0) - 8 注释:*3位置零
cn = cn + 3 注释:帧长度加3个字节
End If
If ab(0) >= 4 Then 注释:判断*三通状态
TD(3) = True 注释:*三道是真
ab(0) = ab(0) - 4 注释:*2位置零
cn = cn + 3 注释:帧长度加3个字节
End If
If ab(0) >= 2 Then 注释:判断*二通状态
TD(2) = True 注释:*二道是真
ab(0) = ab(0) - 2 注释:*0位置零
cn = cn + 3 注释:帧长度加3个字节
End If
If ab(0) >= 1 Then 注释:判断**通状态
TD(1) = True 注释:**道是真
cn = cn + 3 注释:帧长度加3个字节
End If
For i = 1 To 8 注释:
If TD(i) = True Then
av = .bbbbb 注释:读取**个数据字节(BCD码高位字节)
ab(2) = av(0) 注释:转换保存到字节数据类型数组
av = .bbbbb 注释:读取*二个数据字节(BCD码低位字节)
ab(3) = av(0) 注释:转换保存到字节数据类型数组
av = .bbbbb 注释:读取*三个接收字节(符号位字节)
ab(4) = av(0) 注释:转换保存到字节数据类型数组
b1 = ab(2) - 6 * (ab(2) \ 16) 注释:高位字节压缩BCD码转换为实数
b2 = ab(3) - 6 * (ab(3) \ 16) 注释:低位字节压缩BCD码转换为实数
WW = b2 + b1 / 100 注释:数值组合,标定小数点
If ab(4) > 127 Then WW = -WW 注释:判断数据符号位
Label1(i-1) = bbbbat(WW,"0.00") 注释:显示毫米单位数值,2位小数
If WW>Wmax(i) And WW<51 Then 注释:判断较大值,仪表在刚开始工作时有干扰,会传导一些乱码,位移传感器有参数差,较大值一般都略大于50毫米,所以取51为极限较大值,取-51为极限较小值。
1、脉冲突跳起动方式
对于静阻力矩较大的负载,必须施加一个短时的大起动力矩,以克服静摩擦力,这就要求起动器可以短时输出的额定电压。
2、接触器旁路工作模式
当电动机全速运行后,用旁路接触器来取代已完成的软起动器,以降低晶闸管的热耗,提高系统效率。在这种模式下用一台软起动器起动多台电动机。
3、节能运行模式
电动机负荷较轻时,软起动器可自动降压,以此提高电动机功率因数。
4、软停车
在不希望电动机突然停车的场合,可以通过软停车方式来逐步降低电动机端电压。
5、泵停车
对惯性力矩较小的泵,软起动器在起动和停机过程中,实时检测电动机的负载电流,根据泵的负载和速度特性调节输出电压,“水锤效应”。
6、动力制动
在惯性力矩大的负载或需要快速停机的场合,可以向电动机输入直流电,以实现快速制动。