WINCC動畫腳本集萃.doc

.WINCC電機風(fēng)扇旋轉(zhuǎn)（幾何-起始角度）：#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;電機風(fēng)扇旋轉(zhuǎn)（幾何-結(jié)束角度）：#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);時分秒（靜態(tài)文本）#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標(biāo)簽); if (value90) (value=上限);else value=value+10;SetTagDWord(AI標(biāo)簽,value); 單位遞減按鈕（到下限不提示出錯）#include apdefap.hvoid OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)DWORD value;value=GetTagDWord(AI標(biāo)簽); if (value10) (value=下限);else value=value-10;SetTagDWord(AI標(biāo)簽,value); *單位遞增按鈕（到上限提示出錯）*#include apdefap.hvoid OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)DWORD value;HWND hWnd=NULL ; hWnd=FindWindow(NULL,Wincc-運行系統(tǒng)- ); value=GetTagDWord(AI標(biāo)簽); if (value0) (value=value-10);else MessageBox(hWnd, 已到達(dá)下限值！, 錯誤,MB_OK|MB_ICONWARNING|MB_APPLMODAL);SetTagDWord(AI標(biāo)簽,value); *自動登陸到指定的用戶（畫面屬性-其它授權(quán)）*#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,電源已備妥，您現(xiàn)在確定要啟動嗎？,啟動！, 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復(fù)位）*#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, 電源已備妥，您現(xiàn)在確定要啟動嗎？,啟動！, 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);*攪拌器左側(cè)扇頁（幾何寬度）*#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=層數(shù)+1初始畫面程序（畫面空地-屬性-事件-其它-打開畫面-動作）*打印按鈕*#include apdefap.hvoid OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)WinExec(PRTSCR.EXE -hardcopy,SW_SHOWNORMAL);*一個圈代表電機兩種狀態(tài)*#include apdefap.hv