VB mehfach Split

Zuviel Werbung?
-> 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):
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.


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.
Wo hast Du das gelesen bzw. was steht da genau?
Warum das Werte zurückgeben über ByRef-Aufrufparameter nur in einer Function funktionieren soll erschließt sich mir nicht.

Harald
 
Zuviel Werbung?
-> Hier kostenlos registrieren
Hallo
folgende Ergebnisse habe ich

Code:
Sub VBFunktion_1()
Dim wert1, wert2, wert3, wert4, result

wert1 = 1
wert2 = 2
wert3 = 3
wert4 = 4


result = Hue_Farbe_read(wert1, wert2, wert3,wert4)

'Funktioniert
ShowSystemAlarm "Result: " & result & " Wert1: " & wert1 & " Wert2: " & wert2 & " Wert3: " & wert3 & " Wert4: " & wert4  '...

'Funktioniert nicht
result = Hue_Farbe_read(wert1, SmartTags("Lampe 1 bri"), SmartTags("Lampe 1 sat"), SmartTags("Lampe 1 hue"))

End Sub

Code:
Sub VBFunktion_1()
Dim wert1, wert2, wert3, wert4, result

wert1 = 1
wert2 = 2
wert3 = 3
wert4 = 4

result = Hue_Farbe_read(wert1, wert2, wert3,wert4)

'Funktioniert
ShowSystemAlarm "Result: " & result & " Wert1: " & wert1 & " Wert2: " & wert2 & " Wert3: " & wert3 & " Wert4: " & wert4  '...

'Funktioniert
SmartTags("bri")=wert2
SmartTags("sat")=wert3
SmartTags("hue")=wert4


End Sub
 

Anhänge

  • Script1.jpg
    Script1.jpg
    43,3 KB · Aufrufe: 22
  • script2.jpg
    script2.jpg
    42,6 KB · Aufrufe: 14
Zuletzt bearbeitet:
Hi Emilio,

ich verfolge momentan deine Hue Programmierung in den Foren. Momentan bin ich auf das selbe Problem gestoßen, dass du wohl auch hattest.

Ich bekomme immer die Fehlermeldung mit "Fehler ActiveX component cant create object: winhttp.winhttprequest.5.1 in Skript.

Wie hast Du das gelöst? Würde mich über eine Antwort sehr freuen.
Vielen lieben Dank
Michi
 
Hallo das Skript Funktioniert nur auf einen Windows XP, 7, 10 Bediengerät da nur diese ActiveX winhttp unterstützen.
Auf einen Win CE Bediengerät geht dies nicht.

Am besten einen IPC mit Win 7 verwenden.
 
Zurück
Oben