Hallo
Kann es sein das ByRef im Tia-Portal im VBScript nicht funktioniert?
Als Ergebnis sollte nach aufruf von warte1r in geaendert 112 stehen. Es bleibt aber 111.
Bearbeitet wird die Funktion. Das sehe ich am zs_status=3.
Bei der Sub genau das gleiche.
Kann es sein das ByRef im Tia-Portal im VBScript nicht funktioniert?
Als Ergebnis sollte nach aufruf von warte1r in geaendert 112 stehen. Es bleibt aber 111.
Bearbeitet wird die Funktion. Das sehe ich am zs_status=3.
Bei der Sub genau das gleiche.
Code:
Sub warte1r()
zs_status=1
geaendert=111
zs_status = warte_ref_f(geaendert)
'Call warte_ref(geaendert)
End SubCode:
Function warte_ref_f(ByRef aendern)
aendern=aendern+1
warte_ref_f=3
End FunctionCode:
Sub warte_ref(ByRef aendern)
aendern=aendern+1
zs_status=2
End Sub