1、基于艾默生批控器自动装车系统的实现 【摘要】为了实现某石化企业自动装车，减少人为干预的同时避免出现人为交易错误的发生，该系统以数据库为各平台交互信息的媒介，使用了艾默生 DL8000 批控器，用户只需要按部就班地刷卡，就能够实现整个自动装车流程，实现了该系统与地磅系统和 ERP 管理平台的无缝结合。 【关键词】 wincc； SQL； ERP； modbus 协议； opc； vbs 0 引言 系统使用西门子组态软件 wincc 的浏览器 /服务器结构（即 B/S 架构），按照 ERP的管理流程进行设计，主要硬件有：批控器、读卡器、串口服务器、防火墙、交换机、服务器、浏览器等组成，软件主要有：
2、 wincc、 modbus网关、批控器编程组态软件 ROC800 以及数据库 sql server 等，需要接合系统有地磅系统和 ERP 管理平台。 1 系统设计的依据 1.1 自动装车业务流程： 1.1.1 生成订单：油（汽）款项汇款到帐，财务室制发交货单； 1.1.2 业务制信息卡：业务室获得交货单号后，为其分配鹤位，并制作加油（汽）卡； 1.1.3 门卫准入：到门卫刷卡核对订单和车辆信息，由门卫决定是否准入； 1.1.4 空车过磅（皮重）：空车上秤房刷卡后记录该订单的皮重信息； 1.1.5 进入装车厂到指定鹤位刷卡：装车员连接好管线，现场人员按下确认、开始键后，批控器按照该交货单数量进
3、行自动交付（流程详见 vbs 脚本 1），直至批控器交付结束，记录该单流量计 的流量重量； 1.1.6 二次过磅（毛重）：罐车装满后，回到秤房刷卡后该单毛重信息，与皮重相减得到罐车净重； 1.1.7 核验放行：到门卫刷卡，经门卫核对是否超差，如超差需补齐差额，然后下发放行指令，同时回收信息卡，以备下次循环使用。 1.2 与本文有关的装车系统数据库结构 计算机名： zcxt ， Sql 服务器名： zcxtwincc，数据库： sys。 表一、公共表和地磅卡号表 字段名 类型 字段名 类型 公共表 鹤位 字符 订单 日期 日期 流量重量 浮点数 交货单号 字符 皮重 浮点数 车牌号 字符 称皮重
4、时间 日期 客户名称 字符 毛重 浮点数 物料名称 字符 称毛重时间 日期 交货单数量 浮点数 净重 浮点数 读取标志 整数 地磅卡号表 制卡日期 日期 称编号 整数 完成标志 布尔值 卡号 整数 卡号 整数 密码 整数 1.3 与本文有关的批控器 DL8000 各寄存器的代码表（十进制） 表二： 状态位 （第几位 bit） 描述 发油状态 （浮点数） 描述 指令 （浮点数） 描述 00 操作模式为手动 10 间歇停止报警 1 提示配方 04 配方已选定 13 批处理完成 3 提示添加剂 06 预置体积已回车确认 23 流量控制 5 超时操作 10 批正在进行 24 阀门关闭 6 批准交易 1
5、2 交易已结束 26 等待停泵 7 结束交易 13 批已结束 27 停泵 8 提示预置体积 14 批已中止（未启动） 28 等到一 切停止 10 批准批 17 批已批准 29 批处理终止 13 结束批 18 交易已批准 32 批次结束 28 显示消息 19 已请求结束交易 33 等待阀门全关 48 复位设备 21 批已停止（可恢复） 38 交易结束 56 清除显示器 2 系统功能的实现 结合以上材料，首先批控器与读卡器通过 modbus总线的方式连接到串口服务器上，再通过 modbus 网关传输给 wincc，在 wincc 嵌入 vb 报表控件实现平台展示、存储和查询功能。用户的每一次刷卡都
6、 会将该订单按自动装车业务流程推进一步并将记录保存在 “ 公共表 ” 的读取标志中（ ERP 下发时初值为 0）。鹤位上的自动交付则由 wincc 的 vbs 脚本来实现对 12 个鹤位人机交互过程控制，代码见 Vbs 脚本 1，为实现秤房读卡器与地磅系统的结合，秤房的读卡器信息通过表 “ 地磅卡号表 ” 实时传递给地磅系统，详见 Vbs脚本 2，地磅系统通过卡号所绑定的订单自动连接到该订单的车辆信息，然后将对应的地磅信息更新到公共表中以供 ERP管理平台、装车系统使用。与财务结合的日报和月报销量汇总由电子表格作为查询与统计工具以浏览器端查询 “ 公共表 ” 来 完成。 2.1 部分 vbs
7、脚本 2.1.1 Vbs 脚本 1：某鹤位执行脚本，因为批控器与服务器使用 modbus协议通讯，考虑发送接收的延时，所以设定时触发为 2 秒 /次，即执行第一步两秒后执行第二步，以此类推，为使每次只执行一步，程序为倒序编写。由于篇幅有限保留流程注释，只写第八步。 Dim a, b, c, d， 单号 , 读卡号 , 读密码 , 实发油， kh,ddbh,hw 中间变量 批控器装车的交互过程如下代码步序用数字代替： 装车准备：如果批控器当前为 手动，则需要将当前的批控器操作模式变成自动。 0：在鹤位上刷卡 提取该卡号对应订单信息。 1：指令写入 1，写选择的配方序号 1到配方选择寄存器，屏幕出
8、现配方选择完成，请等待。 2：指令写入 6，屏幕出现交易已授权，请等待，此时自动装车系统下发本次装车的预置量。 3：指令写入 8，弹出预置画面。 4：经用户确认装车量后，按下回车键即状态位的第六个标志位（见表四）为 1，指令写入 10，屏幕显示准备装车画面，此时按 Start 键，用户便可以开始装车。 5：在正常进入发油的过程，发油状态为 23 这表明现场已经按下 start。 6：装车中止的情况下，如需继续装，则按下 Start 键重新启动；如需放弃此次装车过程，再次按 Stop 键（即此键按两次），屏幕显示 Batch Completed，此时再自动装车流程下，指令写入 13,结束（取消）
9、此批次。 7：指令写入 7，屏幕显示 Trans Ended，结束此次装车。 8：指令写入 1 进入配方选择画面。 9：指令写入 56来清除显示器，此时屏幕显示请等待，回 0步，等待下次刷卡。 读卡号 =(“读卡号 “).read 读 wincc 变量，省略（）前 HMIRunt 以下同 读密码 =(“读密码 “).read 单号 =(“交货单号 “).read 实发油 =(“实发油 “).read If (“流程标志 “).Read =8)Then8 b=“driver=sql server;server=zcxtwincc;uid=sa;密码=*pwd*;database=sys“ Set
10、 a = CreateObject(“adcation = 3 a.Open连数据库下文将省略类似连接 Set c = CreateObject(“AD 公共表 Set 流量重量 =“ & 实发油 & “, 读取标志 = 5,Batch_done=1 WHERE (交货单号 =“&单号 &“and 读取标志 =4)“ c.Open ssql1, a Set d= CreateObject(“ADdType = 1 d.CommandText = sSql1 Set c = d.Execute Set c = Nothing a.Close Set a = Nothing (“流程标志 “).W
11、rite 9 End If 2.1.2 Vbs 脚本 2：刷卡器与地磅系统的对接，定时触发为 2秒 /次。 Dim cc1， rst1， sql1 ， cnn1, p1c,p1p,p2c,p2p p1c=(“地磅卡号表 “).Read p1p=(“地磅密码 “).Read sql1= “UPDATE 地磅卡号表 Set 卡号 = “&p1c&“,密码 = “&p1p&“WHERE (称编号 = 1) “ End If 结束语 该装车系统既提供了现场的装车服务，又实现了数据的收集和共享功能，也是 wincc 借助协议网关与 DL8000 结合的首次尝试，系统经半年运行，验证了其可靠性和稳定性，现场人员对该系统的适用性给予肯定。 【参考文献】 艾默生 . A6212_DL8000_IM 作者简介】 岳俊奎（ 1978 ），男，哈尔滨人，助理工程师，大专学历，主要从事自动化控制 系统集成工作。 注：此稿不通过网络媒体发布
