5.2 通信程序设计
VB通信中接收事件的程序清单如下
If MSComm1.CommEvent = comEvReceive Then
S1 = MSComm1.Input
If (S1 = Chr(&H1B)) And (Len(SCOMS) > 5) Then
SCOMS = ""
Else
If S1 <> Chr(&HD) Then
SCOMS = SCOMS & S1
Else
Call MYSAVE(SCOMS)
End If
End If
End If
VB通信中分配变量
SCOMS = Trim(SCOMS) ‘接收到20个字段
SCOMS = Right(SCOMS, 20)
vh5 = Trim(Mid(SCOMS, 8, 4)) ‘压力值的存放(字符串)
yld1 = CCLng(vh5)
vh6 = Trim(Mid(SCOMS, 12, 1)) ‘自动信号
zdd1 = vh6
vh7 = Trim(Mid(SCOMS, 13, 1)) ‘充气信号
cqd1 = CCLng(vh7)
vh8 = Trim(Mid(SCOMS, 14, 1)) ‘排气信号
结束语
在实际中采用自由口通信模式,运用VB6.0作为开发工具,方便的实现了S7—200PLC与上位PC 机间的通信,实现了对蝶阀气密检测的控制。经现场调试及运行表明,这是一种非常有效、可靠的通信方法,这种通信方法也可以应用于其它相关的通信场合,具有一定的普遍意义。
参考文献:
1 张维军,索世文等. PLC在自动化立体仓库控制系统中的应用.机械设计与制造,2004 (2), 55.
2 西门子有限公司.西门子SIMATICS7 - 200可编程序控制器系统手册, 2000, 9 ~ 140.
3 范逸之,陈立元.Visual Basic与RS - 232串行通信控制.北京:清华大学出版社,2002,59~65.
上一篇:微动机器人的致动机理研究