WINCC動(dòng)畫腳本集萃.doc

.WINCC電機(jī)風(fēng)扇旋轉(zhuǎn)（幾何-起始角度）：#include apdefap.hlong _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static DWORD f=20;if (GetTagBit(DI電機(jī)運(yùn)行信號(hào)) f= f+30;if (f=360) (f=0);return f;電機(jī)風(fēng)扇旋轉(zhuǎn)（幾何-結(jié)束角度）：#include apdefap.hlong _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static DWORD i=80;if (GetTagBit(DI電機(jī)運(yùn)行信號(hào)) i = i+30;if (i=360) (i=0);return i; *物料水平右移動(dòng)（幾何-位置X）（停車后，物料回到原點(diǎn)）*#include apdefap.hlong _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static int a=350;if (GetTagBit(DI電機(jī)運(yùn)行信號(hào)) & (a=720) (a=350); if (!GetTagBit(DI電機(jī)運(yùn)行信號(hào)) (a=350); return a;物料水平右移動(dòng)（幾何-位置X）（停車后，物料停在該點(diǎn)）#include apdefap.hlong _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static int a=350;if (GetTagBit(DI電機(jī)運(yùn)行信號(hào)) & (a=720) (a=350); return a;物料向上移動(dòng)（幾何-位置Y）（停車后，物料停在該點(diǎn)）#include apdefap.hlong _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static int b=450;if (GetTagBit(DI電機(jī)運(yùn)行信號(hào)) & (b=290) b-=10;if (btm_year-100+2000,ptm-tm_mon+1,ptm-tm_mday);return(p);時(shí)分秒（靜態(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);登陸到指定的用戶名無(wú)須手動(dòng)輸入（按鈕操作）#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(用戶名, 口令);*顯示登陸對(duì)話框無(wú)須熱鍵（按鈕操作）*#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運(yùn)行（按鈕操作）#include apdefap.hvoid OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y) DeactivateRTProject ();單位遞增按鈕（到上限不提示出錯(cuò)）#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); 單位遞減按鈕（到下限不提示出錯(cuò)）#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); *單位遞增按鈕（到上限提示出錯(cuò)）*#include apdefap.hvoid OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)DWORD value;HWND hWnd=NULL ; hWnd=FindWindow(NULL,Wincc-運(yùn)行系統(tǒng)- ); value=GetTagDWord(AI標(biāo)簽); if (value0) (value=value-10);else MessageBox(hWnd, 已到達(dá)下限值！, 錯(cuò)誤,MB_OK|MB_ICONWARNING|MB_APPLMODAL);SetTagDWord(AI標(biāo)簽,value); *自動(dòng)登陸到指定的用戶（畫面屬性-其它授權(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);*詢問(wèn)框（最好用于單機(jī)啟動(dòng)，組啟也可，2個(gè)按鈕，NO不操作）*#include apdefap.hvoid OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)HWND hWnd=NULL;int 上位啟動(dòng)信號(hào);hWnd=FindWindow(NULL,WinCC C-Course);if (GetTagBit(DI備妥)上位啟動(dòng)信號(hào)=MessageBox(hWnd,電源已備妥，您現(xiàn)在確定要啟動(dòng)嗎？,啟動(dòng)！, MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL);printf(rnExample 3rn); if (上位啟動(dòng)信號(hào)=IDNO) (printf(User selected NO button rn); else (SetTagByte(上位啟動(dòng)信號(hào),1);elseMessageBox(hWnd,電源未備妥，請(qǐng)查證后重試！,啟動(dòng)！, MB_OK|MB_ICONHAND|MB_APPLMODAL);*詢問(wèn)框（最好用于單機(jī)啟動(dòng)，組啟也可，3個(gè)按鈕，NO復(fù)位）*#include apdefap.hvoid OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)HWND hWnd=NULL;int上位啟動(dòng)信號(hào);hWnd=FindWindow(NULL,WinCC C-Course);if (GetTagBit(DI備妥)上位啟動(dòng)信號(hào)=MessageBox(hWnd, 電源已備妥，您現(xiàn)在確定要啟動(dòng)嗎？,啟動(dòng)！, MB_YESNOCANCEL|MB_ICONQUESTION|MB_APPLMODAL); if (上位啟動(dòng)信號(hào)=IDCANCEL) (printf(User selected NO button rn); else if (上位啟動(dòng)信號(hào)=IDYES) (SetTagByte(上位啟動(dòng)信號(hào),1); else (SetTagByte(上位啟動(dòng)信號(hào),0); elseMessageBox(hWnd, 電源未備妥，請(qǐng)查證后重試！,啟動(dòng)！, MB_OK|MB_ICONHAND|MB_APPLMODAL);*攪拌器左側(cè)扇頁(yè)（幾何寬度）*#include apdefap.hlong _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static int h=50;static int u=0;if (GetTagBit(DI電機(jī)運(yùn)行信號(hào))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電機(jī)運(yùn)行信號(hào))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初始畫面程序（畫面空地-屬性-事件-其它-打開畫面-動(dòng)作）*打印按鈕*#include apdefap.hvoid OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y)WinExec(PRTSCR.EXE -hardcopy,SW_SHOWNORMAL);*一個(gè)圈代表電機(jī)兩種狀態(tài)*#include apdefap.hv