目录 1 概述 GMsgFunction 标准函数介绍 M874-3 介绍 WinSock 控件介绍组态步骤配置 M WinCC 组态运行结果总结... 1

Size: px

Start display at page:

Download "目录 1 概述 GMsgFunction 标准函数介绍 M874-3 介绍 WinSock 控件介绍组态步骤配置 M WinCC 组态运行结果总结... 1"

攒允乌
5 years ago
Views:

1 入门手册 11/2016 WinCC 报警自动发送短信功能 Simatic WinCC V7.4 Unrestricted

2 目录 1 概述 GMsgFunction 标准函数介绍 M874-3 介绍 WinSock 控件介绍组态步骤配置 M WinCC 组态运行结果总结 Unrestricted2

3 1 概述在许多工业现场, 当 WnCC 中指定的一些报警产生时, 需要通知到相关人员目前通知方式有画面报警 ( 比如报警控件显示报警, 对象闪烁 ), 声音报警 (WinCC Horn 组件 ) 以及报警发送短信本文档以 WinCC V7.4 结合 SCALANCE M874-3 为例, 介绍一下如何实现 WinCC 中产生报警时自动发送短信的功能实现这个功能的整体思路是 :WnCC 报警去触发 GMsgFunction 标准函数, 在函数中获取报警信息 ( 报警编号报警文本等 ) 后, 触发脚本操作 WinSock 控件发送报文到 M874-3, 从而将报警信息发送到手机上 2 GMsgFunction 标准函数介绍 WinCC 项目中使能 Triggers action 功能的报警被触发 ( 到来, 离开, 被确认...) 时, 将会触发 WinCC 标准函数 GMsgFunction 戳等图 1 函数 GMsgFunction 的传入参数提供了一系列消息数据, 包括消息状态消息号时间 Unrestricted3

可以通过插入运营服务商的手机卡连接到 2G/3G 的网络客户可以通过 M874-3 短信功能,

4 "GMsgFunction()" 函数可以在全局脚本编辑器中的 "Standard functions > Alarm > GMsgFunction" 中找到 3 M874-3 介绍西门子无线路由器 M874-3, 可以通过插入运营服务商的手机卡连接到 2G/3G 的网络客户可以通过 M874-3 短信功能, 实现和现场设备的信息交互图 2 图 3 M874-3 可以使用中国联通的 3G 手机卡, 以及中国移动和中国联通的 2G 手机卡 Unrestricted4

4 WinSock 控件介绍 Winsock 控件是一个专门用于 Windows 网络编程, 与 Sockets 完全兼容的 ActiveX 控件, 它提供了访问 TCP 和 UDP 网络服务的方便途径 MicroSoft 在 Sockets API 库的基础上创建了 WinSock 控件, 专门用于 Windows 接口, 与 Sockets 完全兼容 Winsock 包含有用户数据文报协议

5 4 WinSock 控件介绍 Winsock 控件是一个专门用于 Windows 网络编程, 与 Sockets 完全兼容的 ActiveX 控件, 它提供了访问 TCP 和 UDP 网络服务的方便途径 MicroSoft 在 Sockets API 库的基础上创建了 WinSock 控件, 专门用于 Windows 接口, 与 Sockets 完全兼容 Winsock 包含有用户数据文报协议 (UDP) 和传输控制协议 (TCP) Winsock 控件封装了烦琐的技术细节, 编写网络应用程序时, 不必了解 TCP/IP 的细节或调用低级的 Winsock APIs 通过设置控件的属性并调用其方法就可轻易连接到一台远程机器上去, 并且还可双向交换数据本文档在 WinCC 画面中使用 WinSock 控件往 M874-3 发送报文以实现报警时自动发送短信的功能 5 组态步骤 5.1 配置 M874-3 使用 IE 浏览器配置 M874-3, 本例中需要启动 Mobile Network Interface 和 SMS Relay Outgoing 功能启动 Mobile Network Interface 使用 IE 浏览器连接到 M874-3, 登录成功后, 找到 Interfaces -> Mobile 目录, 在 SIM 栏下使能 Enable Mobile Network Interface Radio Mode 和 Authentication Method 都设为 Auto 点击 Set Values 保存设置图 4 Unrestricted5

