《WINCC常用脚本说明》由会员分享，可在线阅读，更多相关《WINCC常用脚本说明（7页珍藏版）》请在金锄头文库上搜索。
1、WINCC 常用脚本说明 第一篇 （ 2011-06- 郑州 -SZL） 一、 VBS 1. 定义变量 格式： Dim 变量 实例： Dim GDH1,PCH1,CL1,BC1,Silo1,PH1 Dim GDH2,PCH2,CL2,BC2,Silo2,PH2 2. 注释 格式： （英文下） 实例： 换柜 21 、 22、 23、 2425 工单开始 31 、 32、 33、 3435 工单结束 41 、 42、 43、 4445 1- 换柜， 2- 工单开始， 3- 班开始， 4- 工单结束， 5- 班结束 3. 读变量取值 格式： =HMIRuntime.Tags().READ 实例： M
2、ES_WO = MES_WO=HMIRuntime.Tags(CP_A_GDH).READ 4. 写变量赋值 格式： HMIRuntime.Tags().Write 实例： HMIRuntime.Tags(CP_A_GDCZBZ).Write 3,1 5. 调用 windows dialog 格式： If MsgBox(, vbYesNo, CONFIRM) = Then 实例： If MsgBox( 确定工单开始？ , vbYesNo, CONFIRM) = vbYes Then 6. 提示 Messagebox 格式： MsgBox() 实例： MsgBox(CP 工单开始取消 ) 7.
3、IF 判断 格式： if HMIRuntime.tags().read 0 then End if 实例： if HMIRuntime.tags(WSJ_A_GDH_1).read 0 then End if 8. 打开控件组态对话框 格式： ScreenItems( “” ).TollbarButtonClick = 实例： ScreenItems( “ Control1 ” ).TollbarButtonClick =2 9. 数据库操作 WinCC访问数据库的三种方法： a) 使用 WinCC OLE DB Provider 访问 WinCC过程值和消息归档 实例： Set conn =
4、 CreateObject( “ ADODB.Connection” ) Conn.open “ Provider = WinCCOLEDBProvider.1;catalog = CC_OpenArch; Data Source = .WinCC ” b) 使用 MS OLE DB Provider 访问 WinCC用户归档 实例： Set conn = CreateObject( “ ADODB.Connection” ) Conn.open“ Provider=SQLLEDB.1;Integrated Security = SSPI; Persist Security Info = fa
5、lse ; Initial Catalog = CC_OpenArch; Data Source = .WinCC ” c) 使用 VBS脚本通过 ODBC访问数据库 1) 连接数据库： 实例： YX = HMIRuntime.Tags(CP_A_GDH).READ strConnectiOnString = Provider= SQLOLEDB.1;Persist Security Info= False;User ID=dbzs1;Password=dbzs1;Initial Catalog=DBZS1;Data Source=10.65.248.20WINCC strSQL = sele
6、ct distinct MATID from MES_ZS_WOR_CUT_BACK where WOID= &YX& Set objCoNnection = CreateObject(ADODB.Connection) objConnection.ConnectiOnString = strConnectionString objConnection.open Set objR = CreateObject(ADODB.RecorDset) Set obJCommand = CreateObject(ADODB.Command) objCommand.ActiveCoNnection = o
7、bjConnection 2) 查找数据库 实例： strSQL = Select mzwcb.MATID FROM MES_ZS_WOR_CUT_BACK mzwcb WHERE mzwcb.WOID=&YX& AND mzwcb.MATID LIKE 270% 3) 写数据库 实例： objCommand.ComMandText = StrsqL Set objR = objCommand.ExEcute JX = JX = objR(0) HMIRuntime.Tags(CP_A_JXPH).Write JX 4) 关闭数据库 实例： Set obJCommand = Nothing o
8、bjConnection.Close Set objR = Nothing Set objCoNnection = Nothing 5) 数据库存储过程操作 objCommand.CommandText=WSJ_REPORT &GDH1&,&BC1&,&PCH1&,&PH1&,&Silo1&,&CL1&,&CStr(Now)&,3 V = WSJ_REPORT &GDH&,&BC&,&PCH&,&PH&,&Silo&,&CL&,&CStr(Now)&,3 MSgbox(1BKS) objCommand.Execute 二、 C脚本 1. 定义变量 格式： type 变量 实例： int GDH
9、1; Byte GDH2; Double GDH3; 2. 注释 格式： / （英文下） 实例： / 换柜 21 、 22、 23、 2425 / 工单开始 31 、 32、 33、 3435 / 工单结束 41 、 42、 43、 4445 /1- 换柜， 2- 工单开始， 3- 班开始， 4- 工单结束， 5- 班结束 3. 读变量取值 格式： GetTagByte(,); 实例： GetTagByte(WSJ_A_GDBL); GetTagByte(WSJ_A_OFWO5); 4. 写变量赋值 格式： SetTagByte(,); 实例： SetTagByte(WSJ_A_GDBL,1)
10、; SetTagByte(WSJ_A_OFWO5,1); 5. 调用 windows dialog 格式： MsgBox(, vbYesNo, CONFIRM) 实例： MsgBox( 确定工单开始？ , vbYesNo, CONFIRM) = vbYes Then 6. 提示 Messagebox 格式： MsgBox() 实例： MsgBox(CP 工单开始取消 ) 7.IF 判断 格式： if （） else 实例： if (WSJ_A_GDH_1= 0) Else 8. 打开控件组态对话框 格式： SetPropWord(lpszPictureName, ” , ” ,) 实例： Se
11、tPropWord(lpszPictureName, ” Control1 ” , ” TollbarButtonClick ” ,2) 三、 动态对话框 函数判断取值 实 例 ： (C_SA509_CASING_CUR_1= 63 | C_SA509_CASING_CUR_2 = 63 | C_SA509_CASING_CUR_3=63) & C_SA509_STATE=1 四、 WinCC组包含影响整个 WinCC系统的函数 1. BOOL GetHWDiag(LPCTSTR lpszPictureName, LPCTSTR lpszObjectName, LPCTSTR lpProper
12、ties) 函数 运行时该函数可实现诊断的直接启动，由事件触发。 2. BOOL GetHWDiagLevel(LPCTSTR lpszPictureName, LPCTSTR lpszObjectName, LPCTSTR lpProperties, DWORD dwLevel) 函数 根据在 dwLevel 下面指定的用户管理员功能号为激活的用户执行用户配置文件级测试。 3. BOOL GetKopFupAwlLevel(LPCTSTR lpszPictureName, LPCTSTR lpszObjectName,LPCTSTR lpProperties, DWORD dwLevel)
13、函数 根据在 dwLevel 下面指定的用户管理员功能号为激活的用户执行用户配置文件级测试。 4. void OnDeactivateExecute() 函数 终止 WinCC时调用该函数。 由于它是标准函数，可以插入指令，然后执行它们。 5. void OnErrorExecute(CCAPErrorExecute ErrorExecute) 函数 执行动作或函数而发生错误时由系统调用 OnErrorExecute 。 此函数能够确定出错的准确原因。 由系统调用该函数，并且不要求附加的调用命令。 由于包括作为标准函数的此函数，可以改变输出的类型。 6. unsigned int Execute(char* Program_Name) 函数 , 用指定的名称启动该程序。 从 WinCC启动程序的实例 / 启动程序 calc.exe 执行程序 (C:Winntsystem32calc.exe); 指定带路径的文件为参数。
