WINCC动画脚本集萃.doc

WINCC动画脚本电机风扇旋转（几何-起始角度）：#include apdefap.hlong _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.hlong _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.hlong _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static int a=350;if (GetTagBit(DI电机运行信号) & (a=720) (a=350); if (!GetTagBit(DI电机运行信号) (a=350); return a;物料水平右移动（几何-位置X）（停车后，物料停在该点）#include apdefap.hlong _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static int a=350;if (GetTagBit(DI电机运行信号) & (a=720) (a=350); return a;物料向上移动（几何-位置Y）（停车后，物料停在该点）#include apdefap.hlong _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static int b=450;if (GetTagBit(DI电机运行信号) & (b=290) b-=10;if (btm_year-100+2000,ptm-tm_mon+1,ptm-tm_mday);return(p);时分秒（静态文本）#include apdefap.hchar* _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)time_t timer ;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.hvoid OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)#pragma code(useadmin.dll)#include PWRT_API.H#pragma code()PWRTSilentLogin(用户名, 口令);*显示登陆对话框无须热键（按钮操作）*#include apdefap.hvoid OnLButtonDown(char* lpszPictureName, 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.hvoid OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y) DeactivateRTProject ();单位递增按钮（到上限不提示出错）#include apdefap.hvoid OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)DWORD value;value=GetTagDWord(AI标签); if (value90) (value=上限);else value=value+10;SetTagDWord(AI标签,value); 单位递减按钮（到下限不提示出错）#include apdefap.hvoid OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)DWORD value;value=GetTagDWord(AI标签); if (value10) (value=下限);else value=value-10;SetTagDWord(AI标签,value); *单位递增按钮（到上限提示出错）*#include apdefap.hvoid OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)DWORD value;HWND hWnd=NULL ; hWnd=FindWindow(NULL,Wincc-运行系统- ); value=GetTagDWord(AI标签); if (value0) (value=value-10);else MessageBox(hWnd, 已到达下限值！, 错误,MB_OK|MB_ICONWARNING|MB_APPLMODAL);SetTagDWord(AI标签,value); *自动登陆到指定的用户（画面属性-其它授权）*#include apdefap.hlong _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)#pragma code(useadmin.dll)#include PWRT_API.H#pragma code()PWRTSilentLogin(用户名, 口令);return(0X0);*询问框（最好用于单机启动，组启也可，2个按钮，NO不操作）*#include apdefap.hvoid 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,电源已备妥，您现在确定要启动吗？,启动！, MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL);printf(rnExample 3rn); if (上位启动信号=IDNO) (printf(User selected NO button rn); else (SetTagByte(上位启动信号,1);elseMessageBox(hWnd,电源未备妥，请查证后重试！,启动！, MB_OK|MB_ICONHAND|MB_APPLMODAL);*询问框（最好用于单机启动，组启也可，3个按钮，NO复位）*#include apdefap.hvoid 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, 电源已备妥，您现在确定要启动吗？,启动！, MB_YESNOCANCEL|MB_ICONQUESTION|MB_APPLMODAL); if (上位启动信号=IDCANCEL) (printf(User selected NO button rn); else if (上位启动信号=IDYES) (SetTagByte(上位启动信号,1); else (SetTagByte(上位启动信号,0); elseMessageBox(hWnd, 电源未备妥，请查证后重试！,启动！, MB_OK|MB_ICONHAND|MB_APPLMODAL);*搅拌器左侧扇页（几何宽度）*#include apdefap.hlong _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static int h=50;static int u=0;if (GetTagBit(DI电机运行信号)if (h0)&(h=0)&(u=75)&(h125)(h+=2);return h;if (u75)(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 = vbTrueEnd Subn=层数+1初始画面程序（画面空地-属性-事件-其它-打开画面-动作）*打印按钮*#include apdefap.hvoid OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)WinExec(PRTSCR.EXE -hardcopy,SW_SHOWNORMAL);*一个圈代表电机两种状态*#include apdefap.h