WINCC动画脚本集萃Word文档格式.docx

1、） i = i+30;if （i=360） （i=0）;return i; *物料水平右移动（几何-位置X）（停车后，物料回到原点）* int a=350;） & （a=720） （a=350）; if （!GetTagBit（return a;物料水平右移动（几何-位置X）（停车后，物料停在该点）if （a物料向上移动（几何-位置Y）（停车后，物料停在该点） b=450; （b=290） b-=10;（btm_year-100+2000,ptm-tm_mon+1,ptm-tm_mday）;return（p）;时分秒（静态文本）%02d:%02dtm_hour,ptm-tm_min,ptm-t

2、m_sec）;登陆到指定的用户名无须手动输入（按钮操作）void OnLButtonDown（char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y）#pragma code（useadmin.dll）PWRT_API.H#pragma code（）PWRTSilentLogin（用户名, 口令）;*显示登陆对话框无须热键（按钮操作）*#pragma code （PWRT_api.h#pragma code（ ） PWRTLogin（c退出WINCC运行（按钮操

3、作） DeactivateRTProject （）;单位递增按钮（到上限不提示出错）void OnClick（char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName）DWORD value;value=GetTagDWord（AI标签if （value90） （value=上限）;else value=value+10;SetTagDWord（,value）;单位递减按钮（到下限不提示出错）if （value0）&（h=0）&（u50）（u+=2）;return u;u=0;h=50;）*搅拌器左侧扇页（几何位置X

4、，右侧扇页没有位置变化）* h=75; u=125;=75）&125）（h+=2）;if （u75）（u-=2）;u=125;h=75;*显示层按钮*Sub X6309X94AE2X0000X0000_X6309X94AE2X0000X60C5_X6309X94AE2X0000X653E_OnLButtonDown（ByVal Item, ByVal Flags, ByVal x, ByVal y）Dim objScreenDim CountLayerSet objScreen = HMIRuntime.Screens（layerFor CountLayer=1 To 32 Step 1obj

5、Screen.Layers（CountLayer）.Visible = vbFalseNext objScreen.Layers（n）.Visible = vbTrueEnd Subn=层数+1初始画面程序（画面空地-属性-事件-其它-打开画面-动作）*打印按钮*WinExec（PRTSCR.EXE -hardcopy,SW_SHOWNORMAL）;*一个圈代表电机两种状态*char* opentag=DI1电机运行信号; char* closetag=DI2电机运行信号 BOOL open,close; open = GetTagBit（opentag）; close = GetTagBit（closetag）; if （open）return CO_GREEN;if （close） return CO_BLUE;