VBscrip t-技术论坛-工业支持中心-西门子中国

VBScript

已锁定

手机用户20181213478664

帖子

1
精华

0
被关注

0

论坛等级：新手

注册时间：2018-12-13

普通如何晋级?

VBScript

313

2

2019-04-19 15:52:40

求教高手这段脚本什么意思，不明白

Dim a, b
   SetValue SmartTags("TYPE\Typ_Offset1"),SmartTags("TYPE\Sta.Nr")*44+20
   SetValue SmartTags("TYPE\Typ_Offset2"),SmartTags("TYPE\Sta.Nr")*44+16
   SetValue SmartTags("TYPE\Typ_Offset3"),SmartTags("TYPE\Sta.Nr")*44+22
   SetValue SmartTags("TYPE\Typ_Offset4"),SmartTags("TYPE\Sta.Nr")*44+38
   SetValue SmartTags("TYPE\Typ_Offset5"),SmartTags("TYPE\Sta.Nr")*44+40
    SetValue   SmartTags("TYPE\TypDB_Nur"),SmartTags("TYPE\Sta.Nr")+3502

    a=SmartTags("TYPE\Type_control.STA_MAX_NR")

    For b=1 To 16

    If b<=a Then
SmartTags("TYPE\Station_Name"&b)="Sta."
Else
SmartTags("TYPE\Station_Name"&b)=""
SmartTags("TYPE\Type_control.ST["&b&"].NAME_NR")="XXX"
End If

Next

VBScript

已锁定

编辑推荐：关闭

请填写推广理由：

活动公告查看全部公告>

【仅剩99份】学PLC得PLC限量学习笔记，下单立减50元享加赠

热门视频，猜你喜欢

本版热门话题

SIMATIC WinCC / Panel

共有31066条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜，你发布的帖子

被评为精华帖！

快扫描右侧二维码晒一晒吧！

再发帖或跟帖交流2条，就能晋升VIP啦！开启更多专属权限！

分享
只看
楼主

您收到0封站内信：

×

×

信息提示

很抱歉！您所访问的页面不存在，或网址发生了变化，请稍后再试。