admin 管理员组文章数量: 1184232
2024年4月30日发(作者：html爱心烟花特效代码)
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. 读变量取值
格式：=("").READ
实例：MES_WO = ""
MES_WO=("CP_A_GDH").READ
4. 写变量赋值
格式：("").Write
实例：("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 ("").read <> 0 then
End if
实例：if ("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(
”
“tion”)
“Provider = WinCCOLEDBProvider.1;catalog = CC_OpenArch;
Data Source = .WinCC
b) 使用MS OLE DB Provider 访问WinCC用户归档
实例：
Set conn = CreateObject(“tion”)
”
“Provider=SQLLEDB.1;Integrated Security = SSPI; Persist Security
Info = false ; Initial Catalog = CC_OpenArch; Data Source = .WinCC
c) 使用VBS脚本通过ODBC访问数据库
1) 连接数据库：
实例：
YX = ("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 = "select distinct MATID from MES_ZS_WOR_CUT_BACK where WOID='" &YX& "'
"
Set objCoNnection = CreateObject("tion")
tiOnString = strConnectionString
Set objR = CreateObject("set")
Set obJCommand = CreateObject("d")
CoNnection = objConnection
2) 查找数据库
实例：
strSQL
= "Select FROM MES_ZS_WOR_CUT_BACK mzwcb WHERE
='"&YX&"' AND LIKE '270%'"
3) 写数据库
实例：
dText = StrsqL
Set objR = e
JX =""
JX = objR(0)
("CP_A_JXPH").Write JX
4) 关闭数据库
实例：
Set obJCommand = Nothing
Set objR = Nothing
Set objCoNnection = Nothing
5) 数据库存储过程操作
dText="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")
'e
二、 C脚本
1.定义变量
格式：type 变量
实例：int GDH1;
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);
SetTagByte("WSJ_A_OFWO5",1);
5.调用windows dialog
格式：MsgBox("", vbYesNo, "CONFIRM")
实例：MsgBox("确定工单开始？", vbYesNo, "CONFIRM") = vbYes Then
6.提示Messagebox
格式：MsgBox("")
实例：MsgBox("CP 工单开始取消")
判断
格式：if （）
else
实例：if ("WSJ_A_GDH_1"== 0)
Else
8.打开控件组态对话框
格式：SetPropWord(lpszPictureName,””,””,)
实例：SetPropWord(lpszPictureName,”Control1”,”TollbarButtonClick
三、 动态对话框
函数判断取值
实例：('C_SA509_CASING_CUR_1'<=63 || 'C_SA509_CASING_CUR_2'<
'C_SA509_CASING_CUR_3'<=63) && 'C_SA509_STATE'==1
”,2)
=63 ||
四、 WinCC组包含影响整个WinCC系统的函数
1.
BOOL GetHWDiag(LPCTSTR lpszPictureName, LPCTSTR lpszObjectName, LPCTSTR
函数
lpProperties)
运行时该函数可实现诊断的直接启动，由事件触发。
2.
BOOL GetHWDiagLevel(LPCTSTR lpszPictureName, LPCTSTR lpszObjectName, LPCTSTR
lpProperties, DWORD dwLevel)函数
根据在dwLevel下面指定的用户管理员功能号为激活的用户执行用
户配置文件级测试。
3.
BOOL GetKopFupAwlLevel(LPCTSTR lpszPictureName, LPCTSTR
函数 lpszObjectName,LPCTSTR lpProperties, DWORD dwLevel)
根据在dwLevel下面指定的用户管理员功能号为激活的用户执行用
户配置文件级测试。
4.
void OnDeactivateExecute()函数
终止WinCC时调用该函数。
由于它是标准函数，可以插入指令，然后执行它们。
5.
void OnErrorExecute(CCAPErrorExecute ErrorExecute)
执行动作或函数而发生错误时由系统调用
此函数能够确定出错的准确原因。
函数
OnErrorExecute。
由系统调用该函数，并且不要求附加的调用命令。
由于包括作为标准函数的此函数，可以改变输出的类型。
6.
unsigned int Execute(char* Program_Name)
从WinCC启动程序的实例
{//启动程序
函数,用指定的名称启动该程序。
执行程序 ("C:");
}
指定带路径的文件为参数。
版权声明：本文标题：WINCC常用脚本说明 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1714450818a680673.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论