若a=1,那么将变量A的值赋给变量B,将C的值赋给D,将E的值赋给F；若b=1,将AA赋给B,将CC付给D,将EE赋给F.请问用VB怎么编写？谢谢了
问题补充：
情况是这样的，决定条件如a=1时,b=1时,c=1事,d,e..... 有很多，情况跟我举例一样，我只写了两个，那我“If X.Read =1 And Y.Read =0 ”这样的条件岂不是要写很长？真不知道怎么处理了。
最佳答案
以下两种方法都可以实现你的要求。
1.全局脚本中赋值：
Dim X
Set X= HMIRuntime.Tags("a")
Dim Y
Set Y= HMIRuntime.Tags("b")
Dim A
Set A = HMIRuntime.Tags("A")
Dim AA
Set AA = HMIRuntime.Tags("AA")
Dim B
Set B = HMIRuntime.Tags("B")
X.Read
Y.Read
A.Read
AA.Read
B.Read
If X.Read =1 And Y.Read =0 Then
B.Write A.Value
Else
If X.Read =0 And Y.Read =1 Then
B.Write AA.Value
End If
End If
2.在运行画面中赋值：
Dim X
Set X= HMIRuntime.Tags("a")
Dim Y
Set Y= HMIRuntime.Tags("b")
Dim A
Set A = HMIRuntime.Tags("A")
Dim AA
Set AA = HMIRuntime.Tags("AA")
Dim B
Set B = HMIRuntime.Tags("B")
If X.Read =1 And Y.Read =0 Then
B.Write A.Read
Else
If X.Read =0 And Y.Read =1 Then
B.Write AA.Read
End If
End If
点击信息/触发器对话框（Ctrl+T），把事件选成变量，变量名中把两个变量A和B调进来选根据变化就可以了。
提问者对于答案的评价：
你的我试了可以实现 但我补充的问题没法解决。后来改程序了
原创文章，作者：more0621，如若转载，请注明出处：https://www.zhaoplc.com/plc272057.html
微信扫一扫 
支付宝扫一扫 