回复:wincc 脚本问题

手机用户20170321575103

  • 帖子

    2
  • 精华

    0
  • 被关注

    0

论坛等级:新手

注册时间:2017-03-21

普通 普通 如何晋级?

发布于 2017-04-17 14:34:57

4楼

Option Explicit

Function action

Dim a,b,c

Set a = HMIRuntime.Tags("Tag1")

a.Read

Set b = HMIRuntime.Tags("Tag2")

b.read

Set c = HMIRuntime.Tags("Tag3")

c.Read

If a.Value =1 Then c.Value =c.Value +0.5 End If

If b.Value = 1 Then c.Value  =0 End If

c.Write

End Function

改成这样就可以了不知道为什啊如果不读的话是不是每次都要执行从新声明变量并把c初始化为零呢

评论
编辑推荐: 关闭

请填写推广理由:

本版热门话题

SIMATIC S7-300/400

共有54765条技术帖

相关推荐

热门标签

相关帖子推荐

guzhang

恭喜,你发布的帖子

评为精华帖!

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

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

  • 分享

  • 只看
    楼主

top
X 图片
您收到0封站内信:
×
×
信息提示
很抱歉!您所访问的页面不存在,或网址发生了变化,请稍后再试。