wincc常用C腳本..

1、.用戶注銷：#pragma code (useadm in. dll)#in elude PWRT_api.h#pragma code()PWRTLogout();2. 用戶登錄：#pragma code (useadm in. dll)#in clude PWRT_api.h#pragma code()PWRTLogi n( c);3. 關(guān)閉項目并退出 wince :ExitWi nCC ();4. 退出運行到 wince 資源管理器：DeactivateRTProject ();按鈕變?nèi)N顏色#in clude apdefap.hlong _main( char* IpszPictureN

2、ame, char* IpszObjectName, char* IpszPropertyName)#pragma optio n( mbes)if(GetTagWord(TX/ZSH001)=1)return OxOOOOffOO;elseif(GetTagWord(TX/ZSL001)=1)return OxOOOOOOff;elsereturn OxOOcOcOcO;一個調(diào)用按鈕變色#in clude apdefap.hlong _main( char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName)#prag

3、ma optio n( mbes)if(GetTagWord(NewTag)=0)return OxOOOOffOO;elsereturn OxOOffffff;5.結(jié)束監(jiān)控并關(guān)閉計算機(會彈出確認對話框)HWND hWnd = NULL;/Author:Smartsysint iRet;hWnd = FindWindow(NULL,WinCC-運行系統(tǒng)-”);iRet=MessageBox(hWnd,結(jié)束監(jiān)控并關(guān)閉計算機 ,關(guān)閉操作站 ”,MB_YESNO|MB_ICONWARNING|MB_APPLMODAL);if(iRet=IDYES)DMExitWi nCCEx (DM_SDMODE

4、_POWEROFF);6點擊事件彈出對話框，通過點擊彈出對話框的確定和取消按鈕實現(xiàn)對變量的置位或取消：int r;r=MessageBox(NULL, YES 為開，NO 為關(guān),確定開命令：, MB_YESN|MB_SYSTEMMODAL); if(r=IDYES)SetTagBit(TAGNAME,TRUE);elseSetTagBit(TAGNAME,FALSE);7. 開顯示關(guān)顯示：(要在內(nèi)部變量中建立三個二進制變量COLSE_DISPLA、DISPLAY_NODISPLAY_COMMENT/ Fun kti on: Bit in Doppelwort setze n;if (GetTa

5、gBitWait(COLSE_DISPLAY)=1 )SetTagBit(COLSE_DISPLAY,O);SetTagBit(DISPLAY_NO,0); /Return-Type: BOOLSetTagBit(DISPLAY_COMMENT,0);elseSetTagBit(COLSE_DISPLAY,1);SetTagBit(DISPLAY_NO,1); /Return-Type: BOOLSetTagBit(DISPLAY_COMMENT,0);8. 開閥確認：BOOL a;a=GetTagBit(30T 制水啟動);/Return-Type :short intif (a=0)if(

6、MessageBox(NULL, 真的要啟動制水嗎？，”操作提示”,MB_YESNO|MB_ICONQUESTION|MB_SETFOREGROUND|MB_SYSTEMMODAL) = 6) SetTagBit(30T制水啟動,1);/Return-Type :BOOLelseif(MessageBox(NULL, 真的要停止制水嗎？，”操作提示”,MB_YESNO|MB_ICONQUESTION|MB_SETFOREGROUND|MB_SYSTEMMODAL) = 6) SetTagBit(30T制水停止,1);9. 將 WinCC 運行畫面最小化HWND Win CCHw nd;Win

7、CCHw nd=Fi ndWi ndow(NULL,Wi nCC-R un time - ); /如果運行語言為英文if (WinCCHwnd=O) WinCCHwnd=FindWindow(NULL,WinCC-運行系統(tǒng)-);/如果運行語言為中文CloseWi ndow(Wi nCCHw nd);10. 顯示或不顯示(其中hiddVtext 為內(nèi)部的二進制變量)if(GetTagBit(hiddVtext)=O) /Return-Type: BOOLSetTagBit(hiddVtext,TRUE); /Return-Type: BOOL/Return-Type: BOOLelseSetTa

8、gBit(hiddVtext,FALSE);10.打開編輯畫面的腳本#pragma optio n( mbcs)#ifdef RUN_ON_WEBNAVIGATOR#elseHWND hExplorerWi ndow= NULL;HWND hRu ntimeWi ndow= NULL;hExplorerWi ndow= Fin dWi ndow(Wi nCCExplorerFrameWndClass,NULL);hRun timeWi ndow= Fin dWi ndow(PDLRTisAliveA ndWaitsForYou,NULL); if(hExplorerWindow)ShowWi

9、ndow(hExplorerWi ndow, SW_MINIMIZE); / This entry is onlyn ecessary for Win dows 2000ShowWi ndow(hExplorerWi ndow, SW_SHOWNORMAL);SetForegro undWin dow(hExplorerWi ndow);elseprin tf(r n SetForegro und failed);#en dif11. 如何在 WINC(中制作一個保持型按鈕方法 1：if( GetTagBit(M10)SetTagBit(M10,0);elseSetTagBit(M10,1);

10、方法 2:SetTagBit(M1.0,(SHORT)!GetTagBit(M1.0);求反指令，如果為 1 點擊變?yōu)?0, 如果為 0 點擊變?yōu)?1方法 3:或者做兩個按鈕，按鈕一：顯示，直接連接 m1.0,是-不顯示，否-顯示。事件，直接連接，源, 常數(shù) 1,變量 M1.0;按鈕二：事件，直接連接，源，常數(shù)0,變量 M1.0;用按鈕一覆蓋按鈕二12 變量每秒加 1DWORD a;a=GetTagDWord(Ta nk);a+=1;if(a100) (a=0);SetTagDWord(Ta nk,a);return 0;WINCC 動畫腳本電機風(fēng)扇旋轉(zhuǎn)(幾何-起始角度)：#in clude

