PC机与PLC在一卡通系统中的应用
文章出处：http://www.singbon.com 作者： 人气： 发表时间：2011年09月12日
摘要：本文对DVP 系列PLC 及射频IC 卡通用读卡模块的通信协议进行了详细的介绍，并以VB 为开发工具，实现了PC 机对读卡器的采样判断，再由PC 实现与PLC 的通讯和控制。
关键词：PLC ,一卡通系统, 串行通信, 读卡器, VB6.0
1、前言
一卡通系统在楼宇智能化方面已经得到了广泛的应用，对于安防、进出控制、身份识别等方面的技术日见成熟。通过PC 机实现对读卡器的采样及判断，在由PC 机发出控制指令给PLC，实现考勤管理及智能门禁控制，以动态数据画面、报表形式、文件共享等技术实现对办公及住宅的安全实时管理。本文详细介绍了125KHZ 射频卡读卡器及DVP 系列PLC的通讯协议,并在WINDOW 环境下使用VB 开发通讯,采样,记录及控制程序,实现PC 与读卡器、PLC 之间通信.
2、PC 与125KHZ 射频卡读卡器的数据采样
射频IC 卡识别技术,通常由载有密码的射频IC 卡来代替键盘密码,不可复制.读卡模块读出密码后,即产生输出信号,将卡号送入PC 进行数据库管理.
(1) 读卡器通讯协议传输速率为9600bps,无奇偶校验,数据位为8 位,1 个停止位.
(2) R232 数据格式
(3) 通信口初始化
Mscomm1.setting=”9600,N,8,1”
Mscomm1.comport=1
Mscomm1.input=0
Mscomm1.inputmode=cominputmodebinary
Mscomm1.rthreshold=11
Mscomm1.portopen=True
(4) 设置串口响应
Select Case Mscomm1.commevent
Case ComEvReceive
Dim buffer as Variant
Dim string(11) as string
Buffer=Mscomm1.inpu
Dim I as Interger
Dim Cardnumber as long
Cardnumber=CDec(buffer(7)*2^16+ buffer(8)*2^8+ buffer(9))
For I=0 to 10
StringBuf(I)=DecToHex(CDec(buffer(I)))
Next
Text1.Text = "数据:" & StringBuf(0) & StringBuf(1) & StringBuf(2) & StringBuf(3) _
& StringBuf(4) & StringBuf(5) & StringBuf(6) & StringBuf(7) & StringBuf(8) &
StringBuf(9) & StringBuf(10) & " 卡号:" & Str(CardNumber)
CardCode = Mid$(Text1.Text, 42)
End select
Function DecToHex(DecNumber As Integer) As String
If DecNumber <= 15 Then
DecToHex = " 0" & Hex(DecNumber)
Else: DecToHex = "" & Hex(DecNumber)
End If
End Function
进一步转换成卡号,利用ODBC打开存有关于卡号内容的本地数据库,对卡号进行判断并记录下合法卡号,当前时间及其他信息生成报表进行考勤管理和门禁控制.
3、PC 与DVP 系列PLC 的串行通讯
通过PC 的COM2 与DVP 系列PLC 的 RS-232C 端口连接,来实现控制
(1) DVP 系列PLC 的通信协议为ASCII 模式,9600 传输速度,偶同位,1 个起始位,1 个停止位.
(2)通讯资料格式
(3)接收命令
DVP 系列PLC 有读命令,复位命令和强制命令,表中X-输入继电器,Y-输出继电器,M-辅助继电器,S-状态元件,T-定时器,C-计数器,D-数据寄存器.另外用于强制命令时,0XFF000 为线圈导通0X0000 为断开
(4)PLC 装置地址
(5)PLC 基本梯型图
M1 由PC 发出通断命令,当X1 闭合时,M1 闭合则电磁门锁闭合,M1 断开则电磁门锁打开.当X1 断开时PC 只执行考勤而对门禁不起作用.
(6)通信初始化及控制
Mscomm2.setting=”9600,E,7,1”
Mscomm2.comport=2
Mscomm2.inputmode=cominputmodetext
Mscomm2.portopen=True
Private sub sendon()
Mscomm2.output=”:01050801FF00F2”+chr$(13)+chr$(10)
End sub
Private sub sendoff()
Mscomm2.output=”:010508010000F1”+chr$(13)+chr$(10)
End sub
4、结束语
该系统已经成功的运用于考勤和门禁管理,程序设计简明,且实现成本较低,可以通过互联网络进行远程管理和控制,对其他型号的PLC 和读卡器也有借鉴之处,在办公管理自动化中非常有效。
作者简介:杨文虎，男，1974 年出生，现为济南铁道职业技术学院讲师 山东大学控制科学与工程在职研究生, 主要进行基于CAN 总线的远程监控系统的研究与应用
