- Beiträge
- 21.897
- Reaktionspunkte
- 6.812
-> Hier kostenlos registrieren
Hmm, könntest Du Dich nicht mal mit kleinen Schritten ins Unbekannte vortasten? Mußt Du denn immer gleich die höchst-komplizierten Skripte machen, wo Du außer dem Problem auch das meiste andere nicht verstehst? :roll:
Zum Debuggen und Beobachten von Skripten kann man Test-Ausgaben einbauen, z.B. mit ShowSystemAlarm oder in SmartTags schreiben.
Ich habe momentan kein TIA zur Verfügung, doch wenn, dann würde ich zunächst etwas einfaches ausprobieren. Etwa sowas (alles nicht getestet):
Dazu das Aufruf-Skript:
Erst wenn das funktioniert, dann lohnt es sich, die Rückgabe von Werten aus einem Array zu versuchen. Und dann mal als Übergabeparameter direkt SmartTags anzugeben.
Warum das Werte zurückgeben über ByRef-Aufrufparameter nur in einer Function funktionieren soll erschließt sich mir nicht.
Harald
Zum Debuggen und Beobachten von Skripten kann man Test-Ausgaben einbauen, z.B. mit ShowSystemAlarm oder in SmartTags schreiben.
Ich habe momentan kein TIA zur Verfügung, doch wenn, dann würde ich zunächst etwas einfaches ausprobieren. Etwa sowas (alles nicht getestet):
Code:
Function Test_function(ByRef light, ByRef bri, ByRef hue, ByRef sat)
Test_function = light 'Rückgabewert der Function
light = 11 'Rückgabe über Aufrufparameter
bri = 12
hue = 13
sat = 14
End Function
Dazu das Aufruf-Skript:
Code:
Dim wert1, wert2, wert3, wert4, result
wert1 = 1
wert2 = 2
wert3 = 3
wert4 = 4
result = Test_function(wert1, wert2, wert3, wert4)
ShowSystemAlarm "Result: " & result & " Wert1: " & wert1 '...
'geht das auch mit SmartTags?
'result = Test_function(wert1, SmartTags("Lampe 1 bri"), SmartTags("Lampe 1 hue"), SmartTags("Lampe 1 sat"))
Erst wenn das funktioniert, dann lohnt es sich, die Rückgabe von Werten aus einem Array zu versuchen. Und dann mal als Übergabeparameter direkt SmartTags anzugeben.
Wo hast Du das gelesen bzw. was steht da genau?ich möchte gerne 1 wert in die Funktion übergeben und 3 werte aus dem Script zurückgeben. Leider Funktioniert dies nicht. Ich habe gelesen das ich hierfür eine Funktion verwenden muss keinen Sub.
Warum das Werte zurückgeben über ByRef-Aufrufparameter nur in einer Function funktionieren soll erschließt sich mir nicht.
Harald