wincc常用C脚本功能

1、.用户注销: #pragma code ("useadm in. dll")#i nclude "PWRT_api.h"#pragma code()PWRTLogout();2. 用户登录：#pragma code ("useadm in. dll")#i nclude "PWRT_api.h"#pragma code()PWRTLogi n('c');3. 关闭项目并退出wincc :ExitWi nCC ();4. 退出运行到wincc资源管理器：DeactivateRTProject ();按

2、钮变三种颜色#in clude "apdefap.h"long _main(char* IpszPictureName, char* IpszObjectName, char*IpszPropertyName)#pragma opti on( mbcs)if(GetTagWord("TX/ZSH001")=1)return OxOOOOffOO;elseif(GetTagWord("TX/ZSL001")=1)return OxOOOOOOff;elsereturn OxOOcOcOcO;一个调用按钮变色#in clude "

3、;apdefap.h"long _main(char* IpszPictureName, char* IpszObjectName, char*IpszPropertyName)#pragma opti on( mbcs)if(GetTagWord("NewTag")=0)return OxOOOOffOO;elsereturn OxOOffffff;5. 结束监控并关闭计算机(会弹出确认对话框)HWND hWnd = NULL;/Author:Smartsysint iRet;hWnd = FindWindow(NULL,"WinCC-运行系统-&qu

4、ot;);iRet二MessageBox(hWnd,"结束监控并关闭计算机","关闭操作站 ”,MB_YESNO|MB_ICONWARNING|MB_APPLMODAL); if(iRet=ID YES)DMExitWi nCCEx (DM_SDMODE_POWEROFF);6. 点击事件弹出对话框，通过点击弹出对话框的确定和取消按钮实现对变量的置位或取消：int r;r=MessageBox(NULL, "YES为开，NO 为关","确定开命令：",MB_YESNO |MB_S YSTEMMODAL);if (r=ID Y

5、ES)SetTagBit("TAGNAME",TRUE);elseSetTagBit("TAGNAME",FALSE);7. 开显示关显示：(要在内部变量中建立三个二进制变量COLSE_DISPLAY DISPLAY_NO 和 DISPLAY_COMMENT)/ Funktion: Bit in Doppelwort setze n;if (GetTagBitWait("COLSE_DISPLA Y")=1 )SetTagBit("COLSE_DISPLA Y",0);士莆#瞬代 2钿W咼卫劃壷轴草门inN)xo日

