10/1/2019 3:01 AM | |
Posts: 21 Rating: (0) |
Dear Experts, I want to ask regarding (if..then) function. When I'm using this function at global script, my script execute perfectly, but when I add variable (s1w3),(the one that I comment) my script can't be execute. Is there a limit to declare variables when using if..then function? Dim vw,sel,id,s1w1,s1w2,slw3,slw4,slw5,slw6,slw7,slw8,slw9,slw10,s2w1,s2w2,s2w3,s2w4,s2w5,s2w6,s2w7,s2w8,s2w9,s2w10 Set vw = HMIRuntime.Tags("valuetransfer_weight") Set sel = HMIRuntime.Tags("MX01_Fill_Selection") Set id = HMIRuntime.Tags("valuetransfer_id") Set s1w1 = HMIRuntime.Tags("S01_valuetransfer_weight[1]") Set s1w2 = HMIRuntime.Tags("S01_valuetransfer_weight[2]") 'Set s1w3 = HMIRuntime.Tags("S01_valuetransfer_weight[3]") s1w1.Read s1w2.Read 's1w3.Read vw.Read 'ID 1 SILO 1 If id.Read = 1 Then If sel.Read = 1 Then s1w1.Value = s1w1.Value + vw.Value s1w1.Write End If End If 'ID 2 SILO 1 If id.Read = 2 Then If sel.Read = 1 Then s1w2.Value = s1w2.Value + vw.Value s1w2.Write End If End If 'ID 3 SILO 1 'If id.Read = 3 Then ' If sel.Read = 1 Then ' s1w3.Value = s1w3.Value + vw.Value ' s1w3.Write ' End If 'End If ' Set s1w4 = HMIRuntime.Tags("S01_valuetransfer_weight[4]") ' Set s1w5 = HMIRuntime.Tags("S01_valuetransfer_weight[5]") ' Set s1w6 = HMIRuntime.Tags("S01_valuetransfer_weight[6]") ' Set s1w7 = HMIRuntime.Tags("S01_valuetransfer_weight[7]") ' Set s1w8 = HMIRuntime.Tags("S01_valuetransfer_weight[8]") ' Set s1w9 = HMIRuntime.Tags("S01_valuetransfer_weight[9]") ' Set s1w10 = HMIRuntime.Tags("S01_valuetransfer_weight[10]") ' Set s2w1 = HMIRuntime.Tags("S02_valuetransfer_weight[1]") ' Set s2w2 = HMIRuntime.Tags("S02_valuetransfer_weight[2]") ' Set s2w3 = HMIRuntime.Tags("S02_valuetransfer_weight[3]") ' Set s2w4 = HMIRuntime.Tags("S02_valuetransfer_weight[4]") ' Set s2w5 = HMIRuntime.Tags("S02_valuetransfer_weight[5]") ' Set s2w6 = HMIRuntime.Tags("S02_valuetransfer_weight[6]") ' Set s2w7 = HMIRuntime.Tags("S02_valuetransfer_weight[7]") ' Set s2w8 = HMIRuntime.Tags("S02_valuetransfer_weight[8]") ' Set s2w9 = HMIRuntime.Tags("S02_valuetransfer_weight[9]") ' Set s2w10 = HMIRuntime.Tags("S02_valuetransfer_weight[10]") End Function ------------------------------------------------------------------------------------------ |
Last edited by: 2eratul at: 10/01/2019 03:04:44Last edited by: 2eratul at: 10/01/2019 03:56:52Last edited by: 2eratul at: 10/01/2019 03:58:48Last edited by: The Helping Hand at: 10/01/2019 12:53:11New subject after splitting |
|
10/1/2019 12:59 PM | |
Joined: 8/21/2014 Last visit: 9/19/2024 Posts: 1024 Rating: (14) |
Closed because question was posted twice. Please use: VB SCRIPT IF THEN FUNCTION AND VARIABLE DECLARATIONS |
Last edited by: The Helping Hand at: 10/01/2019 13:00:30Typo. My Forum is the place to personalize your profile, |
|
Follow us on