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”)
C onn.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=10.65.248.20\WINCC"
'strSQL = "select 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 = objConnection
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
objConnection.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 GDH1;
vbs脚本怎么停止Byte GDH2;
Double GDH3;
2.注释
格式：// （英文下）
实例： //换柜    21、22、23、24\25
//工单开始 31、32、33、34\35
//工单结束 41、42、43、44\45
//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 工单开始取消")
7.IF 判断
格式：if （）
else
实例：if ("WSJ_A_GDH_1"== 0)
Else
8.打开控件组态对话框
格式：SetPropWord(lpszPictureName,””,””,)
实例：SetPropWord(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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。