Global Variable

[Powersoft]

This is a simple test.
Try to fill this EXPORTED var3 with subroutine.
var1 and var2 have values, but var3 keeps on zero.
What is wrong on this?

Cheers,

Jan

TEST(); // Declaration of the subroutine
EXPORT var1,var2,var3; //Exported variable
EXPORT F1 ()
BEGIN
TEST(); // Call TEST and fill var3 with value
INPUT({var1,var2},{"var1=","va2="});
RETURN var1+var2;
END;

TEST()
BEGIN
var3:=12345.6789;
END;

[DrD]

Changed the INPUT(..) line. This should work:

Code:


TEST(); // Declaration of the subroutine
EXPORT var1:=0,var2:=0,var3:=0; //Exported variable
EXPORT F1 ()
BEGIN
TEST(); // Call TEST and fill var3 with value
 
INPUT({{var1,[0],{25,50,0}},{var2,[0],{25,50,1}}});
  
RETURN var1+var2;
END;

TEST()
BEGIN
var3:=12345.6789;
END;

[John Colvin]

(03-20-2015 06:53 PM)Powersoft Wrote:  This is a simple test.
Try to fill this EXPORTED var3 with subroutine.
var1 and var2 have values, but var3 keeps on zero.
What is wrong on this?

Cheers,

Jan

TEST(); // Declaration of the subroutine
EXPORT var1,var2,var3; //Exported variable
EXPORT F1 ()
BEGIN
TEST(); // Call TEST and fill var3 with value
INPUT({var1,var2},{"var1=","va2="});
RETURN var1+var2;
END;

TEST()
BEGIN
var3:=12345.6789;
END;

Your program works fine on my Prime as is. I get var3 value as assigned.
I have the same firmware and Model as you. Runs fine on both the emulator and
the real Prime.

[Han]

(03-20-2015 06:53 PM)Powersoft Wrote:  This is a simple test.
Try to fill this EXPORTED var3 with subroutine.
var1 and var2 have values, but var3 keeps on zero.
What is wrong on this?

Cheers,

Jan

TEST(); // Declaration of the subroutine
EXPORT var1,var2,var3; //Exported variable
EXPORT F1 ()
BEGIN
TEST(); // Call TEST and fill var3 with value
INPUT({var1,var2},{"var1=","va2="});
RETURN var1+var2;
END;

TEST()
BEGIN
var3:=12345.6789;
END;

Check and see if var3 isn't also an already existing variable (prior to creating your program).