WINCC动画脚本Word文件下载.docx
《WINCC动画脚本Word文件下载.docx》由会员分享，可在线阅读，更多相关《WINCC动画脚本Word文件下载.docx（13页珍藏版）》请在冰点文库上搜索。
staticinta=350;
）&
&
（a<
=730））{
a+=20;
if（a>
=720）（a=350）;
}
if（!
GetTagBit（"
））（a=350）;
returna;
物料水平右移动（几何---位置X）（停车后，物料停在该点）
物料向上移动（几何---位置Y）（停车后，物料停在该点）
staticintb=450;
（b>
=290））{
b-=10;
if（b<
=280）（b=450）;
returnb;
年月日（静态文本）
char*_main（char*lpszPictureName,char*lpszObjectName,char*lpszPropertyName）
time_ttimer;
structtm*ptm;
char*p;
time（&
timer）;
ptm=localtime（&
p=SysMalloc（9）;
sprintf（p,"
%04d/%02d/%02d"
ptm->
tm_year-100+2000,ptm->
tm_mon+1,ptm->
tm_mday）;
return（p）;
时分秒（静态文本）
%02d:
%02d"
tm_hour,ptm->
tm_min,ptm->
tm_sec）;
登陆到指定的用户名无须手动输入（按钮操作）
voidOnLButtonDown（char*lpszPictureName,char*lpszObjectName,char*lpszPropertyName,UINTnFlags,intx,inty）
#pragmacode（"
useadmin.dll"
）
PWRT_API.H"
#pragmacode（）
PWRTSilentLogin（"
用户名"
"
口令"
）;
**显示登陆对话框无须热键（按钮操作）**
#pragmacode（"
PWRT_api.h"
#pragmacode（）
PWRTLogin（'
c'
退出WINCC运行（按钮操作）
{
DeactivateRTProject（）;
单位递增按钮（到上限不提示出错）
voidOnClick（char*lpszPictureName,char*lpszObjectName,char*lpszPropertyName）
DWORDvalue;
value=GetTagDWord（"
AI标签"
if（value>
90）（value=上限）;
elsevalue=value+10;
SetTagDWord（"
value）;
单位递减按钮（到下限不提示出错）
if（value<
10）（value=下限）;
elsevalue=value-10;
**单位递增按钮（到上限提示出错）**
HWNDhWnd=NULL;
hWnd=FindWindow（NULL,"
Wincc-运行系统-"
=90）（value=value+10）;
elseMessageBox（hWnd,"
已到达上限值！
"
"
错误"
MB_OK|MB_ICONWARNING|MB_APPLMODAL）;
**单位递减按钮（到下限提示出错）**
0）（value=value-10）;
已到达下限值！
错误"
**自动登陆到指定的用户（画面属性--其它—**）**
return（0X0）;
**询问框（最好用于单机启动，组启也可，2个按钮，NO不操作）**
HWNDhWnd=NULL;
int上位启动信号;
WinCCC-Course"
DI备妥"
））
上位启动信号=MessageBox（hWnd,"
电源已备妥，您现在确定要启动吗？
启动！
MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL）;
printf（"
\r\nExample3\r\n"
if（上位启动信号==IDNO）（printf（"
UserselectedNObutton\r\n"
））;
else（SetTagByte（"
上位启动信号"
1））;
else
MessageBox（hWnd,"
电源未备妥，请查证后重试！
MB_OK|MB_ICONHAND|MB_APPLMODAL）;
**询问框（最好用于单机启动，组启也可，3个按钮，NO复位）**
int上位启动信号;
电源已备妥，您现在确定要启动吗？
MB_YESNOCANCEL|MB_ICONQUESTION|MB_APPLMODAL）;
if（上位启动信号==IDCANCEL）（printf（"
else
{
if（上位启动信号==IDYES）（SetTagByte（"
0））;
}
电源未备妥，请查证后重试！
**搅拌器左侧扇页（几何—宽度）**
staticinth=50;
staticintu=0;
if（（h>
0）&
（h<
=50））
（h-=2）;
returnh;
if（（u>
=0）&
（u<
50））
（u+=2）;
returnu;
u=0;
h=50;
））{
**搅拌器左侧扇页（几何—位置X，右侧扇页没有位置变化）**
staticinth=75;
staticintu=125;
=75）&
125））
（h+=2）;
if（（u<
=125）&
（u>
75））
（u-=2）;
u=125;
h=75;
**显示层按钮**
SubX6309X94AE2X0000X0000_X6309X94AE2X0000X60C5_X6309X94AE2X0000X653E_OnLButtonDown（ByValItem,ByValFlags,ByValx,ByValy）
DimobjScreen
DimCountLayer
SetobjScreen=HMIRuntime.Screens（"
layer"
ForCountLayer=1To32Step1
objScreen.Layers（CountLayer）.Visible=vbFalse
Next
objScreen.Layers（n）.Visible=vbTrue
EndSub
n=层数+1
初始画面程序（画面空地--属性--事件--其它--打开画面--动作）
**打印按钮**
WinExec（"
PRTSCR.EXE-hardcopy"
SW_SHOWNORMAL）;
**一个圈代表电机两种状态**
char*opentag="
DI1电机运行信号"
;
char*closetag="
DI2电机运行信号"
BOOLopen,close;
open=GetTagBit（opentag）;
close=GetTagBit（closetag）;
if（open）
returnCO_GREEN;
if（close）
returnCO_BLUE;
升级会员 