2023年wincc全套脚本总结.docx

1、winCC全局脚本动作.一一隐藏控件#include"apdefap.h"intgSCActiOn(void)a/WINCC：TAGNAME_SECTlON_STARTa/syntax：#defineTagNameInAction"DMTagName"/nextTagID:1/WINCC:TAGNAME_SECTTON_ENDintvalue;AVaIUe=GetTagBit("IM_in)；“IMin为触发的变量。if(value=l)ASetVisib1e("1ianxi.pd”按钮8，TRUE)；/1ianxi.pdl为控制对象所在画面名，“按钮8”为对象名称Relse*CSetVisib1e("lianxi.pd1",按钮8”,FALSE);/1ianxi.pd1aa/WINCC:PICNAME_SECTION_START/syntax:ItdefinePicNameInAction,PictureName',a/nextPicID：Ia/WINCC:PICNAME_SECTION_ENDreturnO;说明:在触发器里选择变量IM_in2、wincc全局脚本动作-提醒框#include"apdefap.h"A/WINCC:TAGNAME_SECTION_STARTsyntax:#defineTagNameInAction"DMTagName"/nextTagID:1WINCC:TAGNAME_SECTIONENDAintvalue;Ava1ue=GetTagBit("IMin")；if(value=1)(MessageBox(NULL,请确认三厅相关门是否关好,或者请解锁。，“提醒框"，MB_OKMB_icONexclamationub_setforegroundmb_systemmodal)；a)/WINCC:PTCNAME_SECTION_START/syntax：#definePicNameInAction"PictureNamea/nextPicID：Ia/WINCC:PICNAME_SECTION_ENDareturn0；a说明：在触发器中选择变量触发。3、趋势面char*str_a=NULL;intHi;intLo；str_a=GetTagChar(nTrendTagNamel',);1.o=GetTagSWord(,'TrendLo");Hi=GetTagSWord(',TrendHi");SetPropWord(lpszPictureName,qushi","TrendIndex",0);SetPropChar(IpszPictureName,"qushi",'TrendTagName",str_a);SetPropWord(lpszPictureName,"qushi",Va1ueAxisBeginValue,',Lo);SetProPWord(lpszPictureName,"qushi","ValueAxisEndValue",Hi)；4、获取位号SetTagChar("TrendTagName1',"ProcessValueArchivePT111,);/Return# Type：BOOLSetTagSWordCTrendHin,200);SetTagSWord("TrendLo'0);SetTagByte("Trenden',l)；5、调用登陆函数# pragmacode("useadmin.d11")# indude"PWRT_API.H"# Pragmacode()if(strcmp(GetTagChar("CurrentUser"),"")=O)(PWRTLogin('c');6、时间同步-voidSetCpuTime()(#pragmacode(,'kerne132.dll");voidGetLoca1Time(SYSTEMTIME*1pst);#pragmacode();SYSTEMTIMEtimeBOOLret;/printf("StartfunctionSetCPuTimern,');GetLocalTime(&time);ret=SetTagMu1tiWait(,%d%d%d%d%d%d%d"，"data_year",time.wYear-2023,"data_month",time.wMonth,"data_day",time.wDay,"data_hour',time.wHour,"data_MINUTE",time.wMinute,"data_SECOND",time.wSecond,"data_FLAG”,1)7、对话框调用BOOLA;BOOLB;IIWNDhwnd=NULL;intRetMsg;A=GetTagBit("TJ_ANNIU");/Return-Type:BOOLhwnd=FindWind。W(NULLJWinCC运营系统-if(A=O)(RetMsg=MessageBox(hwnd,”拟定要停机？“，“停机警告”,MB_OKCANCELMB_SYSTEMM0DALMB_SETFOREGROUND);if(RetMsg=IDOK)(SetTagBit("TJ_ANNIU",1)；MessageBox(hwnd,“停机“，“停机警告"，MB_0KlMB_SYSTEMMODAL|MB_SETFOREGROUND);SetTagBitCTLANNIU,O);)elseB=O;1eIse8、声音报警®#pragmacode(,'Winmm.d11")OVOlDWINAPIPlaySoundA(char*PSZSOUnd,char*hmode,DWORDdwf1ag)；PragmaCOde()if(GetTagF1oat(,LIST555")>500)gPlaySOundA(,'D:DCSDATACG_winccHornHorn_Attention.wav",NULL,1);if(GetTagF1oat(,LIST555,')<300)O。PlaySoundA("D：DCSDATACG_winccHornWalsndmgr.wav,NULL,1)；9、水平移动建立内部变量BOoL-Q,无符号32位一PA全局动作inta;intaIjAa=GetTagBit("Q");a1=GetTagDWord("P");if(a=1)aal=a1+10；a)if(al>=100)aal=0；AASetTagDW0rd(,P,al)；然后用一个按钮控制二进制变量Q,为启动信号。物体的X位置相应的是变量P,设立为模拟量。当P为1的时候相应的X位置。P为2的时候相应X的位置，以此类推,就可以做出物体移动画面了,要做全局脚本10、WinCC中调用SQL语言1、创建一个SQL文献，此文献在ISQL中建立，文献内包含所要执行的SQL语句。WindOWS对话框实现。具体如下：A2、在WinCC中用CScript调用上述SQL文献,如下所示：#iclude&quot;apdefap.h&quot；voidOnLButtonDown(char*IpszPiCtureName,char*IpszbjectName,char*IpszPropertyName,AUlNTnFlagS,intx,inty»char*a=&quot;c:siemenscommoSQLANYISQL-q-bCAUID=DBA；PWD=SQL；DBF=E:testsqltestsqIRT.DB；aDBN=CC_testsql_99-12-03-12:48:26R;READaE:testsq1test.sq1&quot;：Printf(&quot;%srn&quot;,a)；APrOgramEXCUte(a);下面是一个简朴的SQL文献内容：select*fromPde#hd#t#test;outputtoe:test2.txtFORMATascii注意:文献名及途径中不要带空格。11、设立或重置一个变量VoidOnCIick(char*IpszPiCtureName,char*IpszObjectName,char*1pszPropertyName)aBOOLz;z=GetTagBit(&quot；MyBitVariable&quot;);获得变量值Aif(z=0)ASelTagBit(&quot：MyBitVariab1e&qUo设立变量值elseasetTagBit(&quot：MyBitVariable&quot;,0);)12、运营时图形产生动态旋转#inc1ude&quot;apdefap.h&quot；AIong_main(char*IpszPictureName,char*1pszObjectName,char*AlPSZPropertyName)kstaticintx=25,y,z;/x为半径的初始值为25,y为切换变量,z为搅拌机运营状态变量z=GetTagBit(&quot；202搅拌机运营&quot；)；/取得PLC搅拌机的运营状态if(z!=O)switch(y)aacaseO:AX=X4;if(&lt;=O)Ay=1；break;AdefaUIt>=+4;if(x&gt;=25)y=0；Abreak;returnx;)13、WlNCC一如何在程序中动态修改用户密码1、点击“开始”一“设立”“控制面板”一“管理工具”“数据源(ODBC)”,打开ODBC数据源管理器2m在用户DSN页面的用户数据源中找到与当前项目所关联的一项,其名称为“CC_项目名_项目建立日期时间”，记下该项的名称3、在脚本中加入以下代码：#Pragmacode("UseGen.dII")#include"USEGENAP.II',会#Pragmacode()1.PCMN.ERRORerr；/定义的LPCMN_ERROR型变量,在函数调用中需使用Aif(PWGENC0nnect("CC_ass_O4-09-21_16:35:22",err)/建立与数据库的联接,其中CC_ass_04-09-21_16:35:22用第二步中记下的名称取代aif(PWGENChangePassword(GetTagChar(',user,'),GetTagChar("oIdpasSword"),GetTagChar("password,),err)/修改密码,user,oldpasSWord,password分别为存贮用户名,原密码，新密码的内部变量,类型为文本变量8位字符集(/密码修改成功后的操作,如给用户提醒等AAPWGENDiSconnect(err);断开与数据库的联接4、编译运营程序A5、工作完毕6、与用户管理相关的函数定义存贮在APPIJB目录下的USEGENAP.H文献中，可根据上面示例自行完毕添加用户,修改权限等功能。14、WinCC如何实现鼠标OnMOIISeOVer事件用WIND0WAPI函数GaCUSOrPOS获取当前鼠标位置，用GelWindOWReCI函数获取窗口位置，两值相减得鼠标在WINCCframe上的相对位置。用全局脚本(设定为1S定期刷新)，然后获取要OnMOUSeoVer事件的物体的位置,并与鼠标位置相比较，如一致则触发自己定义的动作。#incIude"apdefap.h,intgscAction(void)(#pragmacode("user32.d1,);BOOLGetCusorPos(POINTIPPoint);获取鼠标的位置(绝对位置-相应屏幕分辨率)BOOLGetWindowRect(HWNDhwnd,LPRECTIPReCt);获取窗体位置#pragmacode();APOINTpPos；RECTrRec;HWNDhwnd;BOOLbRet,bRet2；a!ong1Left,1To,IWidth,lHeight;long1X,IY；acharszStr100;hwnd=FindWindow(NULL,"WinCC-Runtime-");如语言为中文应为“WinCC运营系统if(hwnd=0)(printf(,'mError!WinCcHandIeis%d,hWnd)；gotoover;bRet=GetCursorPos(&pPos)；if(bRet=O)gotoover;bRet2=GetWindowRect(hwnd,<ferRec);Aif(bRet2=0)gotoover;IX=PPoS.x-rRec.left;鼠标对置IY=PPos.y-rRec.top;/鼠标位置假如为非全屏模式,需将上述数值中的高height判断减去标题栏的宽度/printf("TheCurrentCusorPosisx:%d,y:%drn",pPos.x,pPos.y);Aprintf("TheCusorPosinWindowisX:%d,y:%drn",pPos.x-ILeft2,pPos.y-lTop2);ILeft=GetLeft("NewPd1O.Pd',"Text1");/Return-Type:1ongintMToP=GetTop("NewPd1O.Pd1,',"Text');/Return-Type:1ongintA1Width=GetWidth("NewPdlO.Pdl,"Textl");/Return-Type:longint1Height=GetHeight("NewPdIO.Pdl","Textl");/Return-TypeJongintif(lX>=lLeft)&&(lY>=llbp)&&(1X<=!Left+1Widlh)&&(1Y<=lTop+lHeight)sprintf(szStr,'%d,%d",IX,1Y);ASetText(',NewPd1O.Pdl","Textl",szStr);/Return-Type：char*a/printf("TheTextlPosisx:%d,y:%drn,ILeft2,ITop-ITOP2);AoVer:return0；15、如何在退出WINCC监控时直接关闭电脑1 .运用动态向导2 .在脚本中加入DMExitWinCCEx(DM_SDMODE_SYSTEM)：也可以16、过WlNCCAPl函数读出当前报警消息1、使用GMSgFUnCtiOn中读出当前报警信息的ID(JwMsgNr);2、使用MSRTGetMsgCSData函数读出该报警信息ID相应文本库TEXTLlB中的文本ID(dwTextIDl)：3、使用MSRTGetMSgTexI函数读出该文本ID的文本。信息到达解决:假如读取文本成功，则置文本变量MSGo信息拜别解决:假如MSgNr与上一次相同，则复位MSG假如不是,则继续保持信息。具体函数说明请看ODK文档BOOLGMsgFunotion(char*pszMsgData)a(a#PragmaCode("msrtcli.dll")#inelude"msrtapi.h,#pragmacode()；MSG_TEXT_STRUCTtMeId;AMSG_CSDATA_STRUCTsM;ACMN_ERRORerr;BOOLbRet;DWORDdwTextID1;DWORDdwMSgNum;ACharszMsg255；#defineTAG_MSGMSG,MSG_RTDATA_STRUCTmRT;memset(&mRT,O,sizeof(MSG_RTDATA_STRUCT);if(pszMsgData!=NULL)AAp11ntf("MeIdung:%srn",pszMsgData);sscanf(psZMSgData,"%ld,%ld,%04d.%02d.%02d,%02d:%O2d:%02d:%03d,%ld,%1d,%ld,%d,%d”,A&mRT.dwMsgNr,/MeIdungsnummerA&mRT.dwMsgState,/StatusMSG_STATE_COME,._GO,._QUIT,._QUIT_SYSTEMA&mRT.stMsgTime.wYear,/Tag&mRT.stMsgTime.wMonth,/Monat&mRT.stMsgTime.wDay,/JahrA&mRT.stMsgTime.wHour,/StundeA&mRT.stMsgTime.wMinute,/Minute&mRT.stMsgTime.wSecond,/Sekundea&mRT.stMsgTime.wMilliseconds,/MiIlisekundeA&mRTdwTimeDiff,/ZeitdauerderanstehendenMeIdung&mRT.dwCounter,/InternerMe1dungsz7h1er&mRT.dwF1ags,/Flags(intern)A&mRT.wPVaIueUsed,&mRT.wTextVa1ueUsed);*codefordeountif(mRT.dwMsgState=MSG_STATE.COME)信息到达解决AdwMsgNum=mRT.dwMsgNr;printf("rnTheAlarmMessageNois%d!rn",dwMsgNum);bRet=MSRTGetMsgCSData(dwMsgNum,&sM,&err);Mf(bRet=TRUE)aAdwTextIDI=sM.dwTextID0;printf(',mTheTextIDofTheMessageNr%dis%d!rn,dwMsgNum,dwTextIDl);bRet=MSRTGetMsgText(l,dwTextIDL&【Meld,&err);AifCbRet=TRUE)asprintf(szMsg,"%s",tMeId.szText);printf(,'mTheTextofTextID%dis%s!m",dwTeXtID1,SZMSg);if(mRT.dwMsgState=MSG.STATE.GO)/信息拜别解决AdWMSgNum=mRT.dwMsgNr;Aif(dwMsgNum=GetTagDWord(TAG_MSG_NR)SetTagChar(TAG_MSG,U")；Ia/*codefordeount/Meldungsdateneinlesen/ProzesswerteIesen,fallsgew?§?Inscht)printf(,'Nr%d,St:%x,%d-%d-%d%d:%d:%d.%d,Dun%d,Cnt%d,F1%drn",AmRTdwMsgNr,mRT.dwMsgState,mRT.stMsgTime.wDay,mRT.stMsgTime.wMonth,mRT.stMsgTime.wYear,mRT.StMsgTime.wHour,mRT.stMsgTime.wMinute,mRT.stMsgTime.wSecond,mRT.stMsgTime.WMillisecondS,mRT.dwTimeDiff,mRT.dwCounter,mRT.dWFlags);SetTagChar(TAG_MSG»szMsg);return(TRUE);)17、实现用户登陆日记(WinCC中用C脚本实现？)用户登陆日记：(涉及用户的登陆退出信息,以便查询在什么时间段是哪个用户在使用这个监控软件)#inc1ude"apdefap.h"intgscAction(VOid)(a#Pragmacode("kemel32.d11")AVOIDGetLocaITime(LPSYSTEMTIMEIpSystemTime);#Pragmacode()char*username;Acharbuf128;AStatiCcharpreuser128；AUnSigneda,b,c,d,e,f;FILE*fp：SYSTEMTIMEsysTime;/读取系统时间，并且复制给变量a,bed©fGetLocalTime(&sysTime);a=sysTime.wHour;Ab=SysTime.wMinute;AC=sysTime.wSecond;Af=SysTime.wYear；Ae=sysTime.wMonth;d=sysTime.wDay;得到当前用户名称username=GetTagChar("CurrentUser,);AfP=fopen("c:wincclog.tXt,“a+”)；if(strcmp(username5preuser)!=0)/假如当前用户名称和前一个用户名不同A(if(strcmp(username,"")!=0)&&(StrCmP(Prellser,"")=0)/假如当前用户名称不空同时前一个用户名为空aasprimf(buf,"用户：%st登陆时间是：t%d-%d-%d,%d-%d-%dn,username,a,b,c,d,e,f);fputs(buf,fp);aAelseAif(strcmp(username,)=0)&&(strcmp(preuser,",)!=0)/假如当前用户名称为空同时前一个用户名不空ASPrintf(buf,”用户：%st退出时间是：t%d-%d%d,%d-%d-dn,preuser,a,b,C,d,e,f);fputs(buf,fp);aelseasprintf(buf,”用户:St退出时间是：t%d-%d-%d,%d-%ddn”，preuser,a,b,c,d,e,f);fputs(buf»fp);sprintf(buf,"用户:st登陆时间是：t%d-%d-%d,%d-%d-%dn,username,a,b,c,d,e,f);fputs(buf,fp);一strcpy(preuser,usemame);AfCIOSe(fjp);return0;A)18、全局脚本声音报警#pragmacode("Winmm.dl1)eVOIDWINAPIP1aySoundA(char*pszSound,char*hmode,DWORDdwflag)；»#pragmacode()Oif(GetTagBit("XY,)=O)(。if(GetTagFloat("LIST555,1)>5O0)/热井液位(gP1aySoundA("D:DCSDATACG_winccHorn热井液位高1.wav',NULL,O);)if(GetTagF1oat(,LIST555")<300)热井液位(PIaySoundA("D：DCSDATACG_winccHorn热井液位低1.wav”,NULL,0);if(GetTagF1oat("TE42lA")>100GetTagF1oat(,TE42IB")>100GetTagFloat(,'TE423A',)>100GetTagFloat("TE423B,)>100IGetTagF1oat(,TE425")>100GetTagF1oat("TE427")>100GetTagF1oat(,'TE442")>l00)/轴瓦温度(。P1aySoundA("D:DCSDATACG_winccHorn轴瓦温度高1.wav",NULL,0);aif(GetTagFloat("TIE485")>45)/冷油器出口油温PlaySoundA("D:WDCSDATACG_winccHorn冷油器出口油温高.wav",NULL,0);>if(GetTagFloat("PT09,)<05)进汽压力©©(OPlaySoUndA("DNDCSDATACG_winccHom蒸汽压力低.wav”，NULL,O);。if(GetTagFIoat("PTlO9")>40)真空低由。OPlaySoundA("DNDCSDAACG_winccWHom排汽压力高.wavu,NULL,0)；1Af(GetTagFloat("PT13')<O.13)润滑油压力低OPlaySoUndA(,D:DCSDATACG_winccWHOm润滑油压力低1.wav",NULL,0);。if(GetTagFIoat("PDT2131,)>0.05GetTagFloat(',PDT215")>0.05GetTagBit("PDSO7')=0GetTagBit("PDSO73,)=0)/滤油器差压。(。PlaySoundA("D:DCSDATACG_WinCcHorn滤油器差压.wav",NULL,O);。Oif(GeITagFloat("PTl21,)<O.65)/主油泵出口压力P1aySound("D:DCSDATACG_winccHorn主油泵出口压力低.wav”，NULL,。)；)。if(GetTagFIoat("LIST55,)<-19O)油箱油位PlaySoundA(,'D：DCSDATACG_winccHomW油箱油位低.wav,NULL,O);。由f(GetTagFIoat("VE735A")>52Ge(TagF1oat(',VE737A)>52GetTagFloat("VE745A,')>52GetTagBit("XE202,)=1GetTagBit(/振动大XE204,)=lHGetTagBit(,XE206,')=1)0。IEPlaySoundA(,rDDCSDATACG_winccHom轴瓦振动高.wav”,NULL,O);2)。if(GetTagFloat(,ZE769n)>0,4GetTagFloat(,ZE769,)<-0.4GetTagBit(',ZE208")=1)/汽机转子轴向位移OOOPIaySOUndA(”D:DCSDATACG_winccHomW轴相位移高.wav”,NULL,0)；OIaif(GetTagFloat("ZDE785)>3GetTagFloat("ZDE785,)<-2IGetTagBit("VE209")=1)汽机转子胀差gOPIaySoundA(DADCSDATACG_winccHorn胀差高.wav,NULL,0);2bif(GetTagFloat(,'AI-0O94")>324O)/转速(皿PlaySOUndA("D:DCSDATACG_winccHom汽轮机转速高.wav",NULL,0);Ooooif(GetTagBit("DI_0175u)=1GetTagBit("DI_0180")=1)/保护跳闸。OPIaySoUndA(,D:DCSDATAWCG_winCcHorn发电机保护跳闸.wav”，NULL,0);。)。if(GetTagBit("DI_0177,)=1GetTagBit("DI_0181")=1)定子转子一点接地>PlaySoundA(,DDCSDATACG_winccHorn发电机转子接地.wav”，NULL,0);2)if(GetTagBit("DI_O176")=1)过负荷(。PlaySoUndA(,'D:DCSDATACG_winccHom发电机过负荷.wav,NULL,O);)if(GetTagBit("DI_O182")=1)/失磁(。P1aySoundA(',DADCSDATACG_winccHorn发电机失磁.wav,NULL,0);if(GetTagBit("S0E_150)=1)/ETS动作sgOP1aySoundAC,DDCSDATACG_winccHomETS动作.wav,NULL,O);)19、闪烁边框图片的脚本Flash-简短描述使用Flash组中的函数可以修改或调用各种闪烁属性。1.1ongintGetBaCkFlashCoIor0ff(LPCTSTRIpszPictureName,LPCTSTR1pszbjectName)函数,指定取消激活状态的闪烁背景色读出闪烁颜色的实例IOngiIltf1ashcol_on;获得背景闪烁颜色FIashcol_on=GetBackFlashCo1orn(1pSzPictureName,"Group1,');/自定义代码在那里用户可以使用返回值做某事1GetBackFlashCoIorOn函数参数：“IpszPicUireName”是在其中组态该对象的画面的名称。“Group1”是该对象的名称。1) .读出该对象的开状态的当前背景闪烁颜色以及flashcol_on中的缓冲区。2) .执行解决返回值的自定义代码。2.1ongintGetBackF1ashColorOn(LPCTSTRIpszPictureName,LPCTSTRIpszObjectName)函数，指定激活状态的背景闪烁颜色。读出闪烁颜色的实例longintfIashco1_on;/获得背景闪烁颜色Flashco1_on=GetBackF1ashCo1orn(1pszPictureName,"Group1");自定义代码/在那里用户可以使用返回值做某事1GetBackF1ashColorn函数参数：“1PSzPictureName"是在其中组态该对象的画面的名称。“Group1”是该对象的名称。1. .读出该对象的开状态的当前背景闪烁颜色以及flaShcoLon中的缓冲区。2. .执行解决返回值的自定义代码。3. longintGetBorderFlashColorOff(LPCTSTR1pszPictureName»LPCTSTR1pszbjectName)函数，指定取消激活状态的边框或线闪烁颜色。读出闪烁颜色的实例(Iongintf1ashcol_on;获得背景闪烁颜色flashcol_on=GetBackFlashCoIorn(lpszPictureName,"Group1);自定义代码/在那里用户可以使用返回值做某事1GetBackFlashColorn函数参数：“IpszPictureNamew是在其中组态该对象的画面的名称。“Grou1”是该对象的名称。4. 1ongintGetBorderF1ashColorn(LPCTSTRIpszPictureName,LPCTSTRIpszObjeCtName)函数,指定激活状态的边框或线闪烁颜色。读出闪烁颜色的实例(1ongintfIashco1_on;获得背景闪烁颜色flashco1_on=GetBackF1ashColorOn(lpszPictureName,"Group,);自定义代码在那里用户可以使用返回值做某事GetBaCkFIashCoIorOn函数参数:"IpszPictureName”是在其中组态该对象的画面的名称。“Group1w是该对象的名称。5. BOOLGetFlashBackColor(LPCTSTRIpszPictureName,LPCTSTRIPSZobjeCtName)函数，指定是否激活背景闪烁。读出“闪烁背景激活”属性的实例(BOOLbf1ash_col;了解闪烁是开还是关bflashcol=GetFlashBackColor(IpszPictureName,Group1")；if(bf1ash_col)(/自定义代码/闪烁是否被激活else/自定义代码/闪烁是否被取消激活11GetFlashBackCoIor函数参数：alpszPicmreName”是在其中组态该对象的画面的名称。“Group1”是该对象的名称。1) .读出背景色闪烁是否被激活以及bflash_col中的缓冲区。2),根据该函数的返回值执行自定义代码。20、I/0脚本使用i_。组中的函数可以修改或调用影响输入和输出值的各种属性。1. char*GetAssignments(LPCTSTRIpszPictureName,LPCTSTR1pszbjectName)函数,对于列表，分派文本给数值范围2. BOOLGetAsSumenExit(LPCTSTR1PszPictureName,LPCTSTRIpsz0bjectName)函数,使用I/O域时，它指定退出该域时是否应用输入的数值。3. BO0LGetAssumenFull(LPCTSTR1pszPictUreName,LPCTSTRIpszObjectName)函数,使用I/O域时,它指定完毕输入时是否应用输入的数值。4. IongintGetBitNumber(LPCTSTRIpszPictureName,LPCTSTRIPSZobjeCtName)函数，使用列表类型“位”