看到论坛上很多人在问wincc动画怎么做,趁今天空给大家写了个脚本
效果:看不到请刷新浏览器
演示文档下载地址:
http://115.com/file/c2enl3bh而且调用相对简单 比如:Call PicPaly("PicItem",10,"风扇") 就可以用了 方便吧具体的下面回说明
下面进入具体的步骤:
1、准备好你需要播放的图片,可以是任意张。但命名要注意图片的命名是
是要遵循一定规则的,格式:****1.jpg ****2.jpg ****3.jpg 等等...........其中'****'为前缀
****这个值随便命名 这个值就是函数的第三个参数 比如有10张风扇的图片你可以命名为 风扇1.jpg 风扇2.jpg 风扇3.jpg 等等......... 第二个参数为图片的数量
2、在你的画面中添加图形对象,并命名好对象名比如为:PicItem 这个就是第一个参数,调整图片的相应尺寸。
3、在你的图形对象的画面属性里添加调用vbs函数:Call PicPaly("PicItem",10,"风扇")
第一个参数为图形对象的名称,第二个参数为图片的数量,第三个为图片的前缀。运行就ok 了
对了需要把下面的函数拷贝到全局脚本中去。
全局脚本:
Function PicPaly(Byval PicItem,Byval PicNum,Byval PicPrefix)
'函数说明:本函数使用VBs脚本编写,使用于需要动画的场合
'本函数的原理是调用多个图片循环播放,形成动画效果,事先用户必须整理好需要播放的图片
'参数说明:Byval PicItem为图片对象的对象名称,Byval PicNum为图片的数量,图片的命名是
'是要遵循一定规则的,格式:***x1.jpg ***x2.jpg ***x3.jpg 等等...........其中'***x'为前缀
'Byval PicPrefix取这个值,***x这个值随便命名
'比如有10张风扇的图片你可以命名为 风扇1.jpg 风扇2.jpg 风扇3.jpg 等等.........
'图像对象的对象名称为PicItem则条用方法为:
'Call PicPaly("PicItem",10,"风扇") 你可以在任意地方调用指定执行周期
Dim PicNow,NowNum,PicNext
PicNow=ScreenItems(PicItem).PictureName
If picNow="" Then
ScreenItems(PicItem).PictureName=GetPicName(PicPrefix,1)
PicNext=GetPicName(PicPrefix,1)
Else
NowNum=CInt(GetPicNum(picNow,PicPrefix))
If NowNum>PicNum Then
ScreenItems(PicItem).PictureName=GetPicName(PicPrefix,1)
PicNext=GetPicName(PicPrefix,1)
Else
NowNum=NowNum+1
PicNext=GetPicName(PicPrefix,NOwNum)
ScreenItems(PicItem).PictureName=PicNext
End If
End If
PicPaly=PicNext
End Function
Function GetPicName(Byval PicPrefix,Byval Num)
GetPicName=PicPrefix&Num&".jpg"
End Function
Function GetPicNum(Byval PicName,Byval PicPrefix)
PicName=Replace(PicName,PicPrefix,"")
PicName=Replace(PicName,".jpg","")
GetPicNum=PicName
End Function
演示文档下载地址:
http://115.com/file/c2enl3bh需要的朋友顶一下