- 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
- 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
- 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
- 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们。
- 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
- 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
WINCC常用脚本说明
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 、24\25
工单开始 31 、32、33、34\35
工单结束 41 、42 、43 、44\45
1-- 换柜, 2-- 工单开始, 3-- 班开始, 4-- 工单结束, 5-- 班结束
3. 读变量取值
格式: =HMIRuntime.Tags().READ
实例: MES_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. 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 = 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 = false ; 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=0\WINCC
strSQL = select distinct MATID from MES_ZS_WOR_CUT_BACK where WOID= Y
文档评论(0)