6 5.1.2 启动 SMS Relay Outgoing M874-3 具有短线转发 (SMS Relay) 功能 SMS Relay 功能分为两种, SMS Relay Outgoing SMS Relay Incoming SMS RelayIncoming 可以允许接收指定手机发送的特定指令格式的短信, 然后通过 TCP 连接转发给它内网的设备本文档不使用此项功能, 若感兴趣可以参考下面的链接 : SMS Relay Outgoing 可以允许接收内网的设备通过 TCP 连接发送的特殊指令格式的信息, 然后转发给指定的手机找到 System -> SMS 目录, 在 SIM Relay (Outgoing) 栏下使能 Enable SMS Relay 设置用户名和密码,WinCC 发送报文时会用到这里的用户名和密码设置端口号, 这里设置为图 5 Unrestricted6

7 图 6 点击 Set Values 保存设置指令数据格式 : user#password#105#01;phone number;my SMStext: User,password: 上图中设置的用户名和密码 uphone number: 接收短信的手机号码, 必须是格式 my SMStext: 要发送的报警信息文本注意 :M874-3 不支持中文信息文本 5.2 WinCC 组态创建变量在 WinCC 变量管理器中创建如下变量 : 图 7 Unrestricted7

2 报警组态创建如下报警, 触发变量 Alarm_word 不同的位触发不同的报警本例中, 报警的编号和 Point of error 的文本将作为短信内容注意,

8 Alarm_Coming: 报警状态 1: 有新到达的报警需要发送短信 ;0: 没有需要发送短信的报警或已经发送短信 Alarm_Num: 获取报警编号 Alarm_word: 报警触发变量 Alarm_Text: 获取报警的 Point of error 文本 Alarm_Class: 获取报警类别 Alarm_Type: 获取报警类型报警组态创建如下报警, 触发变量 Alarm_word 不同的位触发不同的报警本例中, 报警的编号和 Point of error 的文本将作为短信内容注意, 报警文本中不能包括中文,M874-3 不支持中文转发 ( 中文部分显示?) 在报警属性下使能 Trigger action 选项图修改 GMsgFunction 打开全局 C 脚本 : 图 9 Unrestricted8

9 图 10 GMsgFunction 函数位于 "Standard functions > Alarm > GMsgFunction", 双击打开图 11 修改脚本如下, 红色方框内是添加的内容 : Unrestricted9