6、e6esse|/|)j! es|e 100a： edAi-ujniey/ 直日W咼 10£.)l!aBenes (9 = (IVGOIAIIAI m 丄 s人 s_ai/ilaNnod93dOd 丄日 iaiIn oi 丄 smnONOo 厂日 i/iloNsm 人一日 i/il士莆#瞬代 2钿*闿直日壷轴草门inN)xo日e6esse|/|)j (O=e)!屮！ ioqs: edAi-ujniey/ ：(.直日*碍丄0£山!日鉅丄记。二e 乜100日 "I 丄 NmiAIIAIOCT人 VldSICL)!日牝丄记 s100日:edAi-ujniey/ glOhT

7、人VldSICL)!日牝丄记sX代人VldSICTmSlOO!日鉅丄记s es|e "I 丄 NmiAIIAIOCT人 VldSICL)!日牝丄记 s 100日:edAi-ujniey/ XolOhT人VldSICL)!日牝丄记s”,MB_YESNO|MB_ICONQUESTION|MB_SETFOREGROUND|MB_S YSTEMMODAL) = 6) SetTagBit("30T制水停止",1);9. 将WinCC运行画面最小化HWND Win CCHw nd;Win CCHw nd二Fi ndWi ndow(NULL,"Wi nCC-R un

8、time - "); / 如果运行语言为英文if (Win CCHw nd=0) Win CCHw nd二Fi ndWin dow(NULL,"Wi nCC- 运行系统-");/如果运行语言为中文CloseWi ndow(Wi nCCHw nd);10. 显示或不显示(其中hiddVtext为内部的二进制变量)if(GetTagBit("hiddVtext")=O) /Return-Type: BOOLSetTagBit("hiddVtext",TRUE); /Return-Type: BOOL/Retur n-Type:

9、BOOLelseSetTagBit("hiddVtext",FALSE);10. 打开编辑画面的脚本#pragma opti on( mbcs)#ifdef RUN_ON_WEBNAVIGATOR#elseHWND hExplorerWi ndow二 NULL;HWND hRun timeWi ndow二 NULL;hExplorerWi ndow二Fin dWi ndow("Wi nCCExplorerFrameWndClass",NULL);hRun timeWi ndow二FindWin dow("PDLRTisAliveA ndWait

10、sForYou",NULL);if(hExplorerWi ndow)ShowWi ndow(hExplorerWi ndow, SW_MINIMIZE); /This en try is on ly n ecessary for Win dows 2000ShowWi ndow(hExplorerWi ndow, SW_SHOWNORMAL);SetForegro undWin dow(hExplorerWi ndow);elseprin tf("r n SetForegro und failed");#en dif11. 如何在 WINCC中制作一个保持型按钮

11、方法1：if( GetTagBit("M10")SetTagBit("M10",0);elseSetTagBit("M10",1);方法2:SetTagBit("M1.0",(SHORT)!GetTagBit("M1.0");求反指令，如果为1点击变为0, 如果为0点击变为1方法3:或者做两个按钮，事件，直按钮一：显示，直接连接 m1.0,是-不显示，否-显示接连接，源，常数1,变量M1.0;按钮二：事件，直接连接，源，常数0,变量M1.0；用按钮一覆盖按钮二12变量每秒加1DWORD a; a

12、=GetTagDWord("Ta nk"); a+=1;if(a>100)(a=0);SetTagDWord("Ta nk",a);return 0;WINCC动画脚本电机风扇旋转(几何-起始角度)：#in elude "apdefap.h"long _main(char* IpszPictureName, char* IpszObjectName, char* lpszPropertyName)static DWORD f=20;if (GetTagBit("DI 电机运行信号")f= f+30;if (f

13、=360) (f=0);return f;电机风扇旋转(几何-结束角度)：#in elude "apdefap.h"long _main(char* IpszPictureName, char* IpszObjectName,char* lpszPropertyName)static DWORD i=80;if (GetTagBit("DI 电机运行信号")i = i+30;if (i=360) (i=0);return i;*物料水平右移动(几何-位置X)(停车后，物料回到原点)*#in clude "apdefap.h"long

14、_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)(停车后，物料停在该点)#in elude "apdefap.h"long _main(c

15、har* IpszPictureName, char* IpszObjectName,char* IpszPropertyName)static int a=350;if (GetTagBit("DI 电机运行信号")&& (a<=730)a+=20;if (a>=720)(a=350);return a;物料向上移动(几何-位置Y)(停车后，物料停在该点)#in elude "apdefap.h"long _main(char* IpszPictureName, char* IpszObjectName, char* lps

16、zPropertyName)static int b=450;if (GetTagBit("DI 电机运行信号")&& (b>=290)b-=10;if (b<=280)(b=450);return b;年月日(静态文本)#in clude "apdefap.h"char* _main(char* IpszPictureName, char* IpszObjectName, char* IpszPropertyName)time_t timer ;struct tm *ptm;char *p;time(&timer);

17、ptm =localtime(&timer);p 二SysMalloc(9);spri ntf(p,"%04d/%02d/%02d",ptm->tm_year-100+2000,ptm->tm_m on+1,ptm->tm_mday);return(p);时分秒(静态文本)#in clude "apdefap.h"char* _main( char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)time_t timer ;struct tm *ptm

18、;char *p;time(&timer);ptm =localtime(&timer);p 二SysMalloc(9);spri ntf(p,"%02d:%02d:%02d",ptm->tm_hour,ptm->tm_mi n,pt m->tm_sec);return(p);登陆到指定的用户名无须手动输入(按钮操作)#in clude "apdefap.h"void On LButt on Dow n(char* IpszPictureName, char* IpszObjectName, char* lpszProp

19、ertyName, UINT nFlags, int x, int y)#pragma code("useadm in. dll")#include "PWRT API.H"#pragma code()PWRTSilentLogin("用户名","口令");*显示登陆对话框无须热键(按钮操作)*#in clude "apdefap.h"void On LButt on Dow n(char* IpszPictureName, char*IpszObjectName, char* lpszProp

20、ertyName, UINT nFlags, int x, int y)#pragma code ("useadm in. dll")#i nclude "PWRT_api.h"#pragma code()PWRTLogi n( 'c');退出WINCC运行(按钮操作)#in elude "apdefap.h"void On LButt on Dow n(char* IpszPictureName, char*IpszObjectName, char* lpszPropertyName, UINT nFlags, in

21、t x, int y)DeactivateRTProject ();单位递增按钮(到上限不提示出错)#in clude "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)DWORD value;value二GetTagDWord("AI标签");if (value>90) (value= 上限);else value二value+10;SetTagDWord（"AI 标签 ”,value）;单位递减按钮（到