11、apdefap.hlong _main( char* IpszPictureName, char* IpszObjectName, char*IpszPropertyName)static DWORD f=20;if (GetTagBit(DI 電機運行信號)f= f+30;if (f=360) (f=0);return f;電機風(fēng)扇旋轉(zhuǎn)(幾何-結(jié)束角度)：#in elude apdefap.hlong _main( char* IpszPictureName, char* IpszObjectName, char*IpszPropertyName)static DWORD i=80;if (

12、GetTagBit(DI 電機運行信號)i = i+30;if (i=360) (i=0); return i;*物料水平右移動(幾何-位置 X)(停車后，物料回到原點)*#in clude 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;物料水平右移動(幾何-位置

13、 X)(停車后，物料停在該點)#include apdefap.hlong _main( char* IpszPictureName, char* IpszObjectName, charIpszPropertyName)static int a=350;if (GetTagBit(DI電機運行信號)& (a=720)(a=350);return a;物料向上移動(幾何-位置丫)(停車后，物料停在該點)#in clude apdefap.hlong _main( char* IpszPictureName, char* IpszObjectName, char*IpszProperty

14、Name)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)文本)#in clude apdefap.hchar* _main( char* IpszPictureName, char* IpszObjectName, char*IpszPropertyName)time_t timer ; struct tm *ptm; char *p;time(&timer);ptm =localtim

15、e(& timer);p =SysMalloc(9);spri ntf(p,%02d:%02d:%02d,ptm-tm_hour,ptm-tm_mi n,ptm-tm_ sec);return(p); 登陸到指定的用戶名無須手動輸入(按鈕操作)#in clude apdefap.hvoid On LButt on Dow n(char* lpszPictureName, char* lpszObjectName,char* lpszPropertyName, UINT nF lags, int x, int y)#pragma code(useadm in. dll)#i nclude

16、 PWRT_API.H#pragma code()PWRTSilentLogin( 用戶名,口令);*顯示登陸對話框無須熱鍵(按鈕操作)*#in elude apdefap.hvoid On LButt on Dow n(char* IpszPictureName, char* IpszObjectName, char*lpszPropertyName, UINT nF lags, int x, int y)#pragma code (useadmi n.dll)#i nclude PWRT_api.h#pragma code()PWRTLogi n(c);退出 WINCC 運行(按鈕操作)#

