语音报警的组态
在工业现场安全是极其重要的，无论从那个角度讲我们应该利用一切手段减少故障的发生。在故障已经发生的时候，应该在第一时间以多种方式通知操作人员有故障发生。现代微处理计算机的处理速度可以完全胜任对于图形，语音地同时处理。所以我们可以利用计算机的声卡和音箱在有故障发生的时候产生语言报警，但是问题是WinCC本身并不能产生语音的功能，而且其内部的上千个函数也没有提供处理声音的函数。解决这个问题的方法归功于微软开发的WinCC与操作系统地完美结合，因为在WinCC中可以直接调用Windows的API函数。实现的具体C脚本代码如下：
long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)
{
#pragma code(\"Winmm.dll\")
void WINAPI PlaySoundA(char *pszSound,char *hmode,DWORD dwflay);
#pragma code()
if(GetTagBit(\"112排泥备泵故障\"))
PlaySoundA(\"d:\\\\\\\\winnt\\\\\\\\media\\\\\\\\Mircosoft sound.wav\",NULL,8);
return 1020;
}重新启动后，不使用登录窗口如何以一个缺省用户的身份自动登录？怎样确保运行期间有个缺省用户始终处于登入状态？即使另外一个用户已经预先退出。
解答：
重新启动以及在运行期间，您希望HMI系统达到最小的实用性而不使用登录窗口。然而，对于高级操作，登录功能应当保留。此外，如果没有用户登录，则有一个缺省的用户自动登录。缺省用户的权限可以在用户管理器中根据需要设定。
可使用下面的C脚本执行此项功能，请按照下列步骤进行：
将附件中的函数“Silentlogin.pas”复制到项目中的“PAS”子文件夹中。
在项目中选择Global Script > C Editor > Actions > Global Actions并打开全局动作(Global Action)“Silentlogin.pas”。
在“PWRTSilentLogin (“Login”,“Password”);”一行中，用缺省的用户名替换用户“Login”，用缺省用户的口令代替“Password”。
无限循环命令
static int a=0, b=0;
if(GetTagBit("BINi_pictu_dyn_09"))
{
if(b==0) a++;
else a--;
if(a==7) b=1;
if(a==0) b=0;
}
return a;
//创建项目函数
BOOL ZS_PA_Start()
{
if(GetTagBit("BINi_ex_tlg_00"))
{
return TRUE;
}
else
{
return FALSE;
}
}
工具栏按钮命令
TlgTrendWindowPressStartStopButton
TlgTrendWindowPressFirstButton
TlgTrendWindowPressPrevButton
TlgTrendWindowPressNextButton
TlgTrendWindowPressLastButton
用VBS脚本实现，就是把文件名称以变量的形式表示。参考
'关闭保存
Dim patch,filename
filename=CStr(Year(Now))&CStr(Month(Now))&CStr(Day(Now))&CStr(Hour(Now))+CStr(Min ute(Now))&CStr(Second(Now))
patch= "d:\"&filename&"demo.xls"
objExcelApp.ActiveWorkbook.SaveAs patch
objExcelApp.Workbooks.Close
objExcelApp.Quit
Set objExcelApp= Nothing
语音报警的组态
在工业现场安全是极其重要的，无论从那个角度讲我们应该利用一切手段减少故障的发生。在故障已经发生的时候，应该在第一时间以多种方式通知操作人员有故障发生。现代微处理计算机的处理速度可以完全胜任对于图形，语音地同时处理。所以我们可以利用计算机的声
卡和音箱在有故障发生的时候产生语言报警，但是问题是WinCC本身并不能产生语音的功能，而且其内部的上千个函数也没有提供处理声音的函数。解决这个问题的方法归功于微软开发的WinCC与操作系统地完美结合，因为在WinCC中可以直接调用Windows的API函数。实现的具体C脚本代码如下：
long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)
{
#pragma code(\"Winmm.dll\")
void WINAPI PlaySoundA(char *pszSound,char *hmode,DWORD dwflay);
#pragma code()
if(GetTagBit(\"112排泥备泵故障\"))
PlaySoundA(\"d:\\\\\\\\winnt\\\\\\\\media\\\\\\\\Mircosoft sound.wav\",NULL,8);
return 1020;
}
DeactivateRTProject ();//退出系统 #pragma code("useadmin.dll") #include"PWRT_api.h" #pragma code() char* CUser=NULL; CUser=GetTagChar("@CurrentUser"); if (strlen(CUser)==0) { PWRTSilentLogin("operator","123456");//用户“operator",密码"123456”登录} OpenPicture("@MAIN.pdl"); } 在画面中结合不同按钮来组态下面 C 操作 Login Action for login (for example, "mouse click" event): #pragma code ("useadmin.dll") #include "PWRT_api.h" #pragma code() PWRTLogin('c'); Logout Action for logout (for example, "mouse click" event): #pragma code ("useadmin.dll") #include "PWRT_api.h" #pragma code() PWRTLogout(); PWRTLogin 参数必须是CHAR 字符。它指定了显示对话框的监视器。如果只使用一个监视器，那么保留默认参数“c”或者指定“1”。 注意 可以使用PASSLoginDialog 函数来代替PWRTLogin 或者PWRTLogout 函数。这个函数需要和函数PWRTLogin 相同的参数。PWRTLogin 和PASSLoginDialog 函数可以调用登录界面，在上面可以登录或者注销。函数PWRTLogout 被正确执行并且不调用登录界面。 正确执行后这两个函数都返回“1”。然而，登录不会等到显示对话框之后。 注意 如果使用多个显示器，为了能使登录对话框显示在合适的显示器上，需要WinCC Basic Process Control (OS项目编辑器)。 不使用WinCC Basic Process Control 时，可以指定显示器编号，但登录对话框始终显示在第一个显示器上。 #include"apdefap.h"//调用函数代码 void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)
1、Wincc online trend控件实现多条曲线查询 项目要求，查询任意时段内的两条曲线的历史数据 1、首先在变量记录中设置需要记录的变量，如果需要在一个控件内显示两条曲线，做数据 归档时，归档属性最好是一致的，归档属性不一样是否会出现问题，这个没测试，有兴趣的可以测试一下。 2、数据记录设置OK后，新建画面插入online trend控件，我的项目需要把趋势打印出来， 所以把控件的工具栏全部隐藏。 3、双击online trend控件，添加需要显示的归档变量。选择公共X,Y轴等参数。坐标显示 根据自己使用选择，基本上不用设置太多参数。 4、添加需要显示的历史归档变量后，就需要写脚本了，西门子工控网论坛有实例，实例提 示针对于一条曲线时使用，咨询西门子技术支持，如果需要同时显示两条曲线时，需要对两条曲线分别进行设置属性“控件.index=0,1”，但是测试其实只设置index=0的起始及结束时间就OK，就是论坛给的实例不是只针对于一条曲线，两条曲线时同样适用，再多的曲线就没测试了。 5、西门子默认的时间格式为“MM-DD-YYYY HH-MM-SS”格式，所以在设置趋势起始及 结束时间时需要注意。 6、注：导入归档数据需要一定的时间，建议按钮触发。尝试在画面打开时触发脚本，有的 时候会出现历史数据加载不上来。 7、脚本如下，仅供参考 Dim objConnection Dim strConnectionString Dim strSQL Dim objrs Dim chaxun '定义曲线控件 Dim TREND Dim strval_1
Dim strval_2 Dim strval_t1 Dim strval_t2 '初始化程序，省略N行。。。。。。。。。。。。。。。。。。。。。。。。。。。。 '初始化程序，省略N行。。。。。。。。。。。。。。。。。。。。。。。。。。。。 chaxun=HMIRuntime.Tags("管号查询输入").Read strConnectionString = "Provider=MSDASQL;DSN=REPORT;UID=;PWD=;" strSQL = "select * from report where guanhao='"&chaxun&"';" Set objConnection = CreateObject("ADODB.Connection") objConnection.ConnectionString = strConnectionString objConnection.Open Set objrs = CreateObject("ADODB.RecordSet") objrs.open strSQL,objConnection /赋值程序，省略，，，，，，，，，，，，，，，，，，，，，，/ /赋值程序，省略，，，，，，，，，，，，，，，，，，，，，，/ objrs.close Set objrs = Nothing objConnection.Close Set objConnection = Nothing '趋势时间设定 Set trend = ScreenItems("控件1") strval_r=HMIRuntime.Tags("测试日期_read").Read strval_t1=HMIRuntime.Tags("开始时间_read").Read strval_t2=HMIRuntime.Tags("测试时间_read").Read
语音报警的组态 在工业现场安全是极其重要的，无论从那个角度讲我们应该利用一切手段减少故障的发生。在故障已经发生的时候，应该在第一时间以多种方式通知操作人员有故障发生。现代微处理计算机的处理速度可以完全胜任对于图形，语音地同时处理。所以我们可以利用计算机的声卡和音箱在有故障发生的时候产生语言报警，但是问题是WinCC本身并不能产生语音的功能，而且其内部的上千个函数也没有提供处理声音的函数。解决这个问题的方法归功于微软开发的WinCC与操作系统地完美结合，因为在WinCC中可以直接调用Windows的API函数。实现的具体C脚本代码如下： long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { #pragma code(\"Winmm.dll\") void WINAPI PlaySoundA(char *pszSound,char *hmode,DWORD dwflay); #pragma code() if(GetTagBit(\"112排泥备泵故障\")) PlaySoundA(\"d:\\\\\\\\winnt\\\\\\\\media\\\\\\\\Mircosoft sound.wav\",NULL,8); return 1020; }重新启动后，不使用登录窗口如何以一个缺省用户的身份自动登录？怎样确保运行期间有个缺省用户始终处于登入状态？即使另外一个用户已经预先退出。 解答： 重新启动以及在运行期间，您希望HMI系统达到最小的实用性而不使用登录窗口。然而，对于高级操作，登录功能应当保留。此外，如果没有用户登录，则有一个缺省的用户自动登录。缺省用户的权限可以在用户管理器中根据需要设定。 可使用下面的C脚本执行此项功能，请按照下列步骤进行： 将附件中的函数“Silentlogin.pas”复制到项目中的“PAS”子文件夹中。 在项目中选择Global Script > C Editor > Actions > Global Actions并打开全局动作(Global Action)“Silentlogin.pas”。 在“PWRTSilentLogin (“Login”,“Password”);”一行中，用缺省的用户名替换用户“Login”，用缺省用户的口令代替“Password”。 无限循环命令 static int a=0, b=0; if(GetTagBit("BINi_pictu_dyn_09")) { if(b==0) a++; else a--; if(a==7) b=1; if(a==0) b=0; }
WinCC脚本案例保留 2010-09-16 16:44 最近做一个WinCC跟ERP通讯的一个小项目,将脚本语言保留下来,以备不时之需! 仅仅是保留,各位看官如发现不妥之处请加以指教. 1.通过扫描枪扫描到ID号传给PLC,WinCC读取到ID号从ERP数据库中查找相关数据,写回到PLC,并给PLC一个写完成确认信号.(数据库是SqlServer2000) Dim DB240trigger,db241trigger db240trigger=HMIRuntime.Tags("db240itrigger").Read db241trigger=HMIRuntime.Tags("DB241itrigger").Read Dim ss,str str=HMIRuntime.Tags("DB240szcoil_ID").Read ss=CStr(str) If (db240trigger=1 And db241trigger=0 ) Then Dim sPro,sDsn,sSer,sCon,sSql Dim oRsMaterial,conn,oCom,oItem,oRsSCHEMA Dim database,server,uid,pwd sCon ="driver=sql server;server=10.51.103.96;DATABASE=brgs_release;uid=sa;pwd=pasword" Set conn = CreateObject("ADODB.Connection") conn.ConnectionString = sCon conn.Open Set oRsMaterial = CreateObject("ADODB.Recordset") sSql= "SELECT * FROM dbo.BRGS_GP_Material where MkNo='" & CStr(ss) & "'" oRsMaterial.open ssql,conn,1,1 Dim m,n m=oRsMaterial.recordcount If m<>1 Then MsgBox "这个ID号找不到唯一的一条参数信息,请手动输入信息!" Exit Function End If Dim sCon2,sSql2
Vbs 操作wincc画面脚本总结 一：不使用变量单纯的操作界面 1.操作某个画面中控件的属性如Home1.Pdl（总窗体）下的画面窗口2（画面窗口） Sub OnClick(ByVal Item) Dim objCircle Dim screenname Dim pwname Set objCircle= ScreenItems("圆1" ) objCircle.Radius = 60 Set screenname=HMIRuntime.Screens("Home1") //获取要操作的窗体 Set pwname=screenname.ScreenItems("画面窗口2") //获取要操作的控件，这里填入你要操作的控件名 MsgBox(objCircle.Radius) //输出圆的半径 MsgBox (pwname.Picturename) //输出当前画面窗口2的名字 End Sub 注意当调用某窗体下的某控件的某个属性时,需要声明两个对象，一个接纳这个控件，一个接纳值例如 Dim object Dim value Set object =HMIRuntime.Screens("Home1").ScreenItems("画面窗口2") Set value=object.picturename 2.更改画面窗口的对象 Sub OnClick(Byval Item) Dim opObject Set opObject=HMIRuntime.Screens ("Home1").ScreenItems("画面窗口2") opObject.PictureName="Page1.Pdl" End Sub 3.设置文本 Set titleTxt=HMIRuntime.Screens ("Home1").ScreenItems("静态文本2") titleTxt.Text =titleTxt.Text+"EF" //获取文本的值并追加字符 4.vb 字符串函数 VB的字符串截取函数有Left（字符串，n），返回字符串前N个字符；Mid（字符串，p，n），从第p个字符开始，向后截取N个字符；right（字符串，n），返回字符串的最后n个字符。 获取下标
WinCC 视频教程知识点总结 第一讲组态软件基础 一、WinCC简介 1、WinCC 西门子视窗控制中心SIMATIC WinCC（Windows Control Center）是在计算机上对PLC 控制的运行设备进行状态监控的软件，是PC上的监控软件。 运行该软件，可以动画监视现场设备的运行状况，监视相应的运行参数，以及更改、设置系统的运行数据。 2、WinCC的特点 （1）开放性 WinCC对用户所添加的任何形式的扩充是绝对开放，该绝对开放性是通过WinCC的模块结构及其强大的编程接口来获取的。 （2）将应用软件集成到WinCC中 WinCC提供了一些方法将其他应用程序和应用程序块统一地集成到用于过程控制的用户界面中。OLE应用程序窗口和OLE自定义控制或Active控制可以集成到WinCC应用软件中。 （3）WinCC中的数据管理 WinCC的数据库为Windows SQL，从属于WinCC，该数据库用于存储所有面向列表的组态数据（如变量列表和消息文本），以及当前过程数据（如消息，测量值和用户数据记录等）该数据库具有服务器功能。
（4）在项目开始之前规定组态分类 a、文件夹名称 除一些特殊字符（例如\）之外，文件夹名称允许使用所有的字符。还允许使用数字0~9. b、变量名称 变量名称可以多于8个字符。但应尽量避免太长的名称。WinCC项目的变量名称必须是唯一的。如果变量名称还包含了其他信息，这对用户将非常有用。 c、画面名称 确定画面名称时应注意其长度的影响，太长的名称（文件名）不容易识别（列表框中的选择，脚本中的调用等）。根据经验表明，长度最好不超过28个字符，画面名称应遵守以下限制条件：①最大长度为255个字符；②不使用某些特殊字符（例如\）；③画面名称中的字母不区分大小写。 二、WinCC软件的安装 1、安装S7-300/400PLC编程软件STEP7及PLCSIM； 2、安装数据库软件SQL Server 2000； 3、安装消息列队（软件操作）； 4、安装WinCC（建议不选典型安装，选择全部安装）。 三、WinCC管理器 1、WinCC项目管理器的结构 WinCC项目管理器的用户界面由以下元素组成：标题栏、菜单栏、工具栏、状态栏、浏览窗口和数据窗口：
V B操作w i n c c脚本心 得精选文档 TTMS system office room 【TTMS16H-TTMS2A-TTMS8Q8-
Vbs 操作wincc画面脚本总结 一：不使用变量单纯的操作界面 1.操作某个画面中控件的属性如 Home1.Pdl（总窗体）下的画面窗口2（画面窗口） Sub OnClick(ByVal Item) Dim objCircle Dim screenname Dim pwname Set objCircle= ScreenItems("圆1" ) objCircle.Radius = 60 Set screenname=HMIRuntime.Screens("Home1") //获取要操作的窗体 Set pwname=screenname.ScreenItems("画面窗口2") //获取要操作的控件，这里填入你要操作的控件名 MsgBox(objCircle.Radius) //输出圆的半径 MsgBox (pwname.Picturename) //输出当前画面窗口2的名字 End Sub 注意当调用某窗体下的某控件的某个属性时,需要声明两个对象，一个接纳这个控件，一个接纳值例如 Dim object Dim value Set object =HMIRuntime.Screens("Home1").ScreenItems("画面窗口2") Set value=object.picturename
2.更改画面窗口的对象 Sub OnClick(Byval Item) Dim opObject Set opObject=HMIRuntime.Screens ("Home1").ScreenItems("画面窗口2") opObject.PictureName="Page1.Pdl" End Sub 3.设置文本 Set titleTxt=HMIRuntime.Screens ("Home1").ScreenItems("静态文本2") titleTxt.Text =titleTxt.Text+"EF" //获取文本的值并追加字符 4.vb 字符串函数 VB的字符串截取函数有Left（字符串，n），返回字符串前N个字符； Mid（字符串，p，n），从第p个字符开始，向后截取N个字符；right（字符串，n），返回字符串的最后n个字符。 获取下标 VB中的InStr()函数与InStrRev()函数： 都是在主字符串当中搜寻寻找子字符串，返回找到的子字符串在主字符串中出现的位置； 不同在于； InStr()函数，从左开始向右寻找，InStrRev()函数，从右开始向左寻找。 截取 right 和left 获取长度 Len
查看文章 wincc常用C动作 2010-06-27 10:31 1.用户注销： #pragma code ("useadmin.dll") #include "PWRT_api.h" #pragma code() PWRTLogout(); 2.用户登录： #pragma code ("useadmin.dll") #include "PWRT_api.h" #pragma code() PWRTLogin('c'); 3.关闭项目并退出wincc： ExitWinCC (); 4.退出运行到wincc资源管理器： DeactivateRTProject (); 5.结束监控并关闭计算机（会弹出确认对话框） HWND hWnd = NULL;//Author:Smartsys int iRet; hWnd = FindWindow(NULL,"WinCC-运行系统 - "); iRet=MessageBox(hWnd,"结束监控并关闭计算机", "关闭操作站",MB_YESNO|MB_ICONWARNING|MB_APPLMODAL); if(iRet==IDYES) DMExitWinCCEx (DM_SDMODE_POWEROFF); 6.点击事件弹出对话框，通过点击弹出对话框的确定和取消按钮实现对变量的置位或取消: int r; r=MessageBox(NULL, "YES为开，NO为关", "确定开命令：", MB_YESNO |MB_SYSTEMMODAL); if (r==IDYES) SetTagBit("TAGNAME",TRUE); else SetTagBit("TAGNAME",FALSE); 7.开显示关显示:（要在内部变量中建立三个二进制变量COLSE_DISPLAY、DISPLAY_NO和DISPLAY_COMMENT） // Funktion: Bit in Doppelwort setzen; if (GetTagBitWait("COLSE_DISPLAY")==1 )
切换按钮 001SetTagBit("TE_BOOL",!GetTagBit("TE_BOOL")); 002BOOL A A=GetTagBit("TE_BOOL"); if(A)SetTagBit("TE_BOOL",0); ElseSetTagBit("TE_BOOL",1); 003SetTagBit("TE_BOOL ",1-GetTagBit("TE_BOOL ")); I O域处的xx输入输出 在I/O域的输出值事件处的动作 Float F_TAG; F_TAG =GetTagFloat("TE_FLOAT"); return(F_TAG /100); WINCC运行画面最小化 HWND WinCCHwnd; WinCCHwnd=FindWindow("PDLRTisAliveAndWaitsForYou",NULL); CloseWindow(WinCCHwnd); WINDOWSxx提供的标准对话框 {BOOL bool1; HWND Hwnd; int iRet; Hwnd = FindWindow(NULL,"WinCC-运行系统- ");
if (!Hwnd) Hwnd = FindWindow(NULL,"WinCC-运行系统- "); if (!Hwnd) printf("\r\nGetWinCC Handle Failed!"); iRet=MessageBox(Hwnd,"确认合闸","确认对话框 ",MB_YESNOCANCEL|MB_ICONEXCLAMATION|MB_SETFOREGROUND|MB_SYSTEM MODAL); switch (iRet){case IDYES: printf("user do YES\r\n"); SetTagBit("TE_QUEST",1); break; case IDNO: printf("user do NO\r\n"); SetTagBit("TE_QUEST",0); break; case IDCANCEL: printf("user do CANCEL\r\n"); break;}} 本画框的功能是点击按钮的时候弹出windows询问对话框其中“确认合闸”为对话内容，对话框的名称为“确认对话框” 用户不同显示不同的按钮 你可以在用户管理器给每个用户不同的权限，使他们对按钮有不同的操作权，这是最简便的。但是如果一定要根据用户不同显示不同的按钮就要用C脚本了
打开用户管理器 ProgramExecute("Passcs.exe"); 取消激活 #include "apdefap.h" void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y) { #pragma option(mbcs) HWND hwnd=NULL; int iRet; hwnd=FindWindow(NULL,"WinCC-运行系统- "); //获得句柄 iRet=MessageBox(hwnd,"是否取消激活?","Deactivate",MB_OKCANCEL|MB_ICONW ARNING|MB_APPLMODAL); if(iRet==1) DeactivateRTProject (); //Return-Type: BOOL 关闭计算机 #include "apdefap.h" void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y) { #pragma option(mbcs) HWND hwnd=NULL; int iRet; hwnd=FindWindow(NULL,"WinCC-运行系统- "); iRet=MessageBox(hwnd,"是否关闭计算机?","ShutDown",MB_OKCANCEL|MB_ICONW ARNING|MB_APPLMODAL); if(iRet==1) DMExitWinCCEx(DM_SDMODE_SYSTEM); } ====================================================================== 登陆代码: #pragma code(“useadmin.dll”) #include
——————1、wincc全局脚本动作-------隐藏控件—————— #include "apdefap.h" int gscAction( void ) { // WINCC:TAGNAME_SECTION_START // syntax: #define TagNameInAction "DMTagName" // next TagID : 1 // WINCC:TAGNAME_SECTION_END int value; value=GetTagBit("IM_in");//"IM_in"为触发的变量。 if(value==1) { SetVisible("lianxi.pdl","按钮8",TRUE);//lianxi.pdl为控制对象所在画面名，“按钮8”为对象名称 } else { SetVisible("lianxi.pdl","按钮8",FALSE);//lianxi.pdl } // WINCC:PICNAME_SECTION_START // syntax: #define PicNameInAction "PictureName" // next PicID : 1 // WINCC:PICNAME_SECTION_END return 0; } ===================================================== 说明：在触发器里选择变量IM_in ——————2、wincc全局脚本动作----提示框—————— #include "apdefap.h" int gscAction( void ) { // WINCC:TAGNAME_SECTION_START // syntax: #define TagNameInAction "DMTagName" // next TagID : 1 // WINCC:TAGNAME_SECTION_END int value;
精心整理1.用户注销： #pragmacode("useadmin.dll") #include"PWRT_api.h" #pragmacode() PWRTLogout(); 2.用户登录： #pragmacode("useadmin.dll") #include"PWRT_api.h" #pragmacode() PWRTLogin('c'); 3.关闭项目并退出wincc： ExitWinCC(); 4.退出运行到wincc资源管理器： DeactivateRTProject(); 按钮变三种颜色 #include"apdefap.h" long_main(char*lpszPictureName,char*lpszObjectName,char*lpszPropertyName) { #pragmaoption(mbcs) if(GetTagWord("TX/ZSH001")==1) return0x0000ff00; else if(GetTagWord("TX/ZSL001")==1) return0x000000ff; else return0x00c0c0c0; } 一个调用按钮变色 #include"apdefap.h" long_main(char*lpszPictureName,char*lpszObjectName,char*lpszPropertyName) {
#pragmaoption(mbcs) if(GetTagWord("NewTag")==0) return0x0000ff00; else return0x00ffffff; } 5.结束监控并关闭计算机（会弹出确认对话框） HWNDhWnd=NULL;//Author:Smartsys intiRet; hWnd=FindWindow(NULL,"WinCC-运行系统-"); iRet=MessageBox(hWnd,"结束监控并关闭计算机", "关闭操作站",MB_YESNO|MB_ICONWARNING|MB_APPLMODAL); if(iRet==IDYES) ???DMExitWinCCEx(DM_SDMODE_POWEROFF); 6.点击事件弹出对话框，通过点击弹出对话框的确定和取消按钮实现对变量的置位或取消: intr; r=MessageBox(NULL,"YES为开，NO为关","确定开命令：",MB_YESNO|MB_SYSTEMMODAL); if(r==IDYES) SetTagBit("TAGNAME",TRUE); else SetTagBit("TAGNAME",FALSE); 7.开显示关显示:（要在内部变量中建立三个二进制变量COLSE_DISPLAY、DISPLAY_NO和DISPLAY_COMMENT）//Funktion:BitinDoppelwortsetzen; if(GetTagBitWait("COLSE_DISPLAY")==1) {SetTagBit("COLSE_DISPLAY",0); SetTagBit("DISPLAY_NO",0);//Return-Type:BOOL SetTagBit("DISPLAY_COMMENT",0); } else??? {SetTagBit("COLSE_DISPLAY",1); SetTagBit("DISPLAY_NO",1);//Return-Type:BOOL SetTagBit("DISPLAY_COMMENT",0); } 8.开阀确认: BOOLa; a=GetTagBit("30T制水启动");//Return-Type:shortint if(a==0) {
切换按钮 001 SetTagBit("TE_BOOL",!GetTagBit("TE_BOOL")); 002 BOOL A A=GetTagBit("TE_BOOL"); if(A) SetTagBit("TE_BOOL",0); Else SetTagBit("TE_BOOL",1); 003 SetTagBit("TE_BOOL ",1-GetTagBit("TE_BOOL ")); I O 域处的格式化输入输出 在I/O域的输出值事件处的动作 Float F_TAG; F_TAG =GetTagFloat("TE_FLOAT"); return(F_TAG /100); WINCC运行画面最小化 HWND WinCCHwnd; WinCCHwnd=FindWindow("PDLRTisAliveAndWaitsForYou",NULL); CloseWindow(WinCCHwnd); WINDOWS中提供的标准对话框 { BOOL bool1; HWND Hwnd; int iRet; Hwnd = FindWindow(NULL,"WinCC-运行系统- "); if (!Hwnd) Hwnd = FindWindow(NULL,"WinCC-运行系统- "); if (!Hwnd) printf("\r\nGetWinCC Handle Failed!"); iRet=MessageBox(Hwnd,"确认合闸","确认对话框",MB_YESNOCANCEL|MB_ICONEXCLAMATION|MB_SETFOREGROUND|MB_SYSTEMMODAL); switch (iRet) {
WinCC上可以很方便的编写VB脚本和C脚本，但是调试起来还是比较费劲的。下面介绍一下个人的应用体会。 1，VB，最好安装VB6，先在VB6里面编写程序，然后再放到WinCC的脚本中，事半功倍，毕竟VB的调试非常方便。 a，插入引用 注意选择OLE Automation 和WinCC *****； b，可以直接在VB里面调用WinCC的全部变量，部，外部全可以： 如下：
c，在VB里面监视WinCC的变量： d，调试完毕，程序拷贝到WinCC 的脚本中。 2，C语言 系统提供了一个应用程序窗口，如下，只要把他拖到画面窗口即可：
2，使用Printf函数，把需要调试的容打印出来；
3，效果如下： 希望对大家有点用处。 下面容来自网络，感原文作者。 wenku.baidu./link?url=vEykUwHY3kamu6EGqrO8WX1XVc6_IMzRfnfkcwe5JpmjmPLUH msod1xIDeQUpd1MJgUMD9IlS8bcIsH6GWpHwjuq76wAjG6NjSkndSrQK Vbs 操作wincc画面脚本总结 一：不使用变量单纯的操作界面 1.操作某个画面中控件的属性如Home1.Pdl（总窗体）下的画面窗口2（画面窗口） Sub OnClick(ByVal Item) Dim objCircle Dim screenname
Dim pwname Set objCircle= ScreenItems("圆1" ) objCircle.Radius = 60 Set screenname=HMIRuntime.Screens("Home1") //获取要操作的窗体 Set pwname=screenname.ScreenItems("画面窗口2") //获取要操作的控件，这里填入你要操作的控件名 MsgBox(objCircle.Radius) //输出圆的半径 MsgBox (pwname.Picturename) //输出当前画面窗口2的名字 End Sub 注意当调用某窗体下的某控件的某个属性时,需要声明两个对象，一个接纳这个控件，一个接纳值例如 Dim object Dim value Set object =HMIRuntime.Screens("Home1").ScreenItems("画面窗口2") Set value=object.picturename 2.更改画面窗口的对象 Sub OnClick(Byval Item) Dim opObject Set opObject=HMIRuntime.Screens ("Home1").ScreenItems("画面窗口2") opObject.PictureName="Page1.Pdl" End Sub
1、问：如何触发计算机扬声器的声音？ 答：编写如下C-Action: #pragma code("kernel32.dll"); BOOL Beep(DWORD dwFreq,DWORD dwDuration); #pragma code(); Beep(500,500); 2、问：如何通过C脚本来确定报警信息？ 答：首先必须在画面中插入报警控件，可以用如下两种方式来确认信息： （1）、确认单条信息 4版本和高于此版本的WinCC BOOL OnBtnSinglAckn（char*lpszPictureName,char*lpszObjectName） 5版本和高于此版本的WinCC BOOL AXC_OnBtnSinglAckn（char*lpszPictureName,char*lpszObjectName）（2）、确认报警窗口所有可见的报警 4版本和低于此版本的WinCC BOOL OnBtnVisibleAckn（char*lpszPictureName,char*lpszObjectName） 5版本和高于此版本的WinCC BOOL AXC_OnBtnVisibleAckn（char*lpszPictureName,char*lpszObjectName） 3、问：如何在WinCC中读取系统时间？ 答：通过如下C-Action： #pragma code("kernel32.dll"); Void GetLocalTimes(SYSTEMTIME*lpst); #pragma code(); SYSTEMTIME time; 字串7 GetLocalTime(&time); SetTagWord("Varname",time.wYear); SetTagWord("Varname",time.wMonth); SetTagWord("Varname",time.wDayOfWeek); SetTagWord("Varname",time.wDay); SetTagWord("Varname",time.wHour); SetTagWord("Varname",time.wMinute); SetTagWord("Varname",time.wSecond); SetTagWord("Varname",time.wMilliseconds); 4、问：如何经Windows对话框设置日期时间？
.用户注销： #pragma code ("useadmin.dll") #include "PWRT_api.h" #pragma code() PWRTLogout(); 2.用户登录： #pragma code ("useadmin.dll") #include "PWRT_api.h" #pragma code() PWRTLogin('c'); 3.关闭项目并退出wincc： ExitWinCC (); 4.退出运行到wincc资源管理器： DeactivateRTProject (); 按钮变三种颜色 #include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { #pragma option(mbcs) if(GetTagWord("TX/ZSH001")==1) return 0x0000ff00; else if(GetTagWord("TX/ZSL001")==1) return 0x000000ff; else return 0x00c0c0c0; } 一个调用按钮变色 #include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { #pragma option(mbcs) if(GetTagWord("NewTag")==0) return 0x0000ff00; else return 0x00ffffff;
1.用户注销： #pragma code ("useadmin.dll") #include "PWRT_api.h" #pragma code() PWRTLogout(); 2.用户登录： #pragma code ("useadmin.dll") #include "PWRT_api.h" #pragma code() PWRTLogin('c'); 3.关闭项目并退出wincc： ExitWinCC (); 4.退出运行到wincc资源管理器： DeactivateRTProject (); 按钮变三种颜色 #include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { #pragma option(mbcs) if(GetTagWord("TX/ZSH001")==1) return 0x0000ff00; else if(GetTagWord("TX/ZSL001")==1) return 0x000000ff; else return 0x00c0c0c0; } 一个调用按钮变色 #include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { #pragma option(mbcs) if(GetTagWord("NewTag")==0) return 0x0000ff00; else return 0x00ffffff;
WINCC动画脚本 电机风扇旋转（几何---起始角度）： #include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { static DWORD f=20; if (GetTagBit("DI电机运行信号")) { f= f+30; if (f==360) (f=0); } return f; } 电机风扇旋转（几何---结束角度）： #include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { static DWORD i=80; if (GetTagBit("DI电机运行信号")) { i = i+30; if (i==360) (i=0); } return i; } **物料水平右移动（几何---位置X）（停车后，物料回到原点）** #include "apdefap.h"
long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { static int a=350; if (GetTagBit("DI电机运行信号") && (a<=730)) { a+=20; if (a>=720) (a=350); } if (!GetTagBit("DI电机运行信号")) (a=350); return a; } 物料水平右移动（几何---位置X）（停车后，物料停在该点） #include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { static int a=350; if (GetTagBit("DI电机运行信号") && (a<=730)) { a+=20; if (a>=720) (a=350); } return a; } 物料向上移动（几何---位置Y）（停车后，物料停在该点） #include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName) { static int b=450; if (GetTagBit("DI电机运行信号") && (b>=290)) {