22、下限不提示出错）#in elude "apdefap.h"void OnClick（char* IpszPictureName, char* IpszObjectName, char* lpszPropertyName）DWORD value;value二GetTagDWord（"AI 标签"）;if （value<10） （value= 下限）;else value二value-10;SetTagDWord（"AI 标签 ”,value）;*单位递增按钮（到上限提示出错）*#in clude "apdefap.h"v

23、oid On Click（char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName）DWORD value;HWND hWnd二NULL ;hWnd=FindWindow（NULL,"Wincc-运行系统-”）；value二GetTagDWord（"AI标签"）;if （value<=90） （value二value+10）;else MessageBox（hWnd,"已到达上限值！","错误”,MB_OK|MB_ICONWARNING|MB_APPL

24、MODAL）;SetTagDWord（"AI 标签 ”,value）;value二GetTagDWord("AI 标签");if (value>0) (value二value-10);else MessageBox(hWnd," 已到达下限值！"，” 错误”,MB_OK|MB_ICONWARNING|MB_APPLMODAL);SetTagDWord("AI 标签 ”,value);*自动登陆到指定的用户(画面属性-其它一授权)*#in clude "apdefap.h"long _main(char* Ip

25、szPictureName, char* IpszObjectName, char* lpszPropertyName)#pragma code("useadm in. dll")#i nclude "PWRT_API.H"#pragma code()PWRTSilentLogin("用户名","口令");return(OXO);*询问框（最好用于单机启动，组启也可，2个按钮，NO不操#in elude "apdefap.h"void On LButt on Dow n(char* IpszPi

26、ctureName, char*IpszObjectName, char* lpszPropertyName, UINT nFlags, int x, inty)HWND hWnd二NULL;int上位启动信号；hWnd=Fi ndWin dow(NULL,"Wi nCC C-Course");if (GetTagBit("DI 备妥")上位启动信号二MessageBox(hWnd,"电源已备妥，您现在确定要 启动吗？","启动！"，MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL);pr

27、in tf("rnExample 3rn ”);if (上位启动信号=IDNO)(pr in tf("User selected NO butt onrn");else (SetTagByte(” 上位启动信号",1);elseMessageBox(hWnd,"电源未备妥，请查证后重试！","启动！",MB_OK|MB_ICONHAND|MB_APPLMODAL);*询问框(最好用于单机启动，组启也可，3个按钮，NO复位)*#in clude "apdefap.h"void On LButt o

28、n Dow n(char* IpszPictureName, char*IpszObjectName, char* lpszPropertyName, UINT nFlags, int x, inty)HWND hWnd二NULL;int上位启动信号；hWnd=Fi ndWin dow(NULL,"Wi nCC C-Course");if (GetTagBit("DI 备妥")上位启动信号二MessageBox(hWnd," 电源已备妥，您现在确定要启动吗？","启动！"，MB_YESNOCANCEL|MB_ICO

29、NQUESTION|MB_APPLMODAL）;if （上位启动信号=IDCANCEL） （pr in tf（"User selected NO button rn"）;elseif （上位启动信号=IDYES） （SetTagByte（”上位启动信号",1）;else （SetTagByte（” 上位启动信号",0）;elseMessageBox（hWnd,"电源未备妥，请查证后重试！","启动！"MB_OK|MB_ICONHAND|MB_APPLMODAL）;static int h=50;static int

30、 u=0;if (GetTagBit("DI 电机运行信号")if (h>0)&&(h<=50)(h-=2);return h;if (u>=0)&&(u<50)(u+=2);return u;u=0;h=50;return h;return u;if (!GetTagBit("DI 电机运行信号")h=50;u=0;return h;return u;static int u=125;if (GetTagBit("DI 电机运行信号")if (h>=75)&&am

31、p;(h<125)(h+=2);return h;if (u<=125)&&(u>75)(u-=2);return u;u=125;h=75;return h;return u;if (!GetTagBit("DI 电机运行信号")h=75;u=125;return h;return u;For Cou ntLayer=1 To 32 Step 1objScree n.Layers(Co un tLayer).Visible = vbFalseNextobjScree n.Layers (n ).Visible = vbTrueEnd Subn=层数+1初始画面程序(画面空地-属性-事件-其它-打开画面-动 作)* 一个圈代表电机两种状态*#in elude "apdefap.h"void OnClick(char* IpszPictureName, char* IpszObjectName, char* lpszPropertyName)char* opentag二"DI1电机运行信号”；char* closetag二&q