17、in clude apdefap.hvoid On LButt on Dow n(char* lpszPictureName, char* lpszObjectName, char*lpszPropertyName, UINT nF lags, int x, int y)DeactivateRTProject ();單位遞增按鈕(到上限不提示出錯)#in clude apdefap.hvoid On Click(char* lpszPictureName, char* lpszObjectName, char*lpszPropertyName)DWORD value;value=GetTagD

18、Word(AI 標簽);if (value90) (value= 上限);else value=value+10;SetTagDWord（AI 標簽 ”,value）;單位遞減按鈕（到下限不提示出錯）#in clude apdefap.hvoid OnClick（char* IpszPictureName, char* IpszObjectName, char*IpszPropertyName）DWORD value;value=GetTagDWord（AI 標簽）;if （value10） （value= 下限）;else value=value-10;SetTagDWord（AI 標簽 ”

19、,value）;*單位遞增按鈕（到上限提示出錯）二#in clude apdefap.hvoid On Click（char* lpszPictureName, char* lpszObjectName, char*lpszPropertyName）DWORD value;HWND hWnd=NULL ;hWnd=FindWindow（NULL,Wincc-運行系統(tǒng)-）;value=GetTagDWord（AI 標簽）;if （value0) (value=value-10);else MessageBox(hWnd,已到達下限值！,錯誤,MB_OK|MBCONWARNING|MB_APPLM

20、ODAL);SetTagDWord(AI 標簽 ”,value);*自動登陸到指定的用戶(畫面屬性-其它一授權(quán))三#in clude apdefap.hlong _main( char* lpszPictureName, char* lpszObjectName, char*lpszPropertyName)#pragma code(useadm in. dll)#i nclude PWRT_API.H#pragma code()PWRTSilentLogin( 用戶名,口令);return(OXO);三詢問框(最好用于單機啟動，組啟也可，2 個按鈕，NO 不操作)*#in clude apd

21、efap.hvoid On LButt on Dow n(char* lpszPictureName, char* lpszObjectName,char* lpszPropertyName, UINT nF lags, int x, int y)HWND hWnd=NULL;int 上位啟動信號；hWnd=FindWindow(NULL,WinCC C-Course);if (GetTagBit(DI 備妥)上位啟動信號=MessageBox(hWnd, 電源已備妥，您現(xiàn)在確定要啟動嗎?,啟動！，MB_YESNO|MBCONQUESTION|MB_APPLMODAL);prin tf(rnE

22、xample 3rn);if (上位啟動信號=IDNO) (pri ntf(User selected NO button rn);else (SetTagByte(上位啟動信號,1);elseMessageBox(hWnd,電源未備妥，請查證后重試！,啟動！，MB_OK|MBCONHAND|MB_APPLMODAL);*詢問框(最好用于單機啟動，組啟也可，3 個按鈕，NO 復(fù)位)*#in clude apdefap.hvoid On LButt on Dow n(char* IpszPictureName, char* IpszObjectName, char*lpszPropertyNam

23、e, UINT nF lags, int x, int y)HWND hWnd=NULL;int 上位啟動信號；hWnd=FindWindow(NULL,WinCC C-Course);if (GetTagBit(DI 備妥)上位啟動信號=MessageBox(hWnd,電源已備妥，您現(xiàn)在確定要啟動嗎？,啟動！，MB_YESNOCANCEL|MBCONQUESTION|MB_APPLMODAL);if (上位啟動信號=IDCANCEL)(pri ntf(User selected NO butt on,1);rn);elseif (上位啟動信號=IDYES) (SetTagByte(上位啟動信

24、號else (SetTagByte(上位啟動信號,0);elseMessageBox(hWnd,電源未備妥，請查證后重試！,啟動!MB_OK|MBCONHAND|MB_APPLMODAL);*攪拌器左側(cè)扇頁(幾何一寬度)*#in clude apdefap.hlong _main( char* IpszPictureName, char* IpszObjectName, 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;n=層數(shù)+1初始畫面程序（畫面空地-屬性-事件-其它-打開畫面-動