WINCC动画脚本集萃

1、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 &q

2、uot;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

3、.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=

4、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;

5、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电机运行信号")  &&a

6、mp; (b>=290)      b-=10;if  (b<=280)  (b=450);     return b;年月日（静态文本）#include "apdefap.h" char* _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)time_t  timer ;struct tm *ptm;char *p;time(&timer)

7、;ptm =localtime(&timer);p =SysMalloc(9);sprintf(p,"%04d/%02d/%02d",ptm->tm_year-100+2000,ptm->tm_mon+1,ptm->tm_mday);return(p); 时分秒（静态文本）#include "apdefap.h" char* _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)time_t  timer

8、;struct tm *ptm;char *p;time(&timer);ptm =localtime(&timer);p =SysMalloc(9);sprintf(p,"%02d:%02d:%02d",ptm->tm_hour,ptm->tm_min,ptm->tm_sec);      return(p);登陆到指定的用户名无须手动输入（按钮操作）#include "apdefap.h"void OnLButtonDown(char* lpszPictureName

9、, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)#pragma code("useadmin.dll")#include "PWRT_API.H"#pragma code()PWRTSilentLogin("用户名", "口令"); *显示登陆对话框无须热键（按钮操作）*#include "apdefap.h"void OnLButtonDown(char* lpszPictureNam

10、e, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)#pragma code ("useadmin.dll")#include "PWRT_api.h"#pragma code( )  PWRTLogin('c'); 退出WINCC运行（按钮操作）#include "apdefap.h"void OnLButtonDown(char* lpszPictureName, char* lpszObjectN

11、ame, char* lpszPropertyName, UINT nFlags, int x, int y)    DeactivateRTProject ();单位递增按钮（到上限不提示出错）#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)DWORD value;value=GetTagDWord("AI标签");  if (value>90) (value=上限

12、);else value=value+10;SetTagDWord("AI标签",value);    单位递减按钮（到下限不提示出错）#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)DWORD value;value=GetTagDWord("AI标签");  if (value<10) (value=下限);else value=va

13、lue-10;SetTagDWord("AI标签",value);    *单位递增按钮（到上限提示出错）*#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)DWORD value;HWND hWnd=NULL ;  hWnd=FindWindow(NULL,"Wincc-运行系统- "); value=GetTagDWord("AI标

14、签");  if (value<=90) (value=value+10);else MessageBox(hWnd,"已到达上限值！","错误",MB_OK|MB_ICONWARNING|MB_APPLMODAL);SetTagDWord("AI标签",value);     *单位递减按钮（到下限提示出错）*#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObje

15、ctName, char* lpszPropertyName)DWORD value;HWND hWnd=NULL ;  hWnd=FindWindow(NULL,"Wincc-运行系统- "); value=GetTagDWord("AI标签");  if (value>0) (value=value-10);else MessageBox(hWnd," 已到达下限值！"," 错误",MB_OK|MB_ICONWARNING|MB_APPLMODAL);SetTagDWord("

16、;AI标签",value);    *自动登陆到指定的用户（画面属性-其它授权）*#include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)#pragma code("useadmin.dll")#include "PWRT_API.H"#pragma code()PWRTSilentLogin("用户名", "口令

17、");return(0X0); *询问框（最好用于单机启动，组启也可，2个按钮，NO不操作）*#include "apdefap.h"void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)HWND hWnd=NULL;int 上位启动信号;hWnd=FindWindow(NULL,"WinCC C-Course");if (GetTagBit("DI备妥

18、")上位启动信号=MessageBox(hWnd,"电源已备妥，您现在确定要启动吗？","启动！",                MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL);printf("rnExample 3rn");    if (上位启动信号=IDNO)   (printf("

19、;User selected NO button rn");     else (SetTagByte("上位启动信号",1);elseMessageBox(hWnd,"电源未备妥，请查证后重试！","启动！",           MB_OK|MB_ICONHAND|MB_APPLMODAL);*询问框（最好用于单机启动，组启也可，3个按钮，NO复位）*#include "apdefa

20、p.h"void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)HWND hWnd=NULL;int上位启动信号;hWnd=FindWindow(NULL,"WinCC C-Course");if (GetTagBit("DI备妥")上位启动信号=MessageBox(hWnd," 电源已备妥，您现在确定要启动吗？","启动！",

21、60;                       MB_YESNOCANCEL|MB_ICONQUESTION|MB_APPLMODAL);    if (上位启动信号=IDCANCEL)   (printf("User selected NO button rn");    

22、  else                   if  (上位启动信号=IDYES)  (SetTagByte("上位启动信号",1);          else  (SetTagByte("上位启动信号",0);   

23、60;      elseMessageBox(hWnd," 电源未备妥，请查证后重试！","启动！",           MB_OK|MB_ICONHAND|MB_APPLMODAL); *搅拌器左侧扇页（几何宽度）*#include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectNam

24、e, char* lpszPropertyName)static  int  h=50;static  int  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;

25、    *搅拌器左侧扇页（几何位置X，右侧扇页没有位置变化）*#include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static  int  h=75;static  int  u=125;if (GetTagBit("DI电机运行信号")if (h>=75)&&(h<125)(h+=2);re

26、turn 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;*显示层按钮*Sub X6309X94AE2X0000X0000_X6309X94AE2X0000X60C5_X6309X94AE2X0000X653E_OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)         Dim objScreenDim CountLayerSet objScreen = HMIRuntime.Screens("layer")For CountLayer=1 To 32 Step 1objScreen.Layers(CountLayer).Visible = vbFalseNext objScreen.Layers(n).Visible = v