wincc vbs脚本变量无法保存

精

奖

官

342 产品版区：WinCC基本系统

文档类型：问题类别：产品选型问题类别：产品使用问题类别：故障诊断

wincc做了一个vb脚本，一个判断变量如果为1的时候，主数据变量传给a变量，如果判断变量为2的时候主数据变量传给B，由于判断变量和主数据，变量是plc上来的，所以我在画面中判断变量和主数据变量输入输出域，就出现了一个情况，判断变量等于1的时候主数据变量传送给a正常，判断变量等于2的时候主数据应该传送给b是对的，但是a变量数据不保存变成了0，反之判断变量等于1的时候 b量也成为0了，我主要是想判断变量有31个数，就是日表的意思我需要a，b量都要保存，最后到31日或30日全部数据加到一个变量上为月数据，本来plc也可以的可是他是200smart呀哈哈哈32位，每天的流量数据也很大一个月完了月寄存器肯定装不下，只能用电脑上的64位，大神帮忙看看
Option Explicit
Function action

Dim RQ, SJ, R1, R2, H

    Set RQ = HMIRuntime.Tags("RQ")
    Set SJ = HMIRuntime.Tags("SJ")
    Set R1 = HMIRuntime.Tags("R1")
    Set R2 = HMIRuntime.Tags("R2")

    ' 外部写入的值
    ' 这里假设外部通过其他方式将值写入 RQ 和 SJ
    ' 如果这部分的写入逻辑涉及到外部调用，你需要根据具体情况进行调整

    ' 根据 RQ 的值将 SJ 的值分别赋给 H、R1、R2
    If RQ.Read = 0 Then
        H.Value = SJ.Read
    ElseIf RQ.Read = 1 Then
        R1.Value = SJ.Read
    ElseIf RQ.Read = 2 Then
        R2.Value = SJ.Read
    End If

    ' 以下是你提到的写入和读取操作
    ' 如果 RQ 和 SJ 是从外部写入的，下面的写入操作可能不需要
    RQ.Write
    RQ.Read
    R1.Write
    R1.Read

    R2.Write
    R2.Read
    SJ.Write
    SJ.Read

End Function

问题补充：判断变量是一个月的日，主变量是仪表的数据，A-B-C~对应的是日的每一天，现在的问题是判断变量等于1 A有数据了，判断变量等于2 B有数据了，但是同时A的数据掉了变成0了，我需要保存A-B-C~的数据，月底加起来

扫码小程序：

一键登录查看全部问答