10 修改后的 GMsgFunction 函数可以获取报警的文本报警类别和报警类型, 并把读取的值赋给 WinCC 变量同时判断报警状态, 当报警状态为到达时, 置位 Alarm_Coming 变量, 后续由这个变量触发发送短信的脚本修改后的完整代码如下 : 图 12 BOOL GMsgFunction( char* pszmsgdata) { MSG_RTDATA_STRUCT mrt; MSG_CSDATA_STRUCT sm; MSG_TEXT_STRUCT testacion; Unrestricted10

11 MSG_TEXT_STRUCT tclase; MSG_TEXT_STRUCT ttipo; CMN_ERROR perror; memset( &mrt, 0, sizeof( MSG_RTDATA_STRUCT ) ); if( pszmsgdata!= NULL ) { printf( "Meldung : %s \r\n", pszmsgdata ); sscanf( pszmsgdata, "%ld,%ld,%04d.%02d.%02d,%02d:%02d:%02d:%03d,%ld, %ld, %ld, %d,%d", &mrt.dwmsgnr, // Meldungsnummer &mrt.dwmsgstate, // Status MSG_STATE_COME,.._GO,.._QUIT,.._QUIT_SYSTEM &mrt.stmsgtime.wyear, // Jahr &mrt.stmsgtime.wmonth, // Monat &mrt.stmsgtime.wday, // Tag &mrt.stmsgtime.whour, // Stunde &mrt.stmsgtime.wminute, // Minute &mrt.stmsgtime.wsecond, // Sekunde &mrt.stmsgtime.wmilliseconds, // Millisekunde &mrt.dwtimediff, // Zeitdauer der anstehenden Meldung &mrt.dwcounter, // Interner Meldungszähler &mrt.dwflags, // Flags( intern ) &mrt.wpvalueused, &mrt.wtextvalueused ); // Prozesswerte lesen, falls gewünscht } printf("nr : %d, St: %x, %d-%d-%d %d:%d:%d.%d, Dur: %d, Cnt %d, Fl %d\r\n", mrt.dwmsgnr, mrt.dwmsgstate, mrt.stmsgtime.wday, mrt.stmsgtime.wmonth, mrt.stmsgtime.wyear, mrt.stmsgtime.whour, mrt.stmsgtime.wminute, mrt.stmsgtime.wsecond, mrt.stmsgtime.wmilliseconds, mrt.dwtimediff, mrt.dwcounter, mrt.dwflags ) ; if(mrt.dwmsgstate == MSG_STATE_COME) // 报警到达状态 { char aux; MSRTGetMsgCSData(mRT.dwMsgNr, &sm, &perror); // 根据报警编号获得报警数据 MSRTGetMsgText( 0, sm.dwtextid[1], &testacion, &perror); MSRTGetMsgText( 0, sm.wclass, &tclase, &perror); MSRTGetMsgText( 0, sm.wtyp, &ttipo, &perror); SetTagBit("Alarm_Coming",1); // 报警到达标志变量 SetTagWord("Alarm_Num",mRT.dwMsgNr); // 报警编号变量 sprintf(&aux,"%s",testacion.sztext); SetTagChar("Alarm_Text",&aux); // 报警文本变量 sprintf(&aux,"%d",sm.wclass); SetTagChar("Alarm_Class",&aux); // 报警类别变量 sprintf(&aux,"%d",sm.wtyp); SetTagChar("Alarm_Type",&aux); // 报警类型变量 } return( TRUE ); } Unrestricted11

12 在 WinCC 启动列表中选中 Global Script Runtime 和 Alarm Logging Runtime 图 13 运行 WinCC 项目, 通过设置报警字来触发报警, 可以看到 GMsgFunction 函数把报警编号和报警文本赋给相应的 WinCC 变量图 14 关于 GMsgFunction 函数, 请注意以下几点 : Unrestricted12

确保在修改文件 "gmsgfunc.fct" (../Siemens/WinCC/aplib/Alarm) 前, 先保存原始备份请保存修改过的文件 "gmsgfunc.fct", 因为如果重新安装 SIMATIC WinCC 的话, 该文件将被覆盖复制项目到其它计算机, 也需要复制文件 "gmsgfunc.fct" 注意所有的消息都会调用同一个 gmsgfunc.fct. 如果对于不同的消息事件想调用不同的处理函数, 可以在程序中根据自己的需求来处理当前的消息号或当前的消息状态请注意过度使用该函数可能会影响性能尽可能保证函数简洁本例中使用了一些 WinCC ODK 选件包中的函数, 本文档不负责解释其具体用法 5.

13 确保在修改文件 "gmsgfunc.fct" (../Siemens/WinCC/aplib/Alarm) 前, 先保存原始备份请保存修改过的文件 "gmsgfunc.fct", 因为如果重新安装 SIMATIC WinCC 的话, 该文件将被覆盖复制项目到其它计算机, 也需要复制文件 "gmsgfunc.fct" 注意所有的消息都会调用同一个 gmsgfunc.fct. 如果对于不同的消息事件想调用不同的处理函数, 可以在程序中根据自己的需求来处理当前的消息号或当前的消息状态请注意过度使用该函数可能会影响性能尽可能保证函数简洁本例中使用了一些 WinCC ODK 选件包中的函数, 本文档不负责解释其具体用法发送短信脚本首先需要添加 WinSock 控件到 WinCC 画面中在 ActiveX controls 上右键选择 Add/Remove 图 15 Unrestricted13

14 选择 Microsoft WinSock Control, 点击 OK 图 16 这样就能在控件下看到 WinSock 控件, 把它拖拽到画面中图 17 WinSock 控件是 Microsoft 的控件, 单独使用需要授权如果没有 WinSock 开发授权, 将会有如下提示 : 图 18 Unrestricted14

ScreenItems("Control1") Obj_SockClient.Protocol = "scktcpprotocol" Obj_SockClient.RemoteHost = "192.168.1.1" Obj_SockClient.

15 查看或设置 WinSock 控件的名字, 在下面的脚本中会用到这个控件名称图 19 打开 WinCC 全局脚本 VBS 编辑器, 创建 VBS 全局动作完整脚本如下 : 图 20 Dim Alarm_Coming Set Alarm_Coming = HMIRuntime.Tags("Alarm_Coming") Alarm_Coming.Read If Alarm_Coming.Value =1 Then Dim Obj_SockClient Set Obj_SockClient = HMIRuntime.Screens("SMS").ScreenItems("Control1") Obj_SockClient.Protocol = "scktcpprotocol" Obj_SockClient.RemoteHost = " " Obj_SockClient.RemotePort = HMIRuntime.Trace " 全局检测状态 " & Obj_SockClient.State & vbnewline Obj_SockClient.Close Obj_SockClient.Connect Alarm_Coming.Write 0 End If Unrestricted15

并设置触发器, 使用变量 Alarm_Coming 触发这个全局动作图 21 脚本中 SMS 是 WinSock 控件所在画面的画面名称从上面的脚本中可以看出 : WinSock 和 M874-3 通讯使用 TCP 协议 ( scktcpprotocol ) 每次发送报文前都需要 WinSock 重新连接 ( Obj_SockClient.

16 并设置触发器, 使用变量 Alarm_Coming 触发这个全局动作图 21 脚本中 SMS 是 WinSock 控件所在画面的画面名称从上面的脚本中可以看出 : WinSock 和 M874-3 通讯使用 TCP 协议 ( scktcpprotocol ) 每次发送报文前都需要 WinSock 重新连接 ( Obj_SockClient.Connect ) 这是因为 M874-3 收到报文或接受连接一段时间后都会断开当前连接此处没有报文发送的脚本, 这部分脚本写在 WinSock 的连接事件下 ( 建立连接后触发的事件 ) 使用变量 Alarm_Coming 触发全局动作时, 变量 Alarm_Coming 发生变化 (0->1,1->0) 脚本都会执行, 所以需要先判断变量 Alarm_Coming 为 1 时再往下执行脚本控制 WinSock 重新连接 ( Obj_SockClient.Connect ) 后, 需要复位变量 Alarm_Coming 以便下次出发 VBS 动作使用 HMIRuntime.Trace 可以输出自定义文本到诊断窗口选择智能对象下的 Application Window 控件, 拖拽到画面中, 接下来选择 Global Script -> GSC Diagnostics, 这样就在画面中添加了诊断窗口 Unrestricted16

17 图 22 在 WinSock 的 Connect 事件编写发送报文的脚本图 23 Unrestricted17

18 图 24 完整脚本如下 : Dim Alarm_Num,DisparoEstacion, Alm_string Set Alarm_Num = HMIRuntime.Tags("Alarm_Num") Set DisparoEstacion = HMIRuntime.Tags("Alarm_Text") Alarm_Num.Read DisparoEstacion.Read Alm_string = "aaaaaa#aaaaaa#105#01;0086xxxxxxxxxxx;alarm ID = " & CStr(Alarm_Num.Value) & ",Alarm Text = " & CStr(DisparoEstacion.Value) & ":" HMIRuntime.Trace " 发送文本 :" & Alm_string & vbnewline Item.SendData Alm_string '' 如果连接建立, 则发送讯数据命令数据包 hmiruntime.trace " 开始发送 " & vbnewline 本例中还可以在 WinSock 的 Error SendProgress SendComplete 事件加一些诊断脚本 ( 不是必须, 但有助于判断 WinSock 的工作状态 ) Error 事件 SendProgress 事件图 25 图 26 Unrestricted18

19 SendComplete 事件图运行结果触发报警, 手机自动收到报警短信图 28 6 总结本文当介绍了 WnCC 的 GMsgFunction 函数, 以及如何在 WinCC 中操作 WinSock 控件, 结合 M874-3 设备, 实现了 WinCC 指定的报警产生时自动发送短信的功能当客户使用其它厂家的短信模块时, 只需要按照要求修改 WinCC 发送的报文格式即可如果使用的是串口短信模块, 需要在 WinCC 中使用 Microsoft communication Control 控件发送报文到设备, 关于 WinCC 中使用 Microsoft communication Control 控件可以参考下面的 FAQ: Unrestricted19

6-WinCC_脚本系统

6-WinCC_脚本系统 SIMATIC HMI - A&D AS Cui Wei WinCC 的整个 WinCC 系统通过完整和丰富的编程系统实现了双向的开放性借助,WinCC 几乎可以通过 Win32 API 无限制地访问到 Windows 操作系统及该平台上各种应用的功能而 VB 脚本则从易用性和开发的快速性上具有优势 VBA 主要目的是让使用者能够轻松扩展 WinCC 软件的功能 2007 年 4 月 2 用来组态一些对象的动作

目录 1 概述 GMsgFunction 标准函数介绍 M874-3 介绍 WinSock 控件介绍 组态步骤 配置 M WinCC 组态 运行结果 总结... 1

目录 1 概述 GMsgFunction 标准函数介绍 M874-3 介绍 WinSock 控件介绍组态步骤配置 M WinCC 组态运行结果总结... 1