Hello.,

As a practice

1. I want to pass two values through vbs parameters of a function

2. To do simple addition, subtraction.

3. Pass that two results through vbs parameters.

Is is possible to pass result through parameters or RET of function.

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Example ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Function Result(Parameter_1 As Byref, Parameter_2 As Byref, Parameter_3 As Byref,Parameter_4 As Byref,)

Dim A,B,C,D

A = Parameter1                                " Moving Value of Parameter1 to Variable A

B = Parameter2                                " Moving Value of Parameter2 to Variable B

C = Parameter1 + Parameter2

D = Parameter1 - Parameter2

Parameter3 = C                                " Moving result value of C to Parameter3

Parameter4 = D                                 " Moving result value of C to Parameter4

End Function

Let me know if any correction.

Thx

TN Sudheer.

VBS Learner

------------------------------------------------------------------------------------------
Split from Multiple arguments in Function (VBS).

Hi,

You need to write the result in a tag with the same name as your function:

 In the script where you call your function:

Dim Return_Value

Return_Value = Result (1, 2, 3, 4)

Function Result(Parameter_1 As Byref, Parameter_2 As Byref, Parameter_3 As Byref,Parameter_4 As Byref,)

Dim A,B,C,D

A = Parameter1                                " Moving Value of Parameter1 to Variable A

B = Parameter2                                " Moving Value of Parameter2 to Variable B

C = Parameter1 + Parameter2

D = Parameter1 - Parameter2

Parameter3 = C                                " Moving result value of C to Parameter3

Parameter4 = D                                 " Moving result value of C to Parameter4

Result = Parameter4

End Function

 Best regards,

Gonzalo

Thx #gjimenzz

But I think we can access only one result either addition or subtraction through return variable of fc..

If there is a possibility how can I address them..why bcz when I call a function it shows only one return..

Correct me if I am wrong..

Regards

TN Sudheer

VB Leaner

Hi,

I think that you can use arrays.

Dim Return_Value, 1_Parameter, 2_Parameter 

Return_Value = Result (1, 2, 3, 4)

1_Parameter = Return_Value(0)

2_Parameter = Return_Value(1)

Function Result(Parameter_1 As Byref, Parameter_2 As Byref, Parameter_3 As Byref,Parameter_4 As Byref,)

Dim A,B,C,D

A = Parameter1                                " Moving Value of Parameter1 to Variable A

B = Parameter2                                " Moving Value of Parameter2 to Variable B

C = Parameter1 + Parameter2

D = Parameter1 - Parameter2

Parameter3 = C                                " Moving result value of C to Parameter3

Parameter4 = D                                 " Moving result value of C to Parameter4

Result = Array (Parameter3,Parameter4) 

End Function

Best regards,

Gonzalo

Hi,

I rewrite to make it clearer: 

 Thnx gjimenez,

I'm little bit closer to what i want.

I tried with the code , that's good

 I want to pass my result to hmi tags through vbscript parameters, there by outside of the script i will assign the tags whatever i want. { diff  hmi tags for diff buttons }

Example :  when i press run script button my values of addition, subtraction has to update in tags  through vb parameters Var_3 & Var_4 to  Test_DB_Addition & Test_DB_Subtraction

if i press other button my values has to update in other tags what i assigned.

Here is the pic what i has done

Correct me if i am wrong.

Regards

TN Sudheer

gjimenez

Hi,

I rewrite to make it clearer: 

 

Dim Return_Value, Parameter_3, Parameter_4

Return_Value = Result (2, 1)

Parameter_3 = Return_Value(0)

Parameter_4 = Return_Value(1)

 

 

Function Result (Parameter_1, Parameter_2)

Dim Addition, Substration

Addition = Parameter_1 + Parameter_2

Substration = Parameter_1 - Parameter_2

Result = Array (Addition, Substration)

End Function

 

 

 For suppose if i directly assign my tags like

'SmartTags("Test_DB_Addition") = Ret_Val(0)

'SmartTags("Test_DB_Subtraction") = Ret_Val(1)

i have to make number of scripts depending upon number of script calls.

So i want to make one script with results in parameters Var_3 & Var_4

thereby i will assign my required tags outside the script.

l

gjimenez

Hi,

I rewrite to make it clearer: 

 

Dim Return_Value, Parameter_3, Parameter_4

Return_Value = Result (2, 1)

Parameter_3 = Return_Value(0)

Parameter_4 = Return_Value(1)

 

 

Function Result (Parameter_1, Parameter_2)

Dim Addition, Substration

Addition = Parameter_1 + Parameter_2

Substration = Parameter_1 - Parameter_2

Result = Array (Addition, Substration)

End Function

 

 

 Hi TNSudheer,

You can use name of tags as input. On this case, you dont need to use function because you dont need to return anything but it works ok.

Function Result (Parameter_1, Parameter_2, Parameter_3, Parameter_4)

Dim Addition, Substration

Addition = Parameter_1 + Parameter_2

Substration = Parameter_1 - Parameter_2

SmartTags(Parameter_3) = Addition

SmartTags(Parameter_4) = Substration

End Function

By the way, it is a WinCC forum. If your question is with TIA, you should use SIMATIC WinCC (TIA Portal).

Best regards,

Gonzalo