WINCC動畫腳本集萃

1、WINCC電機(jī)風(fēng)扇旋轉(zhuǎn)（幾何-起始角度）：#include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static  DWORD  f=20;if  (GetTagBit("DI電機(jī)運(yùn)行信號")       f= f+30;if (f=360) (f=0);return f;電機(jī)風(fēng)扇旋轉(zhuǎn)（幾何-結(jié)束角度）：#include &q

2、uot;apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static  DWORD  i=80;if  (GetTagBit("DI電機(jī)運(yùn)行信號")        i = i+30;if (i=360) (i=0);return i; *物料水平右移動（幾何-位置X）（停車后，物料回到原點(diǎn)）*#include "apdefap

3、.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static  int  a=350;if  (GetTagBit("DI電機(jī)運(yùn)行信號")  && (a<=730)      a+=20;if (a>=720)  (a=350); if (!GetTagBit("DI電機(jī)運(yùn)行信號")  (a=

4、350);   return a;物料水平右移動（幾何-位置X）（停車后，物料停在該點(diǎn)）#include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static  int  a=350;if  (GetTagBit("DI電機(jī)運(yùn)行信號")  && (a<=730)      a+=20;

5、if  (a>=720)  (a=350);     return a; 物料向上移動（幾何-位置Y）（停車后，物料停在該點(diǎn)）#include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static  int  b=450;if  (GetTagBit("DI電機(jī)運(yùn)行信號")  &&a

6、mp; (b>=290)      b-=10;if  (b<=280)  (b=450);     return b;年月日（靜態(tài)文本）#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); 時分秒（靜態(tài)文本）#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運(yùn)行（按鈕操作）#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標(biāo)簽");  if (value>90) (value=上限

12、);else value=value+10;SetTagDWord("AI標(biāo)簽",value);    單位遞減按鈕（到下限不提示出錯）#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)DWORD value;value=GetTagDWord("AI標(biāo)簽");  if (value<10) (value=下限);else value=va

13、lue-10;SetTagDWord("AI標(biāo)簽",value);    *單位遞增按鈕（到上限提示出錯）*#include "apdefap.h"void 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)

14、簽");  if (value<=90) (value=value+10);else MessageBox(hWnd,"已到達(dá)上限值！","錯誤",MB_OK|MB_ICONWARNING|MB_APPLMODAL);SetTagDWord("AI標(biāo)簽",value);     *單位遞減按鈕（到下限提示出錯）*#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObje

15、ctName, char* lpszPropertyName)DWORD value;HWND hWnd=NULL ;  hWnd=FindWindow(NULL,"Wincc-運(yùn)行系統(tǒng)- "); value=GetTagDWord("AI標(biāo)簽");  if (value>0) (value=value-10);else MessageBox(hWnd," 已到達(dá)下限值！"," 錯誤",MB_OK|MB_ICONWARNING|MB_APPLMODAL);SetTagDWord("

16、;AI標(biāo)簽",value);    *自動登陸到指定的用戶（畫面屬性-其它授權(quán)）*#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); *詢問框（最好用于單機(jī)啟動，組啟也可，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,"電源已備妥，您現(xiàn)在確定要啟動嗎？","啟動！",                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);*詢問框（最好用于單機(jī)啟動，組啟也可，3個按鈕，NO復(fù)位）*#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," 電源已備妥，您現(xiàn)在確定要啟動嗎？","啟動！",

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); *攪拌器左側(cè)扇頁（幾何寬度）*#include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectNam

24、e, char* lpszPropertyName)static  int  h=50;static  int  u=0;if (GetTagBit("DI電機(jī)運(yùn)行信號")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電機(jī)運(yùn)行信號")h=50;u=0;return h;return u;

25、    *攪拌器左側(cè)扇頁（幾何位置X，右側(cè)扇頁沒有位置變化）*#include "apdefap.h" long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)static  int  h=75;static  int  u=125;if (GetTagBit("DI電機(jī)運(yùn)行信號")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電機(jī)運(yùn)行